kalkulator sederhana dengan vb6

    MEMBUAT KALKULATOR DENGAN VISUALBASIC6.0

Langkah pertama adalah membuat form dengan letak seperti dibawah ini

Kemudian ubah property sebagai berikut :

Text1                                     text                                        -

Text2                                     text                                        -

Label                                     caption                                 hasil

Command1                         caption                                 +

Command2                         caption                                 -

Command3                         caption                                 *

Command4                         caption                                 /

Command5                         caption                                 ^

Command6                         caption                                 sql

Command7                         caption                                 clear

Command8                         caption                                 exit

Setelah itu masukan koding sebagai berikut :

 Command1

Private Sub Command1_Click()

Label1.Caption = Val(Text1.Text) + Val(text2text)

End Sub

#Label1.Caption = Val(Text1.Text) + Val(text2.text) digunakan untuk menjumlahkan isi dari text1 dan text2  di label1

Command2

Private Sub Command2_Click()

Label1.Caption = Val(Text1.Text) - Val(Text2.Text)

End Sub

#Label1.Caption = Val(Text1.Text) - Val(Text2.Text) digunakan untuk mengurangi bilangan pada text1 dengan bilangan di text2 pada label1

Command3

Private Sub Command3_Click()

Label1.Caption = Val(Text1.Text) * Val(Text2.Text)

End Sub

#Label1.Caption = Val(Text1.Text) * Val(Text2.Text) digunakan untuk mengalikan isi bilangan di text1 dengan text2 pada label1

Command4

Private Sub Command4_Click()

Label1.Caption = Val(Text1.Text) / Val(Text2.Text)

End Sub

#Label1.Caption = Val(Text1.Text) / Val(Text2.Text) digunakan untuk membagi isi bilangan di text1 dengan bilangan di text2 pada label1

Command5

Private Sub Command5_Click()

Label1.Caption = Val(Text1.Text) ^ Val(Text2.Text)

End Sub

#Label1.Caption = Val(Text1.Text) ^ Val(Text2.Text) digunakan untuk mempangkatkan bilangan text1 dengan bilangan di text2 pada label1

Command6

Private Sub Command6_Click()

Text1.Text = ""

Text2.Text = ""

Label1 = ""

End Sub

#Digunakan untuk menghapus isi bilangan yang ada di text1, text2 dan label1

Command7

Private Sub Command7_Click()

End

End Sub

#End untuk mengakhiri program

Command8

Private Sub Command8_Click()

Label1.Caption = Sqr(Text1.Text)

End Sub

#Label1.Caption = Sqr(Text1.Text) digunakan untuk menghitung akar dari isi bilangan di text1.

Setelah itu klik ikon start pada menu bar, lalu kita isikan bilangan di textbox1 dan textbox2 lalu pilih operator matematika nya, maka label 1 akan memunculkan hasil dari program tersebut.