Tutorial Mencari Luas Segi Tiga dengan Visual Basic

Hasil program sederhana yang akan diperoleh adalah seperti berikut ini:

Langsung saja deh Tutorialnya :

1. Buka Program Visual Basic 6.0
2. Lanjutkan dengan menyediakan 1 form, 3 Label, 3 Teks Box, dan dua Comand Button langsung ubah propertiesnya seperti di bawah ini :

Nama	Propertis	Nilai
Form	Name Caption	frmSegitiga Luas Segitiga
Label Label2 Label3	Caption	Alas Segi Tiga Tinggi Luas
Text Box1 Text Box2 Text Box3	Name Text Name Text Name Text	txtlalas kosongkan txttinggi kosongkan txtluas kosongkan
ComandButton1 ComandButton2	Name Caption Name Caption	cmdKeluar Keluar cmdBersih Bersih

Kemudian ketikan code berikut pada tiap-tiap perintah :

Private Sub cmdBersih_Click()
    Bersih
End Sub

Private Sub cmdTutup_Click()
    MsgBox (" Anda Yakin benar-benar Keluar?")
    
    Unload Me
End Sub

Private Sub Form_Load()
    Bersih
End Sub

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

Private Sub txtalas_Change()
    txtluas.Text = 1 / 2 * Val(txtalas.Text) * Val(txttinggi.Text)
End Sub

Private Sub txttinggi_Change()
    txtluas.Text = 1 / 2 * Val(txtalas.Text) * Val(txttinggi.Text)
End Sub

Mudian coba jalankan!
Mudahkan...

File zip download di sini!

Posted in: Komputer, tutorial, Visual Basic