LANJUUUUUUUUUTTTTTTTTTTT...............

Nah Form lanjutan yg aku buat nie..........


Untuk source code :

Public Class Data_Pengecekan
Sub recording()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "Insert into pengecekan(nocek,noterima,kode_sup,kode_mat,nama_mat,type,nama_pet,jumlah,tgl_cek,qtyNG,qtyOK,status)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & DateTimePicker1.Value & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "')"
tampil2.ExecuteNonQuery()
End Sub
Sub kodesama()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from pengecekan where nocek='" & TextBox1.Text & "'"
tampilkan = tampil2.ExecuteReader()
If tampilkan.HasRows = True Then
hasilcek = "True"
Else
hasilcek = "False"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "Batal"
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
If TextBox5.Text = "" Then Exit Sub
If TextBox6.Text = "" Then Exit Sub
If TextBox7.Text = "" Then Exit Sub
If TextBox8.Text = "" Then Exit Sub
If TextBox9.Text = "" Then Exit Sub
If TextBox10.Text = "" Then Exit Sub
If TextBox11.Text = "" Then Exit Sub
Call kodesama()
If hasilcek = "True" Then
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data")
Else
Call recording()
End If
Call bersih()
End If
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
End Sub
Sub hapusrecord()
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
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
If TextBox5.Text = "" Then Exit Sub
If TextBox6.Text = "" Then Exit Sub
If TextBox7.Text = "" Then Exit Sub
If TextBox8.Text = "" Then Exit Sub
If DateTimePicker1.Value = "" Then Exit Sub
If TextBox9.Text = "" Then Exit Sub
If TextBox10.Text = "" Then Exit Sub
If TextBox11.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from pengecekan where nocek='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call bersih()
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 hapusrecord()
End Sub
Sub edittable()
If Button2.Text = "Edit" Then
Button2.Text = "Simpan"
Button2.Enabled = True
Button1.Text = "Input"
Button1.Enabled = False
Button3.Text = " Hapus"
Button3.Enabled = False
Button4.Text = "Batal"
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
If TextBox5.Text = "" Then Exit Sub
If TextBox6.Text = "" Then Exit Sub
If TextBox7.Text = "" Then Exit Sub
If TextBox8.Text = "" Then Exit Sub
If DateTimePicker1.Value = "" Then Exit Sub
If TextBox9.Text = "" Then Exit Sub
If TextBox10.Text = "" Then Exit Sub
If TextBox11.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update pengecekan set noterima='" & TextBox2.Text & "',kode_sup='" & TextBox3.Text & "',kode_mat='" & TextBox4.Text & "',nama_mat='" & TextBox5.Text & "',type='" & TextBox6.Text & "',nama_pet='" & TextBox7.Text & "',jumlah='" & TextBox8.Text & "',tgl_cek='" & DateTimePicker1.Value & "',qtyNG='" & TextBox9.Text & "' ,qtyOK='" & TextBox10.Text & "',status='" & TextBox11.Text & "',where nocek='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call edittable()
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 bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = "true"
Button2.Text = "Edit"
Button2.Enabled = "true"
Button3.Text = "Hapus"
Button3.Enabled = "true"
Button4.Text = "Keluar"
Button4.Enabled = "true"
End Sub
Private Sub Data_Pengecekan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
End Sub
End Class



Nah, Form Lainnya :


Terus source codenya :

Public Class Data_Material
Dim tgl As Date
Sub recording()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "Insert into datamaterial (kode_mat,nama_mat,Qty,tgl,type)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox4.Text & "')"
tampil2.ExecuteNonQuery()
End Sub
Sub kodesama()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from datamaterial where kode_mat='" & TextBox1.Text & "'"
tampilkan = tampil2.ExecuteReader()
If tampilkan.HasRows = True Then
hasilcek = "True"
Else
hasilcek = "False"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Call kodesama()
If hasilcek = "True" Then
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ")
Else
Call recording()
End If
Call bersih()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call edittable()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapusrecord()
End Sub
Sub edittable()
tgl = DateTimePicker1.Value
If Button2.Text = "Edit" Then
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
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update datamaterial set nama_mat='" & TextBox2.Text & "',Qty='" & TextBox3.Text & "',type= '" & TextBox4.Text & "',tgl='" & DateTimePicker1.Value & "' where kode_sup='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Sub hapusrecord()
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
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from datamaterial where kode_mat='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
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 bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = "true"

