Halaman

Minggu, 20 Mei 2012

Temperatur Converter Menggunakan VB2010

Pada bagian ini kita akan membuat sebuah temperature converter yang akan menampilkan konversi temperature dari Fahrenheit ke Celcius dan dari Celcius ke Fahrenheit. Untuk membuat program temperature converter, tambahkan 1 MaskedTextBox ke dalam form1. Ubah mask properties nya menjadi numeric (5-digits). Untuk mengubahnya, klik MaskedTextbox1 dan klik panah kecil yang terletak di sebelah kanan atas MaskedTextBox1 kemudian klik Set Mask.
Pilih Numeric (5-digits) kemudian klik OK.
Tambahkan 2 RadioButton ke dalam form1 dan letakkan di bawah MaskedTextBox1. Ubah text properties RadioButton tersebut. Ubah RadioButton1 menjadi “F to C” dan RadioButton2 menjadi “C to F”.
Tambahkan sebuah Button ke dalam form1. Ubah text properties-nya menjadi “Convert”. Tambahkan sebuah label dan uabh text properties-nya menjadi “Result”.
Klik 2 kali button “Convert” (button1) dan masukkan coding berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            Label1.Text = MaskedTextBox1.Text & " Fahrenheit = " & (MaskedTextBox1.Text * 1.8) + 32 & " Celsius"
        ElseIf RadioButton2.Checked = True Then
            Label1.Text = MaskedTextBox1.Text & " Celsius = " & (MaskedTextBox1.Text - 32) / 1.8 & " Fahrenheit"
        End If
    End Sub
End Class
 Untuk mendapatkan file pdf-nya klik download

Tidak ada komentar:

Posting Komentar