Hjälp!
Jag håller på att försöka lära mej VB, med hjälp an en bok (inget skolarbete) utna av eger intresse.

En övning går ut på att skapa en modul som heter tärning och som ska returnera värdena 1,2,3,4,5,6 slumpmässigt (detta fixar jag), det är nu jag fattar noll, så här står det:

Använd funktionen t ett nytt projekt med en kommadoknapp. I formuläret ska en kontrollruta finnas. När du klickat på kommandoknappen visas en text as detta utseende om kontrollrutan är bockad. är den inte det visas endast sista raden.

5 + 6 = 11
1 + 3 = 4
6 + 6 = 12
3 kast behövdes

Hoppas att det är någon som fattar mer än jag.

ja du :-)
Kan det vara så att du ska kasta 2 tärningar tills du får 2 sexor.
För varje kast ( av två tärningar ) skrivs resultatet ut. När summan är 12 skivs raden "Det krävdes X-antal kast"

Men om du inte vill se varje delresultat ska du kunna checka en kontrollruta och då visas bara slutresultatet.


Nettan

Hej
Ja det var ju en halvknäpp instruktion.
Som jag tänker skall du ladda en ComboBox med alla resultat
som inte blir 12 (i ditt exempel).Om CheckBoxen är förbockad
så skall Combo1.Text bli tex "3 kast behövdes"
If Combo1.Value = True Then Combo1.Text = Combo1.ListCount - 1 _
& " Kast behövdes"

Kanske ute och reser men kom igen om du vill ha mer hjälp
det finns många vinklar på en plog.

mvh
Sven

Hej
Nu får jag inte modulen heller att fungera. Jag tror att meningen är att man ska använda en array.

Koden nedan ligger in en knapp:

antal = Int(Rnd * 6)
tal = Int(Rnd * 6)
summa = tal + antal
Text1 = antal & " + " & tal & " = " & summa & vbCrLf
End Sub

(Men min kod måste vara fel eftersom den ska ligga i en modul, där funkar den inte)

Som du ser skriver den ut talen i en textruta.



Programmet skall skriva ut alla slumptal tills det att två sexor kommer upp, och det ska också räkna hur många kast som behövs.

Och om checkboxen är ikryssad så ska texten

1 + 3 = 4
4 + 3 = 7
5 + 3 = 8
6 + 6 =12
4 kast behövdes

Och om inte checkboxen är ikryssad så ska bara texten ”4 kast behövdes” visas

Hej
Klistra in detta i en tom Form och provkör

Option Explicit
'En CommandButton , En CheckBox ,En TextBox Multiline True
'TextBox är inte bra en ListBox skulle funka mycket bättre
'Du vet ju inte hur stor du måste göra TextBoxen för att allt
'skall få plats
Private Sub Form_Load()
Randomize
End Sub

Private Sub Command1_Click()
Dim tal As Long, tal2 As Long, summa As Long
Dim i As Long
Text1.Text = ""
Do Until tal = 6 And tal2 = 6
'så här måste du skriva Rnd för att inte få med 0
tal = Int(Rnd * 6 + 1)
tal2 = Int(Rnd * 6 + 1)
summa = tal + tal2
Text1.Text = Text1.Text & tal & " + " & _
tal2 & " = " & summa & vbCrLf
i = i + 1
Loop
If Check1.Value = 0 Then
Text1.Text = CStr(i) & " Kast behövdes"
Else
Text1.Text = Text1.Text & CStr(i) & " Kast behövdes"
End If
End Sub

'Mvh
'Sven

kan man inte dimma så här istället? eller blir det fel då?

<code>Dim tal, tal2, summa, i As Long</code>

Nej, om du skriver så så blir allt som inte har en egen typdeklaration istället datatypen variant.
Om du vill ha det på en rad så kan du skriva:
<code>Dim tal As Long, tal2 As Long, summa As Long, i As Long</code>
/EE

Det funkade!
Tack.

mvh Kalle