Program Check barang menggunakan Visual basic (Belum selesai)

Nama Objek

Gambar di atas adalah nama" objek yang di gunakan pada progam ini

Dan kode dari Progam tersebut jika di klik "txtkode" maka terdapat kode yang ada di bawah ini !!

Private Sub txtkode_KeyPress(KeyAscii As Integer)
Dim s As String
If KeyAscii = 13 Then
    s = txtkode.Text

If s = "21400018" Then
lblhasil.Caption = "Isi Staples kecil" & vbLf & "Rp.2500"
Set Image1.Picture = LoadPicture(App.Path & "/isi staples kecil.jpg")

ElseIf s = "4970129727514" Then
lblhasil.Caption = "Spidol Snowman" & vbLf & "Rp.6500"
Set Image1.Picture = LoadPicture(App.Path & "/spidol snowman.jpg")

ElseIf s = "02110097" Then
lblhasil.Caption = "Tinta Blueprint 100" & vbLf & "Rp.30000"
Set Image1.Picture = LoadPicture(App.Path & "/tinta.jpg")

ElseIf s = "091163224457" Then
lblhasil.Caption = "Mouse Genius USB" & vbLf & "Rp.35000"
Set Image1.Picture = LoadPicture(App.Path & "/Mouse genius.jpg")

ElseIf s = "6RX84CXX." Then
lblhasil.Caption = "Hardisk Maxtor 80GB" & vbLf & "Rp.250000"
Set Image1.Picture = LoadPicture(App.Path & "/hardisk maxtor.jpg")
Else
lblhasil.Caption = "sepuntene barangnipun dereng terdaftar"
Set Image1.Picture = LoadPicture(App.Path & "/No image.jpg")
End If

txtkode.Text = ""
txtkode.SetFocus
End If
End Sub

DAN jika "txtkode" diberikan kode atau nomer di bawah ini

Maka efeknya akan seperti di bawah ini

1. 21400018

Kode

Kode diatas di masukan ke progam lalu di ENTER

Hasil

Dan Hasilnya Seperti di atas !!

2. 4970129727514

Kode

Kalau sudah di masukan lalu klik "ENTER"

Dan setelah di "ENTER" hasilnya akan seperti di atas

3. 02110097

Nomer di tulis dulu pertama-tama ,lalu klik "ENTER" seperti di atas

Dan setelah di "ENTER" Hasilnya ada seperti di atas

4. 091163224457

Membuat duplikat WinRAR dari Visual Basic

Gambar di atas adalah apa aja yang di gunakan pada duplikat WinRAR ini

Dan yang di atas itu Nama" objek yang saya gunakan pada duplikat ini !!

Okeyyy dibawah ini adalah penjelasan dari setiap objek di atas tadii

Di atas Ini adalah tampilan drive dari Laptop saya
#Jangan kaget secara namanya saya ganti semuaaa

Toolbar

Itu tollbarnya dalam posisi di tekann itu di bagian test ..
kalau gak tau di bawah ada videonya !!

Dan di bawah ini sekarang adalah penjelasan dari tampilan MENU BAR

                   1. FILE

 

Ini adalah Menu Editor dari menu FILE, tapi itu belum semuanya

Dan ini tampilan menu FILE secara lengkap dalam bentuk tabel

Menu	Sub Menu	Sub Sub menu
File	Open archive
	Save archive copy as
	Change Drive	Local Disk (C:)
		MILANISTI (D:)
		AC MILAN (E:)
		Kandar DVD RW (F:)
	Set default Password
	-
	Copy files to clipboard
	Paste files to clipboard
	-
	Select all
	Select group
	Deselect group
	Invert selection
	-
	Exit

 

2.Command

Ini adalah Menu Editor dari menu COMMAND, tapi itu belum semuanya

Dan ini tampilan menu COMMAND secara lengkap dalam bentuk tabel

Menu	Sub Menu	Sub Sub menu
Command	Add file to archive
	Extract to the specified folder
	Test archived files
	-
	View file
	Delete File
	Rename file
	Print file
	-
	Extract without comfirmation
	Add archive comment
	Protect archive from damage
	Lock archive

 

 3. Tools

Ini adalah Menu Editor dari menu TOOLS, tapi itu belum semuanya

 

 Dan ini tampilan menu TOOLS secara lengkap dalam bentuk tabel

Menu	Sub Menu	Sub Sub menu
Tools	Wizard
	-
	Scan archive for virus
	Convert archives
	Repair archives
	Convert archive to SFX
	-
	Find files
	Show information
	Generate report
	Benchmark

4. Favorites

Ini adalah Menu Editor dari menu FAVORITES

 

Dan ini tampilan menu FAVORITES secara lengkap dalam bentuk tabel

