Cara Menghitung Luas dan Keliling Persegi Panjang , luas segitiga ,trapesium dan volume Tabung

Haiiiii

.. 
Kali ini Ani akan memberikan sedikit pengetahuan tentang visual basic. Disini Ani menggunakan program Microsoft Visual Studio 2008. Selanjutnya Ani ingin membuat contoh kasus yaitu membuat program menghitung luas persegi panjang.

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	PROGRAM PERSEGI PANJANG
		Font Size	9
		Bold	True
2	Label2	Text	Panjang :
3	Label3	Text	Lebar :
4	Label4	Text	Luas :
5	Label5	Text	Keliling
6	TextBox1	Name	TxtP
7	TextBox2	Name	TxtL
8	TextBox3	Name	TxtLuas
9	TextBox4	Name	TxtKeliling
10	Button1	Text	Proses
		Name	BtnProses
11	Button2	Text	Bersih
		Name	BtnBersih

12	Button3	Text	Tutup
		Name	BtnTutup

      Alur Program

1. Jika diklik Button1 (Proses), Maka

     Dia akan otomatis mengetahui brapa Luas Persegi panjang dan Keliling nya

2.  Jika diklik tombol Button2 (Bersih), maka:

-  teks pada objek TxtP, TxtL, TxtLuas danTxtKeliling akan dihapus (kosong).

3.    Jika diklik tombol Button3 (Tutup), maka program akan ditutup (keluar dari program)

Perintah Program:

A. Printah Pada Button1 (Proses)

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

        TxtLuas.Text = TxtP.Text * TxtL.Text
        TxtK.Text = 2 * Val(Val(TxtP.Text) + TxtL.Text)
    End Sub

B. Printah Pada Button2 (Bersih)

     Private Sub BtnBersih_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) 

              TxtK.Text = ""
        TxtL.Text = ""
        TxtLuas.Text = ""
        TxtP.Text = ""
    End Sub

C. Printah Pada Button2 (Tutup)

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

Tampilan program setelah dijalankan sebagai berikut:




   tonton video berikut guys :

 untuk selanjunya gusy  kita akan  membuat  Program untuk   perhitungan  mencari luas segitiga :

1.  kita buat desain seperti berikut :

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	Program Menghitung Luas Segi Tiga
		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 senderAsSystem.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 AsSystem.Object, ByVal e As System.EventArgs)Handles Button2.Click

        TxtA.Text = ""

        TxtHasil.Text = ""

        TxtT.Text = ""

    End Sub

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

        End

    End Sub

Dan hasil akhinya seperti berikut:

dan untuk  lebih paham bisa nonton videonya  guys :

untuk selanjunya gusy  kita akan  membuat  Program untuk   perhitungan  mencari  VOLUME TABUNG

1.Buat desain seperti berikut :

 

2. Pengaturan Properties

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Label1	Text	Program Menghitung Volume Tabung
		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 AsSystem.Object, ByVal e As System.EventArgs) HandlesBtnHasil.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) HandlesBtnBersih.Click

        TxtJ.Text = ""

        TxtT.Text = ""

        TxtV.Text = ""

    End Sub

    Private Sub BtnTutup_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesBtnTutup.Click

        End

    End Sub

Tampilan Program Yang Sudah Jadi :

 mari tonton videonya :

  selanjunya kita sama -sama  cari luas  TRAPESIUM  

yok

untuk mencari luas trapesium, dapat digunakan rumus L = . Dengan konsep tersebut, dapat dibuat sebuah aplikasi untuk menghitung luas trapesium menggunakan program visual basic 6.0 yang  nantinya akan berguna untuk membantu menyelesaikan masalah mencari luas trapesium dalam ilmu matematika.

1.kita  desain programnya seperti gambar berikut :

2.pengaturan Program

No	OBJEK	PROPERTIES	PENGATURAN
1	Label 1	Text	Program mencari Luas Trapesium
2	Label 2	Text	Sisi Pertama
3	Label3	Text	Sisi kedua
4	Label 4	Text	Tinggi
5	Label 5	Text	Luas
6	TextBoxt1	Name	txtsisipertama
7	TextBoxt2	Name	txtsisikedua
8	TextBoxt3	Name	txttinggi
9	TextBoxt4	Name	Txtluas
10	Button1	Name	BtnProses
		Text	Proses
11	Button2	Name	BtnBersih
		Name	Bersih
12	Button3	Name	BtnTutup
		Name	Tutup

Perintah Program:

1. kita klik proses dan masukkan kode berikut :

Private Sub btnProses hitung_Click()
Dim sisipertama, sisikedua, tinggi, luas As Single
sisipertama = Val(txtsisipertama.Text)
sisikedua = Val(txtsisikedua.Text)
tinggi = Val(txttinggi.Text)
If txtsisipertama.Text = “” Or txtsisikedua.Text = “” Or txttinggi.Text = “” Then
MsgBox (“Tolong masukkan nilai sisi pertama, sisi kedua, dan tinggi terlebih dulu”)
ElseIf sisipertama > 0 And sisikedua > 0 And tinggi > 0 Then
luas = 1 / 2 * (sisipertama + sisikedua) * tinggi
txtluas.Text = luas
End If

End Sub

2. klik  Bersih dan masukkan kode berikut :
 Private Sub btnBersih_Click()
txtsisipertama.Text = “”
txtsisikedua.Text = “”
txttinggi.Text = “”
txtluas.Text = “”
txtsisipertama.SetFocus
End Sub


3. klik  Tutup dan Masukkan Kode berikut 

Private Sub BtnTutup_Click()

End

End Sub



dan hasil nerikutnya adalah sebagai berikut :

 untuk lebih paham yuk tonton videonya ":