| |
VB.NET - Ein- und UmsteigerFrage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Michael1111 | Datum: 09.01.20 13:34 |
| Hallo,
vielleicht kann mir ja jemand helfen. Es geht um den Tipp Lottozahlen 6 aus 49.
Es geht um den Beitrag https://www.vbarchiv.net/tipps/details.php?id=1367
Geht das auch mit einer unsortierten Ausgabe ??
Beitrag wurde zuletzt am 09.01.20 um 13:57:13 editiert. | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Manfred X | Datum: 09.01.20 21:21 |
| Hallo!
Dim rndm As New Random(Now.Millisecond) 'Modulebene,nicht stets neu
' deklarieren !
Private Function GetLottoReihe() As List(Of Integer)
'Ziehungsparameter
Dim anzahl As Integer = 6
Dim minval As Integer = 1
Dim maxval As Integer = 49
If maxval - minval + 1 <= anzahl Then
Throw New InvalidOperationException("Ungeeignete Ziehungsparameter")
End If
Dim zahlen As New List(Of Integer)
Dim zahl As Integer
Do
zahl = rndm.Next(minval, maxval + 1)
'Wiederholungen ggf. aussondern
If Not zahlen.Contains(zahl) Then zahlen.Add(zahl)
Loop While zahlen.Count < anzahl
Return zahlen
End Function Anwendung
Dim zahlen As List(Of Integer) = GetLottoReihe()
Beitrag wurde zuletzt am 09.01.20 um 21:33:02 editiert. | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Michael1111 | Datum: 09.01.20 23:46 |
| Vielen, vielen Dank !
Aber genau das war eigentlich noch nicht mal das Problem. Das Problem ist nun, die Zahlen (ungeordnet) in eine Liste zu schreiben und auszugeben.
Aber egal - ich geb's bald auf.
Dennoch danke !
Beitrag wurde zuletzt am 10.01.20 um 00:00:45 editiert. | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Wobi | Datum: 10.01.20 00:41 |
| Hallo,
was meinst du denn mit "ungeordnet"?
Überall wo Lottozahlen, Gewinnnummern, Losnummern usw. öffentlich gemacht werden stehen sie in aufsteigender Reihenfolge. Gewinnzahlen: 35, 5, 24, 1 usw. will ja keiner sehen es sei denn live im TV oder so.
Gruß
Frank | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Michael1111 | Datum: 10.01.20 02:25 |
| Hi, mag sein, dass das so keiner sehen will. Aber ich möchte die Zahle in der Reihenfolge der Ziehung haben - und eben nicht aufsteigend (ist auch eigentlich nicht für Lottozahlen gedacht, aber das Prinzip ist brauchbar).
Das Problem ist, das ich von VB 5/6 auf VB 2015 umgestiegen bin (oder sagen wir mal ... gerne möchte) - aber doch feststellen muss, dass da aber so viele Sachen aber sowas von anders sind ... omg
Beitrag wurde zuletzt am 10.01.20 um 02:29:56 editiert. | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Manfred X | Datum: 10.01.20 04:56 |
| Sei show_lottozahlen ein Label auf einem Win.Forms.Formular ...
Dim zahlen As List(Of Integer) = GetLottoReihe()
'Umwandlung der Zahlenfolge in eine Zeichenfolge
Dim display_zahlen As New System.Text.StringBuilder
For i As Integer = 0 To zahlen.Count - 1
display_zahlen.Append(zahlen(i) & ", ")
Next i
show_lottozahlen.Text = display_zahlen.ToString | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Michael1111 | Datum: 10.01.20 11:07 |
| Ich danke allen, die versucht haben, mir zu helfen - ich bekomme ganz einfach den Aufruf der Liste nicht hin - und ich mag jetzt auch nicht mehr.
Dennoch danke für alles. | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Michael1111 | Datum: 10.01.20 18:38 |
| Tausend Dank - wirklich.
War schon verzweifelt - aber jetzt funktioniert es so wie es soll und nun kann ich es mit meinen bescheidenen Möglichkeiten auch so anpassen, wie ich es brauche.
EIN HERZLICHES DANKESCHÖN 1 | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Manfred X | Datum: 13.01.20 09:13 |
| Hallo!
Um bei jedem Durchlauf neue und qualitativ hochwertige Zufallszahlen
zu erhalten, muss in Net stets das gleiche, per Konstruktor korrekt
initialisierte Random-Objekt verwendet werden (vgl. meine erste Antwort).
Nur dadurch werden die mathematischen Eigenschaften des implementierten
Algorithmus wirksam. | |
Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) | | | Autor: Michael1111 | Datum: 13.01.20 09:50 |
| Hallo,
ja - das habe ich schon so geregelt, habe auch einige Variablen in Form.Load als Public hereingepackt, sodass
ich diese überall zu Verfügung habe.
Vielen Dank | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|