Apa Itu Visual Basic?

Saya yakin pasti banyak diantara anda yang sering mendengar bahkan menemui kata Visual Basic di komputer kesayangan anda, apalagi untuk anda yang menggunakan system operasi Microsoft Windows. Untuk anda yang masih duduk di bangku sekolah kejuruan terutama STM jurusan perangkat lunak pasti juga sedang mempelajari Visual Basic. Bukan hanya itu saja, untuk orang awam yang sering mengetik di ms.word maupun ms.excel pasti juga sering menemui kata Visual Basic pada menu dari aplikasi yang digunakan tersebut. Bahkan, bila kita survey, pasti banyak pula para programmer Visual Basic di Indonesia ini. 

Nah, mengingat betapa luasnya penggunaan bahasa Visual Basic, maka akan lebih bermanfaat bila sedikit-sedikit kita sharing tutorial mengenai VB mulai dari pengenalan sampai tingkat lanjut.

Hanya saja disini kita membahas tentang Visual Basic.NET. Sebetulnya sekarang Visual Basic.NET itu juga sudah kembali lagi menjadi nama Visual Basic saja dengan tanpa kata .’NET’ dibelakang. Luh, kok bisa gonta ganti? Memang sejarahnya gimana sih??

Sebelum kita membahas sejarah, perlu kita ketahui bersama bahwa Visual Basic merupakan bahasa pemrograman yang mudah dipahami, digunakan secara luas oleh banyak kalangan, didukung komponen-komponen jadi, professional, dan mampu membuat sebuah aplikasi yang handal untuk system operasi Windows. Inilah Visual Basic.

Lalu bagaimana dengan Visual Basic.NET? Yup, VB.NET merupakan pengembangan dari Visual Basic yang disesuakan dengan NET FRAMEWORK. Sebetulnya banyak orang yang beranggapan bahwa Visual Basic.NET ini sangat berbeda dengan Visual Basic meskipun untuk syntax penkodean tidak jauh berbeda. Perbedaan yang mencolok adalah pada semantic nya. Nah, untuk perbedaan ini akan kita bahas di bawah.

Lalu apa itu NET FRAMEWORK??? Sesuai dengan namanya, ini adalah sebuah framework. Windows menggunakan NET FRAMEWORK (saat tutorial ini ditulis, versi yang tersedia adalah versi 4) untuk memudahkan kita membuat sebuah aplikasi berbasis Windows. Sama seperti kita menggunakan framework Codeigniter untuk membuat sebuah website.

Kembali kita ke VB.NET, bahasa VB.NET merupakan pengembangan dari VB (Visual Basic). Dan Visual Basic itu sendiri merupakan pengembangan dari bahasa BASIC. Hem, ternyata semuanya merupakan turunan dari bahasa BASIC ya? Nah, ingin tau lebih lanjut?

Mari kita bahas satu persatu mulai dari bahasa BASIC terlebih dahulu.

