Looping pada VB.NET

Belajar Looping pada VB.net

Cara menampilakan bilangan yang pembaginya 4 dan 7 sisa baginya 0.

Pada contoh looping kali ini, saya akan mencoba dengan 1 textbox yang diproses dengan menggunakan Botton dengan menampilakan hasil pada listbox.

Langkah awal yang kita buat adalah membuat form yang terdiri dari 1botton untuk proses, 1 textbox untuk input nilai dan 1 listbox untuk menampilkan hasilnya.

Karna untuk langkah dalam membuat form udah ada pada materi sebelumnya, jadi pada contoh kali ini kita langsung pada tampilan yang sudah ada desain.

Berikut adalah contoh desain :

Untuk keterangan properties pada control dasar semua Name-nya silahkan atur sendiri sesuai pada pembelajaran pada materi sebelumnya. Tentu masih ingat dong……

Nah setelah kita buat Desain pada Form, langkah berikutnya adalah memasukan coding.

Coding pada desain ini hanya ada pada control Botton aja, Karena Botton disini kita jadikan sebagai pengeksekusi.

Caranya gampang ko’, klick aja pada Botton lalu akan terlihat tampilan sebagai berikut :

Untuk lebih jelasnya Ni…..:

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 Val(TextBox1.Text)

If (i Mod 7 = 0) And (i Mod 4 = 0) Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Class

Karena pada kesempatan kali ini kita akan menampilkan bilangan yang hasil pembaginya 0 jika pembaginya 4 dan 7 dari bilangan 1 sampai 100, maka…..

Silahkan masukan coding sesuai pada tampilan diatas tanpa merubah sedikit kata apapun.

Kecuali mau menampilkan dengan hasil yang beda.

Setelah semua tertulis dengan benar, maka mari kita Running.

Jika g’ ada yang ERROR maka hasil tampilannya akan seperti berikut ini :

Pada contoh berikutnya saya akan mencoba membuat contoh yang jika pembaginya 4 sisa hasilnya adalah 3.

Caranya sama ko’ seperti pada contoh looping sebelumnya, nah..pada contoh yang akan kita buat ini kita akan pakai desain yang sama seperti contoh sebelumnya. Setelah desain jadi, langkah berikutnya yaitu memasukan coding pada Button dan Masukan Coding berikut ini :

Public Class Form1

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 Val(TextBox1.Text)

If i Mod 4 = 3 Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Class

Maka pada Listbox akan menampilkan hasil seperti dibawah ini :

3 7 11 15 19 23 27 31 35 39 43 47 51 55 59 63 67 71 75 79 83 87 91 95 99

Note :

ListBox1.Items.Clear() artinya untuk membersihkan nilai yang ada di ListBox1.

For I = 1 To Val (TextBox1.Text) artinya untuk looping dari 1 sampai nilai di ListBox1

Mudah dan Gampang Kan........he...he....he....

Latihan VB

Langkah berikutnya adalah mendesign form yang telah kita buat tadi dengan tool yang ada didalam sebuah toolbox. Masih ingat kan apa itu toolbox? Klo lupa mari kita ingat kembali.
1. Tool box: merupakan kumpulan control (tool) mis: textbox, label, button.
2. Menu: Menu yang dapat dipilih.
3. Form: tempat meletakkan control (tool) mis textbox, label, button dan lain-lain.
4. Toolbar: Toolbar biasanya merupakan tombol singkat dari menu.
5. Project Explorer: di jendela ini terdapat komponen-komponen yang menyusun project kita. (Project bisa terdiri dari form,module,class dll.)
6. Properties window: properties window adalah tempat untuk mengatur control (objek).
Pertama masukan label pada form, caranya double klik pada A Label atau drag dan masukan kedalam form. Pada latihan kali ini masukan label pada form sebanyak 7 label. Setelah itu masukan juga 7 Textbox dengan cara yang sama seperti memasukan label, 2 Button dan 1 Listbox.
Lalu ubahlah properties pada masing – masing tool, untuk latihan ini saya akan ubah propertiesnya sesuai dibawah ini :

---

Tool Name Text
Label 1 Label 1 Input
Label 2 Label 2 Hasil
Label 3 Label 3 Data 1
Label 4 Label 4 Data 2
Label 5 Label 5 Data 3
Label 6 Label 6 Data 4
Label 7 Label 7 Data 5

---

