Program Operasi Matematik

Ok sobat IT. Kali ini saya akan memposting salah satu tugas kuliah saya tentang OOP dengan visual basic 6. Program sederhana ini untuk operasi matematik. Ok lah, langsung aja yah..!

Ini adalah screenshot nyah:

Pertama buka aplikasi VB6 anda, dan pilih standard exe 

Pada lembar kerja atur komponennya seperti berikut:

• Text1
• text2
• text3 
• frame1
• frame2
• button1
• button2
• button3
• button4
• button5
• button6
• label1
• label2 

Propertynya atur ndiri yak!!

Untuk Kodingnya:

Private Sub Command1_Click()
Dim bil1, bil2, hasil
bil1 = Text1.Text
bil2 = Text2.Text
'Untuk proses matematikanya---
hasil = Val(bil1) + Val(bil2)
Text3.Text = hasil
End Sub

Private Sub Command2_Click()
Dim bil1, bil2, hasil
bil1 = Text1.Text
bil2 = Text2.Text
'Untuk proses matematikanya---
hasil = Val(bil1) - Val(bil2)
Text3.Text = hasil
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
MsgBox "Thanks you for using this bad Program"
Unload Me

End Sub

Private Sub Command6_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
'clear juga bisa diganti dengan ""
End Sub