Download Transaksi Penjualan Toko VB1

I. Desain Form

1. Buat Project baru dengan nama UAS_B.VBP

2. Buat form baru dengan nama Penjualan.FRM

3. Gunakan objek Label, Textbox, Option Button, Check Box, Combo Box , Command Button Serta gunakan Komponen Database yang dibutuhkan.

Rancangan keluaran :

II. Petunjuk Logika Soal

1. Buat prosedur aktif, nonaktif, bersih, dan pada saat dijalankan seluruh objek pada Form dalam keadaan bersih dan nonaktif, jika tombol Tambah diklik kondisi aktif dan bersih.

2. Buat sebuah Database dan dua buah Tabel dengan nama table_barang dan table_transaksi.

3. Isilah tabel barang dengan Ketentuan isinya sebagai berikut :

Kode Barang	B001	B002	C001	C002
Nama Barang	T-Shirt	Baju	Celana Pendek	Celana Panjang
Harga	Rp.25000,-	Rp.40000,-	Rp.30000,-	Rp.85000,-

1. 4. Pada Form, jika Kode Barang diinput,lalu ditekan enter muncul otomatis Nama Barang dan Harga, ( hasil pemanggilan data dari table_barang.)
2. 5. Untuk Field pada table_transaksi, gunakan semua Field yang ada pada Form kecuali Nama Barang dan Harga dengan No Transaksi sebagai Primary key.
3. 6. Koneksikan Form dengan Database menggunakan Object Data atau ADODC.
4. 7. Koneksikan Grid dengan table_transaksi.

8. Jumlah barang diinput, otomatis muncul Total, ( hasil dari Jumlah dikali harga ).

9. Pembayaran diinput maka secara otomatis muncul Kembali.

1. Tombol Simpan diklik maka data yang diinput tersimpan pada table_transaksi.
2. 10. Buat Pesan untuk Tombol keluar.

---

Share

Download Input Gaji Karyawan VB1

I. Desain Form

1. Buat Project baru dengan nama UAS_A.VBP

2. Buat form baru dengan nama Penggajian.FRM.

3. Gunakan objek Label, Textbox, Option Button, Check Box, Combo Box , Command Button Serta gunakan komponen Database yang dibutuhkan.

Rancangan keluaran :

II. Petunjuk Logika Soal

1. 1.Buat prosedur aktif, nonaktif, bersih, dan pada saat dijalankan seluruh objek pada Form dalam keadaan bersih dan nonaktif, jika tombol Tambah diklik kondisi aktif dan bersih.
2. 2.Buat sebuah Database dan satu buah Tabel dengan nama tabel_gaji, dengan ketentuan memasukan semua Field yang ada pada Form dengan NIP sebagai Primary Key.
3. 3.Koneksikan Form dengan Database dengan menggunakan Object Data atau ADODC.
5. Ketentuan untuk Kode Jabatan :

Kode Jabatan	DRT	MNG	SEK	STA
Jabatan	Direktur	Manager	Sekretaris	Staff
Gaji Pokok	Rp.5000000,-	Rp.3500000,-	Rp.2500000,-	Rp.1500000,-

1. 4.Untuk tunjangan ditentukan sebagai berikut:

Jika Status ‘Single’, maka dapat Tunjangan Rp.300000,-

Jika Status ‘Menikah’, maka dapat Tunjangan Rp.450000,-

1. 5.Jumlah jam Lembur diinput muncul Total Lembur dan Gaji Bersih.
2. 6.Total Lembur : Upah Lembur dikali Jam lembur.
3. 7.Gaji Bersih : Gaji Pokok + Total Lembur – Potongan.
4. 8.Tombol Simpan diklik maka data yang diinput tersimpan pada Tabel Gaji.
5. 9.Buat Pesan untuk Tombol keluar dan salah satu Tombol Navigasi.

SeLaMaT MeNgErJaKaN

---

Share

Donwload Contoh Kasus Input Data Karyawan PHP

I. Rancangan Form Masukan

Buat Form Input.php dibawah ini dengan script php pada software yang telah ditentukan :

II. Rancangan Form Keluaran

Tampilan setelah diklik Simpan adalah sebagai berikut:

