BELAJAR VISUAL BASIC

                                       BERIKUT INI RUMUSNYA
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If (Me.Adodc1.Recordset.EOF Or Me.Adodc1.Recordset.BOF) Then
End If
End Sub

Private Sub Command1_Click()
Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Berhasil di Simpan", vbInformation, "Penyimpanan Data"
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.text1.SetFocus
End Sub

Private Sub Command2_Click()
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
text1.SetFocus
End Sub

Private Sub Command3_Click()
Me.Adodc1.Recordset.Delete
MsgBox "Data Siswa Telah Dihapus", vbInformation, "Hapus Data"
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.text1.SetFocus
End Sub

Private Sub Command4_Click()
Load DataReport1
DataReport1.Show
End Sub

Private Sub Command5_Click()
Me.Adodc1.Recordset!nis = text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Telah Dirubah", vbInformation, "Perubahan Data"
Me.text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.text1.SetFocus
End Sub

Private Sub DataGrid1_Click()
Me.text1.Text = Adodc1.Recordset!nis
Me.Text2.Text = Adodc1.Recordset!nama
Me.Combo1.Text = Adodc1.Recordset!program
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "Rekayasa Perangkat Lunak"
Me.Combo1.AddItem "Teknik Komputer dan Jaringan"
Me.Combo1.AddItem "Teknik Kendaraan Ringan"
Me.Combo1.AddItem "Akuntansi"
End Sub





                                                          BERIKUT INI HASILNYA

                                                               SEKIAN DARI SAYA

Penggunaan Fungsi "IF" dalam VB

Fungsi "IF" dalam Visual Basic biasa digunakan untuk menentukan pilihan. Sebuah parameter akan dijalankan oleh program jika pilihan tersebut bernilai benar atau "TRUE". sebagai contoh dalam sebuah kasus.

CONTOH

Private Sub Command1_Click()
If Text1.Text >= 200000 Then
                Text2.Text = Text1.Text * 0.15
                Text3.Text = "gelas cantik"
Else
             Text2.Text = "tidak ada hadiah"
Text3.Text = "tidak ada bonus"
End If
End Sub

                                            SEKIAN