Visual Basic Part 7 (Kalkulator Sederhana )

Dim A1 As Double
Dim A2 As Double

Private Sub CMD2_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 ^ 2
End Sub

Private Sub CMDB_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 / A2
   
End Sub

Private Sub CMDK_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 * A2
End Sub

Private Sub CMDKR_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 - A2
End Sub

Private Sub CMDM_Click()
   TXT1.Text = ""
   TXT2.Text = ""
   LBLH.Caption = ""
   TXT1.SetFocus
End Sub

Private Sub CMDT_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 + A2
End Sub

Private Sub CMDY_Click()
    A1 = Val(TXT1.Text)
    A2 = Val(TXT2.Text)
    LBLH.Caption = A1 ^ A2
End Sub

Private Sub Timer1_Timer()
    Dim JAM As Variant
    Dim hari_ini As Variant
    JAM = Now
    LBLJAM.Caption = Format(JAM, "HH:MM:SS")
    hari_ini = Now
    Label2.Caption = Format(hari_ini, "dddd,d-mmmm-yyyy")
End Sub