Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 < [ 2 ]

000
28.03.2004, 15:53 Uhr
~Lottomann
Gast

Kann mir bitte jemand helfen? Ich hab echt keine Ahnung wie das geht. In der Schule haben wir ne Aufgabe bekommen, das wir eine Lottoziehung machen sollen und die Zahlen sollen auch sortiert werden wenn auf einen Button geklickt werden soll. Eine Zusatzaufgabe ist dann noch mehrere Ziehungen in weiteren Listboxen ausgeben zu lassen. Wie geht denn das?
So weit bin ich bis jetzt:

Visual Basic:

Dim lottozahl(6) As Integer

Private Sub Ziehungbtn_Click()
  ListBox1.Clear
For i = 1 To 6
      lottozahl(i) = Int(Rnd * 49) + 1

  Do
     vorhanden = False
     For j = 1 To i - 1
       If lottozahl(j) = lottozahl(i) Then
         lottozahl(i) = Int(Rnd() * 49) + 1
        vorhanden = True
     End If
    Next
  Loop Until Not vorhanden
ListBox1.AddItem (CStr(lottozahl(i)))
Next i

End Sub

Private Sub Ordnenbtn_Click()

For i = 1 To 6
   For j = i + 1 To 6

     If lottozahl(i) > lottozahl(j) Then
        merke = lottozahl(i)
        lottozahl(i) = lottozahl(j)
        lottozahl(j) = merke
     End If

  Next

Next

End Sub

Ich weiß zwar nicht wie das nun stimmt, aber auf jeden Fall fehlt da noch was, deshalb funktioniert es ja nicht

Ich wäre wirklich sehr dankbar wenn mir jemand schnellstmöglich hilft!

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
28.03.2004, 16:22 Uhr
Windalf
Der wo fast so viele Posts wie FloSoft...
(Operator)

ich kann zwar kein vb aber beim sortieren reichts wenn du bie der ersten schleife bis 6-1 gehst

C++:

For i = 1 To 5
   For j = i + 1 To 6

     If lottozahl(i) > lottozahl(j) Then
        merke = lottozahl(i)
        lottozahl(i) = lottozahl(j)
        lottozahl(j) = merke
     End If

--
...fleißig wie zwei Weißbrote

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
30.03.2004, 17:14 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Ich könnte dir auch in VB helfen ^^
Aber ich weiß nicht recht was du willst.
Der Ordnenbutton klappt nich...
Passiert nichts wenn man da drauf klickt...
Immer wenn man auf den Ziehen button klickt kommen in der Listbox 6 verschiedene zahlen!
Was willst du denn noch mehr?

Das mit den weiteren Listboxen:
Du kannst per button nicht eine Listbox erstellen!
Aber du kannst z.b. Listboxen sichtbar machen!
Du musst ungefähr 10 Listboxen machen.
Dann benennen ListBox1, ListBox2...........
Also:

Visual Basic:

Private Sub Form_Load()
Listbox2.Visible = False
Listbox3.Visible = False
Listbox4.Visible = False
Listbox5.Visible = False
Listbox6.Visible = False
Listbox7.Visible = False
Listbox8.Visible = False
Listbox9.Visible = False
Listbox10.Visible = False
End Sub

Private Sub Ordnen_Click()
'Wenn nichts in der Box steht passiert nichts:
If ListBox1.Text = "" then Else ListBox2.Visible = True
If ListBox2.Text = "" then Else Listbox3.Visible = True
'Und so weiter.............

Ich weiß nich ob das klappt wünsch dir aber viel Glück ^^

Mfg. Euer Audron!!!!
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
30.03.2004, 17:34 Uhr
Windalf
Der wo fast so viele Posts wie FloSoft...
(Operator)

Zitat:

Du kannst per button nicht eine Listbox erstellen

was das geht nicht?
also dann würde meine meinung über vb stark in den keller gehen....
--
...fleißig wie zwei Weißbrote

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
30.03.2004, 18:03 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Naja, du "malst" wie bei Paint (Malprogramm^^) einen button...
Dann machste doppelklick dadrauf und legst dein script drauf..
Bei andrem programmiersprachen is das anders!