Textbox1 Txtinput -
Textbox2 txthasil -
Textbox3 Txt1 -
Textbox4 Txt2 -
Textbox5 Txt3 -
Textbox6 Txt4 -
Textbox7 Txt5 -
Button1 Button1 Proses 1
Button2 Button2 Proses 2
Listbox1 Listbox1

---

Maka tampilan formnya akan menjadi seperti dibawah ini :






Lalu masukan Codingnya sebagai berikut :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Txtinput.Text = "TI" Then
Txthasil.Text = "Teknik informatika"
Else
If Txtinput.Text = "SI" Then
Txthasil.Text = "Sistem informasi"
End If
End If

End Sub

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

ListBox1.Items.Add(Txt1.Text + " " + Txt2.Text + " " + Txt3.Text + " " + Txt4.Text + " " + Txt5.Text)
End Sub


End Class


Setelah itu kita Run (F5) dan kita isi pada masing – masing textbox (kecuali pada textbox hasil) dan kita klik pada Button Proses 1 dan Proses 2 maka akan menghasilkan :




Selesai dech…mudah kan?
Sorry kalau bahasanya gak lugas, soalnya waktunya terbatas dan rangkuman ini harus buru – buru di upload.

Koneksi Database VB

Koneksi Visual Studio 2008 ke Database Server
Object Connection merupakan bagian dari Data Provider yang memiliki implementasi spesifik terhadap sumber data, yaitu Class OleDbConnection dan Class SqlConnection. Class OleDbconnection hanya dapat digunakan bila kita telah melakukan atau mengaktifkan import terhadap namespace System.Data.OleDB, sedangkan Class SqlConnection baru dapat kita gunakan bila namespace System.Data.SqlClient telah mengaktifkan import.
OleDbConnection dapat digunakan untuk mengakses berbagai sumber data dari RDBMS seperti Ms. Access, SQL Server, Oracle, MYSQL Server dan lain – lain melalui OLE DB. Sedangkan SqlConnection dapat langsung mengakses SQL Server tanpa terlebih dahulu melewati OLEDB Provider dan data dapat diakses lebih cepat.

Membuat object Koneksi langsung

Untuk melakukan atau membuat object koneksi kedatabase server secara langsung, langkah kerjanya sebagai berikut.
Langkah pertama buatlah project baru, pada contoh kali ini saya akan memberi nama pada project Server Application. Setelah itu buatlah module baru pada project dengan nama mdlkoneksi.vb, kemudian isilah sintaks sesuai dengan berikut :
Imports System.Data
Imports System.Data.Sql

Module Mdlkoneksi
Public S1TI4A As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public Grid As New OleDb.OleDbDataAdapter
Public DS As New DataSet
Public Table, hasilcek As String
Public Record As New BindingSource
Public noo As Integer
Public DMLSql As New OleDb.OleDbCommand


Public Sub Koneksi()
Try
S1TI4A.Close()
'server
' Database.ConnectionString = "provider =SQLOLEDB.1; Password= ; Persist Security Info=True;"
'User ID=sa; Initial Catalog=sim_akuntansi; Data source = 200.200.10.150 (Lab)

'lokal
S1TI4A.ConnectionString = "Provider=SQLOLEDB.1; Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=S1TI4A;Data Source=."
S1TI4A.Open()
'Tampil.Connection = S1TI4A
MsgBox("Complite")


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


End Try
End Sub
End Module


Catatan :
Sebelum membuat sintaks diatas buatlah Database terlebih dahulu, pada contoh diatas Database saya beri nama S1TI4A.
Langkah kedua setelah kita membuat module, berikutnya adalah membuat form untuk memanggil method yang ada pada module.



Pada Button View Data isilah sintaks sebagai berikut :
Public Class Form1

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

End Sub


Sub jurusan()

Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from jurusan"

Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()

If IsDBNull(Tampilkan("kode_jur")) Then
TextBox2.Text = "_"
Else

TextBox2.Text = Tampilkan("nama_jur")
End If
End While

End If

End Sub

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

End Sub
End Class


Selanjutnya jika tidak ada kesalahan pada sintaks diatas maka akan muncul pesan sebagai berikut setelah kita Run.



Pada tahap berikutnya buatlah form kedua dengan tampilan sebagai berikut :



Isilah sintaks sebagai berikut :
Public Class Form2

Sub Kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub


Sub netral()
Button1.Text = "&Tambah"
Button2.Text = "&Ubah"
Button3.Text = "&Hapus"
Button4.Text = "&Keluar"
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
TextBox1.Enabled = True
End Sub

Sub cekrecord()
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from Jurusan where kode_jur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If


End Sub

