Kat en muis: code

• In een gewone versie ziet het programma er als volgt uit:
  Option Explicit
  Dim geklikt As Integer
  Dim record As Integer
  Private Sub Image1_Click()
  With Image1
  Randomize
  .Top = (Form1.Height - .Height) * Rnd
  .Left = (Form1.Width - .Width) * Rnd
  End With
  geklikt = geklikt + 1
  End Sub
  
  Private Sub Timer1_Timer()
  Static seconden As Integer
  seconden = seconden + 1
  If seconden > 30 Then
  MsgBox geklikt & " keer geklikt"
  If geklikt > record Then
    MsgBox "Nieuw record op " & geklikt & vbCrLf & "Het oude was " & record
    record = geklikt
  End
  End If
  End Sub
  
• Als je wil opslaan (en dus de records blijven bijhouden) kan je dat zo doen:
  Option Explicit
  Dim geklikt As Integer
  Private Sub Image1_Click()
  With Image1
  Randomize
  .Top = (Form1.Height - .Height) * Rnd
  .Left = (Form1.Width - .Width) * Rnd
  End With
  geklikt = geklikt + 1
  End Sub
  
  Private Sub Timer1_Timer()
  Static seconden As Integer
  seconden = seconden + 1
  If seconden > 30 Then
  MsgBox geklikt & " keer geklikt"
  record
  End
  End If
  End Sub
  Sub record()
  Dim fn As String
  Dim oudrecord As Integer
  fn = "c:\km.res"
  If Not Dir(fn) = "" Then
  Open fn For Input As #1
  Input #1, oudrecord
  Close #1
  End If
  If geklikt > oudrecord Then
  MsgBox "Nieuw record! Het oude was " & oudrecord
  Open fn For Output As #2
  Print #2, geklikt
  Else
  MsgBox "Het record is " & oudrecord
  End If
  End Sub
  

[VB Web] - [hlrnet] - [copyright]