auf jeden fall kann er nur listboxen sichtbar der unsichtbar machen..
NACH MEINEN KENNTNISSEN nicht selbst erstellen!

Visual Basic:

Private Sub Button1_Click()
Call CreateLISTBOX
End Sub

Public Sub CreateLISTBOX()
Create.Picture
Listbox1.create
Listbox1.Style = Graphical
Listbox1.Show
Listbox1.Visible = True
Create.Picture Clear.Picture1
End Sub

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

005
31.03.2004, 18:42 Uhr
~Lottomann
Gast

Ne so meint ich das nun nicht, trotzdem danke ich euch

Um die Aufgabe hab ich mich nochmal schön gedrückt. Jetzt lautet die neue:
"Erstelle ein Spiel, bei dem 2 Spieler mit 3 Würfeln spielen. Der Spieler mit der Höheren Augenzahl gewinnt."

Also ich brauch da denke ich mal 1 Button für jeden Spieler um die Würfel zu rollen. Die 3 Zahlen müssen in 2 Listboxen angezeigt werden. Der muss die dann zusammenrechnen, vergleichen welche größer ist und in irgendeinem Feld (was nimmt man da? ein label?) ausgeben.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

006
01.04.2004, 13:32 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Das is einfacher...
Mach 6 Textfelder(Text1, Text2.....) , drei buttons (Spieler1würfeln & Spieler2würfeln & cmdAuswerten) und
vier Label (überschriftVonLabel1 & überschriftVonLabel2 & Label1 & Label2)

So dass es so aussieht:

Dann fügst du folgenden Code ein:

Visual Basic:

Private Sub cmdAuswerten_Click()
Label1.Caption = Val(Text1.Text) + Val(Text3.Text) + Val(Text5.Text) 'Zahlen aus den Textfeldern addieren
Label2.Caption = Val(Text2.Text) + Val(Text4.Text) + Val(Text6.Text) 'Die drei Textfelder für Spieler2 addieren
If Val(Label1.Caption) > Val(Label2.Caption) Then MsgBox "Spieler 1 hat gewonnen!"
If Val(Label1.Caption) < Val(Label2.Caption) Then MsgBox "Spieler 2 hat gewonnen!"
End Sub

Private Sub Command2_Click()
Text2.Text = Int(Rnd * 6)
If Text2.Text = "" Then Call RANDOMVARIB Else Text4.Text = Int(Rnd * 6)
If Text4.Text = "" Then Call RANDOMVARIB Else Text6.Text = Int(Rnd * 6)
End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Spieler1würfeln_Click()
Text1.Text = Int(Rnd * 6)
If Text1.Text = "" Then Call RANDOMVARIB Else Text3.Text = Int(Rnd * 6)
If Text3.Text = "" Then Call RANDOMVARIB Else Text5.Text = Int(Rnd * 6)
End Sub

Public Sub RANDOMVARIB()
Text = Int(Rnd * 6)
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text3_Change()

End Sub

Private Sub Text4_Change()

End Sub

Private Sub Text5_Change()

End Sub

Private Sub Text6_Change()

End Sub

Private Sub überschriftVonLabel1_Click()

End Sub

Private Sub überschriftVonLabel2_Click()

End Sub

Ich hoffe ich konnte dir weiterhelfen!
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Dieser Post wurde am 01.04.2004 um 13:33 Uhr von Audron-AT-www editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

007
01.04.2004, 14:21 Uhr
~Sasa
Gast

Er hat gesagt zwei Listboxen

und nich 6 textfelder...

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

008
01.04.2004, 14:22 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Ja... Das geht aber nich... Sonst müsste man jede zeile auslesen!
Also mit den Textfelder wird der lehrer wohl nix dagegen haben!
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

009
01.04.2004, 14:40 Uhr
FloSoft
Medialer Over-Flow
(Administrator)

ich denke mal das die übung dazu da ist den umgang mit listboxen zu erlernen ...
--
class God : public ChuckNorris { };

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ 2 ] [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: