Membuat Project Baru

Project merupakan kerangka dasar aplikasi yang sangat menentukan jenis aplikasi yang akan dibuat. 

Untuk memulai pembuatan project, ikuti langkah-langkah berikut:

1. Jalankan Visual Basic 2005 Express Edition.

2. Klik menu File > New Project, atau melalui ikon New Project, atau melalui 
    kombinasi tombol Ctrl+N.

3. Pada kotak dialog New Project, pilih template Windows Application, 
    kemudian klik OK.

 

• Windows Application. Untuk menciptakan aplikasi-aplikasi Windows yang 
   berjalan secara lokal di komputer user.

• Class Library. Untuk menciptakan kelas-kelas atau komponen komponen 
   reusable yang dapat di-share dengan project lainnya.

• Console Application. Untuk membuat aplikasi-aplikasi command-line.

• My Movie Collection Starter Kit. Untuk menciptakan aplikasi pre-built My 
   Movie Collection, dan bisa di-customize sesuai kebutuhan.

• Screen Saver Starter Kit. Untuk menciptakan aplikasi pre-built 
  Screen Saver, dan bisa di customize sesuai kebutuhan.

 

Dalam upaya memudahkan penggunaan IDE, maka diperlukan pemahaman yang baik mengenai IDE Visual Basic 2005.

Membuat Aplikasi Windows

1. Buat project baru, atau lanjutkan project pertama Anda sebelumnya.

2. Tambahkan sebuah kontrol Label ke form, dengan cara mengklik ganda 
    Label di Toolbox, atau men-drag Label ke form. 
    Kemudian atur propertinya seperti berikut:

    Objek   Properti           Nilai

    Label    Name              lblText

                 Text (Kosongkan isinya)

3. Tambahkan event Load pada form dengan salah satu cara berikut:

a. Klik ganda area form kosong.

b. Klik area form kosong, kemudian tekan F7.

4. Lengkapi kode event handler-nya seperti berikut:

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

' Men-set title (judul) window

Me.Text = "Latihan"

' Men-set teks kontrol label

Me.lblTeks.Text = "Selamat Belajar Teman-Teman FT-UM"

End Sub

End Class

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui 
    ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

6. Simpan aplikasi Anda.

Membuat Aplikasi Console

1. Buat project baru, pilih template Console Application, kemudian klik OK.

2. Lengkapi kode programnya seperti berikut:

Module Module1

Sub Main()' Mencetak teks ke console

      Console.WriteLine("Apa Kabar Teman-Teman FT-UM")

            Console.WriteLine("Selamat Belajar Pemrograman Visual")

            Console.Read()

End Sub

End Module

3. Tekan F5 untuk menjalankan aplikasi.

4. Simpan aplikasi Anda.

Pengenalan Visual Basic .Net

o   Platform .NET Framework

      Microsoft.NET yang awalnya disebut Next Generation Windows Services (NGWS) adalah suatu platform untuk membangun dan menjalankan generasi penerus aplikasi-aplikasi terdistribusi. Microsoft .NET  merupakan framework (kerangka) pengembangan yang menyediakan antarmuka pemrograman baru untuk layanan Windows dan API (Application Programming Interface). Microsoft .NET merupakan strategi Microsoft untuk menghubungkan sistem, informasi, dan alat (device), sehingga orang dapat berkomunikasi serta berkolaborasi dengan lebih efektif. Teknologi .NET terintegrasi penuh melalui produk-produk Microsoft, dan menyediakan kemampuan untuk mengembangkan solusi dengan menggunakan Web service. Platform Microsoft .NET terdiri dari lima komponen utama yang tersusun dalam tiga lapisan (layer). Lapisan paling bawah adalah sistem operasi; lapisan kedua terdiri dari tiga komponen; lapisan teratas adalah Visual Studio .NET.

Membuat Program Memakai HScrollBar

