Visual Basic Forum

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

Hallo

Vorab: Ich bin ein ziemlicher noob in vb. Ich hänge ziemlich hinterher und kenne viele Grunskenntnisse noch nicht! Fals ihr mir helfen wollt, wäre nett wenn ihr mir einige Sachen erklären könntet!

So ich muss diese Aufgabe machen :Lotto

Also zu meiner Grafischen oberfläche: Ich habe cmd_start, cmd_ende, 7 lbl und 7 txtboxen(1-6 lottozahl und 7 ist die Zusatzzahl) dann noch 2 buttons einmal für login und register. Also der anfang sieht so aus :

Dim Zahl(1 To 7) As Integer
__________________________

' Zufallszahl 1 bis 49
Zahl(1) = Int(49 * Rnd + 1)
lbl_1.Caption = Zahl(1)
Zahl(2) = Int(49 * Rnd + 1)
lbl_2.Caption = Zahl(2)
Zahl(3) = Int(49 * Rnd + 1)
lbl_3.Caption = Zahl(3)
Zahl(4) = Int(49 * Rnd + 1)
lbl_4.Caption = Zahl(4)
Zahl(5) = Int(49 * Rnd + 1)
lbl_5.Caption = Zahl(5)
Zahl(6) = Int(49 * Rnd + 1)
lbl_6.Caption = Zahl(6)
Zahl(7) = Int(49 * Rnd + 1)
lbl_7.Caption = Zahl(7)

So wie es jetzt weiter gehen soll weiß ich jetzt nicht genau! Ich bitte um hilfe.

MfG David
_________________

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

viellt hilf das: http://www.mediafire.com/?neltlnm1o12

aber is nicht auskommentiert und schwer verständlich

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

Auf jeden fall super Programm! Doch das sind viele befehle drin, die wir noch nicht hatten! Vielleicht kann mir so einer helfen das Programm selber zu bauen! Sehr viel ist es ja nicht!

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

du brauchst 6 textboxen, in die der benutzer seine zahlen eintragen kann
(du musst dementsprechend auch prüfen, ob die eingaben in den textboxen auch zahlen von 1 bis 49 sind)

dann machst du die ziehung und überprüfst, ob die eingaben mit den gezogenen zahlen übereinstimmen

das kann man zB. so machen:

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

achso okay danke!

Das habe ich in einem anderen Forum gefunden. Das soll vermeiden, dass Zahlen wiederholen.

Dim ergebnis(1 To 49) As integer
Dim verteilung(1 To 49) As integer
Dim i, zahl as integer

Randomize 'wichtig, sonst gibts immer nur die gleichen Zahlenkombinationen!
For i = 1 To 6
zahl = Int((49) * Rnd + 1)
If zahl <> ergebnis(zahl) Then
ergebnis(zahl) = zahl
verteilung(zahl) = verteilung(zahl) + 1
Else
i = i - 1
End If
Next i

Habe versucht alles zusammen zu setzen doch irgentwie klappt es nicht so richtig! Könnt ihr mir da unterstüzung geben?

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

da ich die aufgabe recht interessant finde, hab ichs mal gebastelt Wink

jetzt etwas einfacher und kommentiert (du solltest aber zumindest wissen was ein control-array ist) Razz

kannst ja mal checken...

http://www.mediafire.com/download.php?hzjionyzwdj

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

Alles klar Very Happy

Also das Programm ist dir echt gelungen damit kann ich echt was anfangen!
Habe da noch eine frage! In der Aufgabenstellung steht noch " Der Mitspieler muss sich mit einem Usernamen anmelden. Für diesen Mitspieler wird eine Datei angelegt, in der jedes Spiel mit der Anzahl der erzielten Trefferzahl gespeichert wird. In der Datei wird damit der Spielverlauf dokumentiert."

Wenn du mir da noch helfen könntest, wäre ich dir endlos dankbar Very Happy

lg David

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

so,

hab deine hausaufgabe mal beendet.

soll ich für dich noch nen aufsatz in deutsch schreiben oder deine matheaufgaben erledigen? Cool

http://rapidshare.com/files/208861272/Lotto_final.rar.html

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

Kein Sorge in Deutsch und Mathe komme selber klar Wink

Nur noch eine eine Frage! Du hast jetzt noch eine Form2 gemacht, wegen dem Login! So wie ich das verstehe muss man sich erst einloggen, dann kann erst das Programm starten! Doch wenn ich einen Namen eingebe kommt ein error -.- mach ich da was falsch?

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

ähm. bei mir klappts... wo kommt bei dir denn der error?

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

ich zeige es dir durch bilder:

Bild1

Bild2

Bild3

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

lol, du musst auch das ganze projekt laden und nicht nur form2 Razz

also starte die .vbp-datei

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

ahhhhh

ja habe ich gemacht mit dem login klappt aber jetzt kommt sowas :-O

KLICK MICH

Ich denke mal es liegt daran, dass mein Username nicht "David" sondern "B@ttlemaster" ist. Oder Irre ich mich da???

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

hmmm, bei mir klappts...

es könnte sein, dass deine festplatte nicht "C:\" heißt, sondern anders. kA

was sagt vb denn in dem fehler genau?

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

Also meine Platte heißt C:

Und das ist der > Error <

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

hmm, versuch mal nen anderen pfad

oder du prüft erst ob die datei schon vorhanden ist...
wenn ja: open... for append
wenn nein: open... for output

B@ttlemaster · Newbie Anmeldedatum: 12.03.2009 Beiträge: 10

hm okay lasse das dann einfach weg! So habe das ganze programm abgetippt, weil er kontrolieren kann, ob ich es kopiert habe! naja gut bin mir sicher das ich alles richtig abgetippt habe! Doch dieser FEHLER kommt leider! Sorry das ich nochmal frage!
_________________

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

hast du n textbox-array in deiner form?

wenn nicht, das geht so: pack ne textbox auffe form und kopier sie mit strg+c/v da kommt dann ne meldung und da sagste ja und schon hat die textbox n index