Bermain Button

Public Class Form_petugas

    Dim listtxt(3) As String

    Dim listitem As ListViewItem

    Private Sub Form_petugas_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call Bersih()

    End Sub

    Sub Bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

    Private Sub Form_petugas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call listview()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        listtxt(0) = Trim(TextBox1.Text)

        listtxt(1) = Trim(TextBox2.Text)

        listtxt(2) = Trim(TextBox3.Text)

        listitem = New ListViewItem(listtxt)

        ListView1.Items.Add(listitem)

    End Sub

    Sub listview()

        ListView1.View = View.Details

        ListView1.Columns.Add("Kode Petugas", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama Petugas", 300, HorizontalAlignment.Center)

        ListView1.Columns.Add("Shift", 50, HorizontalAlignment.Center)

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        TextBox1.Text = e.Item.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

            MsgBox("Anda Yakin Akan Keluar? ")

            Me.Close()

        Else

            Call Bersih()

        End If

    End Sub

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

        'Call hapus()

        ListView1.Items.RemoveAt(0)

        ListView1.Items.RemoveAt(1)

        ListView1.Items.RemoveAt(2)

    End Sub

    Sub hapus()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ListView1.Items.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call edit()

    End Sub

    Sub edit()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

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

    End Sub

End Class

listbox

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

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox4.Focus() 
End If 
End Sub 

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox5.Focus() 
End If 
End Sub 

Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox6.Focus() 
End If 
End Sub 

Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox7.Focus() 
End If 
End Sub 

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress 
If e.KeyChar = Chr(13) Then 
Call pros3() 
Call bersihpros() 
TextBox3.Focus() 
End If 
End Sub 

Sub bersihpros() 
TextBox3.Text = "" 
TextBox4.Text = "" 
TextBox5.Text = "" 
TextBox6.Text = "" 
TextBox7.Text = "" 
End Sub 

End Class

listview

coding
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", 400, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub

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

End Class

looping

Menampilkan bilangan yang sisa hasil baginya 0 jika pembaginya 4 & 7 dari 1 s.d 100

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

Dim g, h,i, j As Integer
i = 4
j = 7

ListBox1.Items.Clear()

For h = 1 To Val(TextBox1.Text)

If h Mod 1 = 0 Then

ListBox1.Items.Add(i)
i = h

End If 
if h mod j then
ListBox1.Items.Add(i)
j = h
end If

Next

End Sub

Menampilkan bilangan  yang sisa  hasilnya 3 apabila pembaginya 4 dari 1 s.d 100.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

End Sub

End Class

Note :

ListBox1.Items.Clear() artinya untuk membersihkan nilai yang ada di ListBox1.

For I = 1 To Val (TextBox1.Text) artinya untuk looping dari 1 sampai nilai di ListBox1

pazzle

Button 1   :  Visible / false
Button 2   :  Teks = 4
Button 3   :  Teks = 2
Button 4   :  Teks = 7
Button 5   :  Teks = 6
Button 6   :  Teks = 1
Button 7   :  Teks = 3
Button 8   :  Teks = 8
Button 9   :  Teks = 5

coding

Public Class Puzzle

    Private Sub Button1_Click(ByVal sender As 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 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 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 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 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 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 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 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 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

End Class