LATIHAN 3

BUAT LAH PEROGRAM PERHITUNGAN LUAS SEGITIGA 

1. BUAT LAH DISAIN SEPERTI INI

2. Pengaturan Properties

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	Program Menghitung Luas Segi Tiga
		FureColor	Blue
		Bold	True
2	Label2	Text	Alas :
3	Label3	Text	Tinggi :
4	Grup Box	Text	Input
5	TextBox1	Name	txtA
6	TextBox2	Name	txtT
7	TextBox3	Name	Txthasil
8	Button1	Name	BtnLuas
		Text	Luas
9	Button2	Name	BtnBersih
		Text	Bersih
10	Button3	Name	BtnTutup

		Text	Tutup

    Pemberian Perintah/Instruksi pada Program

        Alur Program:

     > Input Bilangan1 dan Bilangan2

       > Klik Luas Maka Luas Segin Tiga tersebut akan diketahui

   >  Klik tombol Bersih, maka isi Bilangan1, Bilangan2 dan Hasil akan bersih (kosong).

 >Klik tombol Tutup, maka program akan ditutup.

Perintah Program:

Private Sub BtnLuas_Click(ByVal senderAs System.Object, ByVal e As System.EventArgs) Handles BtnLuas.Click

        Const R = 0.5

        Dim alas, tinggi As Double

        Dim luas As Double

        alas = Val(TxtA.Text)

        tinggi = Val(TxtT.Text)

        luas = Val(TxtHasil.Text)

        luas = (R * alas * tinggi)

        TxtHasil.Text = luas

    End Sub

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

        TxtA.Text = ""

        TxtHasil.Text = ""

        TxtT.Text = ""

    End Sub

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

        End

    End Sub

Tampilan Program Yang Sudah Jadi

Buat Lah Program Volume Tabung

2. BUAT LAH DISAIN SEPERTI INI

2. Pengaturan Properties

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	Program Menghitung Volume Tabung
		ForeColor	Red
		Bold	True
2	Label2	Text	Tinggi Tabung :
3	Label3	Text	Jari-jari Tabung :
4	TextBox1	Name	TxtT
5	TextBox1	Name	txtJ
6	TextBox2	Name	txtV
8	Button1	Name	BtnHasil
8		Text	Hasil
	Button2	Name	BtnBersih
9		Text	Bersih
	Button3	Name	BtnTutup
10		Text	Tutup

 Alur Program:

     > Input Bilangan1 dan Bilangan2

       > Klik Hasil Maka Hasil Dari Volume Tabung Tersebut Akan diketahui

   >  Klik tombol Bersih, maka isi Bilangan1, Bilangan2 dan Hasil akan bersih (kosong).

 >Klik tombol Tutup, maka program akan ditutup.

Perintah Program:

Private Sub BtnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHasil.Click

        TxtV.Text = 3.14 * Val(TxtT.Text ^ 2 * TxtJ.Text)

    End Sub

 Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

        TxtJ.Text = ""

        TxtT.Text = ""

        TxtV.Text = ""

    End Sub

    Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click

        End

    End Sub

Tmpilan Program Yang Sudah Jadi :

                                LIHAT VIDEO DIBAWAH INI KETIKA DI JALAN KAN

                                              ↓