Assalamu’alaikum wr. wb.
Hai Guys, Kali ini
saya akan membagi sedikit pengetahuan saya mengenai pembuatan aplikasi bangun
datar sederhana menggunakan Visual Basic 6.0. Dengan menggunakan vb 6.0 kita bisa membuat beberapa rumus sekaligus
seperti phytagoras , persegi , persegi panjang dan segitiga
BERIKUT LANGKAH – LANGKAHNYA :
1. Pertama
buka microsoft visual basic 6.0 - pilih
standar exe
2. PHYTAGORAS
a. Buat
tampilan seperti gambar dibawah ini
KOMPONEN
|
PROPERTI
|
Text
|
Nama : Texta
Text : Kosongkan
|
Nama : Textb
Text :
Kosongkan
|
|
Nama : Textc
Text : Kosongkan
|
|
Command button
(Phytagoras)
|
Nama : Comphy
Caption : PHYTAGORAS
|
Nama : Comml1
Caption : MULAI LAGI
|
b. Masukkan
rumus/skripnya :
·
COMMAND BUTTON (comphy)
Private
Sub Comphy_Click()
Dim
a, b As Integer
a
= Val(Texta.Text)
b
= Val(Textb.Text)
c
= (a * a) + (b * b)
Textc.Text
= c
End
Sub
·
COMMAND BUTTON (comml1)
Private
Sub Comml1_Click()
Texta.SetFocus
Texta.Text
= ""
Textb.Text
= ""
Textc.Text
= ""
End
Sub
3. PERSEGI
PANJANG
a. Buat
tampilan seperti gambar dibawah ini
KOMPONEN
|
PROPERTI
|
Text
|
Nama : Textpanjang
Text : Kosongkan
|
Nama : Textlebar
Text :
Kosongkan
|
|
Nama : Texthaspp
Text : Kosongkan
|
|
Command button
(Persegi panjang)
|
Nama : Comppke
Caption : KELILING
|
Nama : Compplu
Caption : LUAS
|
|
Nama : Comml2
Caption : MULAI LAGI
|
b. Masukkan
rumus/skripnya :
·
COMMAND BUTTON (Comppke)
Private
Sub Comppke_Click()
Dim
p, l As Integer
p
= Val(Textpanjang.Text)
l
= Val(Textlebar.Text)
hasil
= 2 * (p + l)
Texthaspp.Text
= hasil
End
Sub
·
COMMAND BUTTON (compplu)
Private Sub Compplu_Click()
Dim
p, l As Integer
p
= Val(Textpanjang.Text)
l
= Val(Textlebar.Text)
hasil = p * l
Texthaspp.Text
= hasil
End
Sub
·
COMMAND BUTTON (comml2)
Private
Sub Comml2_Click()
Textpanjang.SetFocus
Textpanjang.Text
= ""
Textlebar.Text
= ""
Texthaspp.Text
= ""
End
Sub
4. PERSEGI
a. Buat
tampilan seperti gambar dibawah ini
KOMPONEN
|
PROPERTI
|
Text
|
Nama : Textsisi
Text : Kosongkan
|
Nama : Texthasp
Text : Kosongkan
|
|
Command button
(Persegi)
|
Nama : Compke
Caption : KELILING
|
Nama : Complu
Caption : LUAS
|
|
Nama : Comml3
Caption : MULAI LAGI
|
c. Masukkan
rumus/skripnya :
·
COMMAND BUTTON (Compke)
Private Sub Compke_Click()
Dim S As Integer
S = Val(Textsisi.Text)
hasil = 4 * S
Texthasp.Text = hasil
End Sub
·
COMMAND BUTTON (complu)
Private Sub Complu_Click()
Dim S As Integer
S = Val(Textsisi.Text)
hasil = S * S
Texthasp.Text = hasil
End Sub
·
COMMAND BUTTON (comml3)
Private
Sub Comml3_Click()
Textsisi.SetFocus
Textsisi.Text
= ""
Texthasp.Text
= ""
End
Sub
5. SEGITIGA
a. Buat
tampilan seperti gambar dibawah ini
KOMPONEN
|
PROPERTI
|
Text
|
Nama : Textab
Text : Kosongkan
|
Nama : Textac
Text : Kosongkan
|
|
Nama : Textbc
Text : Kosongkan
|
|
Nama : Textshas
Text : Kosongkan
|
|
Command button (segitiga)
|
Nama : Comske
Caption : KELILING
|
Nama : Comslu
Caption : LUAS
|
|
Nama : Comml4
Caption : MULAI LAGI
|
b. Masukkan
rumus/skripnya :
·
COMMAND BUTTON (Comske)
Private Sub Comske_Click()
Dim a, b, c As Integer
AB = Val(Textab.Text)
AC = Val(Textac.Text)
BC = Val(Textbc.Text)
hasil = AB + AC + BC
Textshas.Text = hasil
End Sub
·
COMMAND BUTTON (comslu)
Private Sub Comslu_Click()
Dim a, b, c As Integer
AB = Val(Textab.Text)
AC = Val(Textac.Text)
BC = Val(Textbc.Text)
hasil = (BC * AB) / 2
Textshas.Text = hasil
End Sub
·
COMMAND BUTTON (comml4)
Private
Sub Comml4_Click()
Textab.SetFocus
Textab.Text
= ""
Textac.Text
= ""
Textbc.Text
= ""
Textshas.Text
= ""
End
Sub
6. TOMBOL
KELUAR
KOMPONEN
|
PROPERTI
|
Command Button
|
Nama : Comkeluar
Caption : KELUAR
|
a. Masukkan
rumus/skripnya :
Private Sub Comkeluar_Click()
Unload Me
End Sub
Sekian sedikit ilmu
mengenai pembuatan aplikasi pembuatan rumus bangun datar sederhana menggubakan
vb 6.0. kurang lebihnya mohon dimaafkan ya :) , karena saya juga masih pemula dalam belajar
vb 6.0. Terima kasih sudah mau berkunjung
ke blog saya :)
Wassalamu’alaikum wr. wb.
makasiiii
BalasHapusmakasiiii
BalasHapus