membuat game dengan visual basic

visual basic sebagai software untuk membuat program windows bisa juga dipergunakan untuk pembuatan game, walaupun dengan fungsi yang terbatas.

kali ini saya akan mejelaskan pembuatan game shooter sejenis duck hunt pada konsol game nintendo tetapi dengan menggunakan visual basic.
prinsip pemrograman ini cukup sederhana yaitu jika gambar background yang terklik, maka akan mengurangi nyawa kita sedangkan jika gambar bebek yang di klik maka akan menambah jumlah score. game akan berakhir jika nyawa kita adalah 0.
penempatan komponen gamenya adalah sebagai berikut:

kondisi awal ketika program dijalankan gambar bebek dalam kondisi tidak terlihat, visible = false
untuk memunculkannya digunakan timer.
jika nyawa kita habis caption = 0 maka fungsi selanjutnya akan menghiden form1 atau halaman permainan utama, serta menampilkan form2 yang berisi pemberitahuian jika permainan telah berakhir. pada form2 ini terdapat 2 tombol.
tombol 1 untuk meresetb permainan, dan tombol 2 untuk menutup aplikasi.

untuk source codenya adalah sbb:
form1

Private Sub Form_Load()
Form2.Visible = False
End Sub
Private Sub Image1_Click()
Label4.Caption = Label4.Caption - 1
If Label4.Caption = 0 Then
Form1.Visible = False
Form2.Visible = True
Label4.Caption = 10
Label2.Caption = 0
End If
End Sub
Private Sub Image3_Click()
Label4.Caption = Label4.Caption - 1
If Label4.Caption = 0 Then
Form1.Visible = False
Form2.Visible = True
Label4.Caption = 10
Label2.Caption = 0
End If
End Sub
Private Sub Image2_Click()
Label4.Caption = Label4.Caption - 1
If Label4.Caption = 0 Then
Form1.Visible = False
Form2.Visible = True
Label4.Caption = 10
Label2.Caption = 0
End If
End Sub
Private Sub Image4_Click()
Label4.Caption = Label4.Caption - 1
If Label4.Caption = 0 Then
Form1.Visible = False
Form2.Visible = True
Label4.Caption = 10
Label2.Caption = 0
End If
End Sub
Private Sub Image10_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image11_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image12_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image13_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image14_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image15_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image16_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image17_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image18_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image19_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image20_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image5_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image6_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image7_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image8_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Image9_Click()
Label2.Caption = Label2 + 1
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End Sub
Private Sub Timer2_Timer()
Timer3.Enabled = True
Timer2.Enabled = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
End Sub
Private Sub Timer3_Timer()
Timer4.Enabled = True
Timer3.Enabled = False
Image3.Visible = True
Image4.Visible = False
End Sub
Private Sub Timer4_Timer()
Timer1.Enabled = True
Timer4.Enabled = False
Image4.Visible = True
End Sub
Private Sub Timer5_Timer()
Image5.Visible = True
Image6.Visible = False
Image7.Visible = False
Timer6.Enabled = True
Timer5.Enabled = False
End Sub
Private Sub Timer6_Timer()
Image5.Visible = False
Image6.Visible = True
Image7.Visible = False
Timer7.Enabled = True
Timer6.Enabled = False
End Sub
Private Sub Timer7_Timer()
Image5.Visible = False
Image6.Visible = False
Image7.Visible = True
Timer7.Enabled = False
Timer8.Enabled = True
End Sub
Private Sub Timer8_Timer()
Image7.Visible = False
Timer8.Enabled = False
Timer5.Enabled = True
Timer5.Interval = Rnd * 10000
End Sub
Private Sub Timer9_Timer()
Image8.Visible = True
Timer9.Enabled = False
Timer10.Enabled = True
End Sub
Private Sub Timer10_Timer()
Image8.Visible = False
Timer9.Enabled = True
Timer10.Enabled = False
Timer9.Interval = Rnd * 10000
End Sub
Private Sub Timer11_Timer()
Image19.Visible = True
Timer11.Enabled = False
Timer12.Enabled = True
End Sub
Private Sub Timer12_Timer()
Image19.Visible = False
Timer11.Enabled = True
Timer12.Enabled = False
Timer11.Interval = Rnd * 10000
End Sub
Private Sub Timer13_Timer()
Image20.Visible = True
Timer13.Enabled = False
Timer14.Enabled = True
End Sub
Private Sub Timer14_Timer()
Image20.Visible = False
Timer13.Enabled = True
Timer14.Enabled = False
Timer13.Interval = Rnd * 10000
End Sub
Private Sub Timer15_Timer()
Image9.Visible = True
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Timer16.Enabled = True
Timer15.Enabled = False
End Sub
Private Sub Timer16_Timer()
Image9.Visible = False
Image10.Visible = True
Image11.Visible = False
Image12.Visible = False
Timer17.Enabled = True
Timer16.Enabled = False
End Sub
Private Sub Timer17_Timer()
Image9.Visible = False
Image10.Visible = False
Image11.Visible = True
Image12.Visible = False
Timer17.Enabled = False
Timer18.Enabled = True
End Sub
Private Sub Timer18_Timer()
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = True
Timer18.Enabled = False
Timer19.Enabled = True
End Sub
Private Sub Timer19_Timer()
Image12.Visible = False
Timer19.Enabled = False
Timer15.Enabled = True
Timer15.Interval = Rnd * 10000
End Sub
Private Sub Timer20_Timer()
Image13.Visible = True
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Timer21.Enabled = True
Timer20.Enabled = False
End Sub
Private Sub Timer21_Timer()
Image13.Visible = False
Image14.Visible = True
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Timer22.Enabled = True
Timer21.Enabled = False
End Sub
Private Sub Timer22_Timer()
Image13.Visible = False
Image14.Visible = False
Image15.Visible = True
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Timer22.Enabled = False
Timer23.Enabled = True
End Sub
Private Sub Timer23_Timer()
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = True
Image17.Visible = False
Image18.Visible = False
Timer23.Enabled = False
Timer24.Enabled = True
End Sub
Private Sub Timer24_Timer()
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = True
Image18.Visible = False
Timer24.Enabled = False
Timer25.Enabled = True
End Sub
Private Sub Timer25_Timer()
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = True
Timer25.Enabled = False
Timer26.Enabled = True
End Sub
Private Sub Timer26_Timer()
Image18.Visible = False
Timer26.Enabled = False
Timer20.Enabled = True
Timer20.Interval = Rnd * 10000
End Sub

