| |
VB.NET - Ein- und UmsteigerRe: 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. | |
Frage 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 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 |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere 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
|
|