clear program?

du skal vel bare flytte din Randomize ind under Form_Load, saa skulle tallene blive forskellige hver gang.

Hvad er det du vil nulstille/clear ?

Det ved jeg ikke. Jeg vil bare kunne køre programmet flere gange efter hinanden.

så fyre du bare den her af:

  Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus

husk at make exe før du køre den ;) tror dog ikke det er det du vil.. :D

>sjh Du må helst ikke spøge med mig, hvis det er det du gør.
Jeg har ikke meget forstand på VB. Og jeg forstår virkelig ikke, hvorfor jeg ikke bare kan blive ved med at trykke på command1 og få nye tal frem og herefter tjekke tallene med command2.
Så selv om det måske er et dumt spørgsmål, så er det seriøst, og jeg vil da gerne bede om hjælp fra dig.

når prøv nu at gøre som inglenook skriver:

Private Sub Form_Load()
  Randomize
End Sub

tror jeg ved det:

det er dine pludser som legger dine tal sammen så virker det jo ikke.. prøv :

If Val(Text5.Text) = tal1 & tal2 & tal3 & tal4 Then

du mangler også Rnd()

fx:
tal1 = Int((6 * Rnd) + 1)

Har prøvet ingen effekt!

Int((1) + 1)  er ALTID lig 2
Int((2) + 1)  er ALTID lig 3
Int((2) + 1)  er ALTID lig 3
Int((3) + 1)  er ALTID lig 4

tal1 + tal2 + tal3 + tal4 er Altid lig 12

Så du har altså et fint program som kan fortælle dig
om du har indtastet et tal som er lig med 12 eller ej..

ok men du må da vide hvad det er du vil?? ellers kan vi jo ikke hjælpe dig.. det er jo ikke nogle gættekonkurence.

Jeg går ud fra at det er et additions-trænings-program at
du er i færd med at lave..??
Du skal bare huske at rafle nogle nye tal hver gang, ellers
bliver det lidt trivielt i længden... ;o)

>sjh, nej selvfølgelig ikke. Beklager at jeg er så dårlig til at udtrykke mig, men det virker nu.
>spuncut ja, det er et forsøg på et additions-træningsprogram.
Jeg havde glemt rnd som sjh skriver.
Jeg siger mange tak for hjælpen til jer begge.

prøv den her:

Option Explicit

Private tal1 As Long, tal2 As Long, tal3 As Long, tal4 As Long

Private Sub Command1_Click()
  If Option1.Value = True Then
    tal1 = Int((6 * Rnd) + 1)
    tal2 = Int((6 * Rnd) + 1)
    tal3 = Int((6 * Rnd) + 1)
    tal4 = Int((6 * Rnd) + 1)

    Label10.Caption = tal1
    Label11.Caption = tal2
    Label12.Caption = tal3
    Label13.Caption = tal4
  End If
End Sub

Private Sub Command2_Click()
  If Val(Text5.Text) = tal1 + tal2 + tal3 + tal4 Then
    ' kaldja
      Else
    ' kaldnej
  End If
End Sub

Private Sub Form_Load()
  Randomize
End Sub

>sjh, det var også sådan min kode kom til at ende.
Mange tak.

;)