Contoh Form Login

Public Class LoginForm1

' TODO: Insert code to perform custom authentication using the provided username and password
' (See http://go.microsoft.com/fwlink/?LinkId=35339).
' The custom principal can then be attached to the current thread's principal as follows:
' My.User.CurrentPrincipal = CustomPrincipal
' where CustomPrincipal is the IPrincipal implementation used to perform authentication.
' Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object
' such as the username, display name, etc.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "adit" And PasswordTextBox.Text = "keren" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("Login gagal,silahkan ulangi lagi")
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub


End Class

Contoh Program yang Ane Buat

Public Class DATA_CUSTOMER

Sub Kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Bttambah.Text = "&Input"
BtUbah.Text = "&Edit"
Bthapus.Text = "&Delete"
btkeluar.Text = "&Exit"
Bttambah.Enabled = True
BtUbah.Enabled = True
Bthapus.Enabled = True
TextBox1.Enabled = True
End Sub

Sub cekrecord()
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from data_customer where kd_cust='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttambah.Click
Call simpankelompok()
'memenggil metod (simpankelompok)
End Sub
Sub simpankelompok()
If Bttambah.Text = "&Input" Then
TextBox1.Text = ""
Bttambah.Text = "Save"
BtUbah.Enabled = False
Bthapus.Enabled = False
btkeluar.Text = "&Cancel"
'TextBox1.Enabled = False
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub


Call cekrecord()
Try
If hasilcek = "False" Then 'jika data true langsung ke else
Call mykoneksi()

Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Insert Into data_customer (kd_cust,Nama_cust,Alamat,Contact)values( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
Tampil.ExecuteNonQuery()

Call Kosong()

Else
MsgBox("Data sudah ada bro, silahkan cek data yang di input", MsgBoxStyle.Critical, "Input data")
TextBox1.Focus()
End If

Catch ex As Exception
MsgBox(ex.ToString())

End Try

End If
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
If btkeluar.Text = "&Exit" Then
Me.Close()
Else
Call Kosong()
Call netral()
End If
End Sub
Private Sub BtUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUbah.Click
Call Btnubahkelompok()
End Sub
Sub Btnubahkelompok()
If BtUbah.Text = "&Edit" Then
TextBox1.Text = ""
BtUbah.Text = "Save"
Bttambah.Enabled = False 'enabled= aktif/tidak aktif
Bthapus.Enabled = False
btkeluar.Text = "&Cancel"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub 'untuk mengeck data ada/tidak lalu keluar, dan tidak akan dijalankan
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
Try
Call mykoneksi() 'untuk mengecek data kdjur ada apa tidak

Tampil.Connection = DataAdit
tampil2.Connection = DataAdit
tampil3.Connection = DataAdit
Tampil.CommandType = CommandType.Text
tampil2.CommandType = CommandType.Text
tampil3.CommandType = CommandType.Text
Tampil.CommandText = "Update data_customer Set Nama_cust='" & Trim(TextBox2.Text) & "'where kd_cust ='" & Trim(TextBox1.Text) & "'"
tampil2.CommandText = "Update data_customer Set Alamat='" & Trim(TextBox3.Text) & "'where kd_cust ='" & Trim(TextBox1.Text) & "'"
tampil3.CommandText = "Update data_customer Set Contact='" & Trim(TextBox4.Text) & "'where kd_cust ='" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()
tampil2.ExecuteNonQuery()
tampil3.ExecuteNonQuery()

Call Kosong()
TextBox1.Focus()

Catch ex As Exception
MsgBox(ex.ToString())

End Try

End If
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
Call BtnHapuskelompok()
End Sub
Sub BtnHapuskelompok()
If Bthapus.Text = "&Delete" Then
TextBox1.Text = ""
Bthapus.Text = "Ok"
Bttambah.Enabled = False
BtUbah.Enabled = False
btkeluar.Text = "&Cancel"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
Try
Call mykoneksi()

Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text

Tampil.CommandText = "Delete from data_customer where kd_cust='" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()

Call Kosong()
TextBox1.Focus()

Catch ex As Exception
MsgBox(ex.ToString())

End Try

End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Bttambah.Text = "Save" Then
Call cekrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode sudah ada boss, silahkan ganti kode lain boss", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Infromasi")
TextBox1.Focus()
End If
Else
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from data_customer where kd_cust='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("kd_cust")) Then
TextBox1.Focus()
Else
TextBox2.Text = Tampilkan("Nama_cust")
TextBox2.Focus()
TextBox3.Text = Tampilkan("Alamat")
TextBox3.Focus()
TextBox4.Text = Tampilkan("Contact")
TextBox4.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Contoh Koneksi Yang ane buat

