KLIK DISINI...!

Materi Visual Basic

20.10
prosedur

*prosedur adalah sekumpulan perintah untuk mengerjakan proses tertentu
*prosedur = sub rutin
*prosedur di vb diawali dengan sub, diakhiri dengan und sub
*prosedur ada 2 macam = - tanpa parameter
            - dengan parameter
(prosedur parameter)
Private Sub Command1_Click()
    'memanggil prosedur
    Call hitung_luas(Text1.Text, Text2.Text)
End Sub
'prosedur dengan parameter
Sub hitung_luas(ByVal p As Single, ByVal l As Single)
    Dim luas As Single
    luas = p * l
    Text3.Text = luas
End Sub 'akhir prosedur

(tanpa parameter)
Private Sub Command1_Click()
    'memanggil prosedur
    hitung_luas
End Sub

Sub hitung_luas() 'awal prosedur
    Dim p As Single
    Dim l As Single
    Dim luas As Single
    p = Text1.Text
    l = Text2.Text
    luas = p * l
    Text3.Text = luas
End Sub 'akhir prosedur








latihan


Private Sub Command1_Click()
    'memanggil prosedur
    Call hitung_luas(Text1.Text, Text2.Text)
End Sub
'prosedur dengan parameter
Sub hitung_luas(ByVal p As Single, ByVal l As Single)
    Dim luas As Single
    Label3.Caption = "luas"
    luas = p * l
    Text3.Text = luas
End Sub 'akhir prosedur

Private Sub Command2_Click()
    'memanggil prosedur
    Call hitung_keliling(Text1.Text, Text2.Text)
End Sub

Sub hitung_keliling(ByVal p As Single, ByVal l As Single)
  Label3.Caption = "keliling"
    keliling = 2 * (p + l)
    Text3.Text = keliling
End Sub 'akhir proses

(------------------------------------------------------------------------------------------)

fungsi

*fungsi adalah sekumpulan perintah untuk mengerjakan proses tertentu & nilainya dikembalikan kpd si pemanggil
*fungsi di vb diawali dg function, dan diakhiri end function
*fungsi ada 2 macam = - dengan parameter
              - tanpa parameter
* sedangkan menurut pembuatnya, fungsi  ada 2 macam
- fungsi yg dibuat oleh programmer
- fungsi bawaan vb

contoh


Private Sub Command1_Click()
    Option1.Caption = "hitung luas"
    Text2.Text = hitung(Text1.Text)
End Sub
'awal fungsi
Function hitung(ByVal r As Single)
    If Option1.Value = True Then hitung = 3.14 * (r ^ 2)
    If Option2.Value Then hitung = 2 * 3.14 * r
End Function
'akhir fungsi

(------------------------------------------------------------------------------------------)

array

* aray adalah sekumpulan nilai yang memiliki tipe data yg sama & disimpan dlm sebuah variabel (var.array)
* array di vb ada2 = - array statis
             - array dinamis
* variabel array menggunakan     niomor indeks
* sedangkan menurut pembuatnya fungsi ada 2 macam
- fungsi yg dibuat oleh user (programer)
- fungsi bawaan vb

contoh


Private Sub Command1_Click()
    'deklarasi variabel array
    Dim arraiku(5) As Integer

    'memasukkan nilai ke dalam var.aray
    arraiku(0) = 3
    arraiku(1) = 5
    arraiku(2) = 2
   
    For i = 0 To 5
        Text1.Text = Text1.Text & arraiku(i) & " "
    Next
   
End Sub
Previous
Next Post »
0 Komentar