Objek HscrollBar merupakan objek berbentuk Batang horizontal,Anda dapat memasukkan angka dengan men-drag batang atau mengklik panah ke kanan. Program yang akan kita buat untuk menghitung luas segi empat yang diarsir. Anda hanya dapat memilih panjang luar, lebar dalam, panjang dalam, dan lebar luar dengan memakai scrollbar. Untuk lebih jelasnya ikuti pembuatan programnya di bawah ini.

Buat tampilan form sebagai berikut

 

Membuat Program Memakai ComboBox

Buat tampilan form sebagai berikut/terserah kamu 

Pengaturan properti untuk FmPrgCmbB

No  Objek           Properti      Nilai

1.      FmPrgCmbB  Text             Form Menghitung Luas Segi Empat

                                          dengan Combo

2.      Label1            Text             Jenis Ukuran

3.      Label1            Font style     Bold

4.      Label2            Text             Harga Konversi

5.      Label2            Font style     Bold

6.      Label3            Text             Panjang

7.      Label3            Font style     Bold

8.      Label4            Text             Lebar

9.      Label4            Font style     Bold

10.  Label5            Text             Luas

11.  Label5            Font style     Bold

12.  ComboBox1   Name          CmbJnsUkr

13.  TextBox1        Name          TextBox1

14.  TextBox2        Name          TextBox2

15.  TextBox3        Name          TextBox3

16.  TextBox4        Name          TextBox4

17.  Button1           Text             &Mulai

18.  Button1           Name          Bmulai

19.  Button1           Font style     Bold

20.  Button2           Text             &Selesai

21.  Button2           Name          Bselesai

22.  Button2           Font style     Bold

Sebelum kita memberi perintah, atur dahulu properti Item pada objek CmbJnsUkr, caranya sebagai berikut:

·         Klik objek CmbJnsUkr

Delete Data

Untuk menghapus data dipergunakan sintaks:

DELETE FROM [NAMA_TABLE] [KONDISI]

Contoh:

DELETE FROM TEST WHERE NAMA='test';

Aplikasi berikut ini akan menjalankan fungsi delete record dari tabel.

Desain formnya sebagai berikut :

1. Langkah Pertama yang harus dilakukan adalah pengaturan properties dari masing-masing kontrol. Pengaturan yang berhubungan langsung dengan program selanjutnya adalah name dari masing-masing textbox, karena name dari textbox inilah yang nantinya akan diprogram. Pada aplikasi ini name dari masing-masing texbox adalah :

a. Textkode = untuk menampung data kode

b. Textnama = untuk menampung data nama

c. textHarga = untuk menampung data harga.

2. Selanjutnya yang harus dilakukan adalah memanggil namespace agar bisa mengakses perintah-perintah sqlclient. Code adalah :

Imports System.Data.SqlClient

Tip dan Trik DataBase dalam VB.NET 2005

Buatlah form sebagai berikut :

 

Skenario :

1. pada saat form di panggil, tampilkan kode_barang di listbox1

2. pada saat form di panggil, tampilkan kode_barang dan Nama_Barang di combobox1

3. pada saat kode barang di listbox1 diklik, maka tampilkan :

    Kode_barang di textbox1

    Nama_Barang di textbox2

    Harga_beli di textbox3

    Harga_jual di textbox4

    Jumlah_Barang di textbox5

    Satuan di textbox6

4. pada saat data di combobox1 diklik, maka tampilkan :

kode_barang di textbox1

Nama_Barang di textbox2

Harga_beli di textbox3

Harga_jual di textbox4

Jumlah_Barang di textbox5

Satuan di textbox6

5. pada saat textbox7 diketik nama_barang, maka jika data ditemukan tampilkan data 
    tersebut ke dalam grid, jika data tidak ditemukan tampilkan pesan bahwa 
    data tidak ada

6. pada saat button1 di klik, maka tampilkan seluruh data barang ke dalam grid

7. pada saat button1 di klik, maka tampilkan jumlah seluruh record yang ada dalam grid

8. pada saat button1 di klik, maka tampilkan seluruh total harga_beli yang ada dalam grid

9. pikirkan ide lain untuk melakukan manipulasi (mencari menampilkan) database