Imports System.Data
Imports System.Data.Sql

Module Module1
Public DataAdit As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public tampil2 As New OleDb.OleDbCommand
Public tampil3 As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public adapter As New OleDb.OleDbDataAdapter
Public ds As New DataSet
Public Tabel, hasilcek As String
Public record As New BindingSource
Public adit As Integer
Public DmlSql As New OleDb.OleDbCommand

Public Sub mykoneksi()
Try
DataAdit.Close()
'server
'DataAdit.ConnectionString = "Provider=SQLOLED.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=sim_akuntansi;Data Source=200.200.10.150"

'lokal
DataAdit.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=customer;Data Source=."

DataAdit.Open()

MsgBox("Koneksi Berhasil")
Catch ex As Exception
MsgBox("Koneksi ERROR")

End Try


End Sub

End Module

Contoh source program vb.net

Public Class Form1

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call adit()
Call abe()

End Sub
Sub adit()
Dim I As Integer
Dim B As Integer
ListBox1.Items.Clear()
For I = Val(TextBox1.Text) To Val(TextBox2.Text)
If I Mod 5 = 0 Then
ListBox1.Items.Add("&" & I)
B = B + I

End If
Next
TextBox3.Text = B
End Sub

Sub abe()
Dim I As Integer
Dim A As Integer
ListBox2.Items.Clear()
For I = Val(TextBox1.Text) To Val(TextBox2.Text)
If I Mod 1 = 0 And I Mod 5 > 0 Then
ListBox2.Items.Add(I & "%")
A = A + I
End If

Next
TextBox4.Text = A
End Sub




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

End Sub
End Class

Contoh koneksi untuk ke Database 3

Public Class Form2


Sub Kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Bttambah.Text = "&Tambah"
BtUbah.Text = "&Ubah"
Bthapus.Text = "&Hapus"
btkeluar.Text = "&Keluar"
Bttambah.Enabled = True
BtUbah.Enabled = True
Bthapus.Enabled = True
TextBox1.Enabled = True
End Sub

Sub cekrecord()
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from Jurusan where KdJur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttambah.Click
Call simpankelompok()
'memenggil metod (simpankelompok)
End Sub
Sub simpankelompok()
If Bttambah.Text = "&Tambah" Then
TextBox1.Text = ""
Bttambah.Text = "Simpan"
BtUbah.Enabled = False
Bthapus.Enabled = False
btkeluar.Text = "&Batal"
'TextBox1.Enabled = False
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Call cekrecord()
Try
If hasilcek = "False" Then 'jika data true langsung ke else
Call mykoneksi()

Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Insert Into Jurusan (KdJur,NmJur)values( '" & TextBox1.Text & "','" & TextBox2.Text & "')"
Tampil.ExecuteNonQuery()

Call Kosong()

Else
MsgBox("Data sudah ada boss, silahkan cek data yang di input", MsgBoxStyle.Critical, "Input data")
TextBox1.Focus()
End If

Catch ex As Exception
MsgBox(ex.ToString())

End Try