Jika diklik INPUT DATA LAGI maka kembali ke tampilan Form Input.php dan jika diklik TAMPILKAN DATA maka muncul sebagai berikut:

DATA KARYAWAN ----------------------------------------------------------------------------- Jumlah data : 2 ----------------------------------------------------------------------------- Nip :123 Nama Karyawan :Anton Alamat :Jl. Radio Dalam Jenis Kelamin :Laki-Laki Pendidikan :D3 ----------------------------------------------------------------------------- Nip :124 Nama Karyawan :Linda Alamat :Jl. Tanah Kusir Jenis Kelamin :Perempuan Pendidikan :S1 ----------------------------------------------------------------------------- Back to input data lagi

III. Ketentuan Logika Soal

1. Buat database dengan nama uas_12xxxxxx (nim masing-masing)

2. Buat tabel dengan nama data_karyawan dengan struktur tabel sebagai berikut:

Field	Type	Length
Nip	Varchar	5
Nama	Varchar	20
Alamat	Text
Jeniskel	Varchar	10
Pendidikan	Varchar	3

3. Buat pilihan pada combo pendidikan yaitu : SMA, D3, S1, S2

4. Gunakan perintah-perintah SQL untuk menyimpan dan menampilkan data

Download : Download Contoh Kasus Data Karyawan

Semoga Bermanfaat

---

Share

Jawaban Web2 Kasus Hapus Data

Artikel ini kelanjutan dari artikel mengenai Tugas Mahasiswa Web ProgramingTugas Libur akhir tahun 2 Lab G. Bagi yang ingin mengetahui bentuk soal dan mungkin ingin mendownload soalnya, kalian bisa lihat pada artikel berjudul Tugas WEB II atau klik pada link Berikut : Klik

Untuk Downloadnya Silahkan kalian download :
File  : Tugas.zip | Tugas.pdf
Size :  18.8Kb  |  43.3kb

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---

Latihan Visual Basic 1 Transaksi Rental Video

Field	Type	Size	Ket
Notrans	Text	8	Pk
Kode_film	Text	5
Judul_film	Text	30
Harga_film	currency
Jenis	Text	1
Tanggal_pinjam	Date/time
Tanggal_kembali	Date/time
Lama_pinjam	integer
Total_harga	currency

• Buat Database dengan nama rental_dvd
• Buat Tabel rental

 Ketentuan Kode Film :

Kode Film	Judul Film	Harga
DVD01	Spy Kids 4	8000
DVD02	Cars 2	9000
DVD03	Twilight Saga : Breaking Dawn	10000

• Jika jenis “member” maka mendapat diskon 10 %, selain itu tidak mendapat diskon

Lama = Tgl Pinjam – tgl kembali               Total= (Harga-diskon)* lama

 Jika tekan tombol keluar dan simpan tampil konfirmasi dan info sbb :

Source code dapat di lihat di

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

Membuat Aplikasi Mengcopy isi FlashDisk

Tutorial kali ini akan saya bahas bagaimana cara membuat aplikasi untuk mengcopy seisi FlashDisk ke komputer kalian, sebenernya ini ga bagus sih.Tapi untuk sekedar pengetahuan kalian dan untuk digunakan sebaik-baiknya ajah yaa...
Untuk lebih jelasnya silahkan ikuti step-step berikut ini.

1. Buatlah Module di VB yang nanti fungsinya untuk membaca File berekstensi .ini

