Tugas 2 Membuat Program Sederhana Pemrograman Desktop

Program Sederhana Menghitung Luas Benda

Disini saya menggunakan Tab untuk beberapa program menghitung luas benda. Di Visual Studio 2013.

Berikut adalah contoh script nya.

Script Program

Public Class Form1

    Private Sub TabPage3_Click(sender As Object, e As EventArgs)

    End Sub

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

        Label6.Text = Val(TextBox10.Text) * Val(TextBox8.Text) / 2

    End Sub

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

        Label14.Text = Val(TextBox7.Text) * Val(TextBox5.Text)

    End Sub

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

        Label15.Text = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)

    End Sub

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

        TextBox10.Text = String.Empty

        TextBox8.Text = String.Empty

        Label6.Text = String.Empty

    End Sub

    Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click

    End Sub

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

        TextBox7.Text = String.Empty

        TextBox5.Text = String.Empty

        Label14.Text = String.Empty

    End Sub

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

        TextBox1.Text = String.Empty

        TextBox2.Text = String.Empty

        TextBox3.Text = String.Empty

        Label15.Text = String.Empty

    End Sub

End Class

Tampilan Program

1. Tab Pertama

2. Tab Kedua

3. Tab Ketiga