End If
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
If btkeluar.Text = "&Keluar" Then
Me.Close()
Else
Call Kosong()
Call netral()
End If
End Sub
Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUbah.Click
Call Btnubahkelompok()
End Sub
Sub Btnubahkelompok()
If BtUbah.Text = "&Ubah" Then
TextBox1.Text = ""
BtUbah.Text = "Simpan"
Bttambah.Enabled = False 'enabled= aktif/tidak aktif
Bthapus.Enabled = False
btkeluar.Text = "&Batal"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub 'untuk mengeck data ada/tidak lalu keluar, dan tidak akan dijalankan
If TextBox2.Text = "" Then Exit Sub
Try
Call mykoneksi() 'untuk mengecek data kdjur ada apa tidak

Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Update Jurusan Set NmJur ='" & Trim(TextBox2.Text) & "' where KdJur ='" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()


Call Kosong()
TextBox1.Focus()

Catch ex As Exception
MsgBox(ex.ToString())

End Try

End If
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
Call BtnHapuskelompok()
End Sub
Sub BtnHapuskelompok()
If Bthapus.Text = "&Hapus" Then
TextBox1.Text = ""
Bthapus.Text = "Ok"
Bttambah.Enabled = False
BtUbah.Enabled = False
btkeluar.Text = "&Batal"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call mykoneksi()

Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text

Tampil.CommandText = "Delete from Jurusan where KdJur='" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()

Call Kosong()
TextBox1.Focus()

Catch ex As Exception
MsgBox(ex.ToString())

End Try

End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Bttambah.Text = "Simpan" Then
Call cekrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode sudah ada boss, silahkan ganti kode lain boss", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Infromasi")
TextBox1.Focus()
End If
Else
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("kdjur")) Then
TextBox1.Focus()
Else
TextBox2.Text = Tampilkan("Nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Contoh koneksi untuk ke Database 2

Public Class Form1

Sub tambahkelompokadit()
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select max(Nourut) as jum from Dataphoto"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("jum")) Then

Else
adit = Tampilkan("jum")

End If

End While
Else
adit = 0
End If
'TextBox1.Text=adit+1

End Sub



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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Call mykoneksi()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call jurusan()

End Sub
Sub jurusan()
Call mykoneksi()
Tampil.Connection = DataAdit
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
' '" & Trim(Textboxt.Text)& "' ==>untuk karakter
' " & Val(Textboxt.Text)& " ==>untuk numeric
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
'untuk menampilkan apakah recordnya ada atau tidak, jika true ada recordnya
While Tampilkan.Read()
If IsDBNull(Tampilkan("kdjur")) Then
TextBox2.Text = "-"
'untuk mengecek apakah di field kdjur apakah ada datanya atau tidak
Else
TextBox2.Text = Tampilkan("nmjur")
'cara untuk menampilkan data sebuah field
End If
End While
End If
End Sub

End Class

Contoh source program untuk KONEKSI ke Database

Imports System.Data
Imports System.Data.Sql

Module Module1
Public DataAdit As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public adapter As New OleDb.OleDbDataAdapter
Public ds As New DataSet
Public Tabel, hasilcek As String
Public record As New BindingSource
Public adit As Integer
Public DmlSql As New OleDb.OleDbCommand

Public Sub mykoneksi()
Try
DataAdit.Close()
'server
'DataAdit.ConnectionString = "Provider=SQLOLED.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=sim_akuntansi;Data Source=200.200.10.150"

'lokal
DataAdit.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Klinik_Adit;Data Source=."

DataAdit.Open()


Catch ex As Exception
MsgBox("Koneksi ERROR")

End Try
MsgBox("Koneksi Berhasil")

End Sub

End Module

Contoh Program Visual Studio 2008

Public Class latihan3Dwi

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
'Menmggunakan fungsi Keypress
If e.KeyChar = Chr(13) Then
'enter kode ascci nya chr 13
TextBox2.Focus()
'textBox2.focus() --- utk memindahkan kursor ke berikutnya
End If

End Sub


Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
'enter kode ascci nya chr 13
TextBox3.Focus()
'textBox2.focus() --- utk memindahkan kursor ke berikutnya
End If
End Sub


Sub gabung()
' gabung nama methodenya ' membuat sebuah methode yang berisi program didalammnya
ListBox1.Items.Add(Trim(TextBox1.Text) & " " & Trim(TextBox2.Text) & " " & Trim(TextBox3.Text))
'Perintah ini untuk menggabungkan,Fungsi trim berfumgsi utk menghilangkan spasi
End Sub


Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
'enter kode ascci nya chr 13
Call gabung()
End If
'call gabung utk memanggil kalau kita enter di box 3
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call gabung()
End Sub
End Class

Contoh Program Vb 2008

Public Class Form3
'membuat Variabel array

Dim listtxt(3) As String
Dim listitem As ListViewItem


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'memasukkan nilai ke variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

'untuk memasukkan ke listview dari variabel array
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)

