burung

Wednesday, December 12, 2012

Tutorial Pembelajaran VB



Private Sub cmd_samadengan_Click()
Me.tesk_3 = Val(Me.tesk_1) + Val(Me.tesk_2)
End Sub

Private Sub Cmd_keluar_Click()
If MsgBox("Apakah yakin anda ingin keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
Unload Me
End If
End Sub

Private Sub Timer1_Timer()
    Me.Label1.Caption = Right(Me.Label1.Caption, Len(Me.Label1.Caption) - 1) + Left(Me.Label1.Caption, 1)

End Sub

0 comments:

Post a Comment