Membuat Stopwatch Menggunakan VB2010

Pada bagian ini kita akan membuat sebuah stopwatch menggunakan VB2010. Adapun langkah-langkah yang kita lakukan untuk membuat stopwatch menggunakan VB2010 yaitu:
1.    Tambahkan sebuah label ke dalam form dan ubah text propertiesnya menjadi “00:00:00:000”.
2.    Ubah ukuran size font menjadi 28.
3.    Tambahkan sebuah timer ke dalam form, pada properties window ubah interval menjadi “1”.
4.    Tambahkan sebuah listbox dan letakkan di bawah label.
5.    Tambahkan 4 button dan letakkan di bawah listbox dan ubah text propertiesnya. Button1 menjadi “Mark”, button2 menjadi “Start”, button3 menjadi “Stop” dan button 4 menjadi “Reset”.

Klik form1 dan klik view code, kemudian masukkan coding berikut:
Public Class Form1
    Private stopwatch As New Stopwatch
End Class

Klik 2 kali timer1 dan masukkan coding berikut:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim elapsed As TimeSpan = Me.stopwatch.Elapsed
        Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", _
        Math.Floor(elapsed.TotalHours), _
        elapsed.Minutes, elapsed.Seconds, _
        elapsed.Milliseconds)
    End Sub

Klik 2 kali button “Start” (button2) dan masukkan coding berikut:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
        Me.stopwatch.Start()
        Button4.Enabled = False
    End Sub

Klik 2 kali button “Stop” (button3) dan masukkan coding berikut:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Stop()
        Me.stopwatch.Stop()
        Button4.Enabled = True
    End Sub

Klik 2 kali button “Reset” (button4) dan masukkan coding berikut:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.stopwatch.Reset()
        Label1.Text = "00:00:00:00"
        ListBox1.Items.Clear()
    End Sub

Klik 2 kali button “Mark” (button1) dan masukkan coding berikut:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(ListBox1.Items.Count + 1 & " - " & Label1.Text)
    End Sub

Klik Start Debugging (F5) untuk menjalankan program.

Untuk mendapatkan file pdf-nya, klik download

Membuat Kamus Sederhana Menggunakan VB2010

Pada bagian ini kita akan membuat kamus sederhana. Kamus ini akan menampilkan kata-kata bahasa inggris dan memberikan definisi dari kata tersebut dengan bahasa inggris.
Tambahkan 2 buah label, 2 textbox, 1 button dan 1 listbox ke dalam form. Ubah text label1 menjadi word, label2 menjadi definiton dan text button menjadi Search. Ubah properties textbox2 menjadi multiline.

Selanjutnya kita kan menambahkan coding ke dalam program. Langkah pertama, klik 2 kali form1 dan masukkan coding berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("aardvark")
        ListBox1.Items.Add("aardwolf")
        ListBox1.Items.Add("aaron")
        ListBox1.Items.Add("aback")
        ListBox1.Items.Add("abacus")
        ListBox1.Items.Add("abaft")
        ListBox1.Items.Add("abalone")
        ListBox1.Items.Add("abandon")
        ListBox1.Items.Add("abandoned")
        ListBox1.Items.Add("abandonment")
        ListBox1.Items.Add("abandons")
        ListBox1.Items.Add("abase")
        ListBox1.Items.Add("abased")
        ListBox1.Items.Add("abasement")
        ListBox1.Items.Add("abash")
        ListBox1.Items.Add("abashed")
        ListBox1.Items.Add("abate")
        ListBox1.Items.Add("abated")
        ListBox1.Items.Add("abatement")
        ListBox1.Sorted = True
    End Sub

Klik 2 kali textbox1 dan masukkan coding berikut:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim Item As String = TextBox1.Text.ToString()
        Dim index As Integer = ListBox1.FindString(Item)
        If index = -1 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex
        Else
            ListBox1.SetSelected(index, True)
        End If
    End Sub

Klik 2 kali button1 dan masukkan coding berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "abacus" Then
            TextBox2.Text = "A manual computing device consisting of a frame holding parallel rods strung with movable counters."
        ElseIf TextBox1.Text = "abash" Then
            TextBox2.Text = "To make ashamed or uneasy; disconcert."
        Else
            'A message box will show up if the entered word is not found
            MsgBox("No mathcing results where found")
        End If
    End Sub

Selanjutnya kita akan menambah fungsi dari button1 (search), dimana fungsi dari button1 tersebut juga dapat dilakukan dengan menekan Enter. Klik form1, pada properties ubah AcceptButton menjadi Button1.

Selanjutnya kita akan menambahkan fitur pada listbox1, dimana user dapat meng-klik 2 kali pada listbox1 dan hasilnya akan muncul pada textbox2 (fungsi yang sama jika kita menggunakan button1). Langkah yang harus dilakukan yaitu, klik menu view code kemudian pada kotak General pilih listbox1 dan pada kotak Declarations pilih DoubleClick.

Kemudian masukkan coding berikut:

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        TextBox1.Text = ListBox1.SelectedItem
        Button1.PerformClick()
    End Sub

Tekan Start Debugging (F5) untuk menjalankan program. Untuk mendapatkan file pdf-nya klik download

Membuat Calculator Sederhana Menggunakan VB2010

