Tutorial membuat game snake VB6

Game Snake hmmm ,, mungkin ada yang bingung ya dengan cara pembuataan game tersebut menggunakan visual basic 6.0 ? saya punya nih cara tepat membuat game tersebut tapi agak rumit jadi tolong di pahami Dengan mendalam

1. Buat sebuah form dengan 1 buah picture box dengan nama Picture1. 1
Ubah Property Width menjadi 4335, Height menjadi 3855, Backcolor menjadi H00FFFFFF&. ( Sebenernya sih seterah )

Deklarasi utamanya adalah sebagai :

Const WarnaGrid = vbBlack
Const WarnaKepala = vbWhite
Const warnaTubuh = vbGreen
Const warnaMakanan = vbRed
Const warnaGaris = vbWhite
Private Declare Function GetTickCount Lib "kernel32" ()
As Long
Private Type Part
X As Integer
Y As Integer
End Type
Dim Part() As Part
Dim Level As Long
Dim vX As Integer, vY As Integer
Dim i As Integer
Dim CS As Single
Dim FX As Integer, FY As Integer
Dim X As Integer, Y As Integer
Dim bRunning As Boolean, died As Boolean

2. Inisialisasi dan event-event yang dicegat, pada saat game kali pertama dijalankan:

Private Sub Form_Load()
Randomize
Picture1.BackColor = warnaGaris
Picture1.ScaleMode = 3 'pixels
CS = 20

X = Int(Picture1.ScaleWidth / CS)

Y = = Int(Picture1.ScaleHeight / CS)

3. Subrutin lain yang dibutuhkan adalah:

Picture1.AutoRedraw = True
Picture1.ScaleWidth = X * CS
Picture1.ScaleHeight = Y * CS
Me.WindowState = 2
Me.Show
DrawGrid Picture1, CS
died = False
'set up the game
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
bRunning = True
Level = 1
Form1.Caption = "Score: " & UBound(Part) & " Level : "
& Level
MainLoop
End Sub
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift
As Integer)
Select Case KeyCode
Case vbKeyRight
vX = 1: vY = 0
Case vbKeyLeft
vX = -1: vY = 0
Case vbKeyUp
vX = 0: vY = -1
Case vbKeyDown
vX = 0: vY = 1
End Select
End Sub
Private Sub Picture1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then bRunning = False
If KeyAscii = Asc("p") Then MsgBox "Pause"

End Sub
Sub MainLoop()
Do While bRunning = True
Update
Draw
WAIT (160 - Level * 10)
Loop
Unload Me
End Sub
Sub Update()
'menggerakkan tubuh
For i = UBound(Part) To 1 Step -1
Part(i).X = Part(i - 1).X
Part(i).Y = Part(i - 1).Y
Next i
'kepala
Part(0).X = Part(0).X + vX
Part(0).Y = Part(0).Y + vY
'menabrak pinggiran
If Part(0).X <>= X Or Part(0).Y <>= Y Then
died = True
End If
'menabrak diri sendiri
For i = 1 To UBound(Part)
If Part(i).X = Part(0).X And Part(i).Y = Part(0).Y Then
died = True
End If
Next i
'makan
If Part(0).X = FX And Part(0).Y = FY Then
ReDim Preserve Part(UBound(Part) + 1)
Part(UBound(Part)).X = -CS
Part(UBound(Part)).Y = -CS
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
If UBound(Part) Mod 20 = 0 Then Level = Level + 1
Form1.Caption = "Parts: " & UBound(Part) & " Level
: " & Level
End If
If died = True Then NewGame
End Sub
Sub Draw()
Rectangle 0, 0, X * CS, Y * CS, WarnaGrid
For i = 1 To UBound(Part)
Rectangle Part(i).X * CS, Part(i).Y * CS, Part(i).X
* CS + CS, Part(i).Y * CS + CS, warnaTubuh
Next i
Rectangle Part(0).X * CS, Part(0).Y * CS, Part(0).X
* CS + CS, Part(0).Y * CS + CS, WarnaKepala
Rectangle FX * CS, FY * CS, FX * CS + CS, FY * CS +
CS, warnaMakanan
DrawGrid Picture1, CS
End Sub
Sub Rectangle(X1 As Integer, Y1 As Integer, X2 As
Integer, Y2 As Integer, color As Long)
Picture1.Line (X1, Y1)-(X2, Y2), color, BF
End Sub
Sub NewGame()
died = False
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
vX = 0
vY = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
End Sub
Sub DrawGrid(Pic As Control, CS As Single)
Dim i As Integer, Across As Single, Up As Single
Across = Pic.ScaleWidth / CS
Up = Pic.ScaleHeight / CS
For i = 0 To Across
Pic.ForeColor = warnaGaris
Pic.Line (i * CS, 0)-(i * CS, Up * CS)
Next
For i = 0 To Up
Pic.ForeColor = warnaGaris
Pic.Line (0, i * CS)-(Across * CS, i * CS)
Next i
End Sub
Sub WAIT(Tim As Integer)
Dim LastWait As Long
LastWait = GetTickCount
Do While Tim >
GetTickCount - LastWait
DoEvents
Loop
End Sub

