MICROSOFT VISUAL BASIC

MICROSOFT VISUAL BASIC

Microsoft Visual Basic atau yang lebih dikenal dengan sebutan VB adalah suatu bahasa pemrograman yang  menawarkan IDE visual untuk membuat software berbasis Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic adalah turunan bahasa BASIC yang 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. Ada beberapa bahasa skrip yang mirip seperti Visual Basic tetapi berbeda cara kerjanya. Bahasa tersebut adalah Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript).

SEJARAH VISUAL BASIC

Terciptanya Visual Basic berawal dari bahasa BASIC  (Beginner All Purpose Symbolic Intruction Code ) ciptaan Prof. Jhon Kemeny dan Thomas Kurtz pada tahun 1964. Interpreter bahasa BASIC sendiri dikembangkan oleh perusahaan Microsoft.

Pada tahun 1975, Microsoft yang dipimpin oleh Bill Gate ini, mengembangkan bahasa BASIC ini dengan mengeluarkan produk pertamanya yang bernama Microsoft Basic dimana versi yang terkenal saat itu adalah Quick Basic. Quick Basic menjadi bahasa BASIC yang paling terkenal saat itu karena sudah adanya interpreter didalamnya yang berfungsi untuk menjalankan kode-kode yang ditulis dengan Quick Basic.

Kemudian, pada tahun 1987, Microsoft mengeluarkan satu produk lagi yang sangat populer, yaitu Visual Basic versi 1.0. Visual Basic versi 1.0 ini sangat populer karena bahasa pemrograman ini menggunakan GUI dalam pengembangannya. Lingkungan grafis yang user friendly membuat para programmer saat itu banyak beralih ke Visual Basic. 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. Selain itu, Visual Basic tidak bersifat case sensitif. Sampai saat ini, Microsoft Visual Basic terus dikembangkan. Versi terakhir dari Microsoft Visual Basic adalah versi 10.0.

PERKEMBANGAN VISUAL BASIC

1. VB 1.0 dikenalkan pada tahun 1991. Pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD, Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby. Visual Basic 1.0 (May 1991) di rilis untuk windows pada COMDEX/ Windows Wordltrade yg dipertunjukan di Atlanta , Georgia. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.
2. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4.
3. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau access) 1.x
4. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
5. Visual Basic 5.0 (February 1997), dirilis secara eksklusif untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 juga memperkenalkan kemampuan untuk membuat User Control.

1. Visual Basic 6.0 (pertengahan 1998),  memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based .
2. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunaan memori.
   1. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X  IsNot Y

1. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
2. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan beberapa fitur baru, diantaranya :
   1. Edit and Continue , pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan.
   2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

1. Visual Basic 2005 Express , merupakan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yang gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft.
2. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
   - True Tenary operator , yaitu fungsi If(boolean,value, value)  yg digunakan untuk menggantikan fungsi IIF
   - LINQ Support
   - Ekspresi Lambda
   - XML Literals
   - Nullable types
   - Type Inference
3. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang  juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1.

Cara Membuat Game FlappyBird dengan VB6.0

yang anda butuhkan adalah :
1. anda harus memiliki visual basic 6.0 untuk membuatnya.
yang belum punya bisa menuju postingan saya sebelumnya disini

2. karakter burungnya , tangki , dan backgroundnya.
bisa diunduh lengkap disini

3. Komponen Transparansi Gambar, klik disini



Ok, Pertama Silahkan Buka Aplikasi VB6.0nya
dan buatlah design seperti dibawah ini

 keterangan :
2 Buah Timer dengan nama
tmrmove
timer1
importlah gambar tanki
tambahkan 1 label sebagai score
dan 1 karakter serta juga 3 buah command button.
dan masuklah ke bagian kode, pastekan kode dibawah ini

Private Sub Command1_Click()
    If Command1.Caption = "Flap" Then
        If Not started Then
            started = True
            Timer1.Enabled = True
            tmrMove.Enabled = True
        End If
        imgBird.Picture = LoadPicture(App.Path & "\img\bird-up.gif")
        imgBird.Top = imgBird.Top - 600
    Else
        NewGame
    End If
End Sub

Private Sub Command2_Click()
    started = False
    tmrMove.Enabled = False
End Sub

Private Sub Command3_Click()
MsgBox "Welcome Semua, Saya Raka Adi N. Admin Blog Raka Adi Nugroho.blogspot.com | Flappybird gila", vbOKOnly, "@RakaAdiN"

End Sub

Private Sub Form_Load()
    ucPicBuddy1.AttachChildControl Image1
    ucPicBuddy2.AttachChildControl imgBird
    pipeHDistance = 2333
    pipeVDistance = 1750
    allHeight = 4200
    speed = 100
    Me.Width = (2333 * 3) - Image1.Width
    
    NewGame
End Sub


Private Sub Timer1_Timer()
    If imgBird.Top >= 3600 Then
        Gameovered
    Else
        If started Then
            imgBird.Picture = LoadPicture(App.Path & "\img\bird-down.gif")
            imgBird.Top = imgBird.Top + 300
        End If
    End If
End Sub

Private Sub tmrMove_Timer()
    If CheckIfGameOver Then
        Exit Sub
    Else
        Image1.Top = Image2.Top + Image2.Height + pipeVDistance
        Image4.Top = Image3.Top + Image3.Height + pipeVDistance
        Image1.Height = allHeight - (Image2.Top + Image2.Height + pipeVDistance)
        Image4.Height = allHeight - (Image3.Top + Image3.Height + pipeVDistance)
    
        Image1.Left = Image1.Left - speed
        Image2.Left = Image1.Left
        Image3.Left = Image3.Left - speed
        Image4.Left = Image3.Left
        
        Image5.Left = Image5.Left - speed
        Image6.Left = Image6.Left - speed
        
        If Image1.Left <= 1580 And scored1 = False Then
            scored1 = True
            scored4 = False
            Label1.Caption = Val(Label1.Caption) + 1
            PlaySound App.Path & "\img\scored.wav", 0, SND_FILENAME Or SND_ASYNC
        End If
        
        If Image4.Left <= 1580 And scored4 = False Then
            scored4 = True
            scored1 = False
            Label1.Caption = Val(Label1.Caption) + 1
            PlaySound App.Path & "\img\scored.wav", 0, SND_FILENAME Or SND_ASYNC
        End If
        
        Randomize
        Dim value As Integer
        value = CInt(Int((1000 * Rnd()) + 615))
        If Image1.Left <= (Image1.Width - (Image1.Width * 2)) Then
            Image2.Height = value
            Image1.Left = Me.Width
        End If
        If Image3.Left <= (Image3.Width - (Image3.Width * 2)) Then
            Image3.Height = value
            Image3.Left = Me.Width
        End If
        If Image5.Left <= (Image5.Width - (Image5.Width * 2)) Then
            Image5.Left = Image6.Left + (Image6.Width - 180)
        End If
        If Image6.Left <= (Image6.Width - (Image6.Width * 2)) Then
            Image6.Left = Image5.Left + (Image5.Width - 180)
        End If
    End If
End Sub

Semoga bermanfaat, dan mudah dimengerti...

Daftar Pustaka :

http://kevinkarundeng.wordpress.com/2011/03/30/microsoft-visual-basic/

http://rakaadinugroho.blogspot.com/2014/02/cara-membuat-game-flappybird-dengan_81.html