Private Sub Form2_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) Handles Button1.Click
Call simpankelompok()

End Sub
Sub simpankelompok()
If Button1.Text = "&Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "&Batal"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Call cekrecord()
Try
If hasilcek = "False" Then
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Insert into Jurusan (kode_jur,nama_jur)values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Tampil.ExecuteNonQuery()

Call Kosong()

Else
MsgBox("Data sudah ada, silahkan data yang diinput", MsgBoxStyle.Critical, "Input data")

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

End Try
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "&Keluar" Then
Me.Close()

Else
Call Kosong()
Call netral()

End If
End Sub

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

End Sub
Sub Btubahkelompok()
If Button2.Text = "&Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "&Batal"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub

Try
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " Update Jurusan set nama_jur ='" & Trim(TextBox2.Text) & "' where kode_jur = '" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()

Call Kosong()
TextBox1.Focus()

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

End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call Bthapuskelompok()

End Sub
Sub Bthapuskelompok()
If Button3.Text = "&Hapus" Then
TextBox1.Text = ""
Button3.Text = "OK"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "&Batal"
TextBox1.Focus()

Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub

Try
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " Delete from Jurusan where kode_jur'" & 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 Button1.Text = "Simpan" Then
Call cekrecord()
If hasilcek = False Then
TextBox2.Focus()

