LA : DATABASE VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/94kpugomb1ndy28/4%20LAPORAN%20AKHIR%20Database%20VB.docx?dl=0 CODING CommandButton1 Private Sub Command1_Click() Adodc1.Recordset.Update Adodc1.Recordset!NPM = Text1.Text Adodc1.Recordset!Nama = Text2.Text Adodc1.Recordset!Jurusan = Text3.Text Adodc1.Recordset.Update DataGrid1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text...

Read More

LA : MDI VISUAL BASIC

Dapat didownload di https://www.dropbox.com/s/pk1ow02681a5f4h/3%20LAPORAN%20AKHI%20MDI%20VB.docx?dl=0 CODING Listing code untuk Form 1 Private Sub Command1_Click() Text3.Text = CInt(Text1.Text) * CInt(Text2.Text) End Sub Private Sub Command2_Click() Text4.Text = 2 * (CInt(Text1.Text) + CInt(Text2.Text)) End Sub Listing code untuk Form 2 Private Sub Command1_Click() Text2.Text...

Read More

LA : PERCABANGAN VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/77049vspeq3rz7i/2%20LAPORAN%20AKHI%20Percabangan%20VB.docx?dl=0 CODING  Listing code untuk Form1 Private Sub Form_Load() cmbMakanan.AddItem ("Nasi Goreng Nanas") cmbMakanan.AddItem ("Ikan Goreng  Nanas") cmbMakanan.AddItem ("Sate Sosis Nanas") cmbMakanan.AddItem ("Soto Ayam Nanas") cmbMakanan.AddItem ("Asinan...

Read More

LA : PENGENALAN VISUAL BASIC

Dapat didownload di : https://www.dropbox.com/s/sq5guhkbrzz1cra/1%20LAPORAN%20AKHI%20Pengenalan%20%20VB.docx?dl=0 PROJECT 1 CODING Private Sub Command1_Click() If (Text1.Text) = "ekafiya" And (Text2.Text) = "2728" Then MsgBox "Login", 1, "Kamu Telah Loggin" Else MsgBox "Error", 1, " Silahkan Masukan UserName dan Password kembali dengan benar" End If End...

Read More

TOKO ONLINE

PENJUALAN ONLINE Penjualan secara online merupakan salah  satu bentuk pengimplemetasian dari E-Commerce. E-Commerce atau perdagangan elektronik adalah penyebaran, pembelian, penjualan, pemasaran barang dan jasa melalui sistem elektronik seperti internet atau televisi, www, atau jaringan komputer lainnya. E-Commerce dapat melibatkan transfer dana elektronik,...

Read More