Jonggan
Sub bersih()
Option1.Value = False
Option2.Value = False
Option3.Value = False
bilangan.Text = Clear
txtleft.Text = Clear
txtright.Text = Clear
txtmid.Text = Clear
txtlen.Text = Clear
txtltrim.Text = Clear
txtrtrim.Text = Clear
txtlcase.Text = Clear
txtucase.Text = Clear
End Sub
Private Sub Label3_Click()
End Sub
Private Sub cmdtampil_Click()
txtleft.Text = Left(bilangan, 4)
txtright.Text = Right(bilangan, 2)
txtmid.Text = Mid(bilangan, 10, 5)
txtlen.Text = Len(bilangan)
txtltrim.Text = LTrim(bilangan)
txtrtrim.Text = RTrim(bilangan)
txtlcase.Text = LCase(bilangan)
txtucase.Text = UCase(bilangan)
End Sub
Private Sub Command1_Click()
Call bersih
bilangan.SetFocus
End Sub
Private Sub Command2_Click()
If MsgBox("...:::KELUAR DARI APLIKASI:::...", vbOKCancel + 32, "INFO") = vbOK Then
End
End If
End Sub
Private Sub Form_Load()
tanggal.Caption = Format(Date, "dddd d mmmm yyyy")
Call bersih
End Sub
Private Sub Option1_Click()
bilangan.Text = "Lima Ratus Ribu Rupiah"
End Sub
Private Sub Option2_Click()
bilangan.Text = "Enam Ratus Ribu Rupiah"
End Sub
Private Sub Option3_Click()
bilangan.Text = "Tujuh Ratus Ribu Rupiah"
End Sub
Private Sub Timer1_Timer()
jam.Caption = Time
End Sub
Posted in: Visual Basic