Pada bagian ini, kita akan membuat sebuah calculator sederhana menggunakan VB2010. Buat new project pada VB2010, kemudian pada form1 ubah propertiesnya seperti: MaximizeBox menjadi False dan FormBorderStyle menjadi Fixed3D.
Tambahkan sebuah button ke dalam form dan letakkan pada posisi top dalam form tersebut. Kita akan mengubah button tersebut menjadi berbentuk sebuah textbox. Adapun caranya dengan mengubah properties pada button seperti pada tabel berikut:

Sehingga didapat sebuah button yang berbentuk text seperti gambar berikut:

Tambahkan 18 buah button dan 3 buah label ke dalam form tersebut, kemudian atur letaknya serta text-nya seperti gambar berikut:

Sembunyikan tampilan 3 buah label dengan menimpanya menggunakan border form1. Selanjutnya kita akan menambahkan coding ke dalam program.

•    Klik 2 kali button Clear dan masukkan coding berikut:
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Button1.Text = "0."
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
End Sub

•    Klik 2 kali button Exit dan masukkan coding berikut:
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        End
End Sub

•    Klik 2 kali button “.” Dan masukkan coding berikut:
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If Button1.Text = "0." Then
            Button1.Text = "."
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "."
        ElseIf Button1.Text = Label1.Text Then
            Button1.Text = "."
        Else
            If Button1.Text.Contains(".") Then
            Else
                Button1.Text = Button1.Text & "."
            End If
        End If
    End Sub

•    Klik 2 kali button “=” dan masukkan coding berikut:
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If Label1.Text > "" And Label2.Text = "+" Then
            Button1.Text = Val(Label1.Text) + Val(Button1.Text)
            Label3.Text = Button1.Text
        ElseIf Label2.Text > "" And Label2.Text = "-" Then
            Button1.Text = Val(Label1.Text) - Val(Button1.Text)
            Label3.Text = Button1.Text
        ElseIf Label2.Text > "" And Label2.Text = "*" Then
            Button1.Text = Val(Label1.Text) * Val(Button1.Text)
            Label3.Text = Button1.Text
        ElseIf Label2.Text > "" And Label2.Text = "/" Then
            Button1.Text = Val(Label1.Text) / Val(Button1.Text)
            Label3.Text = Button1.Text
        Else
        End If
    End Sub

•    Klik 2 kali button “+” dan masukkan coding berikut:
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Label2.Text = "+"
        Label1.Text = Button1.Text
    End Sub

•    Klik 2 kali button “-“ dan masukkan coding berikut:
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Label2.Text = "-"
        Label1.Text = Button1.Text
    End Sub

•    Klik 2 kali button “*” dan masukkan coding berikut:
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Label2.Text = "*"
        Label1.Text = Button1.Text
    End Sub

•    Klik 2 kali button “/” dan masukkan coding berikut:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label2.Text = "/"
        Label1.Text = Button1.Text
    End Sub

•    Klik 2 kali button “0” dan masukkan coding berikut:
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "0."
        ElseIf Button1.Text = "0." Then
            Button1.Text = "0."
        ElseIf Button1.Text = "0" Then
            Button1.Text = "0."
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "0."
        Else
            Button1.Text = Button1.Text & "0"
        End If
    End Sub

•    Klik 2 kali button “1” dan masukkan coding berikut:
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "1"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "1"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "1"
        Else
            Button1.Text = Button1.Text & "1"
        End If
    End Sub

•    Klik 2 kali button “2” dan masukkan coding berikut:
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "2"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "2"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "2"
        Else
            Button1.Text = Button1.Text & "2"
        End If
    End Sub

•    Klik 2 kali button “3” dan masukkan coding berikut:
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "3"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "3"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "3"
        Else
            Button1.Text = Button1.Text & "3"
        End If
    End Sub

•    Klik 2 kali button “4” dan masukkan coding berikut:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "4"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "4"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "4"
        Else
            Button1.Text = Button1.Text & "4"
        End If
    End Sub

•    Klik 2 kali button “5” dan masukkan coding berikut:
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "5"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "5"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "5"
        Else
            Button1.Text = Button1.Text & "5"
        End If
    End Sub

•    Klik 2 kali button “6” dan masukkan coding berikut:
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "6"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "6"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "6"
        Else
            Button1.Text = Button1.Text & "6"
        End If
    End Sub

•    Klik 2 kali button “7” dan masukkan coding berikut:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "7"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "7"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "7"
        Else
            Button1.Text = Button1.Text & "7"
        End If
    End Sub

•    Klik 2 kali button “8” dan masukkan coding berikut:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "8"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "8"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "8"
        Else
            Button1.Text = Button1.Text & "8"
        End If
    End Sub

•    Klik 2 kali button “9” dan masukkan coding berikut:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button1.Text = Label1.Text Then
            Button1.Text = "9"
        ElseIf Button1.Text = "0." Then
            Button1.Text = "9"
        ElseIf Button1.Text = Label3.Text Then
            Button1.Text = "9"
        Else
            Button1.Text = Button1.Text & "9"
        End If
    End Sub

•    Klik 2 kali pada form dan masukkan coding berikut:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "0."
    End Sub

klik Start Debugging (F5) untuk menjalankan program.

untuk mendapatkan file pdf-nya, klik download