Live-Ticker
 Community
menu Registrieren menu Mitglieder Login menu Chat menu Flirtsuche menu Forum menu Shop
 Schule & Uni
menu Referate
 Informationen
menu FAQs
 Statistik
Mitglieder397.501
Neue User0
Männer195.853
Frauen194.817
Online0
Referate12.458
SMS-User59.003
Forenbeiträge3.080.539
 Neue Mitglieder
  • Profilbild von Celinehaw

    Weiblich Celinehaw
    Alter: 18 Jahre
    Profil

  • Profilbild von MartinDD

    Maennlich MartinDD
    Alter: 27 Jahre
    Profil

  • Profilbild von cimbomlukizzz

    Weiblich cimbomlukizzz
    Alter: 15 Jahre
    Profil

  • Profilbild von tugba_skn

    Weiblich tugba_skn
    Alter: 15 Jahre
    Profil

  • Profilbild von 1905_cimbomm

    Weiblich 1905_cimbomm
    Alter: 15 Jahre
    Profil

  • Profilbild von Zedom

    Maennlich Zedom
    Alter: 18 Jahre
    Profil

  • Profilbild von Rooxd

    Maennlich Rooxd
    Alter: 18 Jahre
    Profil

  • Profilbild von anstoe16

    Weiblich anstoe16
    Alter: 17 Jahre
    Profil

  • Profilbild von Harald6543

    Maennlich Harald6543
    Alter: 30 Jahre
    Profil

  • Profilbild von loller6730

    Maennlich loller6730
    Alter: 30 Jahre
    Profil

     
Foren
Webmaster / HTML / Programmieren
Forum durchsuchen:

 
Thema:

Visual Basic

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

0 Mitglieder online