1. Declare Function _  
2. GetPrivateProfileString _  
3. Lib "kernel32.dll" _  
4. Alias "GetPrivateProfileStringA" _  
5. ( _  
6. ByVal lpApplicationName As String, _  
7. ByVal lpKeyName As Any, _  
8. ByVal lpDefault As String, _  
9. ByVal lpReturnedString As String, _  
10. ByVal nSize As Long, _  
11. ByVal lpFileName As String _  
12. ) _  
13. As Long  
14. '  
15. Declare Function _  
16. WritePrivateProfileString _  
17. Lib "kernel32.dll" _  
18. Alias "WritePrivateProfileStringA" _  
19. ( _  
20. ByVal lpApplicationName As String, _  
21. ByVal lpKeyName As String, _  
22. ByVal lpString As String, _  
23. ByVal lpFileName As String _  
24. ) _  
25. As Long  
26.   
27. Public mySize          As String * 255  
28. Public myNilai         As String  
29. Public NilaiAkhir      As String  
30.   
31. Function AmbilSimpan( _  
32.     xHeader As String, _  
33.     xKunci As String, myFile$) As Variant  
34.     '  
35.     myNilai = _  
36.             GetPrivateProfileString(xHeader, _  
37.             xKunci, "", mySize, 500, myFile)  
38.              
39.     NilaiAkhir = Left(mySize, myNilai)  
40. End Function  
41.   
42. Function BacaSimpan(xHeader As String, _  
43.     xKunci As String, myFile$) As String  
44.     AmbilSimpan xHeader, xKunci, myFile$  
45.     BacaSimpan = NilaiAkhir  
46. End Function  
47.   
48. Function TulisSimpan( _  
49.     xHeader As String, _  
50.     xKunci As String, _  
51.     nSimpan As String, myFile$)  
52.     Dim XWRITE$  
53.     '  
54.     XWRITE = _  
55.         WritePrivateProfileString( _  
56.         xHeader, _  
57.         xKunci, _  
58.         nSimpan, myFile)  
59. End Function  

2. Lalu kalian buat Tampilah Form Seperti Dibawah ini (atau bebas design nya)
Copy dan paste pada Coding Dialog

•  3 buah ListBox dengan nama : LstFolder, LstFile dan LstFolderCopy

•  1 buah Timer

•  1 Command Button

dan ketikan listingnya seperti dibawah ini : Copy dan paste pada Code Dialog