4. Simpan, dan jalankan program. Tampilan yang didapatkan adalah sebagai berikut :

Read more

Tutorial Membuat Deteksi IP Sederhana With Video

Tutorial Membuat Deteksi IP Sederhana With Video , Bagi kalian yang belum mengerti cara membuat Deteksi IP sederhana menggunakan VB6 Langsung aja lihat video dibawah ini :

Untuk Code :

Dim a As Integer

Private Sub Command1_Click()
For a = 1 To 30000
ProgressBar1.Value = a
Next a
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format _
(Now, "HH:MM:SS - dd mmmm yyyy")
Label2.Caption = "Nama Komputer : " _
& Winsock1.LocalHostName
Label3.Caption = "IP Komputer : " & _
Winsock1.LocalIP
Label4.Caption = "Port : " _
& Winsock1.LocalPort
End Sub

Read more

Tutorial Membuat Browser Sederhana With VIDEO

Oke bagi yang belum mengerti silahkan dilihat :




Semoga Bermanfaat

Read more

Tutorial Membuat Browser Sederhana

emang otak gak mau berhenti berfikir hari - hari ini , padahal udah ngantuk mata udah beler
karena gak mau merem matanya buka komputer aja deh, sewaktu buka mozila firefox kepikiran deh cara membuat browser kaya gini menggunakan VB6
Susah gak ya sewaktu saya cari ternyata gak ada/gak nemu intinya gitu , cuma ada yang simple aja tapi sangat berguna bagi orang kreatif kaya aku , wahahahah aku ingin berbagi sama kalian semua yuk kita mulai tutorialnya .

1. Buka VB6 << Coba pakai yang intable jangan yang portable .
2. Kita akan membuat components baru , caranya Klik Project > Components > Dan cari "Microsoft Internet Controls", checklist dan klik “Apply” lalu “Close.”
3 . klik icon yang telah di add pada tools window dan buat kotak kira2 sebesar yang diinginkan (Ini akan menjadi dasar web browser anda, usahakan jangan terlalu kecil agar dapat menaruh button2).
4. Buat “textbox” , ini akan menjadi URL bar kalian.
5. Buat 4 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh.

Name :
Go : cmdgo
Back :cmdBack
Forward : cmdforward
Refresh : Cmdrefresh

6. Masukan code ini ke form1 .

Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub

Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

7. Coba jalankan programnya biar lebih mudah tekan F5 pada keyboard.

Semoga Berhasil

Read more

Buat Form Password menggunakan Visual Basic 6.0

lagi enak - enak siul dipatidur keinget sama tutorial yang satu ini Cara simple membuat password di VB6 wahahhaha pasti deh banyak yang nyari yuk langsung kita ketutorialnya

1. Buka program VB 6, pilih standart EXE
2. Masukkan 2 buah form dimana Form1 untuk form password dan Form2 sebagai form programnya sehingga program kita di Form2 tidak dapat dibuka kalau tidak mengetahui Password yang ada di Form1.

Ubah Caption Form1 = Login dan Form2 = Program
3. Masukkan 1 buah TextBox dan 1 buah CommandButton di Form1 (Login) dan atur seperti di bawah ini:

Properties :
a. TextBox (PasswordChar = * dan Text = “kosongkan”)
b. CommandButton (Caption = OK)

Kode Form1 :

Private Sub Command1_Click()
If Text1.Text = "Agoy" Then
Form2.Show
Text1.Enabled = False
Command1.Enabled = False
Else
MsgBox "Password salah tolong diulangi "
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Note/Catatan : Password yang digunakan dalam contoh ini adalah “Agoy” tanpa tanda petik. Anda dapat menggantinya dengan kata apa saja sesuai selera anda.


