Frage bezüglich Zahlengenerator

Creatiive · 24. Mai 2013, 15:01

Hey.

Ich habe ein Programm was mir per Buttonklick zufällig eine Zahl generiert zwischen 1 und 10000.

Wenn jetzt z.B. die Zahl 50 generiert wird, soll beim erneuten klicken auf den Button immer wieder die selbe
Zahl kommen, also 50.

Geht das irgendwie?

Wenn man das Programm neu öffnet, wieder per Button irgendeine Zahl erhalten z.B. 14 und dann halt immer
die selbe Zahl also 14.

MfG.

enIking1998 · 24. Mai 2013, 15:20

Also in erster Linie,nein...
Wie der Name ja sagt [Zufall]/Random...

Doch Du kannst den random Integer in eine Variable speichern, und solange subtrahieren/addieren,bis Du auf x (z.B. 50) kommst...

Beispiel:

VB.NET-Quellcode

Dim x As New Random
Dim EINDEUTIG As Integer
Dim GeneratedZahl As Integer
GeneratedZahl = x.Next(0, 1001)
MessageBox.Show(GeneratedZahl)
EINDEUTIG = EINDEUTIG - EINDEUTIG + GeneratedZahl
MessageBox.Show(EINDEUTIG)

Mfg.eniking1998

compufreak · 24. Mai 2013, 15:22

ich würde das so lösen:

VB.NET-Quellcode

dim zufallszahl as integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
if zufallszahl = 0 then
' hier die zufallszahl generieren...
Else
wasauchimmer()
end if
End Sub
private Sub wasauchimmer
' Hier eben das machen, was er auch immer mit der Zahl machen soll...
End Sub

EDIT: und nicht vergessen, es ist nicht wirklich "random" ich würde da in Zufallszahlen noch Teile von Uhrzeit oder so einbauen, dann ist es eine "echtere" Zufallszahl, sonst wirst Du schnell merken, dass dir Zahlen sehr bekannt vorkommen, weil sie immer auftauchen

enIking1998 · 24. Mai 2013, 15:24

WhatDafuQ?!

Nein...

!!!

Mfg.eniking1998

compufreak · 24. Mai 2013, 15:26

Deine Antwort ist entweder völlig an der Frage vorbei, oder ICH hab die Frage nicht richtig verstanden...

EDIT: Ich gehe davon aus, er kann schon eine Zufallszahl generieren

enIking1998 · 24. Mai 2013, 15:27

Sieh Dir Dein Code an?!

Eine Abfrage mit If?!

!!!

!!!

Mfg.eniking1998

compufreak · 24. Mai 2013, 15:31

Ein Code der funktioniert...
Und ich denke ohne If und Then kommen wir noch nicht aus

enIking1998 · 24. Mai 2013, 15:32

Sieh mein Code : OO

VB.NET-Quellcode

Dim x As New Random
Dim EINDEUTIG As Integer
Dim GeneratedZahl As Integer
GeneratedZahl = x.Next(0, 1001)
MessageBox.Show(GeneratedZahl)
EINDEUTIG = EINDEUTIG - EINDEUTIG + GeneratedZahl
MessageBox.Show(EINDEUTIG)

Das generiert die zufällig Gewählte Zahl nochmal...OHNE IF-**

Mfg.eniking1998

Gonger96 · 24. Mai 2013, 15:35

Was macht ihr hier :?:

Der TE muss einmal eine zufällige Zahl haben, dann in ne Variable packen und diese dann ausgeben.

VincentTB · 24. Mai 2013, 15:36

Lernt doch endlich mal, dass man Option Strict auf On stellt :!:

compufreak · 24. Mai 2013, 15:37

Unsinn....
Dein Code Löscht Eindeutig, indem er sich von sich selber abzieht und durch die neue Random ersetzt und zweitens ist das unsauber , wenn schon dann SO:

VB.NET-Quellcode

Dim x As New Random
Dim EINDEUTIG As Integer
Dim GeneratedZahl As Integer
GeneratedZahl = x.Next(0, 1001)
MessageBox.Show(GeneratedZahl.ToString)
EINDEUTIG = EINDEUTIG - EINDEUTIG + GeneratedZahl
MessageBox.Show(EINDEUTIG.toString)

Sonst gibt es Ärger mit Option Strict On !

enIking1998 · 24. Mai 2013, 15:37

Er meinte die zufällig-gezogene Zahl,im Int_ speichern und jedes Mal wenn eine neue rndm_Int gezogen wird, diese Zahl sein muss,
die davor gezogen wurde...

Edit:
Ich habs im VB-Paradise Quellcode zusammgeschrieben...

Und nochmals Edit, an meinem Vorposter...genau das wollte doch der TE...

Dass sich die randomized Zahl nochmals zieht...

Mfg.eniking1998

Gonger96 · 24. Mai 2013, 15:40

