CARA MEMBUAT APLIKASI RUMUS BANGUN DATAR SEDERHANA DENGAN VISUAL BASIC 6.0

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.