Posts

Showing posts with the label pemfograman

CARA MEMBUAT LOADING ( VB )

CARA MEMBUAT LOADIN Tambahin timer & Progress Bar Public Class Form1     Dim intTarget As Integer     Dim intCounter As Integer     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         'Mencacah         intCounter += 1         'Menentukan value dari ProgressBar         'Misal:         'Jika nilai intCounter adalah 5,         'maka value pada ProgressPar adalah (5 / 60) * 100 = 8,3         'atau sama dengan 8,3%         Me.ProgressBar1.Value = (intCounter / intTarget) * 100         'Kalau nilai intCounter sudah sama dengan intTarget       ...