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.

Fungsi Mail Merge Pada Microsoft Word 2007

Fungsi Mail Merge
Mail merge pada microsoft word berfungsi untuk memudahkan kita membuat surat dengan banyak nama yang akan dikirimi surat, sehingga kita tidak perlu mengetiknya satu persatu. Selain itu dengan mail merge bisa kita selipkan keterangan tambahan selain nama penerima surat, misalnya alamat penerima surat.
sebelum menggunakan mail merge kita harus sudah menyiapkan daftar nama penerima surat dan keterangan lainnya dengan menggunakan microsoft excel dan kita save.

 contohnya:

Cara Menggunakan Mail Merge
Siapkan surat yang akan diberi nama penerima, but dengan microsoft word.
contoh surat:

pada contoh surat diatas satelah Yth. akan kita masukkan nama penerima surat, maka kita gunakan fungsi mail merge. Caranya pilih menu mailings > start mail merge > step by step 

 mail merge wizard > pilih type document (letter) > next: starting document > next : select recipient > browse (pilih file excel yang sudah kita siapkan) > next: write your letter > edit recipient list > more item >
pilih nama
jika ingin menambah keterangan lain klik lagi more item kemudian pilih asal > insert > next: priview your letter > complete merge.

selesai.

Tutorial Dasar Windows Se7en

1.       Mengubah windows 7 theme ke windows 7 basic.

Klik kanan pada desktop, pada pilihan menu theme, pilih windows 7 basic.

2.       Mengatur komputer menjadi:

a.       Monitor akan mati jika tidak digunakan dalam jangka waktu 5 menit

klik kanan pada desktop, pilih personalization>screen saver>klik change power setting, pilih when to turn of the display>ubah nilainya menjadi  5 menit.

b.      Komputer dalam kondisi sleep  jika tidak digunakan dalam jangka waktu 10 menit

klik kanan pada desktop, pilih personalization>screen saver>klik change power setting, pilih when the computer sleep> ubah nilainya menjadi  10 menit.

3.       Mencari tahu alamat ip

Buka control panel>network and sharing center>local area connection>details

4.       Update waktu sesuai internet time.

Klik logo jam dan tanggal di pojok kanan bawah nitification bar>change date and time setting>buka tab internet time server>pilih server>update now.

5.       Mengubah  format region dan language menjadi format indonesia.

Buka control panel>region and language>klik tab format>pada menu format, pilih indonesia>pada tab kayboard and languages instal bahasia yang ingin dipakai (bahasa indonesia).

6.       Internet comunication and trend.

Yang dimaksud internet comunication and trend adalah hala-hal yang menjadi  budaya dan sesuatu yang populer di masyarakat yang penyebarannya berkembang melalui media internet.  Sebagai contohnya  adalah facebook dan twitter. Facebook awal mulanya diciptakan oleh mark zuckenberg yang sedang menempuh kuliah di oxford university yang tujuan awalnya hanyalah untuk berkomunikasi dengan teman-teman kuliahnya. Namun ternyata aplikasi buatannya tersebut sangat diminati banyak orang. Akhirnya facebook berkembang dengan sangat cepat dan menjadi besar seperti sekarang.

KOMPUTER DASAR 11/09/2015

Praktek hari ini tentang cara pemakaian windows 7. Oke, walaupun biasanya memakai  windows xp jadul.
RA MASALAH!
Praktek ganti tema windows 7  -----> BISA
Download, instal Program ------> GAMPANG
Setting user account ------> mMUDAH
Melihat alamat ip ------> SEPELE...
kuis -> Ancur 

CONCLUTION opo CONCLUSION

Spesifikasi Komputer

Prosesor

Jumlah prosesor 1

Prosesor Informasi

Jumlah core 2 (max 8)

Nama Intel Core i3 2120

Codename Sandy Bridge

Keterangan Intel (R) Inti (TM) CPU i3-2120 @ 3.30GHz

Paket (platform ID) Socket LGA 1155 (0x1)

Teknologi 32 nm

TDP Batas 65,0 Watts

Inti Kecepatan 1.596,2 MHz

Frekuensi 3300 MHz

L1 cache data 2 x 32 KByte

L1 Instruksi Cache 2 x 32 KByte

Cache L2 2 x 256 KByte

Cache L3 3 MBytes

Chipset

Northbridge Intel Sandy Bridge rev. 09

Southbridge Intel H61 rev. B3

Memori DDR3 Jenis

Ukuran Memori 2 GB

Saluran Tunggal

Memory Frequency 665,1 MHz (1: 5)

Memori

DIMM

Alamat SMBus 0x51

Memori jenis DDR3

Format modul UDIMM

Produsen (ID) ASint Teknologi

Ukuran 2048 MBytes

Max bandwidth yang PC3-10700 (667 MHz)

DMI

DMI BIOS       

     vendor               American Megatrends Inc.

     ROM size        4096 KB

DMI System Information         

     manufacturer         ASUSTeK Computer INC.

     product              CM6630_CM6730_CM6830.

     version              System Version

     serial               C2PDAG000XKV

     UUID            {84524560-5BCF-11D9-AC9E-C860008CEA80}

     SKU             SKU

     family               Desktop

DMI Baseboard       

     vendor               ASUSTeK COMPUTER INC.

     model           CM6630_CM6730_CM6830.

     revision        Rev x.0x

     serial               MT7021003400878

Display Adapters

Display adapter

     Name            Intel(R) HD Graphics Family

     Board Manufacturer   ASUSTeK Computer Inc.

     Codename        Sandy Bridge

     Technology      32 nm

     Memory size     785 MB

     Core clock      848.0 MHz

Storage

Drive 0

     Nama            Hitachi HDS721075DLE630                

     kapasitas       698.6 GB

Monitor 0 

     Model           ASUS VS197 ()

     ID              ACI19F2

     Serial               C1LMTF045920

     Manufacturing Date   Week 1, Year 2012

     Size            18.5 inches

     Max Resolution       1366 x 768 @ 59 Hz

     Horizontal Freq. Range     24-83 kHz

     Vertical Freq. Range 50-75 Hz

     Max Pixel Clock      170 MHz

     Gamma Factor         2.2

Perangkat lunak

Windows Version            Microsoft Windows 7 (6.1) Ultimate Edition 32-bit  Service Pack 1 (Build 7601)

DirectX Version            11.0