End Sub


'setting kolom listview
Sub setlistview()

ListView1.View = View.Details

'untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)

End Sub


Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub



Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'mengambil nilai dari listview
TextBox4.Text = e.Item.Text

End Sub


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

Contoh Program Vb.net dengan menggunakan modul

Public Class Form2

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
h = TextBox1.Text
b = TextBox2.Text
Call hitung()
TextBox3.Text = hasil

End Sub
End Class





Module Modul3

'variabel public
Public nama As String, hasil, h, b As Integer
Sub tampilnama()
nama = " Adit Bangkit Prastya "
End Sub

Sub hitung()
hasil = Val(h) * Val(b)
End Sub

End Module

Contoh Program Vb.net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call gfor()
Call dowhile()
End Sub
sub gfor()
Dim I As Integer
ListBox1.Items.Clear()
For I = Val(TextBox1.Text) To Val(TextBox2.Text)
If I Mod 3 = 0 And I Mod 7 > 0 Then
ListBox1.Items.Add(I)
End If

Next

End Sub
Sub dowhile()
Dim A As Integer
ListBox2.Items.Clear()
A = Val(TextBox1.Text)
Do While A <= Val(TextBox2.Text)
If Microsoft.VisualBasic.Right(A, 1) = 3 Then
ListBox2.Items.Add(A)
End If
A = A + 1
Loop

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub
End Class

PENGULANGAN

Pengulangan adalah suatu instruksi dalam pemrograman agar sekelompok perintah dilaksanakan dengan berulang sampai dengan suatu kondisi terpenuhi.

Berikut contoh pengulangan dalan visual studio 2008

1. For
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim I As Integer
ListBox1.Items.Clear()
For I = 1 To 10
ListBox1.Items.Add(I)
Next
End Sub

2. Do While
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim I As Integer
ListBox1.Items.Clear()
Do While I <= 10
ListBox1.Items.Add(I)
I = I + 1
Loop
End Sub

3. For Next
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim I As Integer
ListBox1.Items.Clear()
For I = Val(TextBox2.Text) To Val(TextBox3.Text)
ListBox1.Items.Add(I)
Next
End Sub

4. Do While Next
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim I As Integer
ListBox1.Items.Clear()
I = Val(TextBox2.Text)
Do While I <= Val(TextBox3.Text)
ListBox1.Items.Add(I)
I = I + 1
Loop
End Sub

5. For Ganjil & Genap
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim I As Integer
ListBox1.Items.Clear()
For I = Val(TextBox2.Text) To Val(TextBox3.Text)
If I Mod 2 = 0 Then
ListBox1.Items.Add("Bil Genap " & I)
Else
ListBox1.Items.Add("Bil Ganjil " & I)
End If
Next
End Sub