Button2.Text = "Edit"
Button2.Enabled = "true"

Button3.Text = "Hapus"
Button3.Enabled = "true"

Button4.Text = "Keluar"
Button4.Enabled = "true"
End Sub
Private Sub Data_Material_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
End Sub
End Class

Buat ApliKAsi DG VB.Net

Kali ini kita akn membuat sebuah aplikasi input data, dimana aplikasi ini memakai sistem Login untuk masuk.
Langsung aja, pertama buat database sebagai penympan data, karena program ini sangat bergantung pada database, sangat penting untuk diperhatikan karena tanpa database pogram ini tidak akan jalan.

Langkap pertama buat database, sesuai isi Foem, pada kasus ini saya membuat database databarang dengan field yang disesuaikan oleh form. Saya menggunakan Visual Studio 2008, dan SQL Server 2008.

Pertama buatlah module untuk koneksi antara VB dan Database dengan source code

Imports System.Data
Imports System.Data.Sql

Module Module_UTS
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=DataBarang;data source=."
database.Open()
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End Try
End Sub

End Module

Kemudian test apakah koneksi sudah pas. lalu buat form - formny terlebih dahulu, sebagai contoh :



Form ini dibuat dengan source code :

Public Class Data_Supplier
Sub recording()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "Insert into supplier (kode_sup,nama_sup,alamat)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
tampil2.ExecuteNonQuery()
End Sub
Sub kodesama()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from supplier where kode_sup='" & TextBox1.Text & "'"
tampilkan = tampil2.ExecuteReader()
If tampilkan.HasRows = True Then
hasilcek = "True"
Else
hasilcek = "False"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "INPUT" Then
Button1.Text = "SAVE"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Call kodesama()
If hasilcek = "True" Then
MsgBox("Data yang anda input telah ada, silahkan coba lagi")
Else
Call recording()
End If
Call bersih()
End If
End Sub
Sub normal()
Button1.Text = "INPUT"
Button1.Enabled = "true"
Button2.Text = "EDIT"
Button2.Enabled = "true"
Button3.Text = "HAPUS"
Button3.Enabled = "true"
Button4.Text = "KELUAR"
Button4.Enabled = "true"
End Sub


Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
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 bersih()
Call normal()
End If
End Sub
Sub edittable()
If Button2.Text = "EDIT" Then
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
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update supplier set nama_sup='" & TextBox2.Text & "',alamat='" & TextBox3.Text & "' where kode_sup='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call edittable()
End Sub
Sub hapusrecord()
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
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from supplier where kode_sup='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call bersih()
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 hapusrecord()
End Sub
Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
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 = "INPUT" Then
Call recording()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from supplier where kode_sup='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

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

End Class



Keseluruhan form sesungguhnya hampir sama source codenya. Nah sekarang lihat pada form Login :




dengan source code :

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "Rida" And PasswordTextBox.Text = "aku" 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

untuk koneksinya, jangan lupa untuk buat MDParent,



, dengan source code :
Imports System.Windows.Forms

Public Class MDIParent1

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As New System.Windows.Forms.Form
' Make it a child of this MDI form before showing it.
ChildForm.MdiParent = Me

m_ChildFormNumber += 1
ChildForm.Text = "Window " & m_ChildFormNumber

ChildForm.Show()
End Sub

Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: Add code here to open the file.
End If
End Sub

Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
' TODO: Add code here to save the current contents of the form to a file.
End If
End Sub


Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub

Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub

Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
End Sub

Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click
Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
End Sub

Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click
Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
End Sub

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub

Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub

Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub

Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub

Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
' Close all child forms of the parent.
For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next
End Sub

