Er zijn 27 reacties in dit onderwerp

[Rookie1990]

Hoi allemaal,

Ik wil een programma maken dat 1000 keer 2 willekeurige getallen genereert tussen 1 en 6.
Die 1000 resultaten neem ik op in een array. Daarna wil ik een array van 11 elementen maken die weergeven hoeveel keer de computer het getal 2,3,4,... 12 heeft gegenereerd. Die laatste array wil ik afdrukken...

Ik heb het volgende al...


Visual Basic Code:

Private intTelGetal(11) As Integer
Private Sub btnGenereren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenereren.Click
Dim intGet1 As Integer
Dim intGet2 As Integer

Const Aantal = 1000
'Dim intTeller As Integer

'Tekstvak leegmaken.
txtStatistiek.Text = ""

'Willekeurig getal kiezen.
Randomize()

For i As Integer = 1 To Aantal
intGet1 = CInt(Val(Rnd() * 1000 + 1))
intGet2 = CInt(Val(Rnd() * 1000 + 1))

Select Case intGet1
Case 1
intTelGetal(1) = intTelGetal(1) + 1
Case 2
intTelGetal(2) = intTelGetal(2) + 1
Case 3
intTelGetal(3) = intTelGetal(3) + 1
Case 4
intTelGetal(4) = intTelGetal(4) + 1
Case 5
intTelGetal(5) = intTelGetal(5) + 1
Case 6
intTelGetal(6) = intTelGetal(6) + 1
Select Case intGet2
Case 1
intTelGetal(1) = intTelGetal(1) + 1
Case 2
intTelGetal(2) = intTelGetal(2) + 1
Case 3
intTelGetal(3) = intTelGetal(3) + 1
Case 4
intTelGetal(4) = intTelGetal(4) + 1
Case 5
intTelGetal(5) = intTelGetal(5) + 1
Case 6
intTelGetal(6) = intTelGetal(6) + 1
End Select
End Select

