Design form kaya gambar di bawah ini :
Kemudian atur properties dari masing-masing objek seperti di bawah ini :
Lalu ketikan coding di bawah ini :
Private Sub CmdBagi_Click()
TxtHasil.Text = Val(TxtBil1.Text) / Val(TxtBil2.Text)
LblOperator.Caption = ":"
End Sub
Private Sub CmdKali_Click()
TxtHasil.Text = Val(TxtBil1.Text) * Val(TxtBil2.Text)
LblOperator.Caption = "x"
End Sub
Private Sub CmdKurang_Click()
TxtHasil.Text = Val(TxtBil1.Text) - Val(TxtBil2.Text)
LblOperator.Caption = "-"
End Sub
Private Sub CmdTambah_Click()
TxtHasil.Text = Val(TxtBil1.Text) + Val(TxtBil2.Text)
LblOperator.Caption = "+"
End Sub
Lalu run program,, bila berhasil maka akan seperti di bawah ini :
Catatan :
Val adalah fungsi untuk mengkonversi bilangan numeric pada sebuah string (dengan mengabaikan spasi, tab dan karakter baris baru) menjadi sebuah bilangan integer murni.
met mencoba...
Tidak ada komentar:
Posting Komentar