Live-Ticker
 Community
menu Registrieren menu Mitglieder Login menu Chat menu Flirtsuche menu Forum menu Shop
 Schule & Uni
menu Referate
 Informationen
menu FAQs
 Statistik
Mitglieder399.948
Neue User8
Männer197.055
Frauen196.062
Online3
Referate12.458
SMS-User59.003
Forenbeiträge3.080.597
 Neue Mitglieder
  • Profilbild von nathan1

    Maennlich nathan1
    Alter: 16 Jahre
    Profil

  • Profilbild von Hirti98

    Maennlich Hirti98
    Alter: 31 Jahre
    Profil

  • Profilbild von gankerbeen12345

    Weiblich gankerbeen12345
    Alter: 41 Jahre
    Profil

  • Profilbild von Nadine0210

    Weiblich Nadine0210
    Alter: 16 Jahre
    Profil

  • Profilbild von PussyHunter

    Maennlich PussyHunter
    Alter: 29 Jahre
    Profil

  • Profilbild von Emmychen

    Weiblich Emmychen
    Alter: 16 Jahre
    Profil

  • Profilbild von Lxrx3

    Weiblich Lxrx3
    Alter: 17 Jahre
    Profil

  • Profilbild von Judenstecher123

    Weiblich Judenstecher123
    Alter: 31 Jahre
    Profil

  • Profilbild von silvanica07

    Weiblich silvanica07
    Alter: 26 Jahre
    Profil

  • Profilbild von Tmrbbck

    Maennlich Tmrbbck
    Alter: 17 Jahre
    Profil

     
Foren
Webmaster / HTML / Programmieren
Forum durchsuchen:

 
Thema:

Visual Basic

(499x 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.

Weitere interessante Beiträge aus dem Forum:
an visual-kei fans
visual kei
As Basic as the Screwdriver
Help. Visual Basic
visual basic!!!!!


Dein Live Messenger LiveMessenger

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

Anmelden | Login

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

3 Mitglieder online