Cara Membuat Program Konversi Suhu dengan Visual Basic Net

Pada kesempatan yang berbahagia kali ini Calon Diploma rasa tidak usah panjang lebar apa yang ingin Calon Diploma sampaikan, langsung saja. Seperti pada biasanya disini Calon Diploma akan berikan tentu nya yaitu seputar ilmu pengetahuan dunia komputer, yang mungkin dapat menjadi refrensi bagi temen-temen pengunjung blog ini. Seperti pada judul di atas berikut ulasan lengkapnya :

Program konversi suhu dengan visual basic

SOURCE CODE :

 Public Class Form1  
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
     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  
     Else  
       MsgBox("INPUT SALAH !!")  
   
     End If  
   End Sub  
   
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  
     TextBox1.ResetText()  
     TextBox2.ResetText()  
     ComboBox1.ResetText()  
     ComboBox2.ResetText()  
     Label4.ResetText()  
   End Sub  
   
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click  
     Me.Close()  
   End Sub  
   
 End Class  
   

Atau tema-teman bisa mendownload langsung project di atas pada link download yang ada di bawah ini :

Okelah mungkin cukup sekian info kali ini mudah-mudahan berguna dan bermanfaat, sampai bertemu kembali di tugas kuliah Calon Diploma berikut nya. Dan jangan lupa comment and share ke teman-teman kalian jika postingan ini bermanfaat Terimakasih..

Share this post