Tugas AP2B MEMBUAT APLIKASI MENGHITUNG LUAS DAN VOLUME TABUNG

Cara Membuat Aplikasi Menghitung Luas dan Volume Tabung tertutup

Langkah-langkah :

1.       Buka Aplikasi Visual Basic 6.0 dengan cara : Start – All Program – Microsoft Visual Basic 6.0 – Microsoft Visual Basic 6.0

2.       Pilih Standart EXE .

3.       Lalu Desain Form Seperti Berikut :

Atur data dibawah Melalui Jendela Properti :

Label 1    : Caption              : Jari-Jari            Text1:      Name : text1

                  Visible                 : False                             Visible: True

Label 2    : Caption              : TInggi              Text2:   Name : text2

                 Visible                 : False                           Visble : True

Label 3    : Caption              : Luas                Text3:   Name : text3

                 Visible              : False                              Visible : False

Label 4    : Caption              : Volume            Text4:   Name : text4

                 Visible                 : False                            Visible: False

4.       Ketik Coding Seperti Berikut :

 

Private Sub Command1_Click()                      

Text3.Text = 2 * 3.14 * Val(Text1.Text) ^ 2   

Label3.Visible = True                                      

Text3.Visible = True                                          

Label4.Visible = False                                       

Text4.Visible = False                                         

End Sub

Private Sub Command2_Click()

Text4.Text = 2 * 3.14 * Val(Text1.Text) * (Val(Text1.Text) + Val(Text2.Text))

Label3.Visible = False

Text3.Visible = False

Label4.Visible = True

Text4.Visible = True

End Sub

Private Sub Command3_Click()        

Text1.Text = ""                                 

Text2.Text = ""                                 

Text3.Visible = False                        

Text4.Visible = False                        

Label3.Visible = False                      

Label4.Visible = False                      

Text1.SetFocus                                

MsgBox "Data Sudah Dihapus !"      

End Sub

 

Private Sub Command4_Click()       

End                                                  

End Sub

5.Jalankan Program dengan menekan F5 pada keyboard

*NP : yang belum mengerti silahkan komen dibawah posting ini atau kirim email ke fachriarif03@gmail.com . Jangan lupa juga di follow fachriarif.blogspot.com :D

Posted in: