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!!.......^_^