Private m_ChildFormNumber As Integer

Private Sub DatabSupplierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatabSupplierToolStripMenuItem.Click
Data_Supplier.Show()
End Sub

Private Sub DataMaterialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataMaterialToolStripMenuItem.Click
Data_Material.Show()
End Sub

Private Sub DataPetugasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPetugasToolStripMenuItem.Click
Data_Petugas.Show()
End Sub

Private Sub DataPengecekanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPengecekanToolStripMenuItem.Click
Data_Pengecekan.Show()
End Sub
End Class


Nah untuk form yang lain sejujurnya g jauh beda k..............^_^

PUZZLE...........

Buat tampilany......




Buat Codingnya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text
End If
cek()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text
End If
cek()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text
End If
cek()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text
End If
End If
cek()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text
End If
End If
cek()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text
End If
cek()
End Sub
Private Sub cek()
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then
If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then
If (Button8.Text = "8") Then
MessageBox.Show("Selesai")
End If
End If
End If
End Sub



Ini adalah permainan enable pada button, angka bisa diubah sesuai selera......

Selamat mencoba.......^^

BELAJAR LISTVIEW!!!

UTS telah Tiba............!!!
Semangat Belajar......


Disuruh bikin tampilan aplikasi, Alhamdulillah kelar juga, ngentri satu contoh tampilanya ea....



Itu adalah contoh tampilan dari form data supllier, bikin dulu desainya baru codingnya, nah ini dia coding pada masing2 button:

Pada tampilan ini ada 5 button dengan Coding pada tiap – tiap button :
a. Button1 = Save

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click “Event yang kita berikan
If Button1.Text = "SAVE" Then
Button1.Text = "TAMBAH"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
Button5.Text = "FIND"
TextBox1.Focus() “Kursor akan otomatis pada Textbox1
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
item = New ListViewItem(isitext)
ListView1.Items.Add(item) “ data akan ditampilkan pada ListView
Call bersih()
TextBox1.Focus()
End If

Disinilah terjadi pengaturan Enable yaitu tampilan button pada saat diberikan event klik, apakah button akan muncul jika Enable = True dan button akan tidak muncul jika Enable = False . Dengan focus kursor pada Textbox1.

Untuk Sintak isitext(0) = Trim (TextBox1.Text) dengan ketentuan bahwa Array pada kolom pertama di ListView akan diisi oleh data yang berada pada Textbox 1, yang perlu diingat bahwa array dimulai dengan angka 0. Begitu seterusnya sampai pada array kolom yang diinginkan, jangan Lupa untuk mendeklarasikan Array pada kolom ListView terlebih dahulu pada awal Sintak Class.
Dim isitext(3) As String
Yang berarti isitext = nama array ; (3) = jumlah array / kolom ; As string = Tipe data adalah string. Deklarasi yang lain adalah
Dim item As ListViewItem
Yang berarti item adalah nama item – item yang akan muncul pada ListView
Call bersih()
Pada sintak diatas berarti bahwa kita memanggil method bersih yang sebelum telah kita buat pada Sub Class bersih.
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Yang berarti pada kondisi bersih maka isi pada tiap – tiap Textbox akan kosong atau tidak ada data didalamnya.
Pada Form ini jangan lupa untuk buat Sub yang berisi tampilan pada ListView. Tampilan ini akn muncul saat Form diaktifkan.
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("KD_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("NM_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 200, HorizontalAlignment.Left)
End Sub
Pada sub ini berisi nama – nama kolom yang akan muncul pada ListView dengan pengaturan ( Nama kolom , Panjang kolom , jenis tata letak huruf, Letak rata huruf ) .
Sintak ini akan dipanggil ketika mengaktifkan Form dengan cara klik 2 kali pada form dan pilih Event Activated pada kolom event.
Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub

b. Button2 = Edit
Pada Button ini hanya terjadi pengaturan Enable yaitu tampilan button pada saat diberikan event klik, apakah button akan muncul jika Enable = True dan button akan tidak muncul jika Enable = False dikarenakan materi yang disampaikan belum pada edit data di database.