form2

Private Sub Command1_Click()
Form1.Visible = True
Form2.Visible = False
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

visual basic 2 (aplikasi login sederhana)

tutorial kali ini kita akan membuat aplikasi login  sederhana
fungsinya untuk melindungi aplikasi yang sudah kita buat agar tidak sembarang user bisa menggunakannya, karena untuk menggunakannya perlu memasukkan username dan password.
untuk membuatnya pertama tama kita perlu membuat 2 form pada visual basic.
form 1 untuk aplikasi login kita.
dan form 2 adalah aplikasi yang ingin kita beri password misalnya.
interface aplikasinya kira-kira seperti gambar di bawah ini, anda bisa merubahnya sesuai kreativitas anda masing-masing.

pada textbox username captionnya adalah text1 dan password text2

pada textbox password, pada bagian properties: PasswordChar diisi dengan tanda bintang(*)

agar password saat kita isi berubah jadi tanda bintang.

source codenya adalah sbb:

Private Sub Command1_Click()
If Text1 = "user" And Text2 = "user" Then
Form2.Show
Form1.Visible = False
Unload Me
Else
MsgBox "User Name atau Password yang Anda Masukkan salah"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text2_Change()
End Sub

tampilan saat mengisi password:
username: user
password: user

visual basic (membuat kalkulator sederhana)

