VISUAL BASIC 6.0 segitiga sama sisi

 MENCARI LUAS, KELILING, DAN SISI SEGITIGA SAMA SISI

gambar tampilan program mencari rumus segitiga sama sisi

 keterangan dari gambar diatas

# tulisan segitiga sama sisi,alas,tinggi, memakai menu label

# luas, keliling, sisi, clear dan exit memakai menu commandbutton

# sedangkan kotak-kotak yang kosong diatas memakai textbox

      

      #luas = command1 sedangkan textbox yang didepannya adalah text4

      #keliling=command2 sedangkan textbox yang didepannya adalah text3

      #sisi=command4 sedangkan textbox yang didepannya adalah text5

      #exit=command3 

      #clear=command5

oke baiklah ini merupakan koding yang digunakan dari gambar diatas

Private Sub Command1_Click()
Dim a, t As Single
a = Text1
t = Text2
Text4 = 0.5 * a * t
End Sub

Private Sub Command2_Click()
Dim a, t As Single
a = Text1
t = Text2
Text3 = 3 * Text1
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Dim a, t As Single
a = Text1
t = Text2
Text5 = Val(Text1)
End Sub

Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

bagi kawan kawan yang mau melihat flowchart nya silahkan klik link ini
Flowchart segitiga sama sisi