RSS

Membuat Perulangan Program pada Visual Basic

25 Mar

kalau kita klik command clear maka secara otomatis data yang telah diinput sebelumnya  akan hilang.

untuk kodingannya seperti ini

Private Sub bagi_Click()
hasil.Text = Val(angka1.Text) / Val(angka2.Text)
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
hasil.FontItalic = True
Else
hasil.FontItalic = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
hasil.FontSize = 30
Else
hasil.FontSize = 12
End If
End Sub

Private Sub clear_Click()
angka2 = ” ”
angka2.SetFocus
angka1 = ” ”
angka1.SetFocus
hasil = ” ”
hasil.SetFocus
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub kurang_Click()
hasil.Text = Val(angka1.Text) – Val(angka2.Text)
End Sub

 

semoga bermanfaat🙂

 
Tinggalkan komentar

Ditulis oleh pada 25 Maret 2011 in Visual Basic

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: