Puzzle pada Pemrograman Visual(.Net)

Public Class Form1 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 setelah itu kita lanjutkan ke button2 sampai button 9, sintak'a seperti ini... 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...

Read more »

Penggunaan di ListView pada PemrogramanVisual(.Net)

Contoh Form Penggunaan di ListView pada PemrogramanVisual(.Net) Public Class Form1 'membuat variabel array Dim listtxt(3) As String Dim listitem As ListViewItem Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'memasukan nilai ke variabel array listtxt(0) = Trim(TextBox1.Text) listtxt(1) = Trim(TextBox2.Text) listtxt(2) = Trim(TextBox3.Text) 'untuk memasukan ke listview dari variabel array listitem = New ListViewItem(listtxt) ListView1.Items.Add(listitem) End Sub 'Setting kolom listview Sub setlistview() ListView1.View = View.Details 'untuk menentukan kolom ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center) ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left) ListView1.Columns.Add("Alamat",...

Read more »

Penggunaan di ListBox pada PemrogramanVisual(.Net)

Contoh Form Penggunaan di ListBox pada PemrogramanVisual(.Net) Public Class latihanForm1 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated Call isicombo() Call isibersih() End Sub Sub isicombo() ComboBox1.Items.Add("06 Teknik Informatika") ComboBox1.Items.Add("07 Sistem Informasi") ComboBox1.Items.Add("26 Manajemen Informatika") ComboBox1.Items.Add("67 Komputer Akuntansi") ComboBox1.Items.Add("05 Teknik Komputer") End Sub Sub isibersih() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox1.Text = "06 Teknik...

Read more »