Membuat Rumus Prubahan Suhu pada VB 2010

Proses menjalankan koding microsoft visuak basic 2010

kita simak bersama

Kali ini kita akan membahas tentang bagaimana cara menjalankan proses cooding di microsoft visual basic 2010.tapi kali ini saya akan memberitahu anda sekalian bagaimana menjalan kan proses cooding di mulai dengan cara yg mudah.

Awal proses membuat koding di microsoft visual basic 2010
untuk menjalankansebuah proses tentu ada beberapa yg akan di lakukan.

kita tidak asing lagi mendengar kata cooding, bagi orang awam mungkin tidak tahu arti koding naaahhh saya akan memberitahu gimana sih cara mnjalankan proses cooding ini. Adapun cara nya sebagai berikut:

Anda buka aplikasi Lalu anda buat 4 label padal kolom form, Dan buat juga Group Box, Button, Combo Box semua itu bisa anda liat di area toolbox. Jika sudah akan muncul gambar seperti di bawah ini:

 

Kemudian anda doble klik pada area form untuk mengkoding rumus supaya program yang anda buat bisa berjalan, dan akan muncul gambar seperti di bawah ini:

  Kemudian masukan rumus nya

·         Untuk memberi nama program gunakan rumus

·           Me.Text = "Konverter Suhu"

·         Untuk mengubah nama suhu gunakan rumus

          GroupBox1.Text = "Merubah Suhu"

        Label1.Text = "Dari"

        Label2.Text = "Ke"

        Label3.Text = "Hasil"

        Label4.Text = ""

        Button1.Text = "Hitung"

        Button2.Text = "Hapus"

Label3 sengaja di kosongkan karna label3 di gunakan untuk output hasil proses

·         Untuk mengedit button1/hitung gunakan rumus

·         If ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°C" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°C" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°C" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°R" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°R" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°R" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°F" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°F" Then

·                     TextBox2.Text = (4 / 9) * (Val(TextBox1.Text) - 32)

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°K" And ComboBox2.SelectedItem = "°F" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°C" And ComboBox2.SelectedItem = "°K" Then

·                     TextBox2.Text = Val(TextBox1.Text) - 273

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°R" And ComboBox2.SelectedItem = "°K" Then

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

·                     Label4.Text = ComboBox1.Text

·                 ElseIf ComboBox1.SelectedItem = "°F" And ComboBox2.SelectedItem = "°K" Then

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

·                     Label4.Text = ComboBox1.Text

·                 End If

·             End Sub

·         Koding untuk button2/menghapus

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

·                 TextBox1.Text = ""

·                 TextBox2.Text = ""

·                 ComboBox1.ResetText()

·                 ComboBox2.ResetText()

·                 Label4.Text = ""

·             End Sub

·          

Semua rumus itu dapat anda masukan dalam satu prose seperti gambar di bawah ini

Kemudian ketika anda ingin mengedit Comboboxnya kalian tinggal lihat gambar seperti dibawah ini:

1.  Anda klik comboboxnya terus ada tanda panah diatas combobox terus anda klik maka akan muncul gambar seprti di bawah ini sesudah itu anda pilih edit items

2.Sesudah anda klik edit items maka akan keluar seperti gambar dibawah:

3.Kemudian anda masukkan rumusnya seperti contoh dibawah:

Ø  Setelah di RUN program yang anda buat akan seperti gambar di bawah ini

 Ø  Untuk mencoba program yang di buat anda tinggal klik RUN atau seperti symbol play dengan cara singkat tekan F5 pada keyboard

 

Ø  Dan masukan angka pada textbox yang telah di buat terus anda pilih salah satu konversi suhu seperti contoh dibawah:

Ø  Kemudian anda pilih salah satu konversi pada combobox seperti contoh dibawah:

Kemudian anda klik hitung seperti gambar dibawah ini:

       Kemudian untuk menghapus semua angka dan konversi suhu tadi anda tinggal klik hapus seperti contoh gambar dibawah ini:

Coba masukkan angka dan konversi suhu yang saya jelaskan tadi ketika benar maka program anda berhasil.

“selamat mencoba”

"good luck"