ASALAMUALAIKUM ^_^

Disini saya akan membuat tabel Siswa Menggunakan Adodc Dan DataGrid

^Sebelumnya Apasih   Adodc itu?

 * ADODC adalah komponen visual basic yang digunakan untuk mengkoneksikan antara form dengan data base,dengan contoh sebagai berikut (Cth:MS.Access).

^Sedangkan  DataGrid adalah?

* sedangkan DataGrid merupakan control dalam sebuah aplikasi yang sangat penting,dikarenakan dapat mempresentasikan data tablur dan mengeditnya secara mudah.

dan langsung aja ini adalah contoh pembuatan Tabel Siswa menggunakan DataGrid Dan Adodc 

Dengan Rumus di bawah ini

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!NIS = 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!NIS = Me.Text1.Text
Me.Adodc1.Recordset!NAMA = Me.Text2.Text
Me.Adodc1.Recordset!PROGRAM = Me.Combo1.Text
Me.Adodc1.Recordset.Update
MsgBox "Data Berhasil Di Simpan", vbInformation, "info"
End Sub

Private Sub Command5_Click()
Me.Adodc1.Recordset.Delete
MsgBox "Data Berhasil Di Hapus", 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

Ketika di jalankan Akan tampil seperti gambar dibawah ini

 Sekian Penjabaran mengenai Adodc,DataGrid Besesrta Contoh Programnya,,,
Wasalamualaikum WR.WB.

Membuat project Bonus Pembelian pada visual Basic

 

Membuat Project Bonus Pembelian pada Visual Basic 

 

Pada kesempatan kali ini saya akan menjelaskan tentang project Bonus Pembelian pada Visual basic

Langkah pertama kita siapkan medianya...
lalu kita buat komponen -komponennya pada layar form yang sudah tertera..

Komponen yang diperlukan berupa:

1.textbox = 3

2.label = 3

3.Commandbutton = 1 sepertyi contoh di bawah ini

 

Sebelum ada tampilan seperti gambar di atas pada menu Properties "Caption"  kita ganti nama sesuai yang dibutuhkan...

jika sudah, kita tulis rumus pada komponen "HITUNG BONUS" kita klik 2 kali.

lalu akan muncul tampilan seperti ini

jika sudah,, lalu kita masukan rumusseperti dibawah ini

Private Sub Command1_Click()

If Text1.Text > 200000 Then
Text2.Text = Text1.Text * 0.15
Text3.Text = "gelas cantik"
Else
Text2.Text = Text1.Text
Text3.Text = "tidak ada"
 End If
End Sub

Lalu kita jalan kan program tersebut

jika kita mengisi nominal lebih dari 200000 maka akan menampilkan tampilan seperti dibawah ini

 

Tetapi jika kita mengisi nominal kurang dari 200000 maka akan menampilkan tampilan seperti dibawah ini

 

dan selesailah proses pembuatan project Bonus pembelian pada Visual Basic ...

semoga bermanfaat...

Asalamualaikum warohmatullahi wabarokatuh

 

 

Biodata

Nama : Yulia Erista
Jenis Kelamin :Perempuan
TTL : 10-03-1999
Kelas : XI RPL
Sekolah : SMK AL-AZHAR
Jurusan : Rekayasa Perangkat Lunak
Alamat : Sidomulyo-Jambewangi-Sempu-Banyuwangi
Hobi :   memasak