Next i
MessageBox.Show("De getallen zijn gegenereerd", _
"OPGEPAST", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub btnStatistiek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStatistiek.Click

For i = 1 To 6
txtStatistiek.Text = txtStatistiek.Text & "het getal " & i & _
" werd " & Str(intTelGetal(i)) & " keer gegenereerd." & vbCrLf
Next i
End Sub

Ik krijg niet de 11 elementen weergegeven. Wat doe ik fout??


Bedankt!!

[Hypenate]

Kleine tip:
Visual Basic Code:

intTelGetal(1) += 1

Hoe bedoel je, je krijgt de 11 elementen niet weergeven?
Er is toch geen enkele loop die 11 keer iets doet?

En waarom zou je toch 11 willen gaan, een dobbelsteen heeft maar maximaal 6 ogen.

[Rookie1990]

Ja ik wil met elf elementen weergeven hoeveel keer welk getal word gegenereerd...
Er moeten dus 1000 resultaten zijn opgenomen in de eerste array (die niet word weergegeven).

Daarna wil ik bv weergeven hoeveel keer het getal 2,3,4,.... tot 12 (6 getallen * 2 keer  = max. 12) worden weergegeven.
Het is omdat ik 2 random getallen genereer dat ik max. 12 getallen - 1 kan weergeven om te weten te komen welke van de getallen hoeveel keer is weergegeven.

Snap je?

[Hypenate]

Je moet een beperking opgeven, een limiet waar hij tussen mag 'Randomizen'.
MSDN.

Visual Basic Code:

 'Willekeurig getal kiezen.
Dim willekeuriggetal As New Random
Randomize()

For i As Integer = 1 To Aantal
intGet1 = willekeuriggetal.Next(1, 7)
intGet2 = willekeuriggetal.Next(1, 7)

Select Case intGet1
Case 1
intTelGetal(1) = intTelGetal(1) + 1
Case 2
'...
Next i

[Rookie1990]

Dat is nog altijd niet het gewenste resultaat.
Ik moet 1000 keer 2 willekeurige getallen genereren tussen 1 en 6... dat heb ik dan al.
En dan moet ik die resultaten opslaan in een array. Daarna moet ik een array maken met daarin weergegeven hoeveel keer het getal 2 is weergegeven in het getal dat random is gezocht...

Dat gaat de bedoeling zijn...

[Benno]

Je hebt die eerste array (van 1000 elementen) toch niet nodig?
Functie die je onmiddellijk de 11 resultaten geeft

Visual Basic Code:

Private Shared Function Genereer(aantalWorpen As Int32) As Int32()
	Static random As New Random
	Dim worpen(10) As Int32
	For index As Int32 = 1 To aantalWorpen
		worpen(random.Next(1, 7) + random.Next(1, 7) - 2) += 1
	Next
	Return worpen
End Function

[Benno]

Resultaten tonen:
Visual Basic Code:

Private Function MilleFoisSept() As String
	 Const format As String = "{0} worpen voor {1}"
	 Dim bobLeBricoleur As New System.Text.StringBuilder
	 Dim getal As Int32 = 2
	 For Each aantal In Genereer(1000)
		 bobLeBricoleur.AppendFormat(format, aantal, getal)
		 bobLeBricoleur.AppendLine()
		 getal += 1
	 Next
	 Return bobLeBricoleur.ToString
End Function

[Hypenate]

Hey Benno,

Wat is het veschil tussen 'Static' en 'Const'?

[RedThread]

Hypenate, op 08 March 2013 - 08:58, zei:

Hey Benno,

Wat is het veschil tussen 'Static' en 'Const'?

De waarde van een static wordt in runtime toegewezen, de waarde van een const tijdens compile time.

[RedThread]

Static : Specifies that one or more declared local variables are to continue to exist and retain their latest values after termination of the procedure in which they are declared.

Voorbeeld :

Visual Basic Code:

	Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
		Static _B As String = ""
		_B &= "A"
		MsgBox(_B)
	End Sub

[Hypenate]

Ok dan...
Wat is dan het verschil tussen een Static, Dim en Private?

[Rookie1990]

Hoi Benno,

Dank voor de code die je daar weergeeft. Het enige probleem is dat ik zoiezo de eerste array moet hebben. Hetgeen je van code geeft heb ik niet onder de knie (en ik ben al geen goeie in programmeren ).
Dus dat komt eigenlijk niet echt goed over als ik dingen ga gebruiken die ik niet goed snap. Ik zou even willen voortgaan op de code die ik al had (om het gemakkelijk te houden ).
Kan ik om de resultaten weer te geven iets simpelers van code gebruiken? Ben al op zoek geweest, maar nog meteen iets gevonden...

Bedankt !

[Benno]

Rookie1990, op 08 March 2013 - 13:45, zei:

Het enige probleem is dat ik zoiezo de eerste array moet hebben.

Dat strookt niet met wat je daarvoor gezegd hebt.
Maar goed, dat kan ook:

Visual Basic Code:

	Private Shared random As New Random()

	Private Sub WerpEnToon()
		Dim worpen = Werp(1000)
		Dim resultaat = worpen.GroupBy(Function(w) w).OrderBy(Function(g) g.Key).
						Select(Function(g) g.Count).ToArray()
		Toon(resultaat)
	End Sub

	Private Function Werp(aantalWorpen As Int32) As Int32()
		Dim worpen(aantalWorpen - 1) As Int32
		For index As Int32 = 0 To aantalWorpen - 1
			worpen(index) = random.Next(1, 7) + random.Next(1, 7)
		Next
		Return worpen
	End Function
	
	Private Sub Toon(geteldeWorpen As Int32())
		' zoals je wil
	End Sub
 

Rookie1990, op 08 March 2013 - 13:45, zei:

Kan ik om de resultaten weer te geven iets simpelers van code gebruiken?

Is het windows forms, wpf, console, web?

[Rookie1990]

Hoi benno,

Sorry dat ik niet duidelijk genoeg was . Het is een Windows forms applicatie...

Bedankt!!

[Benno]

Hypenate, op 08 March 2013 - 12:48, zei:

Ok dan...
Wat is dan het verschil tussen een Static, Dim en Private?

Appelen, peren en confituur.

Dim dien om een variabele te declareren (kan ook gebruikt worden om een Field te declareren, maar dat doen we doorgaans niet).
Static slaat op de lifetime van een variabele.
Private slaat op de bereikbaarheid

Bij gedeclareerde elementen moet je rekening houden met scope/visibility, lifetime en accessibility
Deze tabel vat het mooi samen.

[Benno]

Rookie1990, op 08 March 2013 - 19:19, zei:

Het is een Windows forms applicatie...

En wil je het resultaat in een control?
Of MessageBox, of ...

[Benno]

Benno, op 08 March 2013 - 19:29, zei:

En wil je het resultaat in een control?
Of MessageBox, of ...

Veronderstel een ListBox :
Visual Basic Code:

	Private Sub Toon(geteldeWorpen As Int32())
		ListBoxResultaat.Items.Clear()
		Dim worp As Int32 = 2
		For Each aantal As Int32 In geteldeWorpen
			ListBoxResultaat.Items.Add(String.Format("{0} x {1}", aantal, worp))
			worp += 1
		Next
	End Sub
 

[Rookie1990]

Hoi Benno,

Bedankt voor de hulp, maar moet er even deftig aan zitten om het te verwerken . Als ik het in een textbox wil laten komen, dan moet ik ListBoxResultaat waarschijnlijk vervangen door de textbox... En dan zou die moeten weergeven dat bv het getal 2 ... x-aantal keer is geteld.

[Rookie1990]

Benno, op 08 March 2013 - 19:35, zei:

Veronderstel een ListBox :
Visual Basic Code:

Private Sub Toon(geteldeWorpen As Int32())
	 ListBoxResultaat.Items.Clear()
	 Dim worp As Int32 = 2
	 For Each aantal As Int32 In geteldeWorpen
		 ListBoxResultaat.Items.Add(String.Format("{0} x {1}", aantal, worp))
		 worp += 1
	 Next
End Sub

Hoe declareer ik juist die "GeteldeWorpen"? VBA aanziet die als niet behorende tot de collection type...
Kan ik dit nog anders weergeven?

Bedankt!

[Benno]

Rookie1990, op 10 March 2013 - 11:48, zei:

Als ik het in een textbox wil laten komen, dan moet ik ListBoxResultaat waarschijnlijk vervangen door de textbox... En dan zou die moeten weergeven dat bv het getal 2 ... x-aantal keer is geteld.

Ja. Zet de TextBox op Multiline en dan wordt Toon() zoiets:
Visual Basic Code:

	Private Sub Toon(geteldeWorpen As Int32())
		Dim lines As New List(Of String)
		Dim worp As Int32 = 2
		For Each aantal As Int32 In geteldeWorpen
			lines.Add(String.Format("{0} is {1} keer geteld", worp, aantal))
			worp += 1
		Next
		TextBoxResultaat.Lines = lines.ToArray
	End Sub

[Rookie1990]

Benno, op 10 March 2013 - 12:14, zei:

Ja. Zet de TextBox op Multiline en dan wordt Toon() zoiets:
Visual Basic Code:

Private Sub Toon(geteldeWorpen As Int32())
	 Dim lines As New List(Of String)
	 Dim worp As Int32 = 2
	 For Each aantal As Int32 In geteldeWorpen
		 lines.Add(String.Format("{0} is {1} keer geteld", worp, aantal))
		 worp += 1
	 Next
	 TextBoxResultaat.Lines = lines.ToArray
End Sub

Sorry dat ik zo moeilijk doe hoor, maar hoe zet ik dit dan juist onder de voorziene button? Want dan gaat die natuurlijk terug weergeven dat ie niet tot de "collection type" behoort...

[Benno]

Dit is de volledige code hier:
Visual Basic Code:

Public Class FormRandom
	Private Shared random As New Random()

	Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
		WerpEnToon()
	End Sub

	Private Sub WerpEnToon()
		Dim worpen = Werp(1000)
		Dim resultaat = worpen.GroupBy(Function(w) w).OrderBy(Function(g) g.Key).
						Select(Function(g) g.Count).ToArray()
		Toon(resultaat)
	End Sub

	Private Function Werp(aantalWorpen As Int32) As Int32()
		Dim worpen(aantalWorpen - 1) As Int32
		For index As Int32 = 0 To aantalWorpen - 1
			worpen(index) = random.Next(1, 7) + random.Next(1, 7)
		Next
		Return worpen
	End Function

	Private Sub Toon(geteldeWorpen As Int32())
		Dim lines As New List(Of String)
		Dim worp As Int32 = 2
		For Each aantal As Int32 In geteldeWorpen
			lines.Add(String.Format("{0} is {1} keer geteld", worp, aantal))
			worp += 1
		Next
		TextBoxResultaat.Lines = lines.ToArray
	End Sub
End Class

 worpen.png   12.09K   2 downloads

[Rookie1990]

Oké bedankt!

Hier kan ik zeker mee verder !!

Groeten!

[Rookie1990]

Hoi Benno,

Ik wil er eigenlijk eerst voor zorgen dat hij eerst met 1 button de getallen genereerd (dan komt er een msgBox "De getallen zijn gegenereerd") en daarna een knop om de array dan weer te geven... Hoe kan ik hier dan voor zorgen?
Sorry voor de nogal lastige beginnersvragen ...

[Benno]

Maak van geteldeWorpen een Field.
Bijvoorbeeld als volgt:
Visual Basic Code:

Public Class FormWorpen
	Private Shared random As New Random()
	Private geteldeWorpen(-1) As Int32

	Private Sub ButtonGenereer_Click(sender As Object, e As EventArgs) Handles ButtonGenereer.Click
		Genereer(1000)
		MessageBox.Show("1000 worpen geteld")
	End Sub

	Private Sub ButtonToon_Click(sender As Object, e As EventArgs) Handles ButtonToon.Click
		Toon()
		Array.Resize(geteldeWorpen, 0)
	End Sub

	Private Sub Genereer(aantal As Int32)
		Dim worpen = Werp(aantal)
		geteldeWorpen = worpen.GroupBy(Function(w) w).OrderBy(Function(g) g.Key).
						Select(Function(g) g.Count).ToArray()
	End Sub

	Private Function Werp(aantalWorpen As Int32) As Int32()
		Dim worpen(aantalWorpen - 1) As Int32
		For index As Int32 = 0 To aantalWorpen - 1
			worpen(index) = random.Next(1, 7) + random.Next(1, 7)
		Next
		Return worpen
	End Function

	Private Sub Toon()
		Dim lines As New List(Of String)
		Dim worp As Int32 = 2
		For Each aantal As Int32 In geteldeWorpen
			lines.Add(String.Format("{0} is {1} keer geteld", worp, aantal))
			worp += 1
		Next
		TextBoxResultaat.Lines = lines.ToArray
	End Sub
End Class

[Rookie1990]

Hoi Benno,

Super bedankt! Het werkt perfect en ik heb hem door !!
Bedankt!!

[Benno]

Ok.
Nu nog die array van 1000 worpen schrappen (want die heb je echt niet nodig).

[Jenny]

&Rookie
om eerlijk te zijn begrijp ik geen snars van je vraag hoor
maar na de reakties van Hypenate en Benno gelezen te hebben, denk ik, dat je de waarschijnlijkheid wil weten, van de uitkomst van een worp met 2 dobbelstenen
het probleem met het oplossen van zulke zaken, met behulp van een toevalsgenerator is:
1)om bruikbaar te zijn moet elke mogelijke uitkomst gelijkelijk verdeeld zijn over het domein van mogelijke uitkomsten (hier 36)
2)elke mogelijke verzameling van uitkomsten, moet aan redelijke testen van toeval voldoen,(er mag eigenlijk geen regelmaat in te ontdekken vallen)
ik ben van mening dat 1) en 2) elkaar wel een beetje tegenspreken
om nu toch aan zowel 1) als 2) te voldoen zal je dus een HEEL groot aantal gesimuleerde worpen moeten doen, 1000 zal lang niet voldoende zijn
hierbij een algoritme dat de exacte waarschijnlijkheid opleverd (nou ja, tenminste tot ver na de komma)
pseudo vb code:
Code:

AantalPermutaties = 6 * 6
For Getal = 2 To 12
	 Select Case Getal
			 Case 2 To 7: Waarschijnlijkheid = (Getal - 1) / AantalPermutaties
			 Case 8 To 12: Waarschijnlijkheid = (13 - Getal) / AantalPermutaties
	 End Select
	 Print Getal, Format(Waarschijnlijkheid, "0.00000000")
Next