Else
MsgBox("Kode sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, " Informasi")
TextBox1.Focus()


End If
Else
Call Koneksi()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " select * from jurusan where kode_jur ='" & Trim(TextBox1.Text) & "' "
Tampilkan = Tampil.ExecuteReader()

If Tampilkan.HasRows = True Then

While Tampilkan.Read()
If IsDBNull(Tampilkan("kode_jur")) Then
TextBox1.Focus()

End If

TextBox2.Text = Tampilkan("nama_jur")


End While
Else
MsgBox("Data tidak ditemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")

End If


End If
End If
End Sub


End Class

Membuat Laporan pada CristalReport
Langkah pertama buatlah Item baru pada project yaitu dengan cara klik kanan pada nama project kemudian New Item setelah itu pilih Reporting pada common items dan pilih CristalReport, buatlah nama baru kemudiah Add.



Pada Cristal Report gallery pilih Using the Report Wizard dan Standard pada Expert Gallery



Kemudian pada Standard Report Creation Wizard pilih OLE DB (ADO), kliklah dua kali pada make new connection maka akan muncul tampilan sebagai berikut :




Pilihlah Microsoft OLE DB Provider for SQL Server pada OLE DB Provider kemudian next. Karena pada latihan ini adalah connection lokal maka pada Connection Information, Integrated Security kita ceklist dan pada server kita isi dengan titik (.), Database kita isi dengan nama Database yang kita connectikan.



Kemudian Next dan Finish.
Jika telah terkoneksi maka pada standard Report Creating Wizard akan muncul tampilan sebagai berikut :






Kliklah dua kali kemudian next. Lalu akan muncul tampilan sebagai berikut :






Tekan next hingga muncul pada tampilan Report Styles seperti dibawah ini :



Pilihlah style yang dinginkan, kemudian finish.


Setelah selesai membuat CristalReport maka langkah selanjutnya adalah membuat form baru yang akan kita gunakan untuk melihat entri dari isi CristalReport. Kemudian masukan CristalReportViewer kedalam form tersebut.

Membuat Login.

Tambahkan login form yang berada pada windows forms pada project, seperti tampilan dibawah ini :



Kemudian masukan coding seperti berikut ini :
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 = "JoyNoviyana" And PasswordTextBox.Text = "xxx" 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


Thank's.

Jhoeynoviyana@yahoo.com

Manipulasi Button Pada VB.NET

Pada pembahasan vb.net kali ini gak tau apa judul materinya, soalnya pada pertemuan ini pak Dosen langsung aja ngasih latihan yang semua coding pada masing – masing toolbox didikte tanpa menjelaskannya terlebih dahulu. Tapi jika kita masih ingat latihan – latihan pada VB.Net yang kemarin, pada latihan kali ini semua yang akan kita praktekan pernah dibahas. Jadi misalnya belum pernah pelajari latihan – latihan pada materi yang kemarin, alangkah baiknya jika dipelajari dulu dech…

Pertama mari kita buat form terlebih dahulu seperti pada dibawah ini :

Setelah selesai pmbuatan form diatas, ubahlah properties pada masing – masing toolbox sesuai dibawah ini atau ubahlah sesuai keinginan kita agar kita mudah dalam memahami pada setiap codingnya.

Textbox1

Name = txtnpm

Text = -

Textbox2

Name = txtnama

Text = -

Textbox3

Name = txtnama

Text = -

Textbox4

Name = txtalamat

Text = -

Combox1

Name = cmbjurusan

Text = -

Button1

Name = btntambah

Text = Tambah

Button2

Name = btnubah

Text = Ubah

Button3

Name = btnhapus

Text = Hapus

Button4

Name = btnkeluar

Text = Keluar

Listbox1

Name = listboxt1

Setelah semua properties kita ubah, langsung aja kita masukan codingnya sesuai dibawah ini :

Public Class Form1

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

Call isicombo()

Call bersih()

End Sub

Sub isicombo()

Cmbjurusan.Items.Add("01 Tekinik Informatika")

Cmbjurusan.Items.Add("02 Teknik Informasi")

Cmbjurusan.Items.Add("03 Manajemen Informasi")

Cmbjurusan.Items.Add("04 Komputer Akutansi")

Cmbjurusan.Items.Add("05 Teknik Komputer")

End Sub

Sub bersih()

Txtnpm.Text = ""

Txtnama.Text = ""

Txtalamat.Text = ""

Txttelepon.Text = ""

End Sub

Sub normal()

Btntambah.Text = "Tambah"

Btntambah.Enabled = True

Btnubah.Text = "Ubah"

Btnubah.Enabled = True

Btnhapus.Text = "Hapus"

Btnhapus.Enabled = True

Btnkeluar.Text = "Keluar"

Btnkeluar.Enabled = True

End Sub

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

If Btntambah.Text = "Tambah" Then

Btntambah.Text = "Simpan"

Btnubah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

Else

ListBox1.Items.Add(Trim(Txtnpm.Text) + " " + Trim(Txtnama.Text) + " " + Trim(Txtalamat.Text) + " " + Trim(Txttelepon.Text))

End If

End Sub

Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click

If Btnubah.Text = "Ubah" Then

Btntambah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

If Btnhapus.Text = "Hapus" Then

Btntambah.Enabled = False

Btnubah.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

If Btnkeluar.Text = "Keluar" Then

Me.Close()

Else

Call bersih()

Call normal()

End If

End Sub

End Class

Isi Data Dengan Tampilan pada Listview

Pada pembahasan vb.net kali ini gak tau apa judul materinya, soalnya pada pertemuan ini pak Dosen langsung aja ngasih latihan yang semua coding pada masing – masing toolbox didikte tanpa menjelaskannya terlebih dahulu. Tapi jika kita masih ingat latihan – latihan pada VB.Net yang kemarin, pada latihan kali ini semua yang akan kita praktekan pernah dibahas. Jadi misalnya belum pernah pelajari latihan – latihan pada materi yang kemarin, alangkah baiknya jika dipelajari dulu dech…

Pertama mari kita buat form terlebih dahulu seperti pada dibawah ini :

Setelah selesai pmbuatan form diatas, ubahlah properties pada masing – masing toolbox sesuai dibawah ini atau ubahlah sesuai keinginan kita agar kita mudah dalam memahami pada setiap codingnya.

Textbox1

Name = txtnpm

Text = -

Textbox2

Name = txtnama

Text = -

Textbox3

Name = txtnama

Text = -

Textbox4

Name = txtalamat

Text = -

Combox1

Name = cmbjurusan

Text = -

Button1

Name = btntambah

Text = Tambah

Button2

Name = btnubah

Text = Ubah

Button3

Name = btnhapus

Text = Hapus

Button4

Name = btnkeluar

Text = Keluar

Listbox1

Name = listboxt1

Setelah semua properties kita ubah, langsung aja kita masukan codingnya sesuai dibawah ini :

Public Class Form1

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

Call isicombo()

Call bersih()

End Sub

Sub isicombo()

Cmbjurusan.Items.Add("01 Tekinik Informatika")

Cmbjurusan.Items.Add("02 Teknik Informasi")

Cmbjurusan.Items.Add("03 Manajemen Informasi")

Cmbjurusan.Items.Add("04 Komputer Akutansi")

Cmbjurusan.Items.Add("05 Teknik Komputer")

End Sub

Sub bersih()

Txtnpm.Text = ""

Txtnama.Text = ""

Txtalamat.Text = ""

Txttelepon.Text = ""

End Sub

Sub normal()

Btntambah.Text = "Tambah"

Btntambah.Enabled = True

Btnubah.Text = "Ubah"

Btnubah.Enabled = True

Btnhapus.Text = "Hapus"

Btnhapus.Enabled = True

Btnkeluar.Text = "Keluar"

Btnkeluar.Enabled = True

End Sub

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

If Btntambah.Text = "Tambah" Then

Btntambah.Text = "Simpan"

Btnubah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

Else

ListBox1.Items.Add(Trim(Txtnpm.Text) + " " + Trim(Txtnama.Text) + " " + Trim(Txtalamat.Text) + " " + Trim(Txttelepon.Text))

End If

End Sub

Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click

If Btnubah.Text = "Ubah" Then

Btntambah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

If Btnhapus.Text = "Hapus" Then

Btntambah.Enabled = False

Btnubah.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

If Btnkeluar.Text = "Keluar" Then

Me.Close()

Else

Call bersih()

Call normal()

End If

End Sub

End Class

Setelah semua coding selesai, maka hasilnya adalah sebagai berikut :

Belajar VB.Net

Belajar VB.Net

Pada materi sebelumnya kita telah pelajari tentang apa itu VB.NET, mulai dari sejarah, cara menginstal sampai pada pengenalan object – object yang ada pada jendela Visual Studio 2008. Sebagaimana dengan proses belajar kali ini, kita akan mncoba membuat struktur program pada Visual Studio 2008.

Langkah pertama yang kita lakukan adalah membuka Visual Studio 2008, setelah kita masuk pada star page Visual Studio 2008 buatlah project baru caranya klik project pada menu create lalu akan muncul tampilan sebagai berikut :

Setelah itu kita klik Windows pada Visual Basic yang ada pada Project types, kemudian pilih (klik) Windows Form Application pada Visual Studio templates. Ubah name yang ada disudut kiri bawah menjadi Latihan_1. Maka akan muncul tampilan seperti berikut ini :

Langkah berikutnya adalah mendesign form yang telah kita buat tadi dengan tool yang ada didalam sebuah toolbox. Masih ingat kan apa itu toolbox? Klo lupa mari kita ingat kembali.

1. Tool box: merupakan kumpulan control (tool) mis: textbox, label, button.

2. Menu: Menu yang dapat dipilih.

3. Form: tempat meletakkan control (tool) mis textbox, label, button dan lain-lain.

4. Toolbar: Toolbar biasanya merupakan tombol singkat dari menu.

5. Project Explorer: di jendela ini terdapat komponen-komponen yang menyusun project kita. (Project bisa terdiri dari form,module,class dll.)

6. Properties window: properties window adalah tempat untuk mengatur control (objek).

Pertama masukan label pada form, caranya double klik pada A Label atau drag dan masukan kedalam form. Pada latihan kali ini masukan label pada form sebanyak 7 label. Setelah itu masukan juga 7 Textbox dengan cara yang sama seperti memasukan label, 2 Button dan 1 Listbox.

Lalu ubahlah properties pada masing – masing tool, untuk latihan ini saya akan ubah propertiesnya sesuai dibawah ini :

Tool	Name	Text
Label 1	Label 1	Input
Label 2	Label 2	Hasil
Label 3	Label 3	Data 1
Label 4	Label 4	Data 2
Label 5	Label 5	Data 3
Label 6	Label 6	Data 4
Label 7	Label 7	Data 5
Textbox1	Txtinput	-
Textbox2	txthasil	-
Textbox3	Txt1	-
Textbox4	Txt2	-
Textbox5	Txt3	-
Textbox6	Txt4	-
Textbox7	Txt5	-
Button1	Button1	Proses 1
Button2	Button2	Proses 2
Listbox1	Listbox1

Maka tampilan formnya akan menjadi seperti dibawah ini :

Lalu masukan Codingnya sebagai berikut :

Public Class Form1

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

If Txtinput.Text = "TI" Then

Txthasil.Text = "Teknik informatika"

Else

If Txtinput.Text = "SI" Then

Txthasil.Text = "Sistem informasi"

End If

End If

End Sub

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

ListBox1.Items.Add(Txt1.Text + " " + Txt2.Text + " " + Txt3.Text + " " + Txt4.Text + " " + Txt5.Text)

End Sub

End Class

Setelah itu kita Run (F5) dan kita isi pada masing – masing textbox (kecuali pada textbox hasil) dan kita klik pada Button Proses 1 dan Proses 2 maka akan menghasilkan :

Selesai dech…mudah kan?

Sorry kalau bahasanya gak lugas, soalnya waktunya terbatas dan rangkuman ini harus buru – buru di upload.