6.Do While Ganjil & Genap
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim I As Integer
ListBox1.Items.Clear()
Do I = Val(TextBox1.Text)to Val(TextBox2.Text)
Do I Mod 2 = 0 while
ListBox1.Items.Add("Bil genap " & I)
while
ListBox1.Items.Add("Bil ganjil " & I)
Loop

End Sub


7. For 3,-6,9,-12, 15
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim I As Integer
ListBox1.Items.Clear()
For I = Val(TextBox2.Text) To Val(TextBox3.Text)
If I Mod 3 = 0 And I Mod 2 = 0 Then
ListBox1.Items.Add(I * -1)
Else
If I Mod 3 = 0 Then
ListBox1.Items.Add(I)
End If
End If
Next
End Sub

8. Do While 3,-6,9,-12, 15
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim I As Integer
ListBox1.Items.Clear()
I = Val(TextBox2.Text)
Do While I <= Val(TextBox3.Text)
If I Mod 3 = 0 And I Mod 2 = 0 Then
ListBox1.Items.Add(I * -1)
Else
If I Mod 3 = 0 Then
ListBox1.Items.Add(I)
End If
End If
I = I + 1
Loop
End Sub

Kondisi dan Pengulangan ( Looping )

Dalam microsoft studio 2008 ada program untuk suatu kondisi dan juga juga ada program untuk suatu pengulangan (looping).


Kondisi

Sintax :

If then
A

B

End if

Ket :

• Jika kondisi benar maka akan menjalankan A, jika salah maka akan menjalankan B


Pengulangan (looping)

• For - Next

For i=a to n

-
-

Next

Ket :

Looping batas a sampai n , a harus type data integer.


• Do While

Do while

-
-

Loop

Ket :

Jika kondisi benar maka akan akan looping, kalau salah maka akan berhenti.


Variabel dilihat dari fungsi dan penggunaannya, di bagi 3 :
1. Variabel publik adalah variabel yang bisa dgunakan atau bisa di baca dalam 1 project ( semua form )
co : Public A As Integer pembuatannya di modul


2. Variabel general adalah variabel yang bisa digunakan hanya dalam 1 form saja, tetapi bs digunakan dalam semua class.
co : DIM kelas As Stringpembuatannya di class form/dipaling atas


3. Variabel lokal adalah variabel yang bisa digunakan dalam class-nya sendiri/ dalam 1 method saja.
co: DIM NPM As String

Ket :

Jika kita membuat variabel lokal, tetapi tidak kita gunakan, maka variabel itu akan menjadi sebuah kesalahan



Contoh instruksi Pengulangan (looping) yang ada di visual studio 2008 :

Dim I As Integer
ListBox1.Items.Clear()
(Untuk membersihkan)
For I = 1 To 10
(Untuk looping)
ListBox1.Items.Add(I)
(Untuk menambahkan)
Next

Ket :

 Akan menjalankan looping sesuai programmer, sudah mematok loopingnya 1 sampai 10

 Program akan mengerjakan setelah kita aksi


Dim I As Integer
ListBox1.Items.Clear()
For I = Val(TextBox1.Text) To Val(TextBox2.Text)
ListBox1.Items.Add(I)
Next

Ket :

 Akan menjalankan looping sesuai kemauan si user, setelah menginputkan angkanya

 Val : Untuk mengubah dr type teks/String ke numeric

Pengenalan Visual Studio 2008

Pendahuluan

Microsoft Visual Studio.Net 2008 adalah sebuah aplikasi yang digunakan sebagai alat bantu didalam membangun suatu program aplikasi yang berbasis komputer. Visual Studio.Net 2008 merupakan generasi yang terbaru yang dikeluarkan Microsoft dimana sebelumnya ada Visual Studio.Net 2003 & Visual Studio.Net 2005. Visual Studio.Net 2008 menggunakan .Net Framework 3.5.

Fitur Baru Visual Studio.Net 2008

