BAHAS TUGAS DISINI..!!
Halaman 1 dari 1
TUGAS PRAKTIKUM KELOMPOK VB GW
NI TUGAS PRESENTASI KELOMPOK GW BUAT RABO BESOK..
1. BUKA VB > KLIK PROJECT > KOMPONEN
2. PROJECT > PREFERENCES
3. LOGIN FORM :
CODING NYA :
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Private Sub Command1_Click()
If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\staff.mdb"
If RS.State = 1 Then RS.Close
RS.Open "select * from staff where Nama = '" & Text1.Text & _
"' And Password = '" & Text2.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "Welcome " + Text1, vbInformation, "Welcome Staff"
Text1 = ""
Text2 = ""
Text1.SetFocus
Form2.Show
Form1.Hide
Else
MsgBox "Username atau Password Salah", vbCritical, "Peringatan"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
pesan = MsgBox("Yakin mao keluar ?", vbYesNo, "No Hacking Gan !!")
If pesan = 6 Then
Unload Me
End If
End Sub
4. TAMPILAN SS TAB GW
5. KONEKSIIN ADODC KE DATABASE :
KLIK KANAN ADODC NYA > ADODC PROPERTIES
TAR MUNCUL GAMBAR KY GINI
KLIK BUILD > KLIK BROWSE YG GAMBAR TITIK-TITIK > TEST CONNECTION > OK !!
TERUZ KLIK ADODC NYA > ADODC PROPERTIES
GANTI COMMAND TYPE NYA JD ADCMDTABLE
PILIH RECORDSOURCE
TRZ PILIH SSTAB2, KLIK DATA GRID YAND ADA DI SSTAB2 > LIAT DIKANAN > DATAGRID PROPERTIES
PILIH DATASOURCE NYA
6. CODING FORM2 :
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Text1 = "IM"
Text2 = 1300
Else
If Combo1.ListIndex = 1 Then
Text1 = "BP"
Text2 = 2500
Else
If Combo1.ListIndex = 2 Then
Text1 = "BK"
Text2 = 1500
Else
If Combo1.ListIndex = 3 Then
Text1 = "HVS"
Text2 = 78000
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
pesan = MsgBox("Yakin Mao diapus gan ?", vbYesNo, "Informasi")
If pesan = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
MsgBox "Udah Ke apus gan jgn dicariin lg", vbInformation, "Deleted"
End If
End Sub
Private Sub Command10_Click()
pesan = MsgBox("Yakin Ingin Login Ulang ?", vbYesNo, "Informasi")
If pesan = 6 Then
Form2.Hide
Form1.Show
End If
End Sub
Private Sub Command11_Click()
pesan = MsgBox("Yakin Mao Ubah Data Staff ?", vbYesNo, "Informasi")
If pesan = 6 Then
Adodc2.Recordset.Update
Adodc2.Recordset("Nama") = Text7
Adodc2.Recordset("Password") = Text8
Adodc2.Recordset("Alamat") = Text9
Adodc2.Recordset("No Telpn") = Text10
Adodc2.Recordset("Email") = Text11
MsgBox "Berhasil Di Edit", vbInformation, "Informasi"
Adodc2.Refresh
End If
End Sub
Private Sub Command2_Click()
pesan = MsgBox("Yakin Mao disimpen gan ?", vbYesNo, "Informasi")
If pesan = vbYes Then
Adodc1.Recordset.AddNew
Adodc1.Recordset("Kode Barang") = Text1
Adodc1.Recordset("Nama Barang") = Combo1.Text
Adodc1.Recordset("Harga Barang") = Text2
Adodc1.Recordset("Banyak Beli") = Text3
Adodc1.Recordset("Total Harga") = Text4
Adodc1.Recordset("Uang Bayar") = Text5
Adodc1.Recordset("Uang Kembalian") = Text6
MsgBox "Berhasil Ditambahkan Gan!!", vbInformation, "Informasi"
Else
Adodc1.Recordset.Cancel
End If
End Sub
Private Sub Command3_Click()
pesan = MsgBox("Yakin Mao Dibersihin Gan ?", vbYesNo, "Informasi")
If pesan = 6 Then
Combo1.Text = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End If
End Sub
Private Sub Command4_Click()
pesan = MsgBox("Yakin Mao di Logout ?", vbYesNo, "Informasi")
If pesan = 6 Then
Form2.Hide
Form1.Show
End If
End Sub
Private Sub Command5_Click()
pesan = MsgBox("Yakin Ingin Registrasi ?", vbYesNo, "Informasi")
If pesan = 6 Then
Adodc2.Recordset.AddNew
Adodc2.Recordset("Nama") = Text7
Adodc2.Recordset("Password") = Text8
Adodc2.Recordset("Alamat") = Text9
Adodc2.Recordset("No Telpn") = Text10
Adodc2.Recordset("Email") = Text11
MsgBox "Berhasil Di Tambahkan", vbInformation, "Informasi"
End If
End Sub
Private Sub Command6_Click()
pesan = MsgBox("Yakin Mao Keluar Gan ?", vbYesNo, "Informasi")
If pesan = 6 Then
Unload Me
End If
End Sub
Private Sub Command7_Click()
pesan = MsgBox("Yakin Ingin Dihapus", vbYesNo, "Informasi")
If pesan = 6 Then
Adodc2.Recordset.Delete
MsgBox "Data Sudah Dihapus", vbInformation, "Informasi"
Adodc2.Refresh
End If
End Sub
Private Sub Command8_Click()
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text7.SetFocus
End Sub
Private Sub Command9_Click()
pesan = MsgBox("Yakin Ingin Keluar ?", vbYesNo, "Informasi")
If pesan = 6 Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "Indo Mie"
Combo1.AddItem "BalPoint"
Combo1.AddItem "Buku"
Combo1.AddItem "Kertas HVS"
End Sub
Private Sub Text3_keypress(keyascii As Integer)
If keyascii = 13 Then
Text4 = Text2 * Text3
End If
End Sub
Private Sub Text5_keypress(keyascii As Integer)
If keyascii = 13 Then
Text6 = Text5 - Text4
End If
End Sub
7. DATABASE GW, ADA 2.. 1 LOGIN FORM, 1 SSTAB
NOTE : JANGAN MAEN COPAS AJA YE,, DI IMPROVE, DI PERBAHARUIN, DI EDIT, DIGANTI BIAR GAK CURIGA YANG MEREKSA
1. BUKA VB > KLIK PROJECT > KOMPONEN
2. PROJECT > PREFERENCES
3. LOGIN FORM :
CODING NYA :
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Private Sub Command1_Click()
If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\staff.mdb"
If RS.State = 1 Then RS.Close
RS.Open "select * from staff where Nama = '" & Text1.Text & _
"' And Password = '" & Text2.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "Welcome " + Text1, vbInformation, "Welcome Staff"
Text1 = ""
Text2 = ""
Text1.SetFocus
Form2.Show
Form1.Hide
Else
MsgBox "Username atau Password Salah", vbCritical, "Peringatan"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
pesan = MsgBox("Yakin mao keluar ?", vbYesNo, "No Hacking Gan !!")
If pesan = 6 Then
Unload Me
End If
End Sub
4. TAMPILAN SS TAB GW
5. KONEKSIIN ADODC KE DATABASE :
KLIK KANAN ADODC NYA > ADODC PROPERTIES
TAR MUNCUL GAMBAR KY GINI
KLIK BUILD > KLIK BROWSE YG GAMBAR TITIK-TITIK > TEST CONNECTION > OK !!
TERUZ KLIK ADODC NYA > ADODC PROPERTIES
GANTI COMMAND TYPE NYA JD ADCMDTABLE
PILIH RECORDSOURCE
TRZ PILIH SSTAB2, KLIK DATA GRID YAND ADA DI SSTAB2 > LIAT DIKANAN > DATAGRID PROPERTIES
PILIH DATASOURCE NYA
6. CODING FORM2 :
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Text1 = "IM"
Text2 = 1300
Else
If Combo1.ListIndex = 1 Then
Text1 = "BP"
Text2 = 2500
Else
If Combo1.ListIndex = 2 Then
Text1 = "BK"
Text2 = 1500
Else
If Combo1.ListIndex = 3 Then
Text1 = "HVS"
Text2 = 78000
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
pesan = MsgBox("Yakin Mao diapus gan ?", vbYesNo, "Informasi")
If pesan = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
MsgBox "Udah Ke apus gan jgn dicariin lg", vbInformation, "Deleted"
End If
End Sub
Private Sub Command10_Click()
pesan = MsgBox("Yakin Ingin Login Ulang ?", vbYesNo, "Informasi")
If pesan = 6 Then
Form2.Hide
Form1.Show
End If
End Sub
Private Sub Command11_Click()
pesan = MsgBox("Yakin Mao Ubah Data Staff ?", vbYesNo, "Informasi")
If pesan = 6 Then
Adodc2.Recordset.Update
Adodc2.Recordset("Nama") = Text7
Adodc2.Recordset("Password") = Text8
Adodc2.Recordset("Alamat") = Text9
Adodc2.Recordset("No Telpn") = Text10
Adodc2.Recordset("Email") = Text11
MsgBox "Berhasil Di Edit", vbInformation, "Informasi"
Adodc2.Refresh
End If
End Sub
Private Sub Command2_Click()
pesan = MsgBox("Yakin Mao disimpen gan ?", vbYesNo, "Informasi")
If pesan = vbYes Then
Adodc1.Recordset.AddNew
Adodc1.Recordset("Kode Barang") = Text1
Adodc1.Recordset("Nama Barang") = Combo1.Text
Adodc1.Recordset("Harga Barang") = Text2
Adodc1.Recordset("Banyak Beli") = Text3
Adodc1.Recordset("Total Harga") = Text4
Adodc1.Recordset("Uang Bayar") = Text5
Adodc1.Recordset("Uang Kembalian") = Text6
MsgBox "Berhasil Ditambahkan Gan!!", vbInformation, "Informasi"
Else
Adodc1.Recordset.Cancel
End If
End Sub
Private Sub Command3_Click()
pesan = MsgBox("Yakin Mao Dibersihin Gan ?", vbYesNo, "Informasi")
If pesan = 6 Then
Combo1.Text = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End If
End Sub
Private Sub Command4_Click()
pesan = MsgBox("Yakin Mao di Logout ?", vbYesNo, "Informasi")
If pesan = 6 Then
Form2.Hide
Form1.Show
End If
End Sub
Private Sub Command5_Click()
pesan = MsgBox("Yakin Ingin Registrasi ?", vbYesNo, "Informasi")
If pesan = 6 Then
Adodc2.Recordset.AddNew
Adodc2.Recordset("Nama") = Text7
Adodc2.Recordset("Password") = Text8
Adodc2.Recordset("Alamat") = Text9
Adodc2.Recordset("No Telpn") = Text10
Adodc2.Recordset("Email") = Text11
MsgBox "Berhasil Di Tambahkan", vbInformation, "Informasi"
End If
End Sub
Private Sub Command6_Click()
pesan = MsgBox("Yakin Mao Keluar Gan ?", vbYesNo, "Informasi")
If pesan = 6 Then
Unload Me
End If
End Sub
Private Sub Command7_Click()
pesan = MsgBox("Yakin Ingin Dihapus", vbYesNo, "Informasi")
If pesan = 6 Then
Adodc2.Recordset.Delete
MsgBox "Data Sudah Dihapus", vbInformation, "Informasi"
Adodc2.Refresh
End If
End Sub
Private Sub Command8_Click()
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text7.SetFocus
End Sub
Private Sub Command9_Click()
pesan = MsgBox("Yakin Ingin Keluar ?", vbYesNo, "Informasi")
If pesan = 6 Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "Indo Mie"
Combo1.AddItem "BalPoint"
Combo1.AddItem "Buku"
Combo1.AddItem "Kertas HVS"
End Sub
Private Sub Text3_keypress(keyascii As Integer)
If keyascii = 13 Then
Text4 = Text2 * Text3
End If
End Sub
Private Sub Text5_keypress(keyascii As Integer)
If keyascii = 13 Then
Text6 = Text5 - Text4
End If
End Sub
7. DATABASE GW, ADA 2.. 1 LOGIN FORM, 1 SSTAB
NOTE : JANGAN MAEN COPAS AJA YE,, DI IMPROVE, DI PERBAHARUIN, DI EDIT, DIGANTI BIAR GAK CURIGA YANG MEREKSA
TUGAS BIKIN SOAL
NI SOAL-SOAL GW..
MUDAH2AN SIH DAH PADA NGARTI SMUAAA...
TOLONG SEBELUMNYA, KLO ADA YG MW COPAS TOLONG DI EDIT2 DLU BIAR KGA KETARA YAKK... KATA2 NYA DIGANTI SAMA A,B,C,D NYA JG DIGANTI BIAR KGA CURIGA...
AND BWT YANG UDAH REGISTER, AYO DONK IKUTAN NGE REPLY ATOW NGEPOST,, PAYAH AH MASA GW DOANK YG AKTIF DSINI -_-"
LANGSUNG SEDOT DAH NIH........
1. Apakah yang dimaksud dengan visual basic ?
a. Development tools berbasis dos untuk membuat applikasi
b. Development tools berbasis windows untuk membuat applikasi
c. Development tools berbasis windows untuk mengolah kata
d. Development tools berbasis windows untuk mengolah angka
2. Apakah yang dimaksud dengan visual data ?
a. Applikasi tambahan VB untuk membuat & mengolah data
b. Applikasi tambahan VB untuk membuat program
c. Applikasi tambahan VB untuk mengolah kata
d. Applikasi tambahan VB untuk mengolah angka
3. Bagaimanakah cara menampilkan datagrid pada toolbox ?
a. Project > Preferences > Microsoft Datagrid Control 6.0 > Ok
b. Project > Add Microsoft Datagrid Control 6.0 > Ok
c. Add ins > Add ins manager > Microsoft Datagrid Control 6.0 > Ok
d. Project > Components > Microsoft Datagrid Control 6.0 > Ok
4. Bagaimakah cara menampilakan SStab pada toolbox ?
a. Project > Preferences > Microsoft Tabbed Dialog Control 6.0 > Ok
b. Project > Add Microsoft Tabbed Dialog Control 6.0 > Ok
c. Add ins > Add ins manager > Microsoft Tabbed Dialog Control 6.0 > Ok
d. Project > Components > Microsoft Tabbed Dialog Control 6.0 > Ok
5. Code apakah yang digunakan untuk menambahkan item pada combo box ?
a. .additem “nama_item”
b. Combo1. Additem = “nama_item”
c. With combo1
.additem “nama_item”
End with
d. With combo1
Combo1.additem “nama_item”
End with
6. Yang dimaksud dengan code Dim koneksi adalah..
a. Membuat koneksi
b. Memanggil database
c. Mendeklarasikan koneksi
d. Menggunakan Microsoft Access Driver sebagai koneksi
7. Code apakah yang digunakkan untuk menjumlahkan angka pada textbox ?
a. Text1.text + Text2.text
b. Text1 + Text2
c. Val (Textbox1) + Val (Textbox2)
d. Val (Text1) + Val (Text2)
8. X = MsgBox (“Yakin Ingin Keluar”,VbYesNo,”Informasi”)
If X = 6 then
Unload Form2
Yang dimaksud dari code “X = 6” diatas adalah..
a. nilai x = 6 artinya salah
b. nilai x = 6 artinya sama dengan vbYes
c. nilai x = 6 artinya terdapat x sebanyak 6
d. nilai x = 6 artinya sama dengan vbNo
9. Code apakah yang digunakan untuk mengaktifkan timer atau system waktu pada VB ?
a. Timer1.Enabled
b. Text1.text = Format(Date, "dd/mm/yyyy")
c. Timer1.Enabled = True
d. Text1.text = Format(Time, "hh/mm/ss")
10. Text1.text = Format(Date, "dd/mm/yyyy")
Apa yang dimaksud dari code diatas ?
a. Menampilkan waktu pada textbox1
b. Menampilkan waktu berdasarkan jam, menit, dan detik pada textbox1
c. Menampilkan waktu berdasarkan tanggal, bulan, dan tahun pada textbox1
d. Untuk Mengaktifkan timer atau system waktu
JAWABAN SOAL :
1.B 6. C
2.A 7. D
3.D 8. B
4.D 9. C
5.C 10. C
KLO SALAH 1 SOAL GW ADA YG KELUAR LU INGET2 AJA YAKK....
MUDAH2AN SIH DAH PADA NGARTI SMUAAA...
TOLONG SEBELUMNYA, KLO ADA YG MW COPAS TOLONG DI EDIT2 DLU BIAR KGA KETARA YAKK... KATA2 NYA DIGANTI SAMA A,B,C,D NYA JG DIGANTI BIAR KGA CURIGA...
AND BWT YANG UDAH REGISTER, AYO DONK IKUTAN NGE REPLY ATOW NGEPOST,, PAYAH AH MASA GW DOANK YG AKTIF DSINI -_-"
LANGSUNG SEDOT DAH NIH........
1. Apakah yang dimaksud dengan visual basic ?
a. Development tools berbasis dos untuk membuat applikasi
b. Development tools berbasis windows untuk membuat applikasi
c. Development tools berbasis windows untuk mengolah kata
d. Development tools berbasis windows untuk mengolah angka
2. Apakah yang dimaksud dengan visual data ?
a. Applikasi tambahan VB untuk membuat & mengolah data
b. Applikasi tambahan VB untuk membuat program
c. Applikasi tambahan VB untuk mengolah kata
d. Applikasi tambahan VB untuk mengolah angka
3. Bagaimanakah cara menampilkan datagrid pada toolbox ?
a. Project > Preferences > Microsoft Datagrid Control 6.0 > Ok
b. Project > Add Microsoft Datagrid Control 6.0 > Ok
c. Add ins > Add ins manager > Microsoft Datagrid Control 6.0 > Ok
d. Project > Components > Microsoft Datagrid Control 6.0 > Ok
4. Bagaimakah cara menampilakan SStab pada toolbox ?
a. Project > Preferences > Microsoft Tabbed Dialog Control 6.0 > Ok
b. Project > Add Microsoft Tabbed Dialog Control 6.0 > Ok
c. Add ins > Add ins manager > Microsoft Tabbed Dialog Control 6.0 > Ok
d. Project > Components > Microsoft Tabbed Dialog Control 6.0 > Ok
5. Code apakah yang digunakan untuk menambahkan item pada combo box ?
a. .additem “nama_item”
b. Combo1. Additem = “nama_item”
c. With combo1
.additem “nama_item”
End with
d. With combo1
Combo1.additem “nama_item”
End with
6. Yang dimaksud dengan code Dim koneksi adalah..
a. Membuat koneksi
b. Memanggil database
c. Mendeklarasikan koneksi
d. Menggunakan Microsoft Access Driver sebagai koneksi
7. Code apakah yang digunakkan untuk menjumlahkan angka pada textbox ?
a. Text1.text + Text2.text
b. Text1 + Text2
c. Val (Textbox1) + Val (Textbox2)
d. Val (Text1) + Val (Text2)
8. X = MsgBox (“Yakin Ingin Keluar”,VbYesNo,”Informasi”)
If X = 6 then
Unload Form2
Yang dimaksud dari code “X = 6” diatas adalah..
a. nilai x = 6 artinya salah
b. nilai x = 6 artinya sama dengan vbYes
c. nilai x = 6 artinya terdapat x sebanyak 6
d. nilai x = 6 artinya sama dengan vbNo
9. Code apakah yang digunakan untuk mengaktifkan timer atau system waktu pada VB ?
a. Timer1.Enabled
b. Text1.text = Format(Date, "dd/mm/yyyy")
c. Timer1.Enabled = True
d. Text1.text = Format(Time, "hh/mm/ss")
10. Text1.text = Format(Date, "dd/mm/yyyy")
Apa yang dimaksud dari code diatas ?
a. Menampilkan waktu pada textbox1
b. Menampilkan waktu berdasarkan jam, menit, dan detik pada textbox1
c. Menampilkan waktu berdasarkan tanggal, bulan, dan tahun pada textbox1
d. Untuk Mengaktifkan timer atau system waktu
JAWABAN SOAL :
1.B 6. C
2.A 7. D
3.D 8. B
4.D 9. C
5.C 10. C
KLO SALAH 1 SOAL GW ADA YG KELUAR LU INGET2 AJA YAKK....
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|