If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
End If


c. Button3 = Hapus

Private Sub Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button3.Click
Call bersih()
End Sub
Dimana telah dijelaskan sebelumnya tentang method bersih maka pada button ini hanya berisi pemanggilan method beersih untuk mengosongkan isi pada Textbox.

d. Button4 = Keluar
If Button4.Text = "KELUAR" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
Pada button ini dijelaskan jika text pada button “Keluar” maka akan terjadi Me.close yaitu Form akan menutup dengan sendirinya atau keluar dari aplikasi, jika terhubung dengan form Menu maka akan kembali pada form Menu.
Untuk call normal buatlah terlebih dulu Sub pada Class yang sama sub normal dengan isi enable dari tiap – tiap button.
Sub normal()
Button1.Text = "SAVE"
Button1.Enabled = "true"

Button2.Text = "EDIT"
Button2.Enabled = "true"

Button3.Text = "HAPUS"
Button3.Enabled = "true"

Button4.Text = "KELUAR"
Button4.Enabled = "true"

Button5.Text = "FIND"
End Sub

e. Button5 = Find
Pada button ini penulis belum mengisi sintak dikarenakan materi yang belum mencukupi.


Nah Nie Coding utuhnya:

Public Class Data_Supplier
Dim item As ListViewItem
Dim isitext(3) As String

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

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox4.Text = e.Item.Text
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("KD_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("NM_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 200, HorizontalAlignment.Left)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "SAVE" Then
Button1.Text = "TAMBAH"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
Button5.Text = "FIND"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
item = New ListViewItem(isitext)
ListView1.Items.Add(item)

Call bersih()
TextBox1.Focus()

End If
End Sub
Sub normal()
Button1.Text = "SAVE"
Button1.Enabled = "true"

Button2.Text = "EDIT"
Button2.Enabled = "true"

Button3.Text = "HAPUS"
Button3.Enabled = "true"

Button4.Text = "KELUAR"
Button4.Enabled = "true"

Button5.Text = "FIND"
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
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 bersih()
Call normal()
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else

End If
End Sub

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

Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub

End Class



Gampang2 susah ea......semua akan gampang klo kita menikmatinya.....
Klo ada yang mo nambahin boleh dech....^_^
Ditunggu sharenya ea.......

BERMAIN DENGAN BUTTON

Hemmm......kuliah cepet juga ea....minggu depan udah uts nie....SEMANGAT!!!!
dari pada nganggur posting pelajaran minggu kemaren dech.....

Minggu lalu pak dosen ngajarin kita buat bermain - main dengan button, bikin button aktif g aktif, yang seru lagi beliau ngedekte, jadi cuma pakek arahan, dosennya muter kita yang kerja.....susah susah gampang sich, tapi seru ^_^

Nie desain programnya :




Aku kasih koding lengkapnya aja ea..... , :

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call IsiCombo() ''mengaktifkan isi combo
Call Bersih()
End Sub
Sub IsiCombo()
ComboBox1.Items.Add("06 Teknik Informatika")
ComboBox1.Items.Add("07 sistem Informasi")
ComboBox1.Items.Add("26 Management Informasi")
ComboBox1.Items.Add("67 Komputer Akutansi")
ComboBox1.Items.Add("05 Teknik Komputer")

End Sub
Sub Bersih() '' Pilihan awal sebagai default= saat mulai jadi tampilan awal
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
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) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False ''enable berfungsi aktif dan tidak aktif; true = aktif ;false =tidak
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus() ''kursor akan lari ke textbox1
Else
ListBox1.Items.Add(Trim(TextBox1.Text) + "" + Trim(TextBox2.Text) + "" + Trim(TextBox3.Text) + "" + Trim(TextBox4.Text) + "" + Trim(ComboBox1.Text) + "")
''Trims = menghilangkan spasi

