Senin, 21 Maret 2011

Visual Basic Part 1 ( Menjumlahkan Dua Bilangan )


Dim BIL1
Dim BIL2
Dim JUMLAH

Private Sub CMDHITUNG_Click()
    BIL1 = Val(TXTBIL1.Text)
    BIL2 = Val(TXTBIL2.Text)
    JUMLAH = BIL1 + BIL2
    LBLJUMLAH.Caption = Format(JUMLAH, "#.####,0")
End Sub

Private Sub CMDKELUAR_Click()
    End
End Sub

Private Sub CMDLANJUT_Click()
    TXTBIL1.Text = ""
    TXTBIL2.Text = ""
    LBLJUMLAH.Caption = ""
    TXTBIL1.SetFocus
End Sub

Tidak ada komentar:

Posting Komentar