Menu	Sub Menu	Sub Sub menu
Favorites	Add to favorite...
	Organize favorite...

5. OPTION

Ini adalah Menu Editor dari menu OPTION, tapi itu belum semuanya

Yang di atas adalah tampilan dari menu OPTION beserta Sub-subnya


Dan ini tampilan menu OPTION secara lengkap dalam bentuk tabel

Menu	Sub Menu	Sub Sub menu
Option	Settings...
	Import/Export	Import settings from file
		Export settings to file
	-
	File list	Flat folders view
		-
		List view
		Details
	Folder tree	Show disk folders
		Show archive folders
	Themes	Organize themes...
		Get more themes...
		-
		Default theme
	-
	View log
	Clear log

6. HELP

Ini adalah Menu Editor dari menu HELP, tapi itu belum semuanya

Dan ini tampilan menu HELP secara lengkap dalam bentuk tabel

Yang perlu di perhatikan :

• Kalau tidak ada titik di tulisannya berarti itu "Menu" atau menu utama
• kalau ada titik  "...." berarti "SUB MENU" yang  terletak di belakang tulisan dan berada di bawah "MENU" , dan sub menu adalah isi dari MENU tersebut
• kalau ada titik "........" berati "SUB SUB MENU" yang terletak di belakang tulisan dan penulisannya berada di bawah "SUB MENU", dan Sub sub menu adalah  isi dari Sub Menu

Perhatian 
#Jangan Lupa setelah menulis tulisan menu jangan lupa klik NEXT , dan jika mau buat "SUB MENU", setelah klik Next lalu di klik juga tanda panah arah "KANAN" (seperti di gambar 1) untuk membuat titik maupun membuat SUB-SUB lainnya . #Untuk menambah titik klik lagi tanda tersebut
#Tanda-tanda lainnya seperti tanda "KIRI", "ATAS", "BAWAH" ,"KIRI" untuk mengurangi titik. "ATAS" untuk memindahkan tulisan yang di buat ke atas , dan "BAWAH" untuk memindahkan tulisan yang di buat ke bawah.
#Dan terdapat juga tanda Checked, Enabled ,Visible dll
         *Checked fungsingya = Untuk menambahkan tanda Centang pada menu seperti di Gambar Option/File list /Detailist
         *Enabled fungsinya = untuk mematikan dan menghidupkan efek menu yang terdapat di gambar option/file list/Flat folders view
         *Visible fungsinya = untuk menghilangkan dan menampilkan menu
#Untuk memilih "shortcut" dapat dipilih Sesuka hati kalian

Dan di bawah ini adalah duplikat projek saya dalam bentuk Video
Cekidott !!
Video di bawah menggunakan Microsoft Windows Common control 5.0

Kritik dan saran atau pertanyan silahkan tulis di bawah inii !!

Membuat Animasi sederhana menggunakan Timer pada Visual Basic

Ini adalah nama" setiap objek pada animasi sederhana ini

Dim st As Integer
Private Sub Timer1_Timer()
If heli.Left > -heli.Width Then
    heli.Left = heli.Left - 80
Else
   heli.Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer3_Timer()
If burung.Left > -burung.Width Then
    burung.Left = burung.Left + 30
Else
   burung.Left = Form1.ScaleWidth

End If
End Sub

Private Sub Timer4_Timer()
If pohon(2).Left > -pohon(2).Width Then
    pohon(2).Left = pohon(2).Left + 30
Else
   pohon(2).Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer5_Timer()
If pohon(1).Left > -pohon(1).Width Then
    pohon(1).Left = pohon(1).Left + 30
Else
   pohon(1).Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer6_Timer()
If pohon(0).Left > -pohon(0).Width Then
    pohon(0).Left = pohon(0).Left + 30
Else
   pohon(0).Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer7_Timer()
If pohon(3).Left > -pohon(3).Width Then
    pohon(3).Left = pohon(3).Left + 30
Else
   pohon(3).Left = Form1.ScaleWidth
End If
End Sub

YANG DI ATAS ADALAH KODE YANG TERDAPAT DI ANIMASI YANG SAYA BUAT 

Okelah Kita mulai saja ...
Buatlah Objek apapun yang di bisa di buat animasi
Kalau saya memberi objek burung,awan,heli dll dan nama objek selengkapnya ada di atas tadi ..
Dan jangan lupa nama objek dan kodenya harus sama dan tidak boleh beda
Nanti Gak bisaa jalann  nanti
Oke setelah sudah semua hasilnya ada di bawahh inii !!!

Dan kalau di videokan hasilnya seperti ini
Silahkan di Lihatt di bawah ini ..

Tugas ini di kerjakan Bersama
Eko Prastiyo (33) (ekoprastiyo-smktjp.blogspot.com)