Berikut ini akan coba dijelaskan mengenai vitur – vitur baru yang ada pada Visual Studio.Net 2008

1.    Dukungan Terhadap Linq

Linq merupakan suatu fitur baru yang dikeluarkan oleh microsoft khususnya pada bahasa pemrograman C#. Linq sebenarnya adalah sekumpulan operator – operator query standard yang memampukan kita untuk bekerja dengan data yang ada dalam database. Teknologi yang digunakan oleh Linq didalam pemanipulasian data adalah menggunakan teknologi ORM (Object Relational Mapping) bukan teknologi konvensional yaitu RDBMS. Konsep dari teknologi ORM adalah menjadikan semua tabel yang terlibat dalam suatu aplikasi menjadi sebuah object dimana properti – properti dari object tersebut didapat dari kolom – kolom yang dimiliki oleh suatu tabel. Untuk lebih jelasnya dapat dilihat pada gambar dibawah ini :

Keuntungan dari Linq ini adalah kita dapat melakukan pengecekan query pada saat kompilasi program dilakukan dan juga kemampuan untuk mendebug query langkah per langkah.

2.    Dukungan Terhadap Expression Blend

Expression Blend adalah aplikasi yang digunakan untuk mengenerate XAML untuk aplikasi silverlight. Kita dapat menginstall Expression Blend sebagai plug-in didalam Visual Studio.Net 2008. dengan menjadikan Expression Blend sebagai plugin akan membantu kita dalam design website dan pemakaian javascript.

3.    Windows Presentation Foundation

WPF banyak menyediakan fungsi grafis. Visual Studio.Net 2008 banyak memiliki library Windows Presentation Foundation dimana dengan fitur ini maka kita akan sangat terbantu didalam membangun aplikasi grafis 2 dimensi (2D) dan 3 dimensi (3D).

4.    Dukungan Multi Framework

Visual Studio.Net 2008 mendukung banyak framework. Dalam artian dengan menggunakan Visual Studio.Net 2008 kita dapat melakukan kompilasi untuk framework 2.0, 3.0 dan 3.5 bahkan framework 1.1.

5.    Dukungan Terhadap Ajax Dalam ASP.NET

Pada seri sebelumnya, untuk menggunakan ajax kita harus menginstall terlebih dahulu secara terpisah tidak built-in didalam visual studio.net nya. Namun dengan Visual Studio.Net 2008, library ajax akan secara otomatis terinstall ketika kita menginstall visual studio.net 2008.

6.    Dukungan Terhadap Debugging untuk Javascript

Sejak munculnya javascript didalam pembangunan sebuah website, pada developer mengalami kebingungan didalam mencari kesalahan yang ada didalam javascript. Namun didalam Visual Studio.Net 2008 kita dapat melakukan debugging terhadap kesalahan – kesalahan yang mungkin terjadi didalam javascript.

7.    Dukungan Terhadap Nested Masterpage

Sebenarnya Nested Masterpage sudah ada pada Visual Studio.Net 2005 namun ada permasalahan didalam Visual Studio.Net 2005 dimana Nested Masterpage tidak dapat diedit dalam mode designer atau dalam kondisi WYSIWYG. Namun dalam Visual Studio.Net 2008, pengeditan nested masterpage dapat dilakukan.

8.    Dukungan Terhadap LINQ Intellisense dan Javascript Intellisense Pada Aplikasi Silverlight.

Javascript Intellisense memungkinkan para developer tidak perlu lagi untuk mengingat – ingat syntax ataupun fungsi – fungsi yang ada didalam javascript karena Visual Studio.Net 2008 akan menampilkannya bagi kita seperti yang terlihat pada gambar dibawah ini :

Dengan adanya fitur ini maka pembuatan script client menggunakan javascript akan lebih mudah termasuk dalam aplikasi AJAX dan Silverlight.

9.    Pengorganisasian Penggunaan Keyword Using dan Import

