Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim a, b, m, n As Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
For n = Val(TextBox1.Text) To Val(TextBox2.Text)
If n Mod 2 = 0 And n Mod 1 = 0 Then
ListBox1.Items.Add(n)
End If
Next
For i = a To b
If i Mod a = 0 Then
ListBox2.Items.Add(i)
a = i
End If
Next
For m = a To b
If m Mod b = 0 Then
ListBox2.Items.Add(m)
b = m
End If
Next
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
Next
End Sub
End Class
Minggu, 17 April 2011
Sabtu, 16 April 2011
thank's before buat Temen saya ini, cz saya copy dari blog dia,, pinjem bentar ya prenn,, buat ujian..
buat dulu design kaya gini :
Lalu ubah "Nama" Button 1 menjadi "3" dengan merubah pada propertiesnya :
Lakukan Hal yang sama untuk Button Lain, Seperti Berikut :
button2 textnya menjadi =5
button3 textnya menjadi =6
button4 textnya menjadi =2
button5 textnya menjadi =1
button6 textnya menjadi =7
button7 textnya menjadi =8
button8 textnya menjadi =4
sedangkan button9
button9 menjadi visible = false *,seperti:
kemudian, masukkan coding berikut & sesuaikan dengan button awal (nomor yang normal ):
Public Class Form1
(button1):
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
kerja()
End Sub
(button2):
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
Button2.Visible = True
Button5.Visible = False
Button5.Text = Button2.Text
End If
kerja()
End Sub
(button3):
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
End Sub
(button4):
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
kerja()
End Sub
(button5):
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
kerja()
End Sub
(button6):
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
kerja()
End Sub
(button7):
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
kerja()
End Sub
(button8):
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
kerja()
End Sub
(button9):
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
kerja()
End Sub
setelah selesai mengisi printah dari setiap button tersebut sekarang kita tambah methotnya :
Private Sub kerja()
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(" selamat anda berhasil")
End If
End If
End If
End Sub
End Class
Tinggal di Running Deh... F5 atao Debugging,,,,
nnti button2 tersebut bisa dipindah2in kaya main puzzle..
buat dulu design kaya gini :
Lalu ubah "Nama" Button 1 menjadi "3" dengan merubah pada propertiesnya :
Lakukan Hal yang sama untuk Button Lain, Seperti Berikut :
button2 textnya menjadi =5
button3 textnya menjadi =6
button4 textnya menjadi =2
button5 textnya menjadi =1
button6 textnya menjadi =7
button7 textnya menjadi =8
button8 textnya menjadi =4
sedangkan button9
button9 menjadi visible = false *,seperti:
kemudian, masukkan coding berikut & sesuaikan dengan button awal (nomor yang normal ):
Public Class Form1
(button1):
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
kerja()
End Sub
(button2):
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
Button2.Visible = True
Button5.Visible = False
Button5.Text = Button2.Text
End If
kerja()
End Sub
(button3):
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
End Sub
(button4):
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
kerja()
End Sub
(button5):
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
kerja()
End Sub
(button6):
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
kerja()
End Sub
(button7):
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
kerja()
End Sub
(button8):
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
kerja()
End Sub
(button9):
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
kerja()
End Sub
setelah selesai mengisi printah dari setiap button tersebut sekarang kita tambah methotnya :
Private Sub kerja()
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(" selamat anda berhasil")
End If
End If
End If
End Sub
End Class
Tinggal di Running Deh... F5 atao Debugging,,,,
nnti button2 tersebut bisa dipindah2in kaya main puzzle..
List view untuk menampilkan data secara manual
Maret 2011
BELAJAR LISTVIEW!!!
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
BELAJAR LISTVIEW!!!
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
List view untuk menampilkan data secara manual
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
For i = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 4 Then
ListBox2.Items.Add(i)
End If
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 3 = 2 Then
ListBox3.Items.Add(i)
End If
Next
End Sub
End Class
Dim i As Integer
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
For i = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 4 Then
ListBox2.Items.Add(i)
End If
Next
For i = 1 To Val(TextBox1.Text)
If i Mod 3 = 2 Then
ListBox3.Items.Add(i)
End If
Next
End Sub
End Class
Langganan:
Postingan (Atom)