Contoh program modular funsi dan prosedur

Contoh program modular funsi dan prosedur yang dibuat dengan visual basic

Sintaks :

Private Sub TulisTeks()
'PROGRAM MODULAR'
'DEKLARASI'
        
'DESKRIPSI'
    Label1.Caption = "Selamat datang di pemrograman modular"
End Sub

 Private Function JumlahAngka() As String
Dim angka1 As String, angka2 As String
Dim hasil As Single
angka1 = InputBox("Tulis angka 1 :", "Jumlah Angka")
angka2 = InputBox("Tulis angka 2 :", "Jumlah Angka")
If angka1 <> "" And angka2 <> "" Then
hasil = CSng(angka1) + CSng(angka2)
JumlahAngka = CStr(hasil)
End If
End Function

Private Sub Label1_DblClick()
Call TulisTeks("Hai", vbBlue)
End Sub

Private Sub Command1_Click()
Call TulisTeks
End Sub

Private Sub Command2_Click()
Label1.Caption = "Jumlah = " & JumlahAngka()
End Sub

Read More

Contoh program Array data pegawai

Berikut contoh program array untuk mengisi data pegawai yang dibuat dengan Visual Basic

Sintaks :
Dim NamaPekerja() As String

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Dim i As Integer
    ReDim NamaPekerja(1 To 5)
    For i = 1 To 5
        Combo1.AddItem i
    Next i
    Combo1.ListIndex = 0
    Text1.Text = 5
End Sub

Private Sub Command1_Click()
    Dim no As Integer, i As Integer
   
    no = CInt(Combo1.Text)
    NamaPekerja(no) = InputBox("Tuliskan nama pekerja no : " & no, "Input Nama Pekerja")
    If NamaPekerja(no) <> "" Then
        List1.Clear
        For i = 1 To UBound(NamaPekerja)
            List1.AddItem "NamaPekerja(" & i & ")=" & NamaPekerja(i)
        Next i
    End If
End Sub

Private Sub Command2_Click()
    Dim num As Integer, i As Integer
    If Not IsNumeric(Text1.Text) Then Exit Sub
    num = CInt(Text1.Text)
    ReDim NamaPekerja(1 To num)
    Combo1.Clear
    List1.Clear
    For i = 1 To UBound(NamaPekerja)
        Combo1.AddItem i
        List1.AddItem "NamaPekerja(" & i & ")=" & NamaPekerja(i)
    Next i
    Combo1.ListIndex = 0
End Sub

Read More