vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Frage zu Lottozahlen 6 aus 49 (VB.NET) 
Autor: ModeratorDieter (Moderator)
Datum: 10.01.20 17:52

    ' Sicherstellen, daß bei jedem Start wirklich
    ' eine neue Zufallszahlen-Folge generiert wird
    Randomize()
 
    ' Zufallszahlen-Klasse und ArrayList zum 
    ' Zwischenspeichern erstellen
    Dim oZahl As New System.Random
    Dim oList As New List(Of Integer)
    Dim Zahl As Integer
    Dim i As Integer
 
    ' Insgesamt 6 Zufallszahlen ermitteln
    For i = 1 To 6
      Do
        ' Zufallszahl im Bereich 1 bis 49
        Zahl = oZahl.Next(1, 50)
 
        ' Prüfen, ob Zufallszahl bereits gezogen
        If Not oList.Contains(Zahl) Then
          ' Falls nicht, jetzt als "gezogen" merken, 
          ' indem die Zahl der Liste hinzugefügt wird
          oList.Add(Zahl)
          Exit Do
        End If
      Loop
    Next i
 
    ' Lottozahlen anzeigen
    Dim sMsg As New System.Text.StringBuilder
    sMsg.Append("Die Lottozahlen lauten: ")
    For i = 0 To oList.Count - 1
      sMsg.Append(" " & oList(i))
    Next
    MsgBox(sMsg.ToString)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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