hjælp

Private Sub Cmd1_Click() ' Når du klikker på Cmd1 knappen
Label1.Visible = False ' Label1 bliver gennemsigtig
Label2.Visible = False ' Label2 bliver gennemsigtig
Label3.Visible = True ' Label3 bliver synlig
Timer3.Enabled = True ' Timer3 starter
Cmd4.Enabled = True ' Cmd4 knappen bliver enabled

a = "0" ' sætter a,b,c,x,y,z til "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
h = a + b ' (h = a + b) = "0" i dette tilfælde
m = c + x ' (m = c + x) = "0" i dette tilfælde
s = y + z ' (s = y + z) = "0" i dette tilfælde
Label3.Caption = h + ":" + m + ":" + s ' Skriver "0:0:0" ud i Label3

Sub counttime()
If Val(z) < 9 Then ' Hvis z er mindre end 9 (Val() er en funktion der koverter string typen om til long typen
z = z + 1 ' Sætter z til at være 1 højere end det allerede er

Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)
ElseIf Val(y) < 5 Then ' Ellers hvis y er mindre end 5
z = 0 ' Sæt z til 0
y = y + 1 ' Sæt y til et højere end det er
Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)
ElseIf Val(x) < 9 Then ' Ellers hvis x er mindre end 9
z = 0 ' Sæt z til 0
y = 0 ' Sæt y til 0
x = x + 1 ' Sæt x til et højere end det allerede er
Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)
ElseIf Val(c) < 5 Then ' Ellers hvis c er mindre end 5
z = 0 ' Sæt z til 0
y = 0 ' Sæt y til 0
x = 0 ' Sæt x til 0
c = c + 1 ' Sæt c til at være et højere end det er
Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)
ElseIf Val(b) < 9 Then ' Ellers hvis b er mindre end 9
z = 0 ' Sæt z til 0
y = 0 ' Sæt y til 0
x = 0 ' Sæt x til 0
c = 0 ' Sæt c til 0
b = b + 1 ' Sæt b til et højere end det var
Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)
ElseIf Val(b) < 9 Then ' Ellers hvis b er mindre end 9
z = 0 ' Sæt z til 0
y = 0 ' Sæt y til 0
x = 0 ' Sæt x til 0
c = 0 ' Sæt c til 0
b = b + 1 ' Sæt b til et højere end det var
Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)
ElseIf Val(a) < 9 Then ' Ellers hvis a er mindre end 9
z = 0 ' Sæt z til 0
y = 0 ' Sæt y til 0
x = 0 ' Sæt x til 0
c = 0 ' Sæt c til 0
b = 0 ' Sæt b til 0
a = a + 1 ' Sæt a til et højere end det var
Label3.Caption = a + b + ":" + c + x + ":" + y + z ' Skriver tiden ud i Label3 (a+b:c+x:y+z)


Hvad er det du ikke forstår af det der..? hvis du uddyber skal jeg forklare nærmere :)

Du får 100% pointene, men vil lige svare på dit spørgsmål:

Det er at det er den 3 dag mig og min makker arbejder med programmet for FØRSTE gang så vi er lidt " noobet" men den koden oven for, er en vi lånte fra et andet program derfor:) men MANGE tak skal du have:)

det var så lidt :)

Det skal måske lige nævnes at der faktisk er en del logiske fejl i koden ... måske skulle I overveje at skrive noget bedre selv.

Ja det kan gørres en del nemmer.. her er lidt regnekunst til jer.. :D


' ----------------------------------------- Form1 -----------------------------------------
' Husk en (Timer1) og (Command1, Command2) pluds en (Label1)
' -----------------------------------------------------------------------------------------
Option Explicit

Private Sekunder As Long ' Husker variabel Sekunder

' Funktion som omregner sekunder til T:M:S
Private Function SecToTime(Sekunder As Long) As String
Dim Minutter As Long
  ' ------------------------- Regnekunst -------------------------
  ' Mod : Modulus (rest ved afrundet division)
  '  eks. 120 Mod 60 = 0
  '        180 Mod 60 = 0
  '
  ' \  : Integer Division (afrundet division)
  '  eks. 120 \ 60 = 2
  '        179 \ 60 = 2
  ' --------------------------------------------------------------
  Minutter = (Sekunder \ 60)
  SecToTime = Format(Minutter \ 60, "00") & ":" & _
              Format(Minutter Mod 60, "00") & ":" & _
              Format(Sekunder Mod 60, "00")
End Function

Private Sub Command1_Click()
  ' ------------------------- Regnekunst -------------------------
  ' Not vil give det omvendte af .Enabled. Hvis .Enabled er True
  ' vil den retuner False da Not er det samme som IKKE (IKKE SANDT
  ' det må så være FALSK)
  ' --------------------------------------------------------------
  With Timer1
      .Enabled = (Not .Enabled)
  End With
End Sub

Private Sub Command2_Click()
  Sekunder = 0                        ' Nulstiller variabel Sekunder

  Label1.Caption = SecToTime(Sekunder) ' Udfør funktion SecToTime() med variabel Sekunder
                                      ' og udskriver det i Label1
End Sub

Private Sub Form_Load()
  Timer1.Enabled = False              ' Stopper Timer1

  Timer1.Interval = 1000              ' Setter interval til 1000 som er = 1 sekundt

  Command1.Caption = "Start / Pause"  ' Setter tekst på Command1

  Command2.Caption = "Nulstil"        ' Setter tekst på Command2

  Label1.Caption = SecToTime(Sekunder) ' Udfør funktion SecToTime() med variabel Sekunder
                                      ' og udskriver det i Label1
End Sub

Private Sub Timer1_Timer()
  Sekunder = (Sekunder + 1)            ' Ligger Én (1) til det tal som står i variabel Sekunder

  Label1.Caption = SecToTime(Sekunder) ' Udfør funktion SecToTime() med variabel Sekunder
                                      ' og udskriver det i Label1
End Sub
' ----------------------------------------- Form1 -----------------------------------------