1. Option Explicit  
2. Private Declare Function GetFileAttributes Lib _  
3. "kernel32" Alias "GetFileAttributesA" ( _  
4. ByVal lpFileName As String) As Long  
5. Private Declare Function CreateDirectory Lib "kernel32" Alias _  
6. "CreateDirectoryA" (ByVal lpPathName As String, _  
7. lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long  
8. Private Declare Function CopyFile Lib "kernel32" _  
9. Alias "CopyFileA" (ByVal lpExistingFileName As String, _  
10. ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long  
11. Private Type SECURITY_ATTRIBUTES  
12.         nLength As Long  
13.         lpSecurityDescriptor As Long  
14.         bInheritHandle As Long  
15. End Type  
16. Private Const ARRAY_INITIAL = 10000  
17. Private Const ARRAY_INCREMENT = 10000  
18. Dim Berhenti As Boolean  
19. Dim Berhenti2 As Boolean  
20. Dim aryDrive(20) As String  
21. Dim NamaFolder As String  
22. Sub FindFolder(BeginPath As String)  
23.     On Error Resume Next  
24.      
25.     Dim i As Long  
26.     Dim j As Long  
27.     Dim idx As Integer  
28.     Dim limit As Integer  
29.     Dim lAttr As Long  
30.      
31.     Dim srchstr$  
32.     Dim sFileName As String  
33.     Dim sfoldername As String  
34.      
35.     Dim strFolderName As String  
36.     Dim strFileName As String  
37.     Dim myParentFolder As String  
38.     Dim myFolderPath As String  
39.     Dim myFolderName As String  
40.      
41.     ReDim arrFiles(ARRAY_INITIAL)  
42.      
43.     On Error GoTo errHandle  
44.      
45.     idx = 0  
46.      
47.     If Right(BeginPath, 1) = "\" Then 
48.         BeginPath = Mid(BeginPath, 1, Len(BeginPath) - 1) 
49.     End If 
50.     
51.     BeginPath = BeginPath & "\" 
52.     
53.     arrFiles(0) = BeginPath 
54.     limit = 1 
55.     
56.     Me.lstFolder.Clear 
57.     Me.lstFile.Clear 
58.     
59.     Do While idx < limit And Berhenti = False 
60.     DoEvents 
61.         sfoldername = arrFiles(idx) 
62.         
63.         sFileName = Dir(sfoldername & srchstr, _ 
64.         vbDirectory Or vbHidden Or _ 
65.         vbReadOnly Or vbSystem Or vbArchive) 
66.          
67.         Do While sFileName <> "" And Berhenti2 = False 
68.         
69.             strFileName = sfoldername & sFileName 
70.              
71.             lAttr = GetFileAttributes(strFileName) 
72.             
73.             If (lAttr >= 16 And lAttr <= 23) Or _ 
74.             (lAttr >= 48 And lAttr <= 55) Then 
75.                 
76.                 If sFileName <> "." And sFileName <> ".." Then 
77.                    arrFiles(limit) = strFileName & "\" 
78.                     limit = limit + 1 
79.                     
80.                     strFolderName = sFileName 
81.                     
82.                     Me.lstFolder.AddItem strFileName 
83.                     Me.lstFolderCopy.AddItem NamaFolder & Mid(strFileName, 3) 
84.                     DoEvents 
85.                     ' 
86.                 End If 
87.             ElseIf Not (lAttr >= 16 And lAttr <= 23) Or _ 
88.             (lAttr >= 48 And lAttr <= 55) Then 
89.                 Me.lstFile.AddItem strFileName 
90.                 Me.lstFileCopy.AddItem NamaFolder & Mid(strFileName, 3) 
91.             End If 
92.             sFileName = Dir 
93.             
94.         Loop 
95.         idx = idx + 1 
96.          DoEvents 
97.          
98.     Loop 
99.     ReDim Preserve arrFiles(limit - 1) 
100.     
101.     Exit Sub 
102. errHandle: 
103.     If Err.Number = 9 Then 
104.         ReDim Preserve arrFiles(UBound(arrFiles) + _ 
105.             ARRAY_INCREMENT) 
106.         Resume 
107.     Else 
108.         'Err.Raise Err.Number 
109.     End If 
110. End Sub 
111. Sub DoitNow(strDrives As String) 
112. On Error Resume Next 
113.     NamaFolder = "C:\Thief_of_Bagdhad\" & Format(Now, "ddmmyy-hhmmss") 
114.     
115.     If FolderAda(NamaFolder) = False Then 
116.         MkDir NamaFolder 
117.     End If 
118.     
119.     
120.     Me.lstFile.Clear 
121.     Me.lstFolder.Clear 
122.     Me.lstFileCopy.Clear 
123.     Me.lstFolderCopy.Clear 
124.     
125.     FindFolder strDrives 
126.     CreateFolderCopy 
127. End Sub 
128. Sub CreateFolderCopy() 
129. On Error Resume Next 
130.     Dim i As Long 
131.     Dim n As SECURITY_ATTRIBUTES 
132.     Dim l As Long 
133.     Dim Nilai As Long 
134.     
135.     If Me.lstFolderCopy.ListCount = 0 Then Exit Sub 
136.     
137.     l = 0 
138.     For i = 0 To Me.lstFolderCopy.ListCount - 1 
139.         CreateDirectory Me.lstFolderCopy.List(i), n 
140.         l = l + 1 
141.         'Me.picBar.Cls 
142.         Nilai = Fix((l / Me.lstFileCopy.ListCount) * 100) 
143.         'Me.picBar.Line (0, 0)-Step(Nilai, 1), vbWhite, BF 
144.         DoEvents 
145.     Next 
146.     
147.     l = 0 
148.     For i = 0 To Me.lstFileCopy.ListCount - 1 
149.         l = l + 1 
150.         'Me.picBar.Cls 
151.         CopyFile Me.lstFile.List(i), Me.lstFileCopy.List(i), 1 
152.         Nilai = Fix((l / Me.lstFileCopy.ListCount) * 100) 
153.         'Me.picBar.Line (0, 0)-Step(Nilai, 1), vbWhite, BF 
154.         DoEvents 
155.     Next 
156.     
157.     'Me.picBar.Cls 
158. End Sub 
159. Private Sub Command1_Click() 
160. Me.BacaDrive 
161. End 
162. End Sub 
163. Private Sub Form_Load() 
164.     If FolderAda("C:\Thief_of_Bagdhad") = False Then 
165.         MkDir "C:\Thief_of_Bagdhad" 
166.     End If 
167. End Sub 
168. Function FolderAda(NamaFolder$) As Boolean 
169. On Error Resume Next 
170.     Dim FSO As Object, myFile 
171.     Set FSO = CreateObject("Scripting.FileSystemObject") 
172.     
173.     If FSO.FolderExists(NamaFolder$) = True Then 
174.         FolderAda = True 
175.     End If 
176.      
177.     Set FSO = Nothing 
178. End Function 
179. Function FileAda(NamaFile$) As Boolean 
180. On Error Resume Next 
181.     Dim FSO As Object, myFile 
182.     Set FSO = CreateObject("Scripting.FileSystemObject") 
183.     
184.     If FSO.FileExists(NamaFile$) = True Then 
185.         FileAda = True 
186.     End If 
187.      
188.     Set FSO = Nothing 
189. End Function 
190. Sub BacaDrive() 
191.     Dim strMyDrive As String 
192.     Dim Pisah() As String 
193.     Dim i As Integer 
194.     Dim s As String 
195.     
196.     strMyDrive = BacaSimpan("LOKASIFD", "DRIVE", App.Path & "\Conf.ini") 
197.     
198.     Pisah = Split(strMyDrive, ";") 
199.     
200.     For i = LBound(Pisah) To UBound(Pisah) 
201.         s = Pisah(i) 
202.         
203.         DoitNow Left(s, 1) & ":\"  
204.         Beep  
205.          
206.         DoEvents  
207.     Next  
208. End Sub  

3. Terakhir kalian buat sebuah file menggunakan notepad dengan nama conf.ini Copy dan paste code dibawah

     isi lokasi drive lokasi flasdisk berada

     jangan lupa, simpan ditempat yang sama dengen programnya

4. Oke, sudah selesai sampai disini...

    Coba kalian run programnya

    Percobaan dengan cara :

                            A. Tes Masukan Flash Disk misalnya ada di drive E:

                            B. Jalanin Program : klik tombol copy ...

                            C. otomatis semua isi flash disk di copy ke folder C:\Thief_of_Bagdhad\

   wah kalau begini masih ketahuan ama yang punya FlashDisk,gimana biar ga ketahuan???

Caranya cukup mudah, kalian tambahkan lagi Listing pada event  Form_Load

1. Me.hide  
2. Me.BacaDrive  
3. End  

jalankan program ...

dan program tidak akan keliatan...

---

Share

Cara Shutdown, Reboot, LogOff komputer dengan VB

Pada postingan kali ini,saya akan memberikan cara membuat aplikasi untuk Shutdown, logoff dan ForceShutdown menggunakan VB.

Peralatannya,siapkan :

• Project standart exe
• Dua buah CommandButton (beri nama Command1 dan Command2)

Copy Code Berikut:

1. ' SHUT DOWN AND RESTART IN VB6  
2.  Const EWX_LogOff As Long = 0  
3.  Const EWX_SHUTDOWN As Long = 1  
4.  Const EWX_REBOOT As Long = 2  
5.  Const EWX_FORCE As Long = 4  
6.  Private Declare Function ExitWindows _  
7.  Lib "User32" Alias "ExitWindowsEx" _  
8.  (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long  
9.    
10.  Private Sub Command1_Click()  
11.  'Shut down windows  
12.  ExitWindows EWX_SHUTDOWN, &HFFFFFFFF  
13.  End Sub  
14.    
15.  Private Sub Command2_Click()  
16.  ExitWindows EWX_REBOOT, &HFFFFFFFF  
17.  End Sub  

Penjelasannya adalah, kalian lihat pada
prosedure pertama (Command1_click), pada bagian ExitWindows EWX_SHUTDOWN tsb bermaksud pemanggilan fungsi untuk mematikan atau Shutdown dari sistem operasi(windows). Sedangkan
prosedure kedua (Command2_click), pada bagian ExitWindows EWX_REBOOT adalah bermaksud memanggil fungsi untuk restart komputer,jadi kalian bisa tambahkan tombol lainnya sesuai kebutuhan dan kalian tinggal panggil fungsi yang sudah di deklarasikan sebelumnya (lihat baris 2-5)

Cukup sekian dulu tutorialnya,kalau kurang jelas bisa bertanya pada kolom komentar yang disediakan.

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...