End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
''button 4 untuk kluar atau batal
If Button4.Text = "Keluar" Then
Me.Close() ''menutup form diri sendiri secara otomatis
Else
Call Bersih()
Call Normal()
End If
End Sub
Sub Normal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
TextBox1.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
Button2.Enabled = True
Button1.Text = "Tambah"
Button1.Enabled = False
Button3.Text = " Hapus"
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
Button3.Text = "Ok"
End If

End Sub


End Class




Udah ada keteranganya kan, klon liat doank g akan ngerti, coba dech dipraktekin asyik.....


Klo ada yang mau nambahin boleh bgt tuch.....Ditunggu ea......^_^

TUGASQ MINGGU INI

HAYOOO SEMANGAT!!!!,,,,,,,,,,



Hemmm.......dapet tugas nich minggu kemaren ama dosen, baru sempet dech ngerjain maklum kuli jadi sambil belajar sambil kerja heheheheehhe....

Ada 2 soal minggu kemaren yang dikasih sama pak dosen ,
1. Buatlah tampilan bilangan yang habis dibagi 7 dan habis dibagi 4
2. Buatlah tampilan yang sisa hasilnya 3 jika pembaginya 4

Ngerjain bareng - bareng yukk.....

1. Tampilan bilangan yang habis dibagi (7 dan 4) atau (4 atau 7)

yang pertama adalah bikin form, karena aku sedikit bingung aku bikin dua-duanya dan sama atau, kayak gini nie desainya :



Tinggal drag dari toolbox, udah dech.....

selanjutnya coding, sempet bingung habisnya pakek looping (**Maklum dari semester 1 paling g suka looping ribet...heheheheh.....)



buat codingnya :

For h = 1 To Val(TextBox2.Text)
If h Mod i = 0 Then
ListBox1.Items.Add(h)
i = h
End If
If h Mod j = 0 Then
ListBox1.Items.Add(h)
j = h
End If

Disini dijelasin bahwa h = item bilangan yang akan tampil pada listbox dengan syarat h = i ; h /i =0 ( dimana i = 4 ) dan h/j=0 ( dimana j = 7 ).

nah jika di running kayak gini nie :



Nah, jadi dech bagian pertama, nah yang kedua buat tampilan dimana bilangan tersebut dapat dibagi 4 dan 7 atau dengan kata lain 4 dan 7 merupakan faktor bilangan tersebut .Oh iya, masih satu form lho......

Nie Codingnya :



Nah ini penjelasanya :

Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To Val(TextBox2.Text)
If (i Mod 7 = 0) And (i Mod 4 = 0) Then
ListBox1.Items.Add(i)
End If
Next

Looping dengan variable i, dengan item yang ditampilkan adalah i dimana syaratnya i/4 = 0 dan i/7 = 0.

Nie Hasilnya :




Kelar juga tugas pertama.....^^ (* Loncat2 girang hehehehe.....^^ )

Oke lanjut soal kedua......

2. Tampilan dimana sisa hasilnya 3 jika di bagi 4

Bikin desain formnya dulu ea.....Klo aq kayak gini nie.....biasa tinggal drag...



Yang simple simple aja dulu dech, maklum amatiran heheheheh.......
Nah beranjak ke coding yang sama, maksudnya sama2 Looping.....^^



Sebenernya basicnya sama sich tinggal ngrubah2 untuk loopingnya,

Dim i As Integer
ListBox1.Items.Clear()
For i = 4 To Val(TextBox1.Text)
If i Mod 4 = 3 Then
ListBox1.Items.Add(i)
End If
Next

Deklarasinya aku bikin juga sama, biar gampang euy.....jadi aq bikin nilai awalnya alias batas bawahnya 4 ( i = 4) dengan batas sesuai input pada text box.
Selanjutnya i = item yang muncul pada list box dengan syarat jika i dibagi 4 dan sisanya 3, Nah ini hasilnya :



Nah selesai juga,,,,,Buat temen2 yang liat blog aku, kasih koment ea pa lagi klo mo share ilmunya, yang pasti akan seneng banget, maklum ane masih pemula jadi yang simple simple aja dulu ea, ntar kasih yang ribet blum waktunya hehehheeheh,.,,,,

