home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / training.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-09  |  2.4 KB  |  59 lines
  1. Attribute VB_Name = "Training"
  2. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  3. ' This Sub Holds Quad-Ball Training Subs and Variables '
  4. '______________________________________________________'
  5.  
  6. Global InputLoaded As Boolean
  7. Global TopTime As Date
  8. Global OldTime As Date
  9. Global TmpTopTime As String
  10. Global TopTimeName As String
  11. Global TopScore As String
  12. Global TopName As String
  13. Global Exit2Mouse As Boolean
  14.  
  15. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  16. ' Load The Scores From The Registry '
  17. '___________________________________'
  18. Sub LoadScoreTraining()
  19.  TopScore = GetKeyValue(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopScore")
  20.  If Trim(TopScore) = "" Then
  21.   TopScore = "0"
  22.   RegKeys.UpdateKey HKEY_LOCAL_MACHINE, "software\ArviSehmi\QuadBall\Training", "TopScore", "0"
  23.  End If
  24.  ParentForm.HighestScore.Caption = TopScore
  25.  TopName = GetKeyValue(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopName")
  26.  ParentForm.HighName.Caption = TopName
  27. End Sub
  28.  
  29. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  30. ' Save The Scores Tp The Registry '
  31. '_________________________________'
  32. Public Sub SaveScoreTraining(Name As String, Score As String)
  33.  Call UpdateKey(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopScore", Score)
  34.  Call UpdateKey(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopName", Name)
  35. End Sub
  36.  
  37. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  38. ' Load The Top Times From The Registry '
  39. '______________________________________'
  40. Public Sub LoadTimeTraining()
  41.  TmpTopTime = RegKeys.GetKeyValue(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopTime")
  42.  If Trim(TmpTopTime) = "" Then
  43.   TmpTopTime = "00:00:00"
  44.   Call UpdateKey(HKEY_LOCAL_MACHINE, "software\ArviSehmi\QuadBall\Training", "TopTime", "00:00:00")
  45.  End If
  46.  ParentForm.HighestTime.Caption = TmpTopTime
  47.  TopTimeName = GetKeyValue(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopTimeName")
  48.  ParentForm.HighTimeName.Caption = TopTimeName
  49. End Sub
  50.  
  51. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  52. ' Save The Top Time To The Registry '
  53. '___________________________________'
  54. Public Sub SaveTimeTraining(Name As String, tTime As String)
  55.  Call UpdateKey(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopTime", tTime)
  56.  Call UpdateKey(HKEY_LOCAL_MACHINE, "software\ArviSehmi\Quadball\training", "TopTimeName", Name)
  57. End Sub
  58.  
  59.