Advertisement
Tony041010

售票系統

Jul 6th, 2021
440
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Command1_Click(Index As Integer)
  2.  
  3.     If Command1(Index).BackColor <> vbRed Then
  4.         Command1(Index).BackColor = vbRed
  5.         If Command1(Index).Tag = "A" Then
  6.             Label6 = Label6 + 1
  7.             Label9 = Label9 + 6400
  8.             If Hour(Now) >= 9 And Hour(Now) < 11 Then
  9.                 Label7 = Label9 * 0.5
  10.             Else
  11.                 If Label6 >= 10 Then
  12.                     Label7 = Label9 * 0.8
  13.                 ElseIf Label6 >= 5 Then
  14.                     Label7 = Label9 * 0.9
  15.                 ElseIf Label6 < 5 Then
  16.                     Label7 = Label9
  17.                 End If
  18.             End If
  19.            
  20.         End If
  21.         If Command1(Index).Tag = "B" Then
  22.             Label6 = Label6 + 1
  23.             Label9 = Label9 + 3200
  24.             If Hour(Now) >= 9 And Hour(Now) < 11 Then
  25.                 Label7 = Label9 * 0.5
  26.             Else
  27.                 If Label6 >= 10 Then
  28.                     Label7 = (Label9 + 3200) * 0.8
  29.                 ElseIf Label6 >= 5 Then
  30.                     Label7 = (Label9 + 3200) * 0.9
  31.                 ElseIf Label6 < 5 Then
  32.                     Label7 = Label9
  33.                 End If
  34.             End If
  35.         End If
  36.        
  37.     Else
  38.         If Command1(Index).Tag = "A" Then
  39.             Command1(Index).BackColor = 16761024
  40.             Label6 = Label6 - 1
  41.             Label9 = Label9 - 6400
  42.             If Hour(Now) >= 9 And Hour(Now) < 11 Then
  43.                 Label7 = Label9 * 0.5
  44.             Else
  45.                 If Label6 >= 10 Then
  46.                     Label7 = (Label9 - 6400) * 0.8
  47.                 ElseIf Label6 >= 5 Then
  48.                     Label7 = (Label9 - 6400) * 0.9
  49.                 ElseIf Label6 < 5 Then
  50.                     Label7 = Label9
  51.                 End If
  52.             End If
  53.         End If
  54.         If Command1(Index).Tag = "B" Then
  55.             Command1(Index).BackColor = 12648447
  56.             Label6 = Label6 - 1
  57.             Label9 = Label9 - 3200
  58.             If Hour(Now) >= 9 And Hour(Now) < 11 Then
  59.                 Label7 = Label9 * 0.5
  60.             Else
  61.                 If Label6 >= 10 Then
  62.                     Label7 = (Label9 - 3200) * 0.8
  63.                 ElseIf Label6 >= 5 Then
  64.                     Label7 = (Label9 - 3200) * 0.9
  65.                 ElseIf Label6 < 5 Then
  66.                     Label7 = Label9
  67.                 End If
  68.             End If
  69.         End If
  70.     End If
  71. End Sub
  72.  
  73.  
Advertisement
RAW Paste Data Copied
Advertisement