Blog untuk berbagi ilmu komputer

Thursday, May 22, 2014

Modul Praktikum 6



Setelah 5 kali membuat program latihan dari Microsoft visual basic 6.0, di harapkan saudara sudah mulai memiliki pemahaman mengenai bahasa pemograman ini. Untuk latihan selanjutnya anda dituntut untuk mulai mencoba menganalisa program yang akan dibuat tanpa harus dituntut dengan tabel properties.

Berikut kita akan membuat sebuah aplikasi pada system billing internet di sebuah warnet. Di sini kita akan menggunakan sebuah object yang baru, namanya Timer. Timer ini kita gunakan untuk menghitung waktu pemakaian.
Ikuti langkah kerja berikut :

Langkah Kerja
Click Start > Program > Microsoft Visual Studio > Microsoft Visual Basic 6.0
Click Standard Exe dan click Open
Simpan latihan ini dengan nama
o   Form                : Frm_latihan6.Frm
o   Project             : P_Latihan6.VBP
Desain Form Seperti tampilan ini 


Dim s, m, h As Integer

Dim total, tarif As Currency
Private Sub cmdClear_Click()
      txtnama.Text = ""
      cbo1.Text = ""
      lbljam.Caption = ""
      lblcounter.Caption = ""
      lbltotal.Caption = ""
      lblbiaya.Caption = ""
      lblnama.Caption = ""
      lblkate.Caption = ""
      lbltarif.Caption = ""
      lblmulai.Caption = ""
      lblselesai.Caption = ""
      s = 0
      m = 0
      h = 0
      txtnama.SetFocus
End Sub

Private Sub cmdExit_Click()
pesan = MsgBox("Anda mau keluar dari program aplikasi ini", vbYesNo, "Pesan")
If pesan = vbYes Then
   Unload Me
End If
End Sub

Private Sub cmdMulai_Click()
     waktu = Time
     If cmdMulai.Caption = "&Mulai" Then
        cmdMulai.Caption = "&Selesai"
        Timer2.Enabled = True
        Timer1.Enabled = True
        lblmulai.Caption = Time
        s = 2
        m = 0
        h = 0
     Else
        cmdMulai.Caption = "&Mulai"
        Timer1.Enabled = False
        Timer2.Enabled = False
        lblselesai.Caption = Time
        lbltotal.Caption = lblbiaya.Caption
     End If
End Sub

Private Sub Cbo1_Click()
    lblkate.Caption = cbo1.Text
    Select Case Trim(cbo1.Text)
           Case "Umum"
               tarif = 5000
           Case "Mahasiswa"
               tarif = 3500
           Case "Pelajar"
               tarif = 2500
    End Select
    lbltarif.Caption = tarif
End Sub

Private Sub Form_Load()
       
    cbo1.AddItem "Umum"
    cbo1.AddItem "Mahasiswa"
    cbo1.AddItem "Pelajar"
   
    lbltanggal.Caption = Format(Date, "dd")
    lblbulan.Caption = Format(Date, "MMMM")
    lbltahun.Caption = Format(Date, "yyyy")

    s = 2
    m = 0
    h = 0
End Sub

Private Sub txtnama_Lostfocus()
    lblnama.Caption = txtnama.Text
End Sub

Private Sub Timer1_Timer()
lbljam.Caption = Time()
    lblcounter.Caption = h & ":" & m & " :" & s
    s = s + 1
    If s >= 60 Then
       total = total + Val(tarif / 60)
       lblbiaya.Caption = Format(total, "###,###.#0")
       s = 0
       m = m + 1
    End If
    If m >= 59 Then
       m = 0
       h = h + 1
    End If
    If h >= 23 Then
       h = 0
    End If
End Sub
Share:

0 comments:

Post a Comment

Blogger templates