Dalam Visual Studio.Net 2008 pengorganisasian keyword using dan import menjadi lebih efisien dikarenakan Visual Studio.Net 2008 akan secara otomatis menghapus namespace yang tidak digunakan. Cara yang dilakukan adalah dengan select seluruh namespace, klik kanan dan pilih Remove Unused Usings. Hal ini dapat diperlihatkan pada gambar dibawah ini :

10.     Intellisense Filtering

Dalam Versi Visual Studio.Net 2008, misalkan Visual Studio.Net 2005, ketika kita mengetikkan suatu huruf atau karakter lainnya kedalam kotak intellisense maka semua item yang berhubungan dengan huruf atau karakter tersebut akan dimunculkan. Sebagai contoh, ketika kita menuliskan huruf ’a’, maka seluruh item yang memiliki huruf a baik didepan, tengah atau belakang akan dimunculkan. Namun dalam Visual Studio.Net 2008 semua item yang diawali dengan huruf ’a’ saja yang akan dimunculkan.

11.     Posisi Dari Kotak Intellisense

Pada Versi sebelumnya ketika kita mengetikkan suatu perintah dan diakhiri dengan tanda titik (’.’) maka kotak Intellisense akan muncul. Namun terkadang kemunculan kotak Intellisense ini mengganggu kita, misalkan fugsi atau perintah yang ada dibawah perintah atau fungsi yang memunculkan kotak Intellisense tertutupi sehingga kita tidak dapat mengetahui fungsi atau perintah tersebut. Namun dalam Visual Studio.Net 2008 hal ini dapat diatas dengan menekan tombol Ctrl. Dengan menekan tombol Ctrl maka kita membuat kotak tersebut jadi transparan. Dengan transparannya kotak intellisense ini maka perintah atau fungsi yang tertutupi tadi jadi kelihatan lagi.

12.     Split View Pada Visual Studio.Net 2008

Pada Versi sebelumnya, tampilan Visual Studio.Net juga dapat dibagi atau displit. Namun split yang terjadi hanya secara horizontal. Namun Pada Versi Visual Studio.Net 2008 kita dapat membagi tampilan window secara vertical. Fitur ini memungkinkan developer untuk memanfaatkan layar monitor mereka yang lebar secara maksimum. Kemudian fitur yang menarik lainnya adalah apa yang kita select pada bagian source code akan juga secara otomatis menselect item yang sesuai dengan code pada window design.

13.     HTML Javascript Warning, Bukan Error

Pada Visual Studio.Net 2005, error antara HTML dengan C# atau VB.Net digabungkan dalam 1 window. Namun pada Visual Studio.Net 2008, terjadi pemisahan dan juga error yang terjadi dari html dan javascript hanya dianggap warning bukan error. Fitur ini tidak mutlak dalam artian kita bisa menset atau membuat kesalahan pada HTML atau Javascript merupakan suatu erorr bukan warning.

14.     Kemampuan Debugging Source Code Library .Net Framework

Dalam Visual Studio.Net 2008, kita dapat melakukan debug terhadap code – code yang ada dalam library .Net Framework baik method ataupun property. Misalkan kita ingin mendebug method Databind() dari control DataGrid. Maka yang kita lakukan adalah meletakkan pointer debugging pada method Databind() dan lakukan debug dengan menggunakan tombol F10 atau F11.

15.     Library Silverlight sudah Built-In

Pada versi sebelumnya, untuk dapat membangun aplikasi silverlight maka kita harus melakukan instalasi Silverlight SDK secara terpisah. Namun dalam Visual Studio.Net 2008 maka kita silverlight sudah built-in dalam artian sudah terinstall otomatis bersamaan terinstallnya Visual Studio.Net 2008.

16.     Visual Studio LINQ Designer

