Community
menu Registrieren menu Mitglieder Login menu Chat menu Flirtsuche menu Forum
 Schule & Uni
menu Referate / Hausarbeiten
 Informationen
menu FAQs
 Statistik
Mitglieder401.126
Neue User0
Männer197.591
Frauen196.704
Referate12.458
Forenbeiträge3.080.687
 Neue Mitglieder
  • Profilbild von amin420

    Maennlich amin420
    Alter: 27 Jahre
    Profil

  • Profilbild von testcarlo

    Maennlich testcarlo
    Alter: 31 Jahre
    Profil

  • Profilbild von xxdiinaaxx

    Weiblich xxdiinaaxx
    Alter: 31 Jahre
    Profil

  • Profilbild von petrarot

    Weiblich petrarot
    Alter: 31 Jahre
    Profil

  • Profilbild von Lotte1504

    Weiblich Lotte1504
    Alter: 39 Jahre
    Profil

  • Profilbild von sumischa

    Weiblich sumischa
    Alter: 16 Jahre
    Profil

  • Profilbild von lila2302

    Weiblich lila2302
    Alter: 14 Jahre
    Profil

  • Profilbild von heimliche

    Weiblich heimliche
    Alter: 15 Jahre
    Profil

  • Profilbild von robertbnke

    Maennlich robertbnke
    Alter: 31 Jahre
    Profil

  • Profilbild von unicorn2

    Weiblich unicorn2
    Alter: 24 Jahre
    Profil

     
Foren
Webmaster / HTML / Programmieren
Forum durchsuchen:

 
Thema:

Visual Basic

(526x gelesen)

Seiten: 1

Du mußt dich registrieren, bevor Du einen Beitrag bzw. eine Antwort erstellen kannst.

Beitrag von Sylvielein

10.05.2006 12:33:19

Sylvielein

Profilbild von Sylvielein ...

Themenstarter
Sylvielein hat das Thema eröffnet...

Ich bin mir nich ganz sicher, ob das hier in dem Forum richtig is, aba Hilfe brauch ich trotzdem ^^

Ich versuche grade eine Aufgabe zu lösen. Es geht dabei um ein Kartenduell, bei dem gemischt werden soll. Eigentlich hab ich das alles von einem Blatt abgetippt, was uns unser Lehrer gegeben hat un trotzdem funktioniert das nicht..
Ich mach hier jetz 1ma den Code hin!


Option Explicit
Dim KartenAnzahl(52) As Integer
Dim KartenIndex As Integer

Private Sub cmdEnde_Click()
If cmdEnde.Caption = "Ende" Then
End
Else
lblGameOver.Visible = True
cmdEnde.Caption = "Ende"
cmdNeu.Caption = "Neues Spiel"
End Sub

Private Sub cmdNeu_Click()
Dim TempWert As Integer
Dim Zaehler As Integer
Dim Zufallszahl As Integer
Dim Rest As Integer
Dim DeineZahl As Integer
Dim ComputerZahl As Integer

