cumenk

Penggunaan kondisi IF - THEN di VB

Image hébérgée par monsterup.com


Sekarang saya membuat salah satu program yang menggunakan kondisi if - then...program sederhana yang saya buat adalah program Data Pembayaran SPP Siswa
kondisi if then saya pakai pada pemilihan kelas, selain itu semuanya hanya pakai label command bottom, frame, dan juga textbox..
Sebelumnya edit dulu name di text box ma command bottomnya, dah ngertikan...
Langsung saja pada Codeng programnya :

1. Code untuk Form Data :
Private Sub cmd_exit_Click()
End
End Sub
######################################
Private Sub cmd_view_Click()
Form_display.Show
Form_display.txt_nama = Form_data.txt_nama
Form_display.txt_noinduk = Form_data.txt_no
If Form_data.opt_1.Value = True Then
Form_display.txt_kelas = "1 TI"
End If
If Form_data.opt_2.Value = True Then
Form_display.txt_kelas = "2 TI"
End If
If Form_data.opt_3.Value = True Then
Form_display.txt_kelas = "3 TI"
End If
Form_display.txt_jumlah = " Rp " & Form_data.txt_uang
End Sub

2. Code untuk form Display
Private Sub cmd_back_Click()
Form_data.Show
Unload Me
End Sub
######################################
Private Sub cmd_exit_Click()
Unload Me
End Sub

Itulah codengnya semoga bermanfaat . . . kalau mau dundut tuch program klik ajah diSINI!!
Buat anda yang punya code yang lebih simpel dari pada punyaku, jagan lupa commentYa...
keep visit :)