Cara
Membuat Program Untuk Mencari Konversi Suhu dari fahrenheit ke celcius dan
celsius ke fahrenheit di Visual Studio
2012
Untuk kali ini saya akan membuat program yang bisa
mencari konversi suhu
Berikut langkah-langkahnya. . . .
Langkah pertama bukalah software visual studio 2012 seperti gambar dibawah :
Pada halaman tersebut pilih new project dan akan
keluar ampilan seperti dibawah ini
Pada halaman diatas kita pilih dulu windows form
application dan mengubah name sesuai dengan nama yang kita inginkan,sesudah itu
klik oke maka project baru kita akan tersimpan.
Jika sudah diklik oke maka keluar gambar seperti :
Pada gambar diatas kita akan mendesign form konversi
suhu sesuai dengan keinginan kita dengan memilih toolbox untuk mendesignnya .
Ini design menurut saya :
Menambahkan Component-componentnya : 2 label, 2 Textbox, 2 RadioButton, dan 2 Button.
Pengaturan Properties :
Untuk pengaturan propertisnya maka Klik kanan pilih
propertis akan keluar gambar berikut ini :
Ubah setiap text tersebut dengan nama yang kita
inginkan, misalnya :
Pada label1 saya ubah nama textnya dengan
Input Nilai
Label2 dengan Hasil
Radiobutton1 dengan celcius
Radiobutton2 dengan fahrenheit
Button1 dengan Konversi
Dan Button2 dengan Selesai
Sehingga hasilnya seperti ini :
kemudian
double klik pada tiap-tiap komponen toolbox seperti yang sudah saya warnai
berikut ini
Pertama klik
pada formnya ,berikut coding programnya :
Public Class Form1
Dim celcius, fahrenheit As Double
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Coding program Pada
RadioButton1 :
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton1.CheckedChanged
celcius = TextBox1.Text
End Sub
Coding program Pada
RadioButton2 :
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton2.CheckedChanged
fahrenheit = TextBox1.Text
End Sub
Coding program Pada
Button1 :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
fahrenheit = (celcius * 1.8) + 32
TextBox3.Text = fahrenheit
Else
celcius = (fahrenheit - 32) / 1.8
TextBox3.Text = celcius
End If
End Sub
Coding program Pada
Button2 :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
Listing program
keseluruhannya adalah :
Public Class Form1
Dim celcius, fahrenheit As Double
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton1.CheckedChanged
celcius = TextBox1.Text
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles
RadioButton2.CheckedChanged
fahrenheit = TextBox1.Text
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked Then
fahrenheit = (celcius * 1.8) + 32
TextBox3.Text = fahrenheit
Else
celcius = (fahrenheit - 32) / 1.8
TextBox3.Text = celcius
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
Save dulu
programnya dengan ctrl+S.
Setelah itu kita
coba jalankan programnya / Start ,seperti gambar dibawah :
Hasilnya setelah dijalankan adalah sebagai
berikut :
Jika nilai yang kita inputkan 12
dan checkbox yang kita pilih adalah celcius maka klik konversi dan akan keluar
hasil 53.6,yaitu hasil dari konversi celcius ke fahrenheit
Jika nilai yang kita inputkan 30
dan checkbox yang kita pilih adalah fahrenheit maka klik konversi dan akan
keluar hasil -11.1111,yaitu hasil dari konversi fahrenheit ke celcius.
jika kita klik selesai maka akan selesai dan keluar dari form.
Semoga bermanfaat bagi kalian semua.
==SELAMAT MENCOBA ==
Tidak ada komentar :
Posting Komentar