Ditunggu Nie Share ilmunya, klo ada yang salah benerin ea.....^_^

Semangat Belajar..........^^

BELAJAR VB YukSS!!! ( PART I )

MARI BELAJAR........

Awalnya saat belajar VB, aku berfikir susah g ea???karena itu mata kuliah yang ada disemester 4, maklum aq yg blum tertarik dngan program apapun sejak semester I,ternyata aq mulai tertarik dengan Vb, karena saat aku blajar Java jujur agak rumit....**Peace....^^

Saat Awal, yang aq suka, VB bnyak otomatisasi, klik double button, event/action akan langsng muncul,coding nya juga tidak terllu rumit untuk pemula seperti aq....(**Karena masih awal kali ea.....^^), kebetulan juga ada banyak sumber yang bisa di tanya soal coding (**Punya bukunya tapi g ngerti bahasanya jadi mending nanya.....heheeh,.....^^).

Software yang dipakek Visual Studio 2008, g terllu berat k, installnya juga gampang.
Nah, ini tampilan awal Visual Studio 2008 saat kita buka,



ini tampilan awal saat kita ingin buat File Project baru, Open VS 2008 Klik File kemudian New project.



Sebagai contoh, buatlah desain form yang seperti ini, maklum sama - sama awal ea....jadi kita blajar bersama,



Nah disitu kita bisa liat keterangan nama2 bagian dalam form, gampang k liat aja di Toolbox, caranya mudah tinggal drag ke form jadi dech.

Untuk selanjutnya ketik coding seperti ini,



untuk kolom deklarasi itu berisi variable apa aja yang akan kita pakai, nah untuk pengisian action tinggal double clik pada objek.untuk coding pada button 1 :
If TextBox1.Text = "TI" Then
TextBox2.Text = "Teknik informatika"
Else
If TextBox1.Text = "SI" Then
TextBox2.Text = "Sistem informasi"
End If
Perintah diatas menjelaskan isi pada textbox1 jika diisi "TI" maka pada textbox2 akan muncul "Teknik Informatika" sama halnya dengan "SI".
untuk selanjutnya :



Pada coding ini adalah action/event pada textbox, jadi event yang diberikan adalah keypress, saat kita pindah textbox ke textbox lainya. Pada Coding :

Sub pros3()
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text)
End Sub

adalah penggabungan isi pada textbox menjadi satu dan diletakkan pada Listbox,jadi item pada masing2 textbox di add/pindah/ambil ke listbox dengan urutan yang kita inginkan.

Nah ini dia hasilnya :



Tekan Button Proses 2 untuk hasil dan Proses 3 untuk tampilan listbox.

Oh iya hampir lupa, klo mo rubah nama, warna dan yang lainya pada textbox, listbox, button, atau yang lain liat di pojok kanan bawah aja, disitu ada propertise untuk masing - masing objek.

Dikarenakan ini adalah rangkuman kuliah jadi mohon maaf klo ada yang kurang, penulis akan sangat senang jika ada yang mo share kurang lebihnya, kan sama2 belajar, ilmu tak ada batasnya kan??....jadi jangan sungkan2 buat kritiknya ea.....

Terus Semangat!!.......^_^

RANGKUMAN BAHAN KULIAH

AWAL BELAJAR VISUAL BASIC

Object Oriented Program

Visual Basic dapat diartikan sebagai bahasa yang Object-Based (bagian - bagian program didesain dalam bentuk object ), sedangkan VB.NET adalah Object Oriented, hal ini berarti bahwa VB.NET merupakan bahasa yang benar-benar berorientasi object. Tujuan utama dari pengembangan pendekatan berorientasi objek (OOP) adalah untuk menghilangkan beberapa kelemahan yang terdapat pada pendekatan procedural. Pada OOP data diperlakukan sebagai elemen yang penting dan tidak boleh mengalir secara bebas dalam program. Data yang terikat kepada function dan harus dilindungi terhadap kemungkinan perubahan dari luar function.

