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



You Might Also Like

0 komentar