Posted by : Aan black
Thursday, April 12, 2012
“ASSMUALLAIKUM WAROHMATULLAHI WABAROHKATUH.”
For all and now i will try description about Program Data Perusahaan
Check This Show :
Buka Program Microsoft Visual Studio 2010 atau 2008, buat
nama Project terserah anda!!!
TAHAP 1
BUAT DESAIN PROGRAM
DI FORM 1 BERUPA :
- GroupBox 2 Buah
- Label 4 Buah
- TextBox 3 Buah
- ComboBox 1 Buah
- Button 4 buah
- Listview 1 Buah
- GroupBox 2 Buah
- Label 4 Buah
- TextBox 3 Buah
- ComboBox 1 Buah
- Button 4 buah
- Listview 1 Buah
Desainlah
sekreatif Anda dengan tampilannya seperti dibawah ini :
Klik Edit Columns Pada ListView Tasks, kemudian ubah :
Name : KD Text : KODE BARANG
Name : NM Text : NAMA
Name : JMLH Text : JUMLAH
Name : GDG Text : GUDANG "Kemudian Pilih Detail di View..!!
Codingnya :
-
Klik 2x di Button TAMBAH
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
daftar As ListViewItem
If
Text_KODE_BRG.Text = "" Or Text_NAMA_BRG.Text = ""
Or ComboBox_GUDANG.Text = "" Then
MsgBox("Isi
Data Dengan Lengkap")
Else
daftar =
ListView1.Items.Add(Text_KODE_BRG.Text)
daftar.SubItems.Add(Text_NAMA_BRG.Text)
daftar.SubItems.Add(Text_JMLH.Text)
daftar.SubItems.Add(ComboBox_GUDANG.Text)
End If
End Sub
-
Klik
2x di Button BARU :
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Text_KODE_BRG.Text = ""
Text_NAMA_BRG.Text = ""
Text_JMLH.Text = ""
ComboBox_GUDANG.Text = ""
End Sub
-
Klik
2x di Button HAPUS :
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
If
ListView1.SelectedItems.Count <> 0 Then
ListView1.Items.Remove(ListView1.SelectedItems(0))
Else
MsgBox("Anda
Belum Memilih Item")
End If
End Sub
- Klik 2x di Button KELUAR :
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Dim out
As String
out = MsgBox("Apakah
Anda ingin Keluar dari program ini ?", MsgBoxStyle.Question +
MsgBoxStyle.YesNo, "EXIT")
If out
= vbYes Then
Me.Close()
ElseIf
out = vbNo Then
Me.Show()
End If
End Sub
Klik 2x di FORM : untuk mengisi pilihan
di ComboBox!
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ComboBox_GUDANG.Items.Add("Depan")
ComboBox_GUDANG.Items.Add("Belakang")
ComboBox_GUDANG.Items.Add("Center")
End Sub
Kemudian Running Program dengan Tekan F5 !!! Tampilan akan
seperti ini...
Isikan Data terserah Anda atau Seperti Dibawah ini:
TAHAP
2 :
Untuk
Menambahkan Form 2 Klik Kanan di Form1 kemudian pilih Add—Windows Form ,
otomatis akan bertambah Form 2 yang baru.
BUAT DESAIN PROGRAM DI FORM 2 BERUPA :
- MenuStrip 1 buah
- ToolStrip 1 buah
- StatusStrip 1 buah
- MenuStrip 1 buah
- ToolStrip 1 buah
- StatusStrip 1 buah
Desainlah sekreatif Anda dengan Tampilannya seperti dibawah ini :
Coding
Barang ToolStrip :
Private Sub BarangToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
BarangToolStripMenuItem.Click
Form1.Show()
End Sub
Coding Keluar ToolStrip :
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KeluarToolStripMenuItem.Click
Me.Close()
End Sub
Coding ToolStrip Button yang Ada Gambar
Bunga Kuning :
Private Sub ToolStripButton1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ToolStripButton1.Click
Form1.Show()
End Sub
Coding Tanggal : Klik 2x di Form 2.
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
LBL_TANGGAL.Text = DateValue(Now())
End Sub
Kemudian
Running Program dengan Tekan F5 !!! Tampilan akan seperti ini...
Ketika
Kita Klik Barang atau gambar Bunga Warna Kuning akan Muncul Form1 yaitu DATA
BARANG .
Isikan
Data terserah Anda atau Seperti Dibawah ini:
And finally a description of the Visual Basic May be
useful …!!!
“WALLAIKUMSALLAM
WAROHMATULLAHI WABAROHKATUH.”
klik beranda : http://aan-black.blogspot.com/
error terus gan
ReplyDeleteeror dibagian mana nya mas jaenal? :D coba di ceklist lagi
ReplyDeleteane coba2 dulu gan
ReplyDeletegan pas yang dibagian tambah private button1 nya error
ReplyDelete