visual basic adalah program yang dikeluarkan oleh perusahaan microsoft yang berfungsi untuk membuat program.
visual basic ini relatif mudah mudah dalam penggunaannya karena dalam melakukan pemrograman berbasis gui (graphic user interface) dengan bahasa pemrograman yang mudah dipahami.
Dalam membuat membuat kalkulator sederhana, dalam hal ini saya akan membuat kalkulator untuk menghitung volume balok dan kubus. pertama-tama buka program visual basic. Buat sebuah form project.
Tools yang digunakan untuk membuat kalkulator ini cukup menggunakan 3 tolls saja. yaitu:
1.label
2.textbox
3.command button
susunanya dapat dibuat seperti gambar di bawah ini. atau dapat dibuat sesuai dengan kreativitas anda masing-masing.

untuk mengatur berbagai settingan tampilan misalnya jenis huruf, ukuran huruf,  warna, latar belakang dll dapat dilakukan pada bagian properties.
agar kalkulator dapat berjalan, pada bagian command button lakukan double click dan masukkan script di bawah ini:

 Private Sub Command1_Click()
Label5.Caption = Text1.Text * Text2.Text * Text3.Text
End Sub

script yang digunakan cukup simpel dan sederhana. setyelah dimasukkan script maka selanjutnya dapat kita lakukan test peda program yang telah kita buat dengan menekan tombol play (segitiga biru) pada tools bagian atas. hasilnya seperti gambar di bawah ini:

Proteus 2 (rangkaian komparator)

rangkaian komparator
sesuai dengan namanya rangkaian ini berfungsi untuk membandingkan (komparasi) antara v1 dan v2
gambar rangkaiannya adalah sebagai berikut:

v1 adalah pin 3 pada ic lm741
v2 adalah pin 2 pada ic lm741
v2 adalah sebagai tegangan referensi

rumus:
v1=ldr/(ldr+r1)*v
v2=r3/(r2+r3)*v


jika v1>v2 maka outputnya menjadi saturasi (+) menghasilkan output 5v (lampu led akan menyala)
jika v1<v2 maka outputnya menjadi saturasi (-) menghasilkan output 0v (lampu led akan mati)

Simulasi Elektronik ISIS

Program ISIS merupakan salah satu tools program yang terdapat pada proteus profesional.
fungsinya adalah untuk mensimulasikan suatu rangkaian elektronika secara virtual.
contohnya adalah seperti pada gambar dibawah ini:

gambar di atas adalah rangkaian sederhana lampu flip-flop yang dibuat dengan program ISIS.
Untuk menambahkan komponen yang akan digunakan pada rangkaian pilih menu devices > P > pada bagian category pilih komponen yang akan ditambahkan > OK
Untuk menghubungkan komponen yang sudah disusun gunakan tools line vonnection.
Kita bisa mengubah ubah nilai komponen. misalnya resistor atau capasitor dengan double click pada komponen.
Selain itu kita juga bisa mengukur nilai arus maupun tegangan pada rangkaian yang kita buat dengan bantuan tools instrument.
Pada program ISIS tools instrument dilambangkan dengan gambar multimeter pada toolbar.

Selain untuk mensimulasikan rangkaian elektronik, program ISIS juga bisa digunakan untuk mendisain papan PCB dengan bantuan program ares yang juga terdapat pada proteus  profesional.

contoh desain:

PSIM (PROGRAMMABLE LOGIC CONTROLLER SIMULATOR)

PSIM simulator adalah software untuk lattihan programmable logic control (PLC) tanpa PLC dengan menggunakan type pemrograman PLC Allen Bradley. 

Diagram Ladder

Ladder diagram adalah kumpulan simbol-simbol skematik yang khusus digunakan dalam dokumentasi industri. Disebut “ladder” diagram dikarenakan simbol-simbolnya tersusun seperti tangga dengan dua garis vertikal dan memiliki banyak rung yang merepresentasikan rangkaian pengontrol.

 

Digital Logic

Fungsi logika sederhana dapat dibuat dengan menggunakan beberapa saklar untuk mengendalikan sebuah lampu.

Saklar 0 untuk off dan

Saklar 1 untuk on

Saklar yang disusun pararel ekuivalen dengan rangkaian OR

