PROGRAM MENGHITUNG LUAS SEGITIGA DAN LINGKARAN

Pada postingan kali ini saya akan mengajak anda untuk membuat program sederhana menghitung luas segitiga dan lingkaran.Selamat membaca !

PROGRAM MENGHITUNG LUAS SEGITIGA

Rumus perhitungan luas segitiga adalah : alas x tinggi / 2

Jadi mari kita membuat program dengan vb.6 sebagai berikut :

1.Buka Visual Basic 6.0

2.Open Standard.Exe

3.Kemudian tarik 3 Label,3 Textbox dan 2 Command Button.

4.Ubah Caption Label 1 menjadi Alas,Label 2 menjadi Tinggi dan Label 3 menjadi Luas Segitiga

5.Ubah name pada properties(untuk digunakan dalam coding) untuk Text1 = txtalas, Text2 = txttinggi ,Text3 = txtluas, untuk command1 ubah name menjadi = btnhitung,dan untuk command2 menjadi btnrefresh.

6.Setelah itu ketikkan coding berikut pada tombol hitung (klik dua kali pada tombol hitung)

Private Sub btnhitung_Click()
     a = Val(txtalas.Text)
     t = Val(txttinggi.Text)
  If txtalas.Text = "" Or txttinggi.Text = "" Then
     MsgBox "Informasi Tidak Lengkap", vbInformation, "SEGITIGA"
  Else
     txtluas.Text = (a * t) / 2
     txtalas.Text = a
     txttinggi.Text = t
  End If

End Sub

7.Kemudian pada tombol refresh tuliskan script berikut

Private Sub btnrefresh_Click()
    txtalas.Text = ""
    txttinggi.Text = ""
    txtluas.Text = ""
 
    txtalas.SetFocus
End Sub

PENJELASAN CODING

Private Sub btnhitung_Click() → artinya pada tombol hitung jika diklik akan dikerjakan coding berikut
a = Val(txtalas.Text) → untuk mengkonversi nilai yang ada dalam text menjadi nilai aritmetika

t = Val(txttinggi.Text) → untuk mengkonversi nilai yang ada dalam text menjadi nilai aritmetika
  If txtalas.Text = "" Or txttinggi.Text = "" Then → jika textbox alas dan tinggi kosong maka
     MsgBox "Informasi Tidak Lengkap", vbInformation, "SEGITIGA" → akan muncul pesan (informasi tidak lengkap dengan SEGITIGA sebagai nama dari pesan tersebut)
  Else → jika tidak (kerjakan rumus di bawah)
     txtluas.Text = (a * t) / 2 → pada textbox luas akan dikerjakan alas x tinggi / 2
     txtalas.Text = a → memasukkan nilai a pada textbox alas
     txttinggi.Text = t → memasukkan nilai t pada textbox tinggi
  End If → mengakhiri percabangan If

End Sub→ Akhir dari proses script


Private Sub btnrefresh_Click()→ artinya pada tombol refresh jika dklik akan dikerjakan coding berikut
    txtalas.Text = "" → untuk membuat textbox alas menjadi kosong
    txttinggi.Text = "" → untuk membuat textbox tinggi menjadi kosong
    txtluas.Text = "" → untuk membuat textbox luas menjadi kosong
 
    txtalas.SetFocus → apabila tombol refresh diklik maka kursor akan berada di textbox alas
End Sub → Akhir dari proses script

-Dengan kata lain tombol refresh berfungsi untuk mengosongkan seluruh textbox yang ada di dalam form/Me-Refresh
-Tambahan ! Untuk membuat textbox luas segitiga menjadi tidak bisa diklik,dapat diubah pada properties.Klik textbox luas segitiga,kemudian sebelah kanan anda cari enabled dan ganti menjadi False.

Hasil Akhir dari program Luas Segitiga :

PROGRAM MENGHITUNG LUAS LINGKARAN

1.Buka Visual Basic 6.0
2.Open Standard.Exe
3.Kemudian Tarik 2 Label,2 Textbox, dan 2 Command Button
4.Ubah Caption Label dengan Jari-Jari(Label1) dan Luas Lingkaran(Label2)
5.Ubah Name Textbox1 dan Textbox2 menjadi txtjari dan txtluas,dan pada Command Button 1 ubah menjadi btnhitung,dan pada Command Button 2 ubah menjadi btnrefresh

6.Kemudian tuliskan script berikut

Private Sub btnhitung_Click()
Dim phi As Double
    phi = 3.14
    r = Val(txtjari.Text)
    If txtjari.Text = "" Then
    MsgBox "Informasi Tidak Lengkap", vbInformation, "LINGKARAN"
    Else
    txtluas.Text = phi * (r ^ 2)
    txtjari.Text = r
    End If
     
End Sub

Private Sub btnrefresh_Click()
    txtjari.Text = ""
    txtluas.Text = ""
 
    txtjari.SetFocus
End Sub

PENJELASAN CODING

Private Sub btnhitung_Click()→apabila tombol hitung diklik maka akan dikerjakan coding berikut

Dim phi As Double→ mendeklarasikan variabel phi dengan tipe data Double

    phi = 3.14→ memasukkan nilai phi

    r = Val(txtjari.Text)→ mengkonversi agar nilai yang ada dalam textbox menjadi nilai aritmetika(bisa dihitung)

    If txtjari.Text = "" Then→ artinya apabila textbox jari kosong maka

    MsgBox "Informasi Tidak Lengkap", vbInformation, "LINGKARAN"→ muncul message box berisi "Informasi Tidak Lengkap" dengan LINGKARAN sebagai nama messagebox

    Else→ jika tidak (jika textbox jari terisi)

    txtluas.Text = phi * (r ^ 2)→ di textbox luas akan dikerjakan rumus luas lingkaran

    txtjari.Text = r→ memasukkan nilai r pada textbox jari 

    End If→ mengakhiri percabangan if

        

End Sub→ mengakhiri coding pada tombol hitung

Private Sub btnrefresh_Click()→apabila tombol refresh diklik maka akan dikerjakan coding berikut 

    txtjari.Text = ""→ untuk membuat textbox jari menjadi kosong

    txtluas.Text = ""→ untuk membuat textbox luas menjadi kosong

    

    txtjari.SetFocus→ jika tombol refresh diklik maka kursor akan berada pada posisi textboxjari

End Sub→ mengakhiri coding pada tombol refresh

Hasil akhir dari Program Menghitung Luas Lingkaran :

Sekian postingan dari saya mengenai cara membuat program menghitung luas.Semoga ilmu yang dibagikan dapat bermanfaat !