A. Bahasa BASIC
Kita akan mengkutip penjelasan dari Wikipedia (http://id.wikipedia.org/wiki/BASIC) untuk definisi dari pemrograman BASIC ini,

“BASIC, adalah singkatan dari Beginners’ All-purpose Symbolic Instruction Code adalah sebuah kelompok bahasa pemrograman tingkat tinggi. Secara harfiah, BASIC memiliki arti "kode instruksi simbolis semua tujuan yang dapat digunakan oleh para pemula". Memang, istilah "Bahasa BASIC" di sini juga bisa diartikan menjadi bahasa untuk pemula, atau dengan kata lain, disebut sebagai bahasa dasar, tapi hal tersebut dirasa kurang tepat, mengingat BASIC dapat juga digunakan oleh para pemrogram ahli.
BASIC pertama kali dikembangkan pada tahun 1963 oleh John George Kemeny dan Thomas Eugene Kurtz yang berasal dari Dartmouth College, untuk mengizinkan akses terhadap komputer bagi para mahasiswa jurusan selain jurusan ilmu eksakta. Pada waktu itu, hampir semua komputer membutuhkan perangkat lunak, dan waktu itu belum ada perangkat lunak yang dijual secara bebas, sehingga hanya orang-orang tertentulah yang dapat menggunakan komputer, yakni para matematikawan dan ilmuwan, karena mereka dapat membangun perangkat lunak sendiri. Bahasa BASIC, setelah diciptakan menjadi menjamur dan banyak dimodifikasi. Bahasa BASIC menjadi bahasa yang paling populer digunakan pada komputer mikro pada akhir tahun 1970-an dan komputer rumahan pada tahun 1980-an. Dan hingga saat ini, menjadi bahasa yang dialeknya beberapa kali berevolusi.”

Untuk sejarah lebih lengkap, anda dapat melihat referensi dari link Wikipedia di atas.

Dan berikut merupakan contoh syntaks pemrograman BASIC

1. Private Sub Command1_Click()
2.     Dim a, b As Integer
3.     a = txt1.Text
4.     b = txt2.Text
5.     txt3.Text = a + b
6.     txt4.Text = a / b
7.     txt5.Text = a - b
8.     txt6.Text = a * b
9.     txt7.Text = a ^ b
10.  End Sub
11.  
12.  Private Sub Command2_Click()
13.     txt1.Text = ""
14.     txt2.Text = ""
15.     txt3.Text = ""
16.     txt4.Text = ""
17.     txt5.Text = ""
18.     txt6.Text = ""
19.     txt7.Text = ""
20.  End Sub
21.  
22.  Private Sub Command3_Click()
23.     End
24.  End Sub

B. Bahasa Visual Basic
Visual Basic merupakan pengembangan dari bahasa Basic yang sudah berorientasi pada object. Nah, berikut adalah penjelasan Visual Basic yang diambil dari situs Wikipedia (http://id.wikipedia.org/wiki/Visual_Basic)

“Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.
Beberapa bahasa skrip seperti Visual 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 luar tambahan.

Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.[1] Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java."

Untuk sejarah dan penjelasan lebih lanjut anda dapat mengunjungi situ Wikipedia di atas.
Dari Wikipedia di atas dapat kita lihat bahwa Visual Basic terakhir / sebelum .NET adalah VB 6, kemudian setelah itu berganti menjadi Visual Basic.NET.
Secara garis besar, Visual Basic merupakan bahasa Basic yang berorientasi pada object (Object Oriented Programming) meskipun tidak sepenuhnya karena ada beberapa karakteristik object yang tidak disupport oleh Visual Basic seperti Inheritance dan Polymorphism.
Seperti yang kita bahas di atas tadi, bahwa Visual Basic memiliki dukungan yang luas pada software development karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain. Meskipun banyak bug tetapi semua ini disempurnakan dalam Visual Basic.NET.


C. Bahasa Visual Basic.NET
Nah, ini merupakan pengembangan dari Visual Basic 6 (tahun 1998). Berikut merupakan penjelasan yang diambil dari Wikipedia (http://id.wikipedia.org/wiki/Visual_Basic_.NET)

“Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework.”

Setelah meluncurkan VB 6, maka genap 4 tahun kemudian yaitu pada tahun 2002, Microsoft meluncurkan VB.NET 1.0.

Nah, versi demi versi direlease dan pasti akan selalu diperbaiki dan disesuaikan dengan .NET Framework yang baru. Untuk detail release anda dapat melihat url dari Wikipedia yang kita sertakan di atas.

Berikut merupakan contoh penulisan Visual Basic.NET yang memang tidak jauh berbeda dari Visual Basic.

1. Dim m_item, m_price, tax, total As double
2. m_item = double.Parse(textBox1.Text)
3. m_price = double.Parse(textBox2.Text)
4. tax = 0.05
5. total = m_item * m_price * (1 + tax)
6. label5.Text = total.ToString()
7. MessageBox.Show("Well Done.")

Untuk editor, anda dapat menggunakan Microsoft Visual Studio, banyak sekali yang jual , anda pun dapat menggunakan Microsoft Visual Studio Express secara gratis. Dengan Microsoft Visual Studio ini kita dapat mengetikkan bahasa pemrograman dari Microsoft, sekaligus dapat membuat installer nya, seperti installshield wizard.

Cara Menyimpan Project di VB.NET

Cara Menyimpan Project di VB.NET

Kali ini tutorialnya sederhana cara bagaimana menyimpan file project kita yang sudah kita buat.

Buka VB.NET

New Project->Windows Form Application->beri nama example->OK

Untuk save project anda File->Save all atau langsung saja dengan Click tombol save all di bagian Toolbar

Langkah selanjutnya anda tinggal memilih dimana project anda disimpan lalu Click Save

aplikasi anda ada di folder project anda->bin->debung->aplikasianda.exe

Sekian tutorial saya,terima kasih :)

Membuat Aplikasi Kalkulator Paling Sederhana Menggunakan VB 6.0

MEMBUAT APLIKASI KALKULATOR PALING SEDERHANA MENGGUNAKAN VB 6.0

 

 buat seperti di atas ato terserah lah mau buat model kaya mna asal comond buttonya ada 15, text boxnya ada 3 dan 1 label..

di bawah ini codingnya..

Dim stt, stt2 As String

Private Sub Command1_Click()

If stt = "T" Then

Text1.Text = 7

Else

If stt2 = "T" Then

Text2.Text = 7

End If

End If

End Sub

Private Sub Command10_Click()

If stt = "T" Then

Text1.Text = 0

Else

If stt2 = "T" Then

Text2.Text = 0

End If

End If

End Sub

Private Sub Command11_Click()

Label1.Caption = "+"

End Sub

Private Sub Command12_Click()

Label1.Caption = "/"

End Sub

Private Sub Command13_Click()

Label1.Caption = "*"

End Sub

Private Sub Command14_Click()

Label1.Caption = "-"

End Sub

Private Sub Command15_Click()

If Label1.Caption = "+" Then

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Else

If Label1.Caption = "-" Then

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Else

If Label1.Caption = "*" Then

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Else

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End If

End If

End If

End Sub

Private Sub Command2_Click()

If stt = "T" Then

Text1.Text = 8

Else

If stt2 = "T" Then

Text2.Text = 8

End If

End If

End Sub

Private Sub Command3_Click()

If stt = "T" Then

Text1.Text = 9

Else

If stt2 = "T" Then

Text2.Text = 9

End If

End If

End Sub

Private Sub Command4_Click()

If stt = "T" Then

Text1.Text = 4

Else

If stt2 = "T" Then

Text2.Text = 4

End If

End If

End Sub

Private Sub Command5_Click()

If stt = "T" Then

Text1.Text = 5

Else

If stt2 = "T" Then

Text2.Text = 5

End If

End If

End Sub

Private Sub Command6_Click()

If stt = "T" Then

Text1.Text = 6

Else

If stt2 = "T" Then

Text2.Text = 6

End If

End If

End Sub

Private Sub Command7_Click()

If stt = "T" Then

Text1.Text = 1

Else

If stt2 = "T" Then

Text2.Text = 1

End If

End If

End Sub

Private Sub Command8_Click()

If stt = "T" Then

Text1.Text = 2

Else

If stt2 = "T" Then

Text2.Text = 2

End If

End If

End Sub

Private Sub Command9_Click()

If stt = "T" Then

Text1.Text = 3

Else

If stt2 = "T" Then

Text2.Text = 3

End If

End If

End Sub

Private Sub Text1_click()

stt = "T"

stt2 = "F"

End Sub

Private Sub Text2_Click()

stt = "F"

stt2 = "T"

End Sub

ini lah hasil jadinya...

  

 

 selamat mencoba..  :)  Kalo berhasil Kasi SS ya :v

Membuat Aplikasi Database di VB 6.0 Dengan Menggunakan ADODC Dan DATAGRID

MEMBUAT APLIKASI DATABASE DI VB 6.0 DENGAN MENGGUNAKAN ADODC & DATAGRID  

langkah - langkah untuk pembuatan aplikasi tersebut.

pertama buat gambar seperti ini:

 

Object-object yang di gunakan:

-Label

-TextBox

-CommandBotton

-DataGrid

-ADODC

Untuk pengaturan propertisnya bisa anda ikuti petunjuk di bawah ini:

Object	Propertis	Nama
Label1	Name Caption	Label1 Kode_jurusan
Label2	Name Caption	Label2 Nama_jurusan
Text1	Name Caption	Txt_kd_jur Kd_jur
Command1	Name Caption	Cmd_tambah &tambah
Command2	Name Caption	Cmd_ubah &ubah
Command3	Name Caption	Cmd_hapus &hapus
Command4	Name Caption	Cmd_keluar &keluar

untuk object ADODC berbeda dengan di atas, ikuti gambar berikut:

 

lalu klik build akan muncul seperti di bawah ini:

pada connection kita masukkan file database yang pernah kita buat sebelumnya, jika belum melihat artikel sebelumnya klik disini ,.

lalu pada provider kita pilih microsoft jet 3.51OLE DB Provider, lalu klik ok.

selanjutnya klik kanan pada area datagrid dan klik retrieve fields...

lalu masukkan codinganya:
Private Sub normal()

cmd_tambah.Caption = "&tambah"
cmd_ubah.Caption = "&ubah"
cmd_hapus.Caption = "&hapus"
cmd_keluar.Caption = "&keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True

End Sub
Private Sub bersih()

txt_kd_jur = ""
txt_nm_jur = ""
txt_kd_jur.SetFocus

End Sub


Private Sub cmd_hapus_Click()
If cmd_hapus.Caption = "&hapus" Then
Call bersih
cmd_hapus.Caption = "&oke"
cmd_tambah.Enabled = False
cmd_ubah.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
Adodc2.RecordSource = "select* from jurusan where kdjur ='" & Trim(txt_kd_jur) & "'"
   Adodc2.Refresh
   Adodc1.Recordset.Delete
  'Adodc1.Refresh
   DataGrid1.Refresh
   End If


End Sub

Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "&keluar" Then
Unload Me
Else
Call bersih
Call normal

End If
End Sub

Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "&tambah" Then
Call bersih
cmd_tambah.Caption = "&simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
   Adodc1.Recordset.AddNew
   Adodc1.Recordset("kdjur") = Trim(txt_kd_jur.Text)
   Adodc1.Recordset("nmjur") = Trim(txt_nm_jur.Text)
   Adodc1.Recordset.Update
   Adodc1.Refresh
   DataGrid1.Refresh
   Adodc1.Refresh
   DataGrid1.Refresh
End If

Call bersih
End Sub

Private Sub cmd_ubah_Click()
If cmd_ubah.Caption = "&ubah" Then
Call bersih
cmd_ubah.Caption = "&simpan"
cmd_tambah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
   Adodc2.RecordSource = "select* from jurusan where kode_jurusan ='" & Trim(txt_kdjur) & "'"
   'Adodc2.Refresh
  Adodc1.Recordset("nmjur") = Trim(txt_nm_jur)
  Adodc1.Recordset.Update
  Adodc1.Refresh
  Adodc1.Refresh
  DataGrid1.Refresh
  End If
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc1.RecordSource = "select * from jurusan"
Adodc1.Refresh
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist SecurityInfo=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc2.RecordSource = "Select *from Jurusan"
Adodc2.Refresh

End Sub

Private Sub Text1_Change()

End Sub

Private Sub txt_kd_jur_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(txt_kdjur.Text) & "'"
Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then
    If Command1.Caption = "&Simpan" Then
        MsgBox "Data sudah ada"
        Text1.SetFocus
Else
        Text2.Text = Adodc2.Recordset("Nama_Jurusan")
        Text2.SetFocus
    End If
Else
    If Command1.Caption = "&Simpan" Then
        Text2.SetFocus
    Else
        MsgBox "Data sudah ada"
        Text1.SetFocus
        End If
End If
End If

End Sub


selanjutnta kita run:

 

kita klik tambah akan muncul , tombol tambah jadi simpan, tombol keluar jadi batal, tombol ubah dan hapus menjdai tidak aktiv, dan kita input datanya kemudian klik simpan

kita klik ubah tombol ubah berubah jadi simpan , tombol keluar jadi batal dan tombol tambah dan hapus menjadi tidak aktiv

kita ubah datanya 

 kita klik hapus maka yang terjadi tombol hapus berubah jadi oke tombol keluar menjadi batal n tombol tambah dan ubah menjadi tidak aktif.

lulu klik kode yang akan kita hapus 

lalu klik ok, maka akan terhapus kode jurusan dan nama jurusannya,,

Selanjutnya kita klik keluar , maka akan keluar dari aplikasi dan kembali ke windows agan.

Okeehh..
selamat mencoba… :)