Saklar yang disusun seri ekuivalen dengan rangkaian AND

Saklar normally-closed akivalen dengan rangkaian NOT

 

PSIM: I/O simulator

Dari layar menu program PSIM pilih I/O simulator.

I/O simulator menampilkan beberapa macam saklar yang terhubungkan dengan suatu input card dari PLC sederhana.

 

Program rung editor

Editor menampilkan sebuah rung yang menunjukkan akhir dari program. Rung ini akan terdapat pada setiap program dan akan turut dihitung dalam jumlah rung program.

Dalam membuat ladder diagram anda perlu menekan tombol yang tepat untuk bisa menghasilkan ladder diagram

Membuat rung

Tambahkan rung dengan menekan F2

Pilih instruksi XIC dengan menekan F1

Masukkan alamat tombol pertama dengan menekan 1 1 0 0 diakhiri  dengan menkan tombol enter

Tekan tombol F8 yang akan menampilkan menu baru pada bagian bawah layar

Pilih instruksi OTE dengan menekan tombol F1

Masukkan alamt  dari lampu pertama 0 1 0 0 diakhiri enter

Keluar dari insert mode dengan menekan F10 atau tombol Esc

Hubungkan saklar beberapa kali lalu lihat apa yang terjadi pada program

 

Menambah rung

Tambahkan rung kedua pada program dengan menekan F1

Pilih instruksi XIC, masukkan alamat 1 1 0 1 enter

Tekan F1 untuk membuat instruksi XIC kedua dengan alamat 1 1 0 6

Tekan tombol F8 untuk menampilkan menu output instructions

Keluar dari program editor dengan menekan F10 dua kali

Uji program yang dibuat dengan menekan  saklar 01 d

Membuat branch pada rung

Dari layar I/O simulator pilih tombol rung edit

Dengan tombol panah gerakkan kursor ke rung pertama  dengan menekan tombol F2

Tekan tombol branch start F3

Tekan tombol XIC dan masukkan alamat 1 1 0 0

Tekan kembali F1 lalu instruksi XIC kedua masukkan alamat 1 1 0 2

Tekan tombol F3, kursor akan berada dibawah instruksi XIC pertama

Masukkan instruksi XIC yg ketiga dengan alamat 1 1 0 3

Tekan F4 untuk menutup branch

Pilih outpit menu dan pilih instruksi OTE dengan alamat 0 1 0 2

Kembali ke I/O simulator dan uji program yang dibuat.

Memodifikasi instruksi dalam rung

Dengan kursor berada pada rung diatas  tekan F3

Gerakkan kursor pada instruksi XIC 1: 1 0 3

Tekan F4

Tekan tombol XIC dan masukkan alamat 1 1 0 0

Posisikan kursor pada output OTE O:1/02

Tekan tombol F4

Pilih instruksi OTE pada menu instruksi  output  dan masukkan alamt baru 0 1 0 7

Microsoft Office Power Point

Fungsi microsoft office power point : untuk membuat tampilan presentasi menjadi menarik dan interaktif.
tools yang tersedia pada microsoft office power point:

1. Slides: untuk menambahkan jumlah slide, menghilangkan slide, maupun untuk memilih tampilan slide yang akan kita gunakan.
2. Insert: berfungsi untuk menambahkan element element interaktif seperti tabel, gambar, video, suara, diagram atau chart serta hyperlink.
3. Hyperlink: untuk menambahkan pintasan yang bisa berupa alamat web maupun pintasan untuk membuka suatu file dokumen.
4. Wordart: berfungsi untuk menambahkan tulisan dengan huruf yang indah.
5. Animation: Pada menu animation terdapat berbagai pilihan menu untuk mengatur tampilan gerakan interaktif pada slide presentasi. di sini anda bisa menambahkean serta efek suara saat animasi dijalankan dan trigger bagaimana slide dijalankan. misalnya dengan bantuan klik atau berjalan secara otomatis.
6. Slide show: Pada manu ini kita bisa melihat tampilan slide presentasi yang sudah selesai kita buat maupun untuk memulai menjalankan presentasi kita.