frmconfig.frm

来自「Billing Internet Cafe」· FRM 代码 · 共 1,685 行 · 第 1/4 页

End Sub

Private Sub Txtgame_LostFocus()
    txtgame.Backcolor = &HFFFFFF
End Sub

Private Sub Txtharga_awal_GotFocus()
    Txtharga_awal.Backcolor = &HFFFF00
End Sub

Private Sub Txtharga_awal_KeyPress(KeyAscii As Integer)
On Error Resume Next
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        CmdUpdateUmum.SetFocus
    End If
End Sub

Private Sub Txtharga_awal_LostFocus()
    Txtharga_awal.Backcolor = &HFFFFFF
End Sub

Private Sub TxtInterval_GotFocus()
    TxtInterval.Backcolor = &HFFFF00
End Sub


Private Sub TxtInterval_LostFocus()
    TxtInterval.Backcolor = &HFFFFFF
End Sub
Private Sub txtintervalgam_GotFocus()
txtintervalgam.Backcolor = &HFFFF00
End Sub

Private Sub txtintervalgam_LostFocus()
txtintervalgam.Backcolor = &HFFFFFF
End Sub

Private Sub TxtIntervalmem_GotFocus()
TxtIntervalmem.Backcolor = &HFFFF00
End Sub

Private Sub TxtIntervalmem_LostFocus()
 TxtIntervalmem.Backcolor = &HFFFFFF
End Sub

Private Sub TxtIntervalmen_GotFocus()
TxtIntervalmen.Backcolor = &HFFFF00
End Sub

Private Sub TxtIntervalmen_LostFocus()
TxtIntervalmen.Backcolor = &HFFFFFF
End Sub

Private Sub txtintervalpel_GotFocus()
txtintervalpel.Backcolor = &HFFFF00
End Sub

Private Sub txtintervalpel_LostFocus()
txtintervalpel.Backcolor = &HFFFFFF
End Sub

Private Sub Txtjam_akhir_GotFocus()
    Txtjam_akhir.Backcolor = &HFFFF00
End Sub

Private Sub Txtjam_akhir_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        CmdUpdateDisc.SetFocus
    End If
End Sub

Private Sub Txtjam_akhir_LostFocus()
    Txtjam_akhir.Backcolor = &HFFFFFF
End Sub

Private Sub Txtjam_awal_GotFocus()
    Txtjam_awal.Backcolor = &HFFFF00
End Sub

Private Sub Txtjam_awal_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Txtjam_akhir.SetFocus
    End If
End Sub

Private Sub Txtjam_awal_LostFocus()
    Txtjam_awal.Backcolor = &HFFFFFF
End Sub

Private Sub Txtketik_GotFocus()
    txtketik.Backcolor = &HFFFF00
End Sub

Private Sub Txtketik_KeyPress(KeyAscii As Integer)
On Error Resume Next
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        TxtInterval.SetFocus
    End If
End Sub

Private Sub Txtketik_LostFocus()
    txtketik.Backcolor = &HFFFFFF
End Sub

Private Sub Txtmember_GotFocus()
Txtmember.Backcolor = &HFFFF00
End Sub

Private Sub Txtmember_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        txtgame.SetFocus
    End If
End Sub

Private Sub Txtmember_LostFocus()
    Txtmember.Backcolor = &HFFFFFF
End Sub

Private Sub Txtnama_warnet_GotFocus()
    Txtnama_warnet.Backcolor = &HFFFF00
End Sub

Private Sub Txtnama_warnet_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Txtalamat1.SetFocus
    End If
End Sub

Private Sub Txtnama_warnet_LostFocus()
    Txtnama_warnet.Backcolor = &HFFFFFF
End Sub

Private Sub txtpelajar_GotFocus()
txtpelajar.Backcolor = &HFFFF00
End Sub

Private Sub txtpelajar_LostFocus()
txtpelajar.Backcolor = &HFFFFFF
End Sub

Private Sub Txtpersonal_GotFocus()
    Txtpersonal.Backcolor = &HFFFF00
End Sub

Private Sub Txtpersonal_KeyPress(KeyAscii As Integer)
On Error Resume Next
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        Txtmember.SetFocus
    End If
End Sub

