Game tebak angka di Visual basic

Yang di atas adalah tampilan awal dari progam Game tebak kata kali ini

Dan ini adalah nama" dari semua objek yang di buat

Dim angka As String
Dim PJangka As Integer
Dim soal(50) As String
Private Sub setsoal()
soal(0) = "345"
soal(1) = "354"
soal(2) = "348"
soal(3) = "458453"
soal(4) = "3685"
soal(5) = "46764643"
soal(6) = "4567"
soal(7) = "5645"
soal(8) = "345675"
soal(9) = "7556"
soal(10) = "586636"
soal(11) = "5678"
soal(12) = "4887576"
soal(13) = "56646484"
soal(14) = "8765"
soal(15) = "886465"
soal(16) = "7655"
soal(17) = "644343578"
soal(18) = "5886"
soal(19) = "5864668"
soal(20) = "5678"
soal(21) = "3665355"
soal(22) = "57363546"
soal(23) = "34435356"
soal(24) = "5465"
soal(25) = "886536353"
soal(26) = "3566"
soal(27) = "5775755"
soal(28) = "45646446"
soal(29) = "486"
soal(30) = "388687"
soal(31) = "3464"
soal(32) = "7465357"
soal(33) = "359696768"
soal(34) = "3456"
soal(35) = "7746465"
soal(36) = "4456"
soal(37) = "64757834"
soal(38) = "365645"
soal(39) = "4575576"
soal(40) = "56646445"
soal(41) = "6734"
soal(42) = "653"
soal(43) = "3574476"
soal(44) = "476676"
soal(45) = "3335"
soal(46) = "444855"
soal(47) = "875787"
soal(48) = "8787778"
soal(49) = "7878"
End Sub
Private Sub AcakAngka()
angka = soal(Round(Rnd() * UBound(soal)))
PJangka = Len(angka)
For i = 1 To 8
If i <= PJangka Then
lblbenar(i).Visible = True
Line1(i).Visible = True
lblsalah(i).Visible = True

Else
lblbenar(i).Visible = False
Line1(i).Visible = False
lblsalah(i).Visible = False
End If
lblbenar(i).Caption = ""
lblsalah(i).Caption = ""
Next i
End Sub

Private Sub Cmdangka_Click(Index As Integer)
Dim i As Integer
Dim jawaban As String

Cmdangka(Index).Visible = False

jawaban = ""
If InStr(1, angka, Cmdangka(Index).Caption) Then
For i = 1 To PJangka
If Cmdangka(Index).Caption = Mid(angka, i, 1) Then
lblbenar(i).Caption = Cmdangka(Index).Caption
End If
jawaban = jawaban & lblbenar(i)
Next
If jawaban = angka Then
For i = 1 To 9
Cmdangka(i).Enabled = False
Next i
st = MsgBox("Luarrr Biasaa ,Bagus !!!" & vbClrLf & " Mau Main Lagi??", 

vbYesNo + vbQuestion, "TEBAK ANGKA")
If st = vbYes Then cmdcobalagi_Click
End If
Else
i = 1
Do While lblsalah(i).Caption <> "" And i <= PJangka
i = i + 1
Loop
lblsalah(i).Caption = Cmdangka(Index).Caption
If i >= PJangka Then
For i = 1 To 9
Cmdangka(i).Enabled = False
Next i
st = MsgBox("haahaahaha gitu aja gak bisa !!!" 

& vbCrLf & "Mau coba Lagi ??", vbYesNo, _"TEBAK KATA")
If st = vbYes Then cmdcobalagi_Click
End If
End Sub
Private Sub cmdcobalagi_Click()
For i = 1 To 9
Cmdangka(i).Enabled = True
Cmdangka(i).Visible = True 

Next
AcakAngka
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Randomize
setsoal
AcakAngka
End Sub

Yang Di atas adalah kode dari progam tersebut

Jawaban Benar

 Pada gambar di atas itu jika kotak yang putih sudah terisi maka jawaban'nya BENAR seperti yang di gambar

Tapi sebaliknya kalau kotak yang warna merah sudah penuh berarti itu SALAH

PERHATIAN 

#Yang Kotak warna putih berarti "BENAR" dan yang merah berarti "SALAH"

#Cara mengisi/menebak angkanya dengan cara mengklik/memilih angka yang ada

Dan Ini adalah progamnya yang saya sudah jadikan videooo

Ada di bawahhh

Cekidoott !!

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 !!