Jawaban :

Fungsi Perulangan dan Pencabangan

Contoh program Kelas dan Jurusan

 

tool /objek yg digunakan :

   1. Textbox 3 buah

   2. Button 2 buah

Coding pada :

Button 1
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox1.Focus()
End Sub

Button2

me.close()

End
End Sub

Klik 2x pada Textbox1 pada bagian pojok kanan pilih combo declaration sehingga bernilai " Keypress "
If e.KeyChar = Chr(13) Then ' jika enter di pilih/ditekan'
    If TextBox1.Text = "" Then
        MsgBox("Nama harus diisi")
        TextBox1.Focus()
        Exit Sub
    Else
       TextBox2.Focus()
    End If
End If
End Sub

Sama halnya dengan Textbox1, ikuti langkah untuk textbox2 :
If e.KeyChar = Chr(13) Then  ' jika enter di pilih/ditekan'
     If TextBox2.Text = "" Then
         MsgBox("Kelas harus diisi")
         TextBox2.Focus()
     Exit Sub
Else

    If TextBox2.Text <> "MI" And TextBox2.Text <> "MA" And  TextBox2.Text <> "SK"  

    And TextBox2.Text <> "AK" Then

       MsgBox("Kelas tidak terdaftar")
       TextBox2.Focus()

    Else

    If TextBox2.Text = "MI" Then

         TextBox3.Text = "Manajemen Informatika"

    If TextBox2.Text = "MA" Then

         TextBox3.Text ="Manajemen Adminsitrasi"

    If TextBox2.Text = "SK" Then

         TextBox3.Text = "Sekretari"

    If TextBox2.Text = "AK" Then

         TextBox3.Text = "Akuntansi"

         Button1.Focus()
         End If
       End If
   End If
End Sub
End Class

Slamat Mencoba,...mau unduh silahkan

Fungsi Perulangan dan Pencabangan

Buat Form sebagai berikut :

 

Nama-nama objek yang digunakan :

1. Listbox1
2. Textbox1
3. Button1
4. Button2
5. Combobox1
6. Textboxb2

trus klik 2x pada button 1 lalu ketikan coding berikut

ListBox1.Items.Clear()

Dim i As Byte
     For i = 1 To 5
            ListBox1.Items.Add(i)
     Next
End Sub

Lalu klik 2x pada button 2 masukan coding ini
ComboBox1.Items.Clear()
 Dim a As Byte
 Do While a < 5
     a = a + 1
     ComboBox1.Items.Add(a)
   Loop
End Sub

Kemudian klik 2x pada Listbox1 disini menggunakan " IF Else ", ketikan, codingnya
If ListBox1.Text = "1" Then
   TextBox1.Text = "Satu"
          ElseIf ListBox1.Text = "2" Then
                TextBox1.Text = "dua"
          ElseIf ListBox1.Text = "3" Then
                TextBox1.Text = "tiga"

          ElseIf ListBox1.Text = "4" Then

                TextBox1.Text = "empat"
          ElseIf ListBox1.Text = "5" Then
                TextBox1.Text = "lima"
    End If
End Sub

Pada combobox codingnya menggunakan "Select Case":
Select Case ComboBox1.Text
   Case 1
         TextBox2.Text = 1000
   Case 2
        TextBox2.Text = 2000
   Case 3
        TextBox2.Text = 3000
   Case 4
        TextBox2.Text = 4000
   Case 5
        TextBox2.Text = 5000
   End Select
End Sub
End Class

selamat berkreativitas,...klo mau unduh monggo....

VB.NET 2005 dan Cara Koneksi DataBase

Koneksi VB.Net 2005 dengan data base Access 2003
Untuk membuat koneksi database VB.Net ke Access 2003 kurang lebih kaya gini :
buka jendela coding dan tulis coding berikut :

Imports System.Data.OleDb
Public Class TampilGrid
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Sub Koneksi()
     str = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
     Conn = New OleDbConnection(str)
              If Conn.State = ConnectionState.Closed Then Conn.Open()
     End Sub