4. Untuk Form2 terserah anda mau gunakan untuk program apa saja intinya di sini kalau program ini dibuka maka yang pertama kali terbuka adalah Form1(Login), jika password yang dimasukkan benar maka Form2 akan tampil. Jika Password yang dimasukkan salah maka akan muncul pesan “Password salah tolong diulangi”

5. Ok sampai di sini proses pembuatan form password sederhana kita selesai.


Cuap - Cuap Dulu ah :


Sebenarnya di VB 6 masih sangat banyak cara membuat membuat Password login yang lebih rumit dan lebih kompleks baik dengan menggunakan nomor seri harddisk sehingga setiap komputer mempunyai password yang berbeda-beda maupun dengan cara-cara yang lain.
Tujuan postingan ini sebenarnya untuk para pemula (seperti saya ini) dan teman –teman lain yang mungkin belum tahu..……he ..he ..he………………
Terima kasih bagi anda yang mau berbagi dengan aku di blog ini dan selamat mencoba bagi yang ingin mencoba……sukses ya…..

Read more

Membuat MP3 Player Menggunakan Visual Basic 6.0

Akhirnya jadi juga Tutorial Membuat Mp3 Player menggunakan VB6 Yuk kita ke tutorialnya

1. Buka program VB 6.0 dan pilih Standart.EXE
2. Masukkan 5 buah CommandButton, 1 buah komponen media player (msdxm.ocx) dan 2 buah ListBox kedalam Form1. Atur Posisinya seperti gambar di bawah ini :

3. Ganti Caption dari setiap tombol menjadi :

4. Masukkan 1 buah Form (Form2) kedalam Projects dan tambahkan 1 buah DriveListbox, 1 buah DirListbox, 2 buah CommandButton dan 1 buah FileListBox kedalam Form2. Atur seperti gambar di bawah ini:

Ubah Caption Command1 = Add dan Caption Command2 = Cancel
Untuk FileListBox ubah Pattern = *.mp3
Tampilan Form2 akan menjadi seperti ini :


5. Masukkan lagi 1 buah Form (Form3) ke dalam Project anda dan tambahkan 1 buah DriveListBox, 1 buah DirListBox, dan 2 buah CommandButton. Atur Seperti gambar di bawah ini:

Ubah Caption Command1 = Add dan Caption Command2 = Cancel

6. Ubah Properties dari Form1, Form2 & Form3
a. Form1
Caption = Mp3 Player
StartUpPosition = 2-Center Screen
b. Form2
Caption = Add File
StartUpPosition = 2-Center Screen
c. Form3
Caption = Add Foler
StartUpPosition = 2-Center Screen

7. Kode/ Listing Form1

Private Sub Command1_Click()
MediaPlayer1.Open List2
End Sub

Private Sub Command2_Click()
MediaPlayer1.Stop
End Sub

Private Sub Command3_Click()
If MediaPlayer1.IsDurationValid = False Then Exit Sub
If Command3.Caption = "Pause" Then
MediaPlayer1.Pause
Command3.Caption = "Resume"
Else
MediaPlayer1.Play
Command3.Caption = "Pause"
End If
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Command5_Click()
Form3.Show
End Sub

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub

Private Sub List1_DblClick()
Command1_Click
End Sub

8. Kode/ Listing Form2

Private Sub Command1_Click()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "\" & File1
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

Private Sub File1_DblClick()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "\" & File1
End Sub
9. Kode/Listing Form3
Private Sub Command1_Click()
Dim a As Long
Dim b As String
If File1.ListCount = "0" Then Exit Sub: MsgBox "No files"
For a& = 0 To File1.ListCount - 1
Form1.List1.AddItem File1.List(a&)
Form1.List2.AddItem Dir1.Path & "\" & File1.List(a&)
Next a
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

9. Nah sekarang jalankan programnya dengan cara tekan tombol F5 pada keyboard

Semoga Berhasil

Read more

Cara Membuat menu utama dengan visual basic 6.0 .

Kali ini saya akan mengajarkan kepada kalian Cara membuat menu utama dengan visual basic 6.0 .

1. Jalankan Visual Basic 6.0 terlebih dahulu
2. Buatlah sebuah MDI form dengan cara: klik menu Project-Add MDI Form 

3. Lalu akan muncul jendela baru seperti di bawah ini:

Lalu klik tombol Open.
4. Setelah itu, MDI Form akan tampil

