pemograman daftar siswa dalam visual basic

contoh dari membuat program dalam visual basic yang dihubungkan dengan microsoft access
berikut kode yang harus di tulis

Private Sub tampil()
Me.Text1.Text = Me.Adodc1.Recordset!NIS
Me.Text2.Text = Me.Adodc1.Recordset!nama
Me.Combo1.Text = Me.Adodc1.Recordset!program
End Sub


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

Private Sub Command1_Click()
Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset.Fields(0) = Me.Text1.Text
Me.Adodc1.Recordset!nama = Me.Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "data berhasil disimpan", vbInformation, "info"
End Sub



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

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

Private Sub Command4_Click()
Me.Adodc1.Recordset.Fields(0) = Me.Text1.Text
Me.Adodc1.Recordset!nama = Me.Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "data berhasil disimpan", vbInformation, "info"
End Sub

Private Sub Form_Load()
Me.Combo1.AddItem "rekayasa perangkat lunak"
Me.Combo1.AddItem "teknik komputer dan jaringan"
Me.Combo1.AddItem "akuntansi"
Me.Combo1.AddItem "teknik kendaraan ringan"
End Sub


 berikut tampilan dari kode diatas

 mterimakasiihh atas perhatian anda slmat berjumpa di materi selanjutnya smoga bermanfaat

fungsi if then dan else

fungsi if then dan else pada program visuala basic adalah logika pemograman yang di gunakan untuk beberapa blok pernyataan menurut kondisi yang di persyaratkan
contoh penggunaan fungsi if then else dalam membuat bonus dalam pembelian menggunakan rumus sperti pda gambar di bawah ini











yang akan memiliki tampilan sperti ini

terimaksihh karna telah mlihat blog saya