Konversi Suhu

Cara Membuat Form Aplikasi Sederhana  “menghitung suhu” Menggunakan Visual Basic 2010 , Seperti Gambar Dibwah Ini

1         Langkah Pertama bukalah aplikasi Visual Basic 2010 Anda, Lanjut New Project ,

2         Isi Form  Dengan Icon-Icon Seperti Gambar Dibawah ini, Dan Pilih Icon Di TOOTBOX, Buatlah seperti Gambar ini

Untuk  Membuat Pilihan di ComboBox , Harus di  Isi Di  Item yg Ada Di Propertis, Isi Pilihan Seperti   Gambar Dibawah Ini.

3        . Isi Semua Coding Di Form Load , Dengan Cara Klik 2 Kali Di Form Load, Masukan Semua Coding Seperti Gambar Dibwah Ini.

4.Setelah Memasukan Semua coding Di Form Load tersebut, Lanjukant Isi Coding Di masing- masing Icon Yang Sudah Di isi Tadi, Cara nya Sama dengan Klik Dua Kali Di Icon (Button)  Tersebut,

Masukan Coding Dbawah Ini Di setiap Icon;

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If (ComboBox1.SelectedItem = "C->R") Then

            TextBox2.Text = (4 / 5) * Val(TextBox1.Text)

        ElseIf (ComboBox1.SelectedItem = "C->F") Then

            TextBox2.Text = (9 / 5) * Val(TextBox1.Text) + Val(32)

        ElseIf (ComboBox1.SelectedItem = "C->K") Then

            TextBox2.Text = (TextBox1.Text) + Val(273)

        End If

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If (ComboBox2.SelectedItem = "F->C") Then

            TextBox4.Text = (5 / 9) * Val(TextBox3.Text) - Val(32)

        ElseIf (ComboBox2.SelectedItem = "F->R") Then

            TextBox4.Text = (4 / 9) * Val(TextBox3.Text) - Val(32)

        ElseIf (ComboBox2.SelectedItem = "F->K") Then

            TextBox4.Text = (TextBox3.Text) - Val(273)

        End If

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If (ComboBox3.SelectedItem = "K->C") Then

            TextBox6.Text = Val(TextBox5.Text) - Val(273)

        ElseIf (ComboBox3.SelectedItem = "K->R") Then

            TextBox6.Text = Val(4 / 5) * Val(TextBox5.Text) - Val(273)

        ElseIf (ComboBox3.SelectedItem = "K->F") Then

            TextBox6.Text = Val(9 / 5) * Val(TextBox5.Text) - Val(273) + Val(32)

        End If

Hasil Run Seperti Dibawah ini

Sekian Postingan Dari Saya , Semoga Bermanfaat Terima kasih.

By.yuyun Andriani