Tampilan MDI From sedikit berbeda dengan form biasa, MDI Form memiliki warna yang agak gelap dan hanya bisa di buat satu kali saja di satu project.
5. Setelah MDI Form berhasil di buat, sekarang kita buat menu-menunya. Pilih menu Tools-Menu Editor atau tekan Ctrl + E atau bisa juga langsung anda pilih icon menu editor yang terletak di samping icon open seperti pada gambar.

6. Setelah memilih menu editor, maka akan muncul jendelah menu editor seperti pada gambar di bawah ini:

7. Sekarang kita mulai pembuatan menunya, langkah pertama yang kita lakukan adalah mengisi kolom Caption dan kolom Name. Caption dan Name di sini merupakan Caption & name dari menu yang akan kita buat nanti. Setelah caption dan name di isi, lalu klik tombol next untuk untuk membuat menu berikutnya. Sebagai contoh, saya akan mengisi kolom Caption dengan” &File” dan kolom Name dengan “mnfile” seperti di bawah ini:

Lambang “&” pada kolom Caption berfungsi untuk membuat garis bawah pada huruf “F” dari kata “File” sehingga pada saat menu kita telah sekesai akan terlihat seperti “File”. Sedangkan “mn” dari “mnfile” pada kolom Name merupakan inisial dari nama menu. Hal ini sama seperti saat anda memberi name pada sebuah textbox. Inisial pada textbox biasanya adalah “txt”, sehingga pada saat memberi name pada textbox alamat (Cuma buat contoh aja), maka name-nya menjadi “txtalamat”. Seperti itulah maksudnya…
8. Setelah Caption dan Name menu selesai di isi, secara otomatis kolom yang ada di bawah jendela menu editor akan terisi seperti gambar di bawah ini

9. Setelah itu, klik tombol Next. Maka area abu-abu akan turun menjadi seperti:

Kemudian klik tombol Panah ke kanan , maka akan muncul titik-titik seperti di bawah ini:

Ini menandakan bahwa yang akan di buat selanjutnya merupakan sebuah submenu.
Isi kembali kolom Caption dan Name seperti di bawah ini:

Kemudian klik tombol Next kembali untuk membuat menu berikutnya.
Maka tampilannya akan seperti ini

10.  Klik tombol pana ke kiri , untuk menghilangkan titik-titik yang ada, sehingga akan tampil seperti ini

Ini menandakan bahwa yang akan kita buat adalah sebuah menu, bukan submenu.
11. Saya rasa anda sudah paham tentang pembuatan menu dan sub menunya, ini sangat mudah…! Sekarang coba anda buat sendiri menu-menu-nya sehingga akan terbentuk struktur manu seperti di bawah ini:

12. Setelah anda berhasil membuat struktur menu seperti gambar di atas, silahkan klik tombol OK pada jendela Menu Editor. Setelah itu, perhatikan MDI Form yang telah anda buat tadi..! terdapat sedikit perubahan… YUPZ..! sekarang MDI Form anda sudah di lengkapi dengan menu-menu yang baru saja anda buat. Untuk lebih jelasnya akan terlihat seperti di bawah ini.

Jika anda ingin mengedit menu-menu yang tadi, anda hanya perlu mengklik icon Menu Editor atau menekan Ctrl+E pada keyboard atau juga pilih menu tools-Menu Editor (MDI Form harus dalam keadaan terpilih).
13. Langkah selanjutnya adalah mengisi listing pada tiap-tiap menu yang ada sehingga dapat berfungsi dengan baik. Kita mulai dari submenu exit. Silahkan pilih menu Exit yang terdapat pada MDI Form seperti di bawah ini:

14. Setelah menu Exit di klik, maka akan muncul jendela listing. Silahkan isi listing keluarnya seperti anda mengisi listing tombol keluar. Di sini saya contohkan listing yang paling sederhana seperti di bawah ini:

Gampangkan..! hahaha…! Ehm-ehm…mav…
15. Lakukan hal yang sama untuk mengisi listing pada menu yang lain.
16. Di bawah ini adalah listing pada submenu “Barang” dari menu “Master”

Fungsi listing di atas adalah untuk memanggil form barang yang saya miliki.
17. Di bawah ini merupakan listing dari submenu “Penjualan” dari menu “Transaksi”

Fungsi listing di atas adalah untuk memanggil form penjualan yang saya miliki.itu lah yang saya posting

SEMOGA BERMANFAAT

Read more