DAFTAR TUGAS VISUAL BASIC

Berikut DAFTAR TUGAS VISUAL BASIC yang saya postingkan :

1. TUGAS 1 VISUAL BASIC
2. TUGAS 2 VISUAL BASIC
3. TUGAS 3 VISUAL BASIC
4. TUGAS PERTEMUAN 7 VISUAL BASIC
5. TUGAS PERTEMUAN 8 VISUAL BASIC
6. TUGAS PERTEMUAN 9 VISUAL BASIC

Sekian Daftar Tugas yang telah saya kerjakan.

Membuat Calculator Sederhana menggunakan Visual Basic

Kali ini saya akan membuat program calculator sederhana menggunakan Aplikasi Microsoft Visual Studio. Disini saya menyediakan:

3  ( tiga ) LABEL

3  ( tiga ) TEXTBOX

20 ( dua puluh ) BUTTON

Sekarang kita mulai membuat calculator. Pertama - tama kita membuka Aplikasi Microsoft Visual Studio.

 

Kemudian Klik File --> New Project, Akan keluar kotak dialog seperti

gambar dibawah ini. Pilih Windows Forms Application -->ok

Kemudian pada Form masukan Label, Textbox, dan Button sesuai yang di sediakan diatas.

Kemudian kita beri nama pada label 1 sampai dengan 3. Klik pada label kemudian pada properties, cari Text: seperti gambar dibawah ini.

Label 1 kita beri nama: Input-1

Label 2 kita beri nama: Input-2

Label 3 kita beri nama: Output

Kemudian ganti nama Form, Label dan Button , sesuai contoh dibawah ini:

Kemudian kita masuk pada Syntax yang berfungsi untuk menjalankan program calculator ini.

Pada Button 1 ( + ) double click, kita masukan syuntax seperti dibawah ini sesuai urutan penempatan tanda.

TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)

Dan untuk button lain sesuai contoh di bawah ini:

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox3.Text = CSng(TextBox1.Text) - CSng(TextBox2.Text)

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox3.Text = CSng(TextBox1.Text) * CSng(TextBox2.Text)

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox3.Text = CSng(TextBox1.Text) / CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) \ CSng(TextBox2.Text)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox3.Text = CSng(TextBox1.Text) Mod CSng(TextBox2.Text)

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        TextBox3.Text = CSng(TextBox1.Text) ^ CSng(TextBox2.Text)

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        TextBox3.Text = CSng(TextBox1.Text) < CSng(TextBox2.Text)

    End Sub

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

        TextBox3.Text = CSng(TextBox1.Text) > CSng(TextBox2.Text)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox3.Text = CSng(TextBox1.Text) <= CSng(TextBox2.Text)

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        TextBox3.Text = CSng(TextBox1.Text) >= CSng(TextBox2.Text)

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        TextBox3.Text = CSng(TextBox1.Text) & CSng(TextBox2.Text)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox3.Text = Math.Sin(CSng(TextBox1.Text) * 3.1416 / 180)

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox3.Text = Math.Cos(CSng(TextBox1.Text) * 3.1416 / 180)

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        TextBox3.Text = Math.Tan(CSng(TextBox1.Text) * 3.1416 / 180)

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        TextBox3.Text = Math.Log(CSng(TextBox1.Text)) / Math.Log(CSng(TextBox2.Text))

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox3.Text = Math.Log(CSng(TextBox1.Text))

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox3.Text = Math.Sqrt(CSng(TextBox1.Text))

    End Sub

 

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        TextBox1.Clear()

        TextBox2.ResetText()

        TextBox3.Text = ""

        TextBox1.Focus()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

Kemudian setelah selesai menginputkan syintax, kita jalankan program ini. Dengan menekan F5 atau pada Standard Toolbar klik tanda panah warna hijau ( Start Debugging).

Demikian program sederhana dari saya, semoga dapat bermanfaat.