Private Sub Txtpersonal_LostFocus()
    Txtpersonal.Backcolor = &HFFFFFF
End Sub

Private Sub Txtport_GotFocus()
    Txtport.Backcolor = &HFFFF00
End Sub

Private Sub Txtport_KeyPress(KeyAscii As Integer)
On Error Resume Next
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 13 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
    If KeyAscii = 13 Then
        Txtcurrency.SetFocus
    End If
End Sub

Private Sub Txtport_LostFocus()
    Txtport.Backcolor = &HFFFFFF
End Sub

Private Sub XPButton1_Click()
On Error Resume Next
'untuk personal
If TxtInterval.Text = "5" Then
Txtpersonal.Text = Txtharga_awal.Text / 12
End If
If TxtInterval.Text = "10" Then
Txtpersonal.Text = Txtharga_awal.Text / 6
End If
If TxtInterval.Text = "15" Then
Txtpersonal.Text = Txtharga_awal.Text / 4
End If
If TxtInterval.Text = "20" Then
Txtpersonal.Text = Txtharga_awal.Text / 3
End If
If TxtInterval.Text = "25" Then
Txtpersonal.Text = Txtharga_awal.Text / 2.4
End If
If TxtInterval.Text = "30" Then
Txtpersonal.Text = Txtharga_awal.Text / 2
End If
If TxtInterval.Text = "35" Then
Txtpersonal.Text = Txtharga_awal.Text / 1.71
End If
If TxtInterval.Text = "40" Then
Txtpersonal.Text = Txtharga_awal.Text / 1.5
End If
If TxtInterval.Text = "45" Then
Txtpersonal.Text = Txtharga_awal.Text / 1.33
End If
If TxtInterval.Text = "50" Then
Txtpersonal.Text = Txtharga_awal.Text / 1.2
End If
If TxtInterval.Text = "55" Then
Txtpersonal.Text = Txtharga_awal.Text / 1.09
End If
If TxtInterval.Text = "60" Then
Txtpersonal.Text = Txtharga_awal.Text / 1
End If

'untuk game
If txtintervalgam.Text = "5" Then
txtgame.Text = game.Text / 12
End If
If txtintervalgam.Text = "10" Then
txtgame.Text = game.Text / 6
End If
If txtintervalgam.Text = "15" Then
txtgame.Text = game.Text / 4
End If
If txtintervalgam.Text = "20" Then
txtgame.Text = game.Text / 3
End If
If txtintervalgam.Text = "25" Then
txtgame.Text = game.Text / 2.4
End If
If txtintervalgam.Text = "30" Then
txtgame.Text = game.Text / 2
End If
If txtintervalgam.Text = "35" Then
txtgame.Text = game.Text / 1.71
End If
If txtintervalgam.Text = "40" Then
txtgame.Text = game.Text / 1.5
End If
If txtintervalgam.Text = "45" Then
txtgame.Text = game.Text / 1.33
End If
If txtintervalgam.Text = "50" Then
txtgame.Text = game.Text / 1.2
End If
If txtintervalgam.Text = "55" Then
txtgame.Text = game.Text / 1.09
End If
If txtintervalgam.Text = "60" Then
txtgame.Text = game.Text / 1
End If

'untuk member
If TxtIntervalmem.Text = "5" Then
Txtmember.Text = member.Text / 12
End If
If TxtIntervalmem.Text = "10" Then
Txtmember.Text = member.Text / 6
End If
If TxtIntervalmem.Text = "15" Then
Txtmember.Text = member.Text / 4
End If
If TxtIntervalmem.Text = "20" Then
Txtmember.Text = member.Text / 3
End If
If TxtIntervalmem.Text = "25" Then
Txtmember.Text = member.Text / 2.4
End If
If TxtIntervalmem.Text = "30" Then
Txtmember.Text = member.Text / 2
End If
If TxtIntervalmem.Text = "35" Then
Txtmember.Text = member.Text / 1.71
End If
If TxtIntervalmem.Text = "40" Then
Txtmember.Text = member.Text / 1.5
End If
If TxtIntervalmem.Text = "45" Then
Txtmember.Text = member.Text / 1.33
End If
If TxtIntervalmem.Text = "50" Then
Txtmember.Text = member.Text / 1.2
End If
If TxtIntervalmem.Text = "55" Then
Txtmember.Text = member.Text / 1.09
End If
If TxtIntervalmem.Text = "60" Then
Txtmember.Text = member.Text / 1
End If

