Saya lampirkan program sederhana ini :

PROGRAM NOMOR ANTRI
PASIEN

Listing program :

Form1 – 1

Optioan Explicit

Dim SAKLAR As Integer

Private Sub Mulai_Click( )
Text1.Text1 = 1
If SAKLAR = 0 Then
Printer.FontSize = 10
Printer.Print ; “ Nomor Antri “
Printer. FontSize = 70
Printer.Print Tab(1) ; Text1.Text
Printer. FontSize = 10
Printer.Print ; “ Harap Sabar Menunggu “
Printer.EndDoc
End if
End Sub

Private Sub Lanjut_Click( )
Text1.Text1 = 1 + Text1.Text
If SAKLAR = 0 Then
Printer.FontSize = 10
Printer.Print ; “ Nomor Antri “
Printer. FontSize = 70
Printer.Print Tab(1) ; Text1.Text
Printer. FontSize = 10
Printer.Print ; “ Harap Sabar Menunggu “
Printer.EndDoc
End if
End Sub

Private Sub Selesai_Click( )
End
End Sub

Filed under: Tanya-Jawab