Selasa, 18 Mei 2010
Sabtu, 15 Mei 2010
Sejarah & Perkembangan Microsoft Visual Basic.
SEJARAG DAN PERKEMBANGAN VISUAL BASIC.
VISUAL BASIC (Begginer All purpose Symbolic Instructions Code).
Sering disingkat sebagai VB merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM).
Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. Beberapa bahasa skrip sepertiVisual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.
Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi eksternal tambahan.
Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentukVisual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.
SEJARAH VISUAL BASIC.
Bill Gates, pendiri Microsoft, memulai bisnis softwarenya dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).
Sejarah Visual BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.
Programmer yang menggunakan Visual Basic bisa memilih kode terkompilasi atau kode yang harus diinterpretasi sebagai hasil executable dari kode VB. Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).
Pemrograman Berorientasi Objek (OOP)
Visual Basic merupakan bahasa yang mendukung OOP, namun tidak sepenuhnya. Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module. Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.
Desain Visual dan Komponen
Visual Basic menjadi populer karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain. Namun komponen ActiveX memiliki masalahnya tersendiri yang dikenal sebagai DLL hell. Pada Visual Basic .NET, Microsoft mencoba mengatasi masalah DLL hell dengan mengubah cara penggunaan komponen (menjadi independen terhadap registry).
Sejarah Perkembangan Visual Basic.
Visual basic awal sekali diperkenalkan pada tahun 1991 oleh Alan cooper, ia merintisnya di Atlanta, Georgia, yaitu visual basic 1.0, sedangkan visual basic 2.0 dirintis pada tahun 1992 di bulan November.
Visual basic 3.0 dirintis pada musim panas tahun 1993 yg dibagi menjadi dua versi, yaitu versi standard dan versi professional.
Visual basic 4.0 dirilis pada tahun 1995 di bulan Agustus yg dapat membuat windows program 32 bit.
Visual basic versi 5.0 dirintis pada bulan February 1997. Visual basic 6.0 dirintis pada pertengahan 1998. Visual basic net/ VB 7 dirilis pada tahun 2002 dengan bahasa yg sangat powerfull, akan tetapi sangat berbeda dengan bahasa versi sebelumnya. Visual basic versi 8.0 dirintis pada tahun 2005. VB 9.0 pada tahun 2007 & sampai sekarang sedang dirilis yg versi ke 10..0
Contoh & Litsing Pemrograman Visual Basic.
Pemrograman .NET CF Menggunakan VB.NET
Pada tutorial ini terdapat contoh & listing sederhana yaitu Program “Jackpot“ pada Pocket PC 2003 dengan menggunakan VB.NET 2005.
Langkah-langkahnya adalah sebagai berikut:
1. Jalankan Visual Studio 2005.
2. Buat project baru, Visual Basic > Smart Device > Pocket PC 2003. Kemudian pilih yang Device Application, bernama projectnya JackPot.
3. Kemudian akan muncul Form Designer, di mana kita desain beberapa komponen sebagai berikut:
A. Buat 3 buah komponen Label untuk menampilkan angka JackPot:
i. Atur properti textnya: 9
ii. Atur properti namenya: jack1, jack2, dan jack3.
iii. Atur fontnya berukuran: 72pt
B. Atur properti text dari Form, menjadi: Jack Pot
C. Buat komponen Label untuk menampilkan uang, berinama lblUang.
D. Buat komponen Button, atur properti name: btnPlay dan text: Play
E. Buat komponen PictureBox, berinama: pic, size=92x100, dan SizeMode=StrechImage.
F. Buat 4 buah timer, aturlah:
i. Timer1 bernama: t, enabled false, inteval 100
ii. Timer2 bernama ts1, enabled false, interval 1000
iii. Timer3 bernama ts2, enabled false, interval 2000
iv. Timer4 bernama ts3, enabled false, interval 3000
G. Buat komponen ImageList dan isi dengan 3 gambar (terserah Anda) untuk menunjukkan menang dan kalah.
H. Buat komponen MainMenu, tambahkan menu:
Game > Play, Exit
About
Tampilan desain sebagai berikut:
1. Sekarang kita akan memberikan logic control untuk program jackpot kita.
Pada Kode program, diantara Public Class Form1 dan End Class, kita deklarasikan variabel sebagai berikut:
Dim uang As Integer
Kemudian kita membuat sebuah fungsi untuk mengacak angka, letakkan tepat dibawah deklarasi variabel uang:
Public Function Acak() As Integer
Return CInt(Rnd() * 9 - 0.5) + 1
End Function
Double click form1, pada event form_load, ketikkan program berikut:
Kita membuat uang pertama kali di set ke 100.000. dan memanggil fungsi Randomize agar angka yang dibuat benar-benar acak.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
uang = 100000
End Sub
Kemudian double click btnPlay, ketikkan kode berikut pada event btnPlay_Click:
Kita akan menginisialisasi picture kita menjadi kosong setiap kali button play di click. Kemudian kita akan mengacak 3 angka sambil mengecek jika uang yang kita miliki sudah habis, maka permainan akan berakhir, tapi jika belum, maka kita akan mengacak angka sekaligus menganimasinya dengan indah. Setiap kali kita menekan tombol play, uang kita juga akna dikurangi 1000 rupiah. Jika uang habis akan ditampilkan gambar tengkorak membawa golok.
Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
pic.Image = Nothing
jack1.Text = Acak()
jack2.Text = Acak()
jack3.Text = Acak()
If uang = 0 Then
; MessageBox.Show("Uang habis!", "Game Over", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
; pic.Image = ImageList1.Images(3)
; Exit Sub
End If
uang -= 1000
t.Enabled = True
ts1.Enabled = True
ts2.Enabled = True
ts3.Enabled = True
Me.Text = "JackPot"
End Sub
Double click timer pertama (timer t), ketikkan program:
Program ini akan menampilkan tulisan hasil random angka untuk masing-masing angka jackpot.
Private Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Tick
If ts1.Enabled Then
; jack1.Text = Acak() & nbsp;
End If
If ts2.Enabled Then
; jack2.Text = Acak()
End If
If ts3.Enabled Then
; jack3.Text = Acak()
End If
End Sub
Double click untuk timer kedua (ts1) ketikkan program.
Program ini akan menampilkan hasil angka acak pertama.
Private Sub ts1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts1.Tick
ts1.Enabled = False
jack1.Text = Acak()
jack1.Refresh()
End Sub
Double click untuk timer ketiga (ts2) ketikkan program.
Program ini akan menampilkan hasil angka acak kedua.
Private Sub ts2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts2.Tick
ts2.Enabled = False
jack2.Text = Acak()
jack2.Refresh()
End Sub
Double click untuk timer keempat (ts3) ketikkan program.
Program ini akan menampilkan hasil angka acak ketiga, sekaligus memeriksa kemengan dan point untuk setiap hasil acakan yang dilakukan. Jika salah satu ada angka sembilan uang bertambah 10000 dan gambar bunga ditampilkan, sedangkan jika ada 2 angka sembilan, uang bertambah 25000 dan gambar dolar ditampilkan, dan jika semua angka sembilan, maka uang bertambah 50000 dan gambar uang banyak ditampilkan.
Private Sub ts3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts3.Tick
Dim Menang As Integer
ts3.Enabled = False
jack3.Text = Acak()
jack3.Refresh()
t.Enabled = False
'Cek jika menang
If jack1.Text = "9" And jack2.Text = "9" And jack3.Text = "9" Then
; Menang = 50000
; pic.Image = ImageList1.Images(0)
ElseIf (jack1.Text = "9" AndAlso jack2.Text = "9") OrElse (jack1.Text = "9" AndAlso jack3.Text = "9") OrElse (jack2.Text = "9" AndAlso jack3.Text = "9") Then
; Menang = 25000
; pic.Image = ImageList1.Images(1)
ElseIf jack1.Text = "9" Or jack2.Text = "9" Or jack3.Text = "9" Then
; Menang = 10000
; pic.Image = ImageList1.Images(2)
End If
'Uang kemenangan tambahkan ke uang pokok
uang += Menang
If Menang = 50000 Then
; Me.Text = "JackPot - Selamat, Menang 50000"
; MsgBox("Jackpot!")
ElseIf Menang > 0 Then
; lblUang.Text = "Menang Rp. " + Format(Menang, "0")
; Me.Text = "JackPot - Uang bertambah!"
Else &nb sp;
; Me.Text = "JackPot - Maaf!"
End If
lblUang.Text = "Uang Anda Rp. " + Format(uang, "0")
End Sub
Untuk menu Play, Exit dan About ketikkan kode sebagai berikut:
Menu Play
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
btnPlay_Click(sender, e)
End Sub
Menu About
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
MsgBox("Jackpot by Antonie 2007")
End Sub
Menu Exit
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
MessageBox.Show("Anda selesai dengan" & Str(uang) & " rupiah.", "Game Over", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
Me.Close()
End Sub
Jika program dijalankan, maka akan keluar tampilan seperti dibawah ini...!!!
Contoh lain :
Membuat Tombol HoverButton.
Pada beberapa website terdapat tombol,baik yang flat maupun yang tiga dimensi yang jika dilewati mouse akan berubah warna. Tombol tersebut disebut Hoverbutton .didalam pemrograman Visual Basic juga bisa membuat tombol tersebut.perhatikan langkah-langkahnya berikut ini:
1. Letakkan sebuah kontrol commandbutton pada formmubah caption menjadi in hover button jangan lupa juga untuk mengubah property style menjadi Graphical
2. kemudian ketik listing berikut ini
Public Sub sysControlHighLight(ctl as Control,X As single,Y As single,OriginalBackColor As Long,NewBackColor As Long)
Dim Hittest As long On Error resume Next nHitTest=ctl.hwnd if err.Number<>0 Then exit Sub with ctlIf (X<0)or(y<0)or(x>.widht)or (Y>.height)thenReleasecapture .Backcolor=OriginalBackcolor Else SetCapture.hwnd .BackColor=NewBackColor end if On error Goto 0 End Sub Private Sub Command1_MouseMove(button As Integer,Shift As Integer ,X As Single,Y As Single) SysControlHighLight Command1,X,Y,vbBlue,vbRed
end Sub
Tips & Trik Visual Basic.
Mengubah Tampilan Visual Basic.
Jika Anda adalah pengguna Visual Basic mulai dari versi-versi awal, Anda tentu tahu bahwa tampilan IDE (Integrated Development Environment) atau tampilan jendela Visual Basic 6.0 berbeda dengan versi-versi sebelumnya. Anda dapat mengubah tampilan IDE Microsoft Visual Basic 6.0 agar menyerupai versi-versi sebelumnya dengan klik menu Tools®Options. Pilih tab Advanced, aktifkan check box SDI Development Environment. Keluarlah dari Visual Basic 6.0, kemudian jalankan lagi. Tampilan IDE Visual Basic 6.0 akan berubah.
Membuat Karakter Password (*).
Anda tentu sudah mengetahui bahwa pada aplikasi tertentu yang menggunakan password, text box yang digunakan untuk mengisi password selalu memunculkan karakter bintang (*) jika Anda mengetikkan sesuatu ke dalamnya. Hal ini tentu saja dimaksudkan agar orang lain tidak dapat membaca karakter sebenarnya yang Anda ketikkan. Untuk membuat sebuah text box agar mengeluarkan karakter * (atau bahkan karakter yang lain) caranya sangat mudah, yaitu mengisikan karakter yang Anda inginkan pada properti PasswordChar kontrol text box. Setelah itu jika Anda mengetikkan sesuatu ke dalam text box tersebut, maka karakter yang akan muncul adalah karakter yang Anda masukkan ke dalam properti PasswordChar tersebut.
Menambahkan Gambar Pada Command Button.
Selama ini Anda selalu menggunakan Caption pada Command Button. Anda juga dapat menambahkan gambar pada Command Button untuk menambah daya tarik aplikasi Anda. Untuk itu ada beberapa properti yang perlu diubah, yaitu:
Properti Nilai
Style 2 - Graphical
Caption [Anda boleh mengosongkan properti ini]
Picture [Gambar yang hendak ditambahkan pada Command Button]
DownPicture [Gambar pada Command Button ketika diklik]
Contoh:
Buatlah sebuah form, tambahkan sebuah Command Button dan ubahlah propertinya sebagai berikut:
Properti Nilai
Style 2 - Graphical
Caption [kosong]
Picture C:\Program Files\Microsoft Visual FoxPro 8\Graphics\Icons\Writing\BOOK01A.ICO
DownPicture C:\Program Files\Microsoft Visual FoxPro 8\Graphics\Icons\Writing\BOOK04.ICO
Untuk properti Picture dan DownPicture, jika file-file kursor yang diberikan pada contoh tidak ada pada komputer Anda, Anda boleh menggantinya sendiri dengan file lain.
Jalankan aplikasi Anda, perhatikan apa yang terjadi jika Command Button tersebut diklik.
VISUAL BASIC (Begginer All purpose Symbolic Instructions Code).
Sering disingkat sebagai VB merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. Beberapa bahasa skrip sepertiVisual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.
Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi eksternal tambahan.
Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentukVisual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.
SEJARAH VISUAL BASIC.
Bill Gates, pendiri Microsoft, memulai bisnis softwarenya dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).Sejarah Visual BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.
Programmer yang menggunakan Visual Basic bisa memilih kode terkompilasi atau kode yang harus diinterpretasi sebagai hasil executable dari kode VB. Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).
Pemrograman Berorientasi Objek (OOP)
Visual Basic merupakan bahasa yang mendukung OOP, namun tidak sepenuhnya. Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module. Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.
Desain Visual dan Komponen
Visual Basic menjadi populer karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain. Namun komponen ActiveX memiliki masalahnya tersendiri yang dikenal sebagai DLL hell. Pada Visual Basic .NET, Microsoft mencoba mengatasi masalah DLL hell dengan mengubah cara penggunaan komponen (menjadi independen terhadap registry).
Sejarah Perkembangan Visual Basic.
Visual basic awal sekali diperkenalkan pada tahun 1991 oleh Alan cooper, ia merintisnya di Atlanta, Georgia, yaitu visual basic 1.0, sedangkan visual basic 2.0 dirintis pada tahun 1992 di bulan November.
Visual basic 3.0 dirintis pada musim panas tahun 1993 yg dibagi menjadi dua versi, yaitu versi standard dan versi professional.
Visual basic 4.0 dirilis pada tahun 1995 di bulan Agustus yg dapat membuat windows program 32 bit.
Visual basic versi 5.0 dirintis pada bulan February 1997. Visual basic 6.0 dirintis pada pertengahan 1998. Visual basic net/ VB 7 dirilis pada tahun 2002 dengan bahasa yg sangat powerfull, akan tetapi sangat berbeda dengan bahasa versi sebelumnya. Visual basic versi 8.0 dirintis pada tahun 2005. VB 9.0 pada tahun 2007 & sampai sekarang sedang dirilis yg versi ke 10..0
Contoh & Litsing Pemrograman Visual Basic.
Pemrograman .NET CF Menggunakan VB.NET
Pada tutorial ini terdapat contoh & listing sederhana yaitu Program “Jackpot“ pada Pocket PC 2003 dengan menggunakan VB.NET 2005.
Langkah-langkahnya adalah sebagai berikut:
1. Jalankan Visual Studio 2005.
2. Buat project baru, Visual Basic > Smart Device > Pocket PC 2003. Kemudian pilih yang Device Application, bernama projectnya JackPot.
3. Kemudian akan muncul Form Designer, di mana kita desain beberapa komponen sebagai berikut:
A. Buat 3 buah komponen Label untuk menampilkan angka JackPot:
i. Atur properti textnya: 9
ii. Atur properti namenya: jack1, jack2, dan jack3.
iii. Atur fontnya berukuran: 72pt
B. Atur properti text dari Form, menjadi: Jack Pot
C. Buat komponen Label untuk menampilkan uang, berinama lblUang.
D. Buat komponen Button, atur properti name: btnPlay dan text: Play
E. Buat komponen PictureBox, berinama: pic, size=92x100, dan SizeMode=StrechImage.
F. Buat 4 buah timer, aturlah:
i. Timer1 bernama: t, enabled false, inteval 100
ii. Timer2 bernama ts1, enabled false, interval 1000
iii. Timer3 bernama ts2, enabled false, interval 2000
iv. Timer4 bernama ts3, enabled false, interval 3000
G. Buat komponen ImageList dan isi dengan 3 gambar (terserah Anda) untuk menunjukkan menang dan kalah.
H. Buat komponen MainMenu, tambahkan menu:
Game > Play, Exit
About
Tampilan desain sebagai berikut:
1. Sekarang kita akan memberikan logic control untuk program jackpot kita.
Pada Kode program, diantara Public Class Form1 dan End Class, kita deklarasikan variabel sebagai berikut:
Dim uang As Integer
Kemudian kita membuat sebuah fungsi untuk mengacak angka, letakkan tepat dibawah deklarasi variabel uang:
Public Function Acak() As Integer
Return CInt(Rnd() * 9 - 0.5) + 1
End Function
Double click form1, pada event form_load, ketikkan program berikut:
Kita membuat uang pertama kali di set ke 100.000. dan memanggil fungsi Randomize agar angka yang dibuat benar-benar acak.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
uang = 100000
End Sub
Kemudian double click btnPlay, ketikkan kode berikut pada event btnPlay_Click:
Kita akan menginisialisasi picture kita menjadi kosong setiap kali button play di click. Kemudian kita akan mengacak 3 angka sambil mengecek jika uang yang kita miliki sudah habis, maka permainan akan berakhir, tapi jika belum, maka kita akan mengacak angka sekaligus menganimasinya dengan indah. Setiap kali kita menekan tombol play, uang kita juga akna dikurangi 1000 rupiah. Jika uang habis akan ditampilkan gambar tengkorak membawa golok.
Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
pic.Image = Nothing
jack1.Text = Acak()
jack2.Text = Acak()
jack3.Text = Acak()
If uang = 0 Then
; MessageBox.Show("Uang habis!", "Game Over", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
; pic.Image = ImageList1.Images(3)
; Exit Sub
End If
uang -= 1000
t.Enabled = True
ts1.Enabled = True
ts2.Enabled = True
ts3.Enabled = True
Me.Text = "JackPot"
End Sub
Double click timer pertama (timer t), ketikkan program:
Program ini akan menampilkan tulisan hasil random angka untuk masing-masing angka jackpot.
Private Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Tick
If ts1.Enabled Then
; jack1.Text = Acak() & nbsp;
End If
If ts2.Enabled Then
; jack2.Text = Acak()
End If
If ts3.Enabled Then
; jack3.Text = Acak()
End If
End Sub
Double click untuk timer kedua (ts1) ketikkan program.
Program ini akan menampilkan hasil angka acak pertama.
Private Sub ts1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts1.Tick
ts1.Enabled = False
jack1.Text = Acak()
jack1.Refresh()
End Sub
Double click untuk timer ketiga (ts2) ketikkan program.
Program ini akan menampilkan hasil angka acak kedua.
Private Sub ts2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts2.Tick
ts2.Enabled = False
jack2.Text = Acak()
jack2.Refresh()
End Sub
Double click untuk timer keempat (ts3) ketikkan program.
Program ini akan menampilkan hasil angka acak ketiga, sekaligus memeriksa kemengan dan point untuk setiap hasil acakan yang dilakukan. Jika salah satu ada angka sembilan uang bertambah 10000 dan gambar bunga ditampilkan, sedangkan jika ada 2 angka sembilan, uang bertambah 25000 dan gambar dolar ditampilkan, dan jika semua angka sembilan, maka uang bertambah 50000 dan gambar uang banyak ditampilkan.
Private Sub ts3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts3.Tick
Dim Menang As Integer
ts3.Enabled = False
jack3.Text = Acak()
jack3.Refresh()
t.Enabled = False
'Cek jika menang
If jack1.Text = "9" And jack2.Text = "9" And jack3.Text = "9" Then
; Menang = 50000
; pic.Image = ImageList1.Images(0)
ElseIf (jack1.Text = "9" AndAlso jack2.Text = "9") OrElse (jack1.Text = "9" AndAlso jack3.Text = "9") OrElse (jack2.Text = "9" AndAlso jack3.Text = "9") Then
; Menang = 25000
; pic.Image = ImageList1.Images(1)
ElseIf jack1.Text = "9" Or jack2.Text = "9" Or jack3.Text = "9" Then
; Menang = 10000
; pic.Image = ImageList1.Images(2)
End If
'Uang kemenangan tambahkan ke uang pokok
uang += Menang
If Menang = 50000 Then
; Me.Text = "JackPot - Selamat, Menang 50000"
; MsgBox("Jackpot!")
ElseIf Menang > 0 Then
; lblUang.Text = "Menang Rp. " + Format(Menang, "0")
; Me.Text = "JackPot - Uang bertambah!"
Else &nb sp;
; Me.Text = "JackPot - Maaf!"
End If
lblUang.Text = "Uang Anda Rp. " + Format(uang, "0")
End Sub
Untuk menu Play, Exit dan About ketikkan kode sebagai berikut:
Menu Play
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
btnPlay_Click(sender, e)
End Sub
Menu About
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
MsgBox("Jackpot by Antonie 2007")
End Sub
Menu Exit
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
MessageBox.Show("Anda selesai dengan" & Str(uang) & " rupiah.", "Game Over", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
Me.Close()
End Sub
Jika program dijalankan, maka akan keluar tampilan seperti dibawah ini...!!!
Contoh lain :
Membuat Tombol HoverButton.
Pada beberapa website terdapat tombol,baik yang flat maupun yang tiga dimensi yang jika dilewati mouse akan berubah warna. Tombol tersebut disebut Hoverbutton .didalam pemrograman Visual Basic juga bisa membuat tombol tersebut.perhatikan langkah-langkahnya berikut ini:
1. Letakkan sebuah kontrol commandbutton pada formmubah caption menjadi in hover button jangan lupa juga untuk mengubah property style menjadi Graphical
2. kemudian ketik listing berikut ini
Public Sub sysControlHighLight(ctl as Control,X As single,Y As single,OriginalBackColor As Long,NewBackColor As Long)
Dim Hittest As long On Error resume Next nHitTest=ctl.hwnd if err.Number<>0 Then exit Sub with ctlIf (X<0)or(y<0)or(x>.widht)or (Y>.height)thenReleasecapture .Backcolor=OriginalBackcolor Else SetCapture.hwnd .BackColor=NewBackColor end if On error Goto 0 End Sub Private Sub Command1_MouseMove(button As Integer,Shift As Integer ,X As Single,Y As Single) SysControlHighLight Command1,X,Y,vbBlue,vbRed
end Sub
Tips & Trik Visual Basic.
Mengubah Tampilan Visual Basic.
Jika Anda adalah pengguna Visual Basic mulai dari versi-versi awal, Anda tentu tahu bahwa tampilan IDE (Integrated Development Environment) atau tampilan jendela Visual Basic 6.0 berbeda dengan versi-versi sebelumnya. Anda dapat mengubah tampilan IDE Microsoft Visual Basic 6.0 agar menyerupai versi-versi sebelumnya dengan klik menu Tools®Options. Pilih tab Advanced, aktifkan check box SDI Development Environment. Keluarlah dari Visual Basic 6.0, kemudian jalankan lagi. Tampilan IDE Visual Basic 6.0 akan berubah.
Membuat Karakter Password (*).
Anda tentu sudah mengetahui bahwa pada aplikasi tertentu yang menggunakan password, text box yang digunakan untuk mengisi password selalu memunculkan karakter bintang (*) jika Anda mengetikkan sesuatu ke dalamnya. Hal ini tentu saja dimaksudkan agar orang lain tidak dapat membaca karakter sebenarnya yang Anda ketikkan. Untuk membuat sebuah text box agar mengeluarkan karakter * (atau bahkan karakter yang lain) caranya sangat mudah, yaitu mengisikan karakter yang Anda inginkan pada properti PasswordChar kontrol text box. Setelah itu jika Anda mengetikkan sesuatu ke dalam text box tersebut, maka karakter yang akan muncul adalah karakter yang Anda masukkan ke dalam properti PasswordChar tersebut.
Menambahkan Gambar Pada Command Button.
Selama ini Anda selalu menggunakan Caption pada Command Button. Anda juga dapat menambahkan gambar pada Command Button untuk menambah daya tarik aplikasi Anda. Untuk itu ada beberapa properti yang perlu diubah, yaitu:
Properti Nilai
Style 2 - Graphical
Caption [Anda boleh mengosongkan properti ini]
Picture [Gambar yang hendak ditambahkan pada Command Button]
DownPicture [Gambar pada Command Button ketika diklik]
Contoh:
Buatlah sebuah form, tambahkan sebuah Command Button dan ubahlah propertinya sebagai berikut:
Properti Nilai
Style 2 - Graphical
Caption [kosong]
Picture C:\Program Files\Microsoft Visual FoxPro 8\Graphics\Icons\Writing\BOOK01A.ICO
DownPicture C:\Program Files\Microsoft Visual FoxPro 8\Graphics\Icons\Writing\BOOK04.ICO
Untuk properti Picture dan DownPicture, jika file-file kursor yang diberikan pada contoh tidak ada pada komputer Anda, Anda boleh menggantinya sendiri dengan file lain.
Jalankan aplikasi Anda, perhatikan apa yang terjadi jika Command Button tersebut diklik.
Langganan:
Postingan (Atom)
Postingan