'untuk mengetik
If TxtIntervalmen.Text = "5" Then
txtketik.Text = Txtharga_awal.Text / 12
End If
If TxtIntervalmen.Text = "10" Then
txtketik.Text = ketik.Text / 6
End If
If TxtIntervalmen.Text = "15" Then
txtketik.Text = ketik.Text / 4
End If
If TxtIntervalmen.Text = "20" Then
txtketik.Text = ketik.Text / 3
End If
If TxtIntervalmen.Text = "25" Then
txtketik.Text = ketik.Text / 2.4
End If
If TxtIntervalmen.Text = "30" Then
txtketik.Text = ketik.Text / 2
End If
If TxtIntervalmen.Text = "35" Then
txtketik.Text = ketik.Text / 1.71
End If
If TxtIntervalmen.Text = "40" Then
txtketik.Text = ketik.Text / 1.5
End If
If TxtIntervalmen.Text = "45" Then
txtketik.Text = ketik.Text / 1.33
End If
If TxtIntervalmen.Text = "50" Then
txtketik.Text = ketik.Text / 1.2
End If
If TxtIntervalmen.Text = "55" Then
txtketik.Text = ketik.Text / 1.09
End If
If TxtIntervalmen.Text = "60" Then
txttxtketik.Text = ketik.Text / 1
End If

'untuk pelajar
If TxtIntervalmen.Text = "5" Then
txtketik.Text = Txtharga_awal.Text / 12
End If
If TxtIntervalmen.Text = "10" Then
txtketik.Text = ketik.Text / 6
End If
If TxtIntervalmen.Text = "15" Then
txtketik.Text = ketik.Text / 4
End If
If TxtIntervalmen.Text = "20" Then
txtketik.Text = ketik.Text / 3
End If
If TxtIntervalmen.Text = "25" Then
txtketik.Text = ketik.Text / 2.4
End If
If TxtIntervalmen.Text = "30" Then
txtketik.Text = ketik.Text / 2
End If
If TxtIntervalmen.Text = "35" Then
txtketik.Text = ketik.Text / 1.71
End If
If TxtIntervalmen.Text = "40" Then
txtketik.Text = ketik.Text / 1.5
End If
If TxtIntervalmen.Text = "45" Then
txtketik.Text = ketik.Text / 1.33
End If
If TxtIntervalmen.Text = "50" Then
txtketik.Text = ketik.Text / 1.2
End If
If TxtIntervalmen.Text = "55" Then
txtketik.Text = ketik.Text / 1.09
End If
If TxtIntervalmen.Text = "60" Then
txttxtketik.Text = ketik.Text / 1
End If

'untuk pelajar
If txtintervalpel.Text = "5" Then
txtpelajar.Text = Txtharga_awal.Text / 12
End If
If txtintervalpel.Text = "10" Then
txtpelajar.Text = pelajar.Text / 6
End If
If txtintervalpel.Text = "15" Then
txtpelajar.Text = pelajar.Text / 4
End If
If txtintervalpel.Text = "20" Then
txtpelajar.Text = pelajar.Text / 3
End If
If txtintervalpel.Text = "25" Then
txtpelajar.Text = pelajar.Text / 2.4
End If
If txtintervalpel.Text = "30" Then
txtpelajar.Text = pelajar.Text / 2
End If
If txtintervalpel.Text = "35" Then
txtpelajar.Text = pelajar.Text / 1.71
End If
If txtintervalpel.Text = "40" Then
txtpelajar.Text = pelajar.Text / 1.5
End If
If txtintervalpel.Text = "45" Then
txtpelajar.Text = pelajar.Text / 1.33
End If
If txtintervalpel.Text = "50" Then
txtpelajar.Text = pelajar.Text / 1.2
End If
If txtintervalpel.Text = "55" Then
txtpelajar.Text = pelajar.Text / 1.09
End If
If txtintervalpel.Text = "60" Then
txtpelajar.Text = pelajar.Text / 1
End If
 Txtharga_awal = 0
 CmdupdateHarga.Enabled = True
End Sub