If cmdNeu.Caption = "Neues Spiel" Then
lblGameOver.Visible = False
cmdNeu.Caption = "Nächste Karte"
cmdEnde.Caption = "Stopp"
lblDeinePunkte = "0"
lblCompPunkte = "0"
For Zaehler = 1 To 52
KartenNummer(Zaehler) = Zaehler
Next Zaehler
For Rest = 52 To 2 Step -1
Zufallszahl = Int(Rnd * Rest) + 1
TempWert = KartenNummer(Rest)
KartenNummer(Rest) = KartenNummer(FeldElement)
KartenNummer(FeldElement) = TempWert
Next Rest
KartenIndex = 1
End If
If KartenIndex <= 26 Then
Select Case KartenNummer(KartenIndex)
Case 1 To 13
imgSpieler.Picture = imgHerz.Picture
DeineZahl = KartenNummer(KartenIndex)
Case 14 To 26
imgSpieler.Picture = imgKaro.Picture
DeineZahl = KartenNummer(KartenIndex) - 13
Case 27 To 29
imgSpieler.Picture = imgKreuz.Picture
DeineZahl = KartenNummer(KartenIndex) - 26
Case 40 To 52
imgSpieler.Picture = imgPik.Picture
DeineZahl = KartenNummer(KartenIndex) - 39
End Select
Select Case DeineZahl
Case 1 To 9
lblSpieler.Caption = Str(DeineZahl + 1) + ""
Case 10
lblSpieler.Caption = "J"
Case 11
lblSpieler.Caption = "Q"
Case 12
lblSpieler.Caption = "K"
Case 13
lblSpieler.Caption = "A"
End Select
Select Case KartenNummer(KartenIndex + 26)
Case 1 To 13
imgComputer.Picture = imgHerz.Picture
ComputerZahl = KartenNummer(KartenIndex + 26)
Case 14 To 26
imgComputer.Picture = imgKaro.Picture
ComputerZahl = KartenNummer(KartenIndex + 26) - 13
Case 27 To 39
imgComputer.Picture = imgKreuz.Picture
ComputerZahl = KartenNummer(KartenIndex + 26) - 26
Case 40 To 52
imgComputer.Picture = imgPik.Picture
ComputerZahl = KartenNummer(KartenIndex + 26) - 39
End Select
Select Case ComputerZahl
Case 1 To 9
lblComputer.Caption = Str(ComputerZahl + 1) + " "
Case 10
lblComputer.Caption = "J"
Case 11
lblComputer.Caption = "Q"
Case 12
lblComputer.Caption = "K"
Case 13
lblComputer.Caption = "A"
End Select
If DeineZahl > ComputerZahl Then
lblDeinePunkte.Caption = Str(Val(lblDeinePunkte.Caption) + 2)
ElseIf ComputerZahl > DeineZahl Then
lblCompPunkte.Caption = Str(Val(lblCompPunkte.Caption) + 2)
Else
lblDeinePunkte.Caption = Str(Val(lblDeinePunkte.Caption) + 1)
lblCompPunkte.Caption = Str(Val(lblCompPunkte) + 1)
End If
KartenIndex = KartenIndex + 1
Else
lblGameOver.Visible = True
cmdNeu.Caption = "Neues Spiel"
cmdEnde.Caption = "Ende"
End If
End Sub

Private Sub Form_Load()
Randomize
End Sub



Zu bemängeln hat er immer die Zeile
"KartenNummer(Zaehler) = Zaehler"
Da kommt dann immer sowas wie "Array erwartet" etc.
Ich versteh das nich un brauch ganz dringend Hilfe

Profil | Livenachricht | SMS senden | Gästebuch | Nachricht | Bildergalerie


Beitrag von Maggoettin

10.05.2006 12:39:14

Maggoettin

Maggoettin hat kein Profilbild...

Bist du dir sicher *wenn du es abgetippt hast* das du die command-button auch richtig benannt hast???
das passiert mir immer sehr oft wenn ich den code einfach nur abtippen muss.

Profil | Livenachricht | SMS senden | Gästebuch | Nachricht | Bildergalerie


Beitrag von Sylvielein

10.05.2006 12:44:32

Sylvielein

Profilbild von Sylvielein ...

Themenstarter
Sylvielein hat das Thema eröffnet...

Bei den cmdButtons konnt man nich so viel falsch machen... cmdNeu und cmdEnde ^^

Ich hab halt dieses Problemchen mit "KartenNummer".. Is auch eigentlich nich vordefiniert aba ich weiß auch nich, wie ich das vordefinieren soll....

Profil | Livenachricht | SMS senden | Gästebuch | Nachricht | Bildergalerie


Beitrag von Sylvielein

10.05.2006 13:04:02

Sylvielein

Profilbild von Sylvielein ...

Themenstarter
Sylvielein hat das Thema eröffnet...

Kann mir keiner helfen?? :((

Profil | Livenachricht | SMS senden | Gästebuch | Nachricht | Bildergalerie


Seiten: 1

Du mußt dich registrieren, bevor Du einen Beitrag bzw. eine Antwort erstellen kannst.

Visual Basic
Weitere interessante Beiträge aus dem Forum:
Referate Einbruch


Dein Live Messenger LiveMessenger

Diese Funktion ist nur für Mitglieder verfügbar.

Anmelden | Login

Keine neue Nachricht
Jetzt Gratis bei Pausenhof.de registrieren...

18 Mitglieder online