Read more : http://www.wakrizki.net/2011/03/membuat-effek-zoom-gambar-di-blog.html#ixzz1PJMAYpiS

Cara Mengkonversi dari Celsius ke lain


Rheamur = Celcius x 0,8
Kelvin = Celsius + 273,15
• Buat proyek VB misalnya Project1
• Buat bentuk standar VB misalnya Form1
• Buat 5 label misalnya Label1, Label2, Label3, Label4, Label5
• Pergi ke Label1 properti dengan mengklik objek Label1, dan kemudian mengubah Label1 Caption menjadi "Gelar Konversi", dan mengubah Ukuran Font menjadi 14.
• Pergi ke properti Label2, dan menemukan Label2 Caption dan mengubah nilai menjadi "Celcius"
• Pergi ke properti Label3, dan kemudian mengubah Caption Label3 menjadi "Fahrenheit"
• Pergi ke properti Label4, dan kemudian mengubah Label4 Caption menjadi "Rheamur"
• Pergi ke properti Label5, dan kemudian mengubah Keterangan Label5 menjadi "Kelvin"
• Buat 4 kotak teks misalnya Text1, Text2, Text3, Text4
• Buat tombol perintah misalnya Command1
• Pergi ke Command1 sifat, dan perubahan Command1 caption menjadi "Convert"

Jadi desain layar Anda akan terlihat seperti gambar di bawah ini:

Fahrenheit = (Celsius X 1,8) + 32
Sekarang, mari kita menulis program coding.
Double klik setiap tempat di Form1 daerah untuk membuat Sub Form_Load ()
Tulis di bawah program coding di Sub Form_Load () area

'Untuk menghapus teks kotak teks
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

Double klik tombol perintah Command1 untuk membuat Sub Command1_Click ()
Tulis di bawah program coding di Sub Command1_Click () area

Text2.Text = Val (Text1.Text) * 1.8 + 32
Text3.Text = Val (Text1.Text) * 0,8
Text4.Text = Val (Text1.Text) + 273,15


Jadi program anda akan terlihat seperti daftar berikut:

Private Sub Command1_Click ()
Text2.Text = Val (Text1.Text) * 1.8 + 32
Text3.Text = Val (Text1.Text) * 0,8
Text4.Text = Val (Text1.Text) + 273,15
End Sub
Private Sub Form_Load ()
'Untuk menghapus teks kotak teks
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub


Sekarang, Anda dapat menguji program anda dengan mengklik tombol Start pada toolbar VB Anda untuk memeriksa apakah program Anda benar atau tidak.
• Ketik nomor di Text1 misalnya 15 (di kotak teks dengan label "Celcius")
• Klik tombol perintah Command1 (dengan label "Convert")
Jika hasilnya 59 di Text2 (Fahrenheit), 12 di Text3 (Rheamur), dan 288,15 di Text4 (Kelvin), itu berarti bahwa program anda adalah benar dan berjalan dengan baik.
Lihatlah di bawah gambar untuk ilustrasi Anda.





Baca Juga Artikel Menarik Lainnya :

Tidak ada komentar:

Posting Komentar