Perhitungan Dasar
Berikut ini adalah aplikasi 'perhitungan' sederhana antara 2 buah nilai, dimana masing-masing dari nilai pertama dan kedua diinput secara manual. Aplikasi ini bertujuan untuk melakukan proses 'perhitungan' (perkalian, pembagian, pertambahan, pembagian, atau pangkat). Berikut ini adalah kode program dari aplikasi 'perhitungan'.
Private Sub Command1_Click()
Hasil = Val(Text1) * Val(Text2)
MsgBox "Hasil Perkaliannya adalah " & Hasil, vbOKOnly, "Pesan"
End Sub
Private Sub Command2_Click()
Hasil = Val(Text1) / Val(Text2)
MsgBox "Hasilnya = " & Hasil, vbOKOnly, "Pesan"
End Sub
Private Sub Command3_Click()
Hasil = Val(Text1) + Val(Text2)
MsgBox "Hasilnya = " & Hasil, vbOKOnly, "Pesan"
End Sub
Private Sub Command4_Click()
Hasil = Val(Text1) - Val(Text2)
MsgBox "Hasilnya = " & Hasil, vbOKOnly, "Pesan"
End Sub
Private Sub Command5_Click()
Hasil = Val(Text1) * Val(Text1)
MsgBox "Hasilnya = " & Hasil, vbOKOnly, "Pesan"
End Sub
*sumber listing: Kasmoni, Visual Basic 6.0 untuk Orang Awam, Maxikom.
*sumber gambar : Koleksi pribadi
0 comments