Masih sedikit berkutat dengan tugas pemrograman di kuliahan. Jadi hasilnya seperti ini. Baiklah saya akan menjelaskan sistem kerja Program VB ini.
Desain Form Visual Basic mu seperti ini.
Adapun Listing Codenya:
'===========================================
Option Explicit
Dim i As Integer
Private Sub Form_Load()
i = 1
End Sub
'===========================================
Private Sub Timer1_Timer()
If i = 1 Then
bijiq.Value = bijiq.Value + 1
Else
bijiq.Value = bijiq.Value + 1
End If
'Label1.Caption = bar.Value
If bijiq.Value = 100 Then
Timer1.Enabled = False
End If
If bijiq.Value = 60 Then
i = 0
Label3.Caption = "Loading the program........"
End If
If bijiq.Value = 100 Then
Unload Me
Form2.Show
End If
End Sub
'===========================================
Pasti bingung dengan "bijiq.caption" ??
Itu nama progress bar yang saya rubah menjadi "bijiq".
