Jawaban SOAL 3 (Ekawata Sicilia Tambunan)

Kasus : Boleh diLihat di sini.

Hasil Program pada gambar berikut untuk Form Client . Sedangkan Form Server tetap seperti sebelumnya, seperti yang ditetapkan di soal.

Untuk Listing Program-nya :

Dim IPS As String
Dim User As String

Private Sub start_Click()
    WS.SendData "START-" & User & "-ekawata"
    mulai.Value = Format(Now, "hh.mm.ss")
    Timer1.Enabled = True
End Sub

Private Sub stop_Click()
    WS.SendData "STOP-" & User
    Timer1.Enabled = False
    biaya.Text = Val(Hour(pemakaian.Value)) + Val(Minute(pemakaian.Value)) * (3000 / 60)
End Sub

Private Sub Form_Load()
    IPS = "127.0.0.1"
    User = WS.LocalIP
    WS.Connect IPS, 3000
    Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
selesai.Value = Format(Now, "hh.mm.ss")
pemakaian.Value = selesai.Value - mulai.Value
End Sub