Program Sederhana Rumus lingkaran dan bil. Arimatika dalam Visual Basic

Program Sederhana dengan Menggunakan Deklarasi Tipe Data, Variabel, Konstanta dan Operator dalam Visual Basic.

Program ini saya buat untuk tugas vclass Pengantar  Komputer & Teknologi Informasi 2B

Berikut langkah-langkah nya :

1. Masuk kedalam Aplikasi Visual Basic atau VB.6. Tampilannya seperti ini, kemudian pilih Standar EXE dan klik Open.

   

     

2. Setelah itu akan ada tampilan hala-

    man utama VB

3. Desain form ( seperti tampilan seper-

    ti halaman sebelumnya )

4. Buat 4 label ; 3 text dan 3 command

5. Pengaturan Desain Form di jendela

    Properties.

   

    Object :     Property :      Value :

    

    Form 1      Caption         Konstanta test

    Label 1      Caption         menghitung 

                                               Luas dan Keli-

                                               ling lingkaran

    Label 2      Caption          Jari-Jari

    Label 3      Caption          Luas

    Label 4      Caption          Keliling

    Text 1         Text                -

                        Name             Text1

    Text 2         Text                -

                        Name             Text2

    Text 3         Text                -

                        Name             Text3

    Command  Caption         Tekan sini 

             1                                 untuk liat

                                                hasil

            

    Command Caption          Bersih-bersih

            2

    Command Caption          Selesai

            3

6. Pembuatan Kode program

7. Uji Coba Aplikasi

  

    Tampilan vb     

     

     Tampilan running

Penjelasan Kode program

Private  sub command1_click()

Dim phi, luas, Keliling As Double

Phi 22 / 7

luas = phi * (Text1.Text * Text1.Text)

Keliling = 2 * phi * Text1.Text

Text2.Text = luas 

Text3.Text = Keliling

Text1.SetFocus

MsgBox "luas lingkaran : " & luas & vbCrLf & "Keliling : " & Keliling, vbInformation, "hasil"

End sub

Private sub command2_click()

End

End sub

Private sub command3_click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.Setfocus 

End sub

Penjelasan 

= deklarasi variabel luas dan keliling

   • tipe data double

   • key tipe data dim

= phi 22 /7 (konstanta)
= end (perintah keluar dari program)

Implementasi Operator

Langkah pembuatan :

1. Buka halaman utama vb

     

2. Desain form (seperti tampilan seperti

    halaman sebelum nya.

3. Buat 2 label ; 3 text dan 1 command

4. Pengaturan desain form di jendela 

    Properties

    Object :       Property :       Value :

    Label 1        Caption           Bilangan 1

    Label 2        Caption           Bilangan 2

    Text 1           Name              txtBil1

                          Text                 -

    Text 2           Name              txtBil2

                          Text                 -

    Text 3           Name              txtHasil

                          Text                 -

    Command1 Name              cmdtambah

                         Caption            +

5. Pembuatan kode program

     

6. Uji coba aplikasi

     

Aplikasi visual basic yang saya buat ini untuk menghitung hasil dari rumus lingkaran yaitu luas dan keliling. Kedua program aritmatika untuk melakukan penjumlahan.