Begynder spg til visual basic !

Text1.Text = Int(Rnd * 1000) + 1
Text2.Text = Int(Rnd * 1000) + 1

Hej.

For at danne tilfældige tal, skal du bruge en random-funktion, i VB hedder den rnd.

tekstfelter har ikke en egenskab (property) der hedder value.  Du må tage værdien - Val - af indholdet i et tekstfelt, når det er tastet ind, men når indholdet er dannet som en tal-variabel, kan du jo blot addere disse direkte.

Men skal brugere 'gætte' hvad summen er?  Nogle kan vel lægge tallene sammen :-)

Du skal nok ikke forvente at du her på 'Eksperten' kan få løbende hjælp til at lære at programmere, du må læse bøger, hefter eller on-line hjælpen for at se korrekt syntaks.  Fra online-hjælp om Rnd:
---------------------------
This example uses the Rnd function to generate a random integer value from 1 to 6.

Dim MyValue
MyValue = Int((6 * Rnd) + 1)    ' Generate random value between 1 and 6.
------------------------------
Int tager heltals-værdien.

Hvis tal der er indtastet skal adderes:

sum = val(text1.text) + val(text2.text)

I øvrigt har 'Eksperten' en søgefunktion, hvor du kan søge i tusindvis af besvarede sprøgsmål.  Og der er meget på nettet om VB, brug evt. Google for at finde kode-eksempler.  http://vb-helper.com er bare ét blandt snesevis.

Skriv din færdige kode ind her, og tag selv point.  Jeg har ikke brug for dem.

M.v.h.  Jørn

Private Sub Command1_Click()

If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
MsgBox ("du svarede rigtigt på  spgørgsmålet")
Text1.Text = Int(Rnd * 1000) + 1
Text2.Text = Int(Rnd * 1000) + 1
Else
MsgBox ("Du svarede forkert på spgørgsmålet prøv igen")
'de samme tal skal være der
End If
End Sub


sådan skal den se ud

Lige for at skære det ud i pap, nu du er ny ;o)

rnd returnerer et tilfældigt decimaltal mellem 0 og 0.9999999......

Ved at gange tallet med 1000 får du altså et tal mellem 0 og 999.999

Bruger du int-funktionen, der tager heltallet og smider resten væk, får du 0-999 (uden decimal)

Og lægger du 1 til, får du 1-1000.

sagt kortere: Int(Rnd * 1000) + 1

Og et tip: inden du går videre, så gå i VB i tools-> options, under "edit" og vælg "require variable decleration". Uden jeg skal forklare det nærmere, undgår du en masse fejl ved at have den mulighed vinket af

samtidig kan du vinke af under "envireoment" at du vil Save changes when a program starts. Så mister du ikke alt når programmet går ned ( www.eksperten.dk/spm/639092= )

Rigtigt link: http://www.eksperten.dk/spm/639092 (sengetid)

HUSK at starte randomize generator.. ;)

Private Sub Form_Load()
  Randomize '<- randomize generator
  Text1.Text = Int(Rnd * 1000) + 1
  Text2.Text = Int(Rnd * 1000) + 1
End Sub

Nu har jeg indsat dette:

-----------------------------------------------------

Private Sub Command1_Click()
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
MsgBox ("du svarede rigtigt på  spgørgsmålet")
Text1.Text = Int(Rnd * 1000) + 1
Text2.Text = Int(Rnd * 1000) + 1
Else
MsgBox ("Du svarede forkert på spgørgsmålet prøv igen")
'de samme tal skal være der
End If

End Sub

Private Sub Form_Load()
  Randomize '<- randomize generator
  Text1.Text = Int(Rnd * 1000) + 1
  Text2.Text = Int(Rnd * 1000) + 1
End Sub

-----------------------------------------------------

Men der kommer en fejl ved
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then

Er der ikke en der kan sige hvad det er ?

det burde da være rigtigt ??

Hej.

Har du indtastet noget i felterne, nå du starter den sub?  Ellers får du nok fejl p.g.a val af "ingenting".

M.v.h. Jørn

Har du de 3 tekstbokse, som hedder
Text1
Text2
og Text3

Private Sub Command1_Click()
If IsNumeric(Text3.Text) Then
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
MsgBox ("du svarede rigtigt på  spgørgsmålet")
Text1.Text = Int(Rnd * 1000) + 1
Text2.Text = Int(Rnd * 1000) + 1
Else
MsgBox ("Du svarede forkert på spgørgsmålet prøv igen")
'de samme tal skal være der
End If
Else
MsgBox " du skal taste et tal"
End If
End Sub

Prøv den, den tjekker om du taster tal ind

det virker stadig ikke ?

den skriver:

Run-Time error '424' ??

hvilken linie

det betyder at der er et felt den ikke kan finde, er du sikker på navnene på textboksene

prøv a dobbeltklikke på textboksene, en af gangen, så viser den dig koden.

eks.
Private Sub Text1_Change()

End Sub

nu kan du se at den hedder Text1

gør det samme for de andre 2

hvis den hedder noget andet, så ret i koden, eller giv den et andet navn.

hvis den hedder noget andet, end det den skal, så ret i koden, eller giv den et andet navn.

nu har jeg fået det til at virke nu skal jeg bare lige lave det sådan at man kan trykke enter istedet for command1 ??

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text3.Text) Then
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
MsgBox ("du svarede rigtigt på  spgørgsmålet")
Text1.Text = Int(Rnd * 1000) + 1
Text2.Text = Int(Rnd * 1000) + 1
Else
MsgBox ("Du svarede forkert på spgørgsmålet prøv igen")
'de samme tal skal være der
End If
Else
MsgBox " du skal taste et tal"
End If
End If
End Sub

Nu skal du ikke mere bruge koden fra, Private Sub Command1_Click()

Og du skal være sikker på at den textbox du skriver resultatet i, hedder Text3

mange tak kabbak læg et svar og få dine points !

et svar ;-))