VB **Grr**

Nummer = Int(Rnd * 3 + 1) i stedet

Private Sub Form_Load()
Dim Max As Long, Min As Long
Max = 3
Min = 1
Randomize
Nummer = Int((Max - 1 + Min) * Rnd + Min)
  If Nummer = 1 Then
    Spg = \"Testerne1\"
    Me.Caption = Spg
      ElseIf Nummer = 2 Then
        Spg = \"Testerne2\"
        Me.Caption = Spg
      ElseIf Nummer = 3 Then
    Spg = \"Testerne3\"
    Me.Caption = Spg
  End If
End Sub

sjh > me skulle stå for Spm (label) ??

så lav det om. ;)

jelzen101 det virker Tak for hjælpen :)

sjh < kunne du forklare mig hvad du har lavet :)

Me. = Spm.

men hvorfor er det der - og + osv... i randomize commandoen ?

jelzin101  > din tager denne rækkefølge, 1,2,3,1,2,3,1,2,3 osv..(har ik lagt mærk til det :()

skal ud ikke bruge det her: http://www.eksperten.dk/spm/147372

randomize er det samme som at \"ryste posen\"...
hvis du kun bruger rnd vil du få samme start tal hver gang du genstarter programmmet.

det tal som rnd i sig selv \"laver\" er mellem 0 og 0.9999999999......
derfor lægger man den ene til.

hvis du vil have en forklaring på hvorfor sjh laver : Nummer = Int((Max - 1 + Min) * Rnd + Min)

så prøv at skriv rnd et eller andet sted i din kode flyt markøren hen over og tryk på [F1]

min hjælp bog er ik med min visual program :(

så ligger den på din CD-ROM

kan ik finde det, har prøvet før, men du kunne fortælle mig under hvad :)

hvis du har vb5 ..\\VB5.0\\VB\\HELP

elles søge efter \"help\" (F3 på din cd)

PRØV AT SE PÅ DIN KODE, HVAD GØR DEN...???

HINT: Du gør det samme for alle udfald af din IF-sætninger...

Private Sub Form_Load()
Randomize
Nummer = Int(Rnd * (1 - 3)) + 1
If Nummer = \"1\" Then
    Spg = \"Testerne1\"
    Spm.Caption = Spg
      ElseIf Nummer = \"2\" Then
      Spg = \"Testerne2\"
      Spm.Caption = Spg
        ElseIf Nummer = \"3\" Then
        Spg = \"Testerne3\"
        Spm.Caption = Spg
        End If
End Sub

Er det samme som:

Private Sub Form_Load()
  Randomize Timer
  Nummer = Int(Rnd * 3) + 1
  Spg = \"Testerne\" & Nummer
  Spm.Caption = Spg
End Sub

Hvis du ikke bruger Spg- og Nummer-variablerne senere, kan koden forkortes yderligere:

Private Sub Form_Load()
  Randomize Timer
  Spm.Caption = \"Testerne\" & (Int(Rnd * 3) + 1)
End Sub

Jeg har yderligere tilføjet Timer efter Randomize, det er et SEED, som giver mere vilkårlige tal...

det der med testerne er bare noget jeg har skrevet...men min kode ser sådan ud...(ik færdig)..

Dim Nummer As String
Dim Spg As String
Dim Min As Long
Dim Max As Long
Dim Svar As String
Dim Valg As String
Private Sub A1_Click()
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 1. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
If A1.Caption = \" A. ASP\" Then
Valg = MsgBox(\"Er du sikker\", vbYesNo)
    If Valg = vbNo Then
    GoTo Start
    ElseIf Valg = vbOK Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    Valg = MsgBox(\"Vil du prøve igen\", vbYesNo)
        If Valg = vbYes Then
        GoTo Start
        Else
        GoTo Luk
        End
        End If
    End
    GoTo Start
    End If

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 2. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
ElseIf A1.Caption = \" A. Hyper Text Markup Language\" Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    End
    GoTo Start
    End If
Luk
End
End Sub

Private Sub Form_Load()
Start:

Max = 3
Min = 1
Randomize
Nummer = Int(Rnd * (Max - Min)) + Min

If Nummer = \"1\" Then

    Spg = \" Hvad står \"\"ASP\"\" for ?\"
    A1.Caption = \" A. ASP\"
    B1.Caption = \" B. ActiveSP\"
    C1.Caption = \" C. Active Server Pages\"
    D1.Caption = \" D. Asp\"
    En.BackColor = RGB(255, 0, 0)
    Spm.Caption = Spg
   
      ElseIf Nummer = \"2\" Then
     
      Spg = \"Hvad står \"\"HTML\"\" for ?\"
      A1.Caption = \" A. Hyper Text Markup Language\"
      B1.Caption = \" B. HyperTM\"
      C1.Caption = \" C. Hjemmeside til formål\"
      D1.Caption = \" D. Html\"
      En.BackColor = RGB(255, 0, 0)
      Spm.Caption = Spg
     
      ElseIf Nummer = \"3\" Then
     
        A1.Caption = \" A. ASP\"
        B1.Caption = \" B. ActiveSP\"
        C1.Caption = \" C. Active Server Pages\"
        D1.Caption = \" D. Asp\"
        En.BackColor = RGB(255, 0, 0)
        Spg = \"Hvad står \"\"VB\"\" for ?\"
        Spm.Caption = Spg
       
        End If

End Sub

Du må afslutte dette spg. og koncentrere dig om det andet...

[ Goto Commandoen ? ]
http://www.eksperten.dk/spm/148052