Beberapa kemampuan utama dari OOP adalah sebagai berikut :

- Menekankan pada data dari pada procedure
- Program terbagi kedalam objek-objek
- Data disembunyikan dari akses oleh function-function eksternal
- Objek dapat berkomunikasi satu dengan yang lain melalui function
- Data baru dan function dapat dengan mudah ditambahkan pada saat dibutuhkan.
- Mengikuti pendekatan buttom up.

Object

Objek merupakan dasar dari entitas run-time dalam suatu sistem berorientasi objek. Masalah pada pemrograman adalah menganalisa dalam arti objek dan komunikasi alamiah diantaramereka. Ketika suatu program dijalankan, objek berinteraksi satu dengan yang lain dengan saling mengirim message. Objek-objek yang berbeda berinteraksi satu dengan yang lain tanpa mengetahui detail data dari masing-masing data ataupun koding.

Class

Suatu class adalah suatu koleksi dari objek-objek yang bertipe sama. Setelah suatu class telah didefinisikan, sejumlah dari objek-objek dapat dibuat berdasarkan class tersebut.

Dengan aturan :

Class nama

'member [variable, property, method and event declarations]

End Class

Type Data

Seperti bahasa pemograman lain, Visual Basic menyediakan berbagai type data yang dapat digunakan oleh pemrogram sesuai dengan konteks pemakaiannya. Type data pada Visual Basic dibagi atas dua kelompok besar yaitu Value Type ( Tipe data primitif ) dan Reference ( String, Array dan Objek ).

Deklarasi Variable

Salah satu ciri dari program yang terstruktur adalah mendeklarasikan semua variabel yang digunakan dalam program.Begitu pula dengan Visual Basic.

Pada Visual Basic perintah Dim digunakan untuk mendeklarasikan variabel dan

memberikan nilai awal kepadanya.

Contoh :

Dim Harga, Jumlah As Single

Dim Kuantitas As Integer = 10

Dim Lanjutkan As Boolean = True

Dim Keterangan As String = "Visual Studio .NET"

Pada Visual Basic pemakaian variabel harus dideklarasikan terlebih dahulu, jika tidak kita akan mendapatkan kesalahan kompiler, karena default setting Explicit pada Visual Basic adalah Option Explicit On.

Kemudian apabila kita tidak memberikan nilai awal pada suatu variabel pada dideklarasikan, maka nilai berikut akan diberikan sebagai nilai awal variabel tersebut karena tidak adanya kejelasan nilai awal.

- 0 untuk semua tipe data numerik (termasuk Byte).
- Binary 0 untuk Char.
- Nothing untuk semua tipe reference (termasuk Object, String, dan semua array).
- False untuk Boolean.
- 12:00 AM pada 1 Januari 1 untuk Date.

Perlu diingat bahwa daya tampung sebuah variabel berdasarkan tipe yang ditentukan, jika kita memasukan nilai diluar dari daya tampung variabel, suatu kesalahan overflow exception akan terjadi.

CATATAN:

Pada saat pendeklarasian variable pada class kita dapat menggunakan keyword seperti Friend, Private, Protected, Protected Friend, dan Public, dimana masing-masing memiliki kendali akses yang berbeda.

Friend, variable yang hanya tersedia bagi kode pada lingkup project yang sama.

Private, variable tersebut hanya tersedia bagi class itu sendiri

Protected, variable tersebut tersedia bagi class dan class turunannya.

Protected Friend, variable tersebut tersetdua bagi kode pada lingkup project yang sama, dan class turunannya.

Public, variable tersebut tersedia bagi semua kode program.

Jika kita tidak menentukan jenis kendali akses bagai suatu variable, maka defaultnya adalah Public

** Catatan Penulis :

Namanya juga rangkuman, jadi mohon maklum kalau tidak lengkap.

Alangkah senangnya saya sebagai penulis jika tulisan ini salah mohon di benarkan, jika kurang mohon dilengkapi, Kritik dan Saran anda sangat saya tunggu.

Semoga bermanfaat, amien.....^_^