Dalam Visual Studio.Net 2008, kita sudah memiliki LINQ Designer dimana kita dapat mendesign secara visual keterhubungan antara tabel yang ada dalam satu database khususnya untuk LINQ-to-SQL. Lihat gambar dibawah ini untuk lebih jelasnya :

17.     C++ SDK Built-In

Pada versi sebelumnya, sangat sulit untuk mendownload dan melakukan konfigurasi terhadap library dan tool – tool yang berhubungan dengan C++ SDK dalam membangun aplikasi windows. Namun dalam Visual Studio.Net 2008, library dan tool – tool ini sudah built-in.

18.     Arsitektur MUI (Multilingual User Interface)

MUI mengandung paket library – library dari Microsoft Windows sampai kepada Microsoft Office. Hal ini mendukung pengguna untuk mengubah tampilan text bahasa sesuai dengan keinginan mereka. Saat ini ada 9 bahasa yang didukung yaitu antara lain English, Spanish, French, German, Italian, Chinese Simplified, Chinese Traditional, Japanese dan Korean.

19.     Dukungan Terhadap Microsoft Popfly

Eksplorer dari Microsoft Popfly bersifat add-on dalam Visual Studio.Net 2008. dengan add-on ini kita dapat secara langsung melakukan hosting terhadap aplikasi silverlight dan object Marshup.

20.     Tool dan Ebook Gratisan

Untuk mendukung pemakaian Visual Studio.Net 2008 maka Microsoft menyediakan versi gratisan seperti Visual Studio.Net Express, Visual C# Express, dll. Selain itu banyak juga ebook –ebook yang berhubungan dengan Visual Studio.Net 2008 yang bisa didownload secara gratis.

Contoh Source Code Visual Studio 2008

Public Class Form2

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox1.Focus()
        End If
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If e.KeyChar = Chr(13) Then
            TextBox3.Focus()
        End If

    End Sub

    Sub gabung()
        ListBox1.Items.Add(Trim(TextBox1.Text) & " " & Trim(TextBox3.Text) & " " & Trim(TextBox2.Text))
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Call gabung()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call gabung()
    End Sub

End Class

Contoh Source Code Visual Studio 2008

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = 1 To 10
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            If I Mod 2 = 0 Then
                ListBox1.Items.Add("Bil Genap " & I)
            Else
                ListBox1.Items.Add("Bil Ganjil " & I)
            End If
            ListBox1.Items.Add(I)
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        For I = Val(TextBox1.Text) To Val(TextBox2.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim I As Integer = 1
        ListBox1.Items.Clear()

        Do While I <= 10
            ListBox1.Items.Add(I)
            I = I + 1
        Loop
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        I = Val(TextBox1.Text)
        Do While I <= Val(TextBox2.Text)
            ListBox1.Items.Add(I)
            I = I + 1
        Loop
    End Sub

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

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim I As Integer
        ListBox1.Items.Clear()
        I = Val(TextBox1.Text)
        Do While I <= Val(TextBox2.Text)
            If I Mod 3 = 0 And I Mod 2 = 0 Then
                ListBox1.Items.Add(I * -1)
            Else
                If I Mod 3 = 0 Then
                    ListBox1.Items.Add(I)
                End If
            End If

            I = I + 1
        Loop
    End Sub
End Class

Sejarah Visual Basic

Evolusi Visual Basic

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.

Perjalanan dari Visual Basic (VB1 to VB 10)

Proyek “Thunder” dirintis

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.  Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System

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.

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

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

Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic 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  memperkenalakan kemampuan untuk membuat  User Control.

Visual Basic 6.0 (pertengahan 199 <!–[if gte vml 1]> <![endif]–><!–[if !vml]–><!–[endif]–>memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008.

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 penggunan memory.

 

Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1. 

Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :

Edit and Continue , mungkin inilah kekurangan fitur terbesar dari  VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan

Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y  menjadi If X  IsNot Y

Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft

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

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

 

Disarikan dari:

Visual Basic

From Wikipedia, the free encyclopedia