VB.NET-Quellcode

Dim blub As Integer = -1
Sub Clicki(..)
Dim RndNum As New Random
If blub = -1 Then blub = RndNum.Next(0, 1001)
Ausgabe->blub
End If

compufreak · 24. Mai 2013, 15:43

Was er wollte ist nach meinem Verständnis:
Er drückt einen Button... es wird eine Zahl generiert...
Und jedes Mal, wenn er diesen Button wieder drückt, soll diese generierte Zahl ausgegeben werden...
Also wird sie nach meinem Verständnis nur 1 mal erstellt und dann immer wieder benutzt (bis zum nächsten Programmstart)

EDIT: OMG Gonger... Du hast ja ein IF benutzt

(Nur ein Scherz Eniking

)

Gonger96 · 24. Mai 2013, 15:46

@compufreak
Joa, so hab ichs auch verstanden

enIking1998 · 24. Mai 2013, 15:47

Zitat vom TE:

Wenn jetzt z.B. die Zahl 50 generiert wird, soll beim erneuten klicken auf den Button immer wieder die selbe

Zahl kommen, also 50.

Ehmmm...

Das kann man so lösen:

VB.NET-Quellcode

Dim x As New Random
Dim EINDEUTIG As Integer
Dim GeneratedZahl As Integer
GeneratedZahl = x.Next(0, 1001)
MessageBox.Show(GeneratedZahl)
EINDEUTIG = EINDEUTIG - EINDEUTIG + GeneratedZahl
MessageBox.Show(EINDEUTIG)

Die randomized Zahl wird durch sich selbst subtrahiert und mit der Zahl die davor gezogen wurde addiert,sodass man immer wieder DIE ZAHL...mit der man am ANFAG gezogen hat,NOCHMALS UND NOCHMALS...zu ziehen...

Mfg.eniking1998

Gonger96 · 24. Mai 2013, 15:49

Weist du was du da machst ? Du musst nur EINMAL eine zufällige Zahl generieren und fertig. Ausserdem ist ein Integer kein String also Option Strict On

compufreak · 24. Mai 2013, 15:50

neieeen

Eindeutig = Eindeutig - Eindeutig heisst für mich Eindeutig = 0
und 0 + NEUE Zufallszahl ist eine NEUE Zufallszahl....
Du hast einen Denkfehler...

EDIT: Messagebox(Integer) = Option Strict On MECKER !
also Messagebox(integer.tostring)

enIking1998 · 24. Mai 2013, 15:54

@compufreak

Hier:

VB.NET-Quellcode

Option Strict On
Public Class Form1
Dim x As New Random
Dim EINDEUTIG As Integer
Dim GeneratedZahl As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
GeneratedZahl = x.Next(0, 10001)
MessageBox.Show(CStr(GeneratedZahl))
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
EINDEUTIG = x.Next(0, 1001)
MessageBox.Show("Vorher : " & CStr(EINDEUTIG)) 'Vorher
EINDEUTIG = EINDEUTIG - EINDEUTIG + GeneratedZahl
MessageBox.Show("Nachher " & CStr(EINDEUTIG)) 'Danach
End Sub
End Class

Damit gerneriert er die Zahl aus dem Form_Load,jedes Mal auf's Neue, wenn er auf den Button klickt...

Beispiel:
Im Load wird 1 gezogen...

Nun wird via Buttonklick,der neuer Zufallswert - neuer Zufallswert + Der im Formload variierter gerechnet

ALSO,
ist die Zahl nun immer 1,bis die Form wieder neu geladen wird...

Mfg.eniking1998

Neoner · 24. Mai 2013, 16:01

enIking1998 schrieb:

VB.NET-Quellcode

Dim x As New Random

Dim EINDEUTIG As Integer

Dim GeneratedZahl As Integer

GeneratedZahl = x.Next(0, 1001)

MessageBox.Show(GeneratedZahl)

EINDEUTIG = EINDEUTIG - EINDEUTIG + GeneratedZahl

' Eindeutig = 2 | Eindeutig - Eindeutig (2-2 = 0) = 0 -> Eindeutig = GeneratedZahl

EINDEUTIG = GeneratedZahl '-> gleicher Effekt

MessageBox.Show(EINDEUTIG)

Der TE will doch, soweit ich verstanden habe, nur folgendes:

VB.NET-Quellcode

Option Strict On
Public Class Form1
Dim zahl As Integer = -1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If zahl = -1 Then
Dim rnd As New Random
zahl = rnd.Next(0, 1001)
End If
MsgBox(zahl)
End Sub
End Class

Wenn ich das nur falsch Verstanden habe -> bescheid sagen

Gruß,
Neoner

Frage bezüglich Zahlengenerator

Frage bezüglich Zahlengenerator

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

enIking1998 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

7 Benutzer haben hier geschrieben