bei anzeige-button klick invalid gadgethandle

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

10hofnarr01

Betreff: bei anzeige-button klick invalid gadgethandle

 BeitragSa, Nov 29, 2008 20:41
Antworten mit Zitat
Benutzer-Profile anzeigen
ich hab mal wieder ein problem...
mit blitzplus
ich hab mir mein zeiten tool erweitern wollen

so nun hab ich folgendes problem
wenn bei dem button "gib mir die zeit"
klicke
kommt invalid gadgethandle

woran liegt das??

Code: [AUSKLAPPEN]

; Fenster erstellen:
Global Win = CreateWindow("Space Pioneers - Bauzeiten",100,100,400,450,Desktop(),1)

; 1. Schriften:
Global label100 = CreateLabel("Juhuuu's Tool für die Bauzeiten",100,10,450,20,Win)
Global label101 = CreateLabel("von Schiffen und Def",150,30,450,20,Win)

; 2. Auswahl der RSW-Stufe
Global label200 = CreateLabel("Du hast eine Raumschiffwerft-Stufe: ",10,90,450,20,Win)
Global RsW = CreateComboBox(200,90,150,20,Win)
AddGadgetItem RsW, "Bitte Auswählen"                  ;0
AddGadgetItem RsW, "00"                              ;1
AddGadgetItem RsW, "01"                              ;2
AddGadgetItem RsW, "02"                              ;3
AddGadgetItem RsW, "03"                              ;4
AddGadgetItem RsW, "04"                              ;5
AddGadgetItem RsW, "05"                              ;6
AddGadgetItem RsW, "06"                              ;7
AddGadgetItem RsW, "07"                              ;8
AddGadgetItem RsW, "08"                              ;9
AddGadgetItem RsW, "09"                              ;10
AddGadgetItem RsW, "10"                              ;11
AddGadgetItem RsW, "11"                              ;12
AddGadgetItem RsW, "12"                              ;13
AddGadgetItem RsW, "13"                              ;14
AddGadgetItem RsW, "14"                              ;15
AddGadgetItem RsW, "15"                              ;16
AddGadgetItem RsW, "16"                              ;17
AddGadgetItem RsW, "17"                              ;18
AddGadgetItem RsW, "18"                              ;19
AddGadgetItem RsW, "19"                              ;20
AddGadgetItem RsW, "20"                              ;21
SelectGadgetItem RsW, 0

; 3. Auswahl der Andro-Stufe:
Global label300 = CreateLabel("Du hast eine Androidenfabrik-Stufe: ",10,130,450,20,Win)
Global Androiden = CreateComboBox(200,130,150,20,Win)
AddGadgetItem Androiden, "Bitte auswählen"               ;0
AddGadgetItem Androiden, "00"                        ;1
AddGadgetItem Androiden, "01"                        ;2
AddGadgetItem Androiden, "02"                        ;3
AddGadgetItem Androiden, "03"                        ;4
AddGadgetItem Androiden, "04"                        ;5
AddGadgetItem Androiden, "05"                        ;6
AddGadgetItem Androiden, "06"                        ;7
AddGadgetItem Androiden, "07"                        ;8
AddGadgetItem Androiden, "08"                        ;9
AddGadgetItem Androiden, "09"                        ;10
AddGadgetItem Androiden, "10"                        ;11
AddGadgetItem Androiden, "11"                        ;12
AddGadgetItem Androiden, "12"                        ;13
AddGadgetItem Androiden, "13"                        ;14
AddGadgetItem Androiden, "14"                        ;15
AddGadgetItem Androiden, "15"                        ;16
AddGadgetItem Androiden, "16"                        ;17
AddGadgetItem Androiden, "17"                        ;18
AddGadgetItem Androiden, "18"                        ;19
AddGadgetItem Androiden, "19"                        ;20
AddGadgetItem Androiden, "20"                        ;21
SelectGadgetItem Androiden, 0

; 4. Schiff / Def
Global label400 = CreateLabel("Ich will die Zeit von: ",10,200,450,20,Win)
Global SchiDef = CreateComboBox(200,170,150,20,Win)
AddGadgetItem SchiDef, "Bitte auswählen"               ;0
AddGadgetItem SchiDef, "Schiffe"                     ;1
AddGadgetItem SchiDef, "Verteidigungsanlagen"            ;2
SelectGadgetItem SchiDef, 0

; 5. Schiffauswahl
Global Schiff = CreateComboBox(200,200,150,20,Win)
AddGadgetItem Schiff, "Bitte auswählen"                  ;0
AddGadgetItem Schiff, "Frachtschiff SL-5"               ;1
AddGadgetItem Schiff, "Frachtschiff SL-25"               ;2
AddGadgetItem Schiff, "Frachtschiff SL-250"               ;3
AddGadgetItem Schiff, "Kriegsschiff X320"               ;4
AddGadgetItem Schiff, "Kriegsschiff X832"               ;5
AddGadgetItem Schiff, "Zerstörer"                     ;6
AddGadgetItem Schiff, "Schlachtschiff"                  ;7
AddGadgetItem Schiff, "Imperialkreuzer"                  ;8
AddGadgetItem Schiff, "Trägerschiff"                  ;9
AddGadgetItem Schiff, "Spionagesonde"                  ;10
AddGadgetItem Schiff, "Terrordrohne"                  ;11
AddGadgetItem Schiff, "Langstreckensonde"               ;12
AddGadgetItem Schiff, "Solarsatellit"                  ;13
AddGadgetItem Schiff, "Recycler"                     ;14
AddGadgetItem Schiff, "Siedlungsschiff"                  ;15
AddGadgetItem Schiff, "Voyager"                        ;16
SelectGadgetItem Schiff, 0

; 6. Defauswahl
Global Def = CreateComboBox(200,200,150,20,Win)
AddGadgetItem Def, "Bitte auswählen"                  ;0
AddGadgetItem Def, "Flak"                           ;1
AddGadgetItem Def, "Gattlinggeschütz"                  ;2
AddGadgetItem Def, "Lasergeschütz"                     ;3
AddGadgetItem Def, "Laserphalanx"                     ;4
AddGadgetItem Def, "Ionengeschütz"                     ;5
AddGadgetItem Def, "EMP"                           ;6
AddGadgetItem Def, "Teslaspule"                        ;7
AddGadgetItem Def, "Teslakugelwerfer"                  ;8
AddGadgetItem Def, "Kleiner Schildgenerator"            ;9
AddGadgetItem Def, "Großer Schildgenerator"               ;10
SelectGadgetItem Def, 0

; Erstellen button
Global Anzeigen = CreateButton("Gib mir die Zeit",125,240,150,25,Win)

; Ausgabefenster
Global ausgabe = CreateTextArea(10,275,370,100,Win)

Repeat
; Verstecken der unwichtigen BOX   
   ev=WaitEvent()
   es=EventSource()
   If ev=$401 And es=SchiDef Then
      If SelectedGadgetItem (SchiDef) = 1 Then  ;Zählen ab 0
            ShowGadget Schiff
            Else
            HideGadget Schiff
      EndIf
      If SelectedGadgetItem (SchiDef) = 2 Then
            ShowGadget Def
            Else
            HideGadget Def
      EndIf
   EndIf
;Start des Programms durch anzeigen klicken
   If EventSource() = Anzeigen
;Definieren der Grundzeiten
Select SelectedGadgetItem (SchifDef)
   Case 1
      Select SelectedGadgetItem (Schiff)
         Case 1
            Grundzeit$ = "5760"         ;SL-5
         Case 2
            Grundzeit$ = "14400"      ;SL-25
         Case 3
            Grundzeit$ = "64800"      ;SL-250
         Case 4
            Grundzeit$ = "3840"         ;X320
         Case 5
            Grundzeit$ = "12960"      ;X832
         Case 6
            Grundzeit$ = "37440"      ;Zerren
         Case 7
            Grundzeit$ = "86400"      ;SS
         Case 8
            Grundzeit$ = "158400"      ;Imp
         Case 9
            Grundzeit$ = 80630      ;Träg
         Case 10
            Grundzeit$ = 5400000   ;Mutti
         Case 11
            Grundzeit$ = 1080      ;Spio
         Case 12
            Grundzeit$ = 1296      ;Terror
         Case 13
            Grundzeit$ = 1296      ;Solar
         Case 14
            Grundzeit$ = 19440      ;Rec
         Case 15
            Grundzeit$ = 162000      ;M-Rec
         Case 16
            Grundzeit$ = 38880      ;Sied
         Case 17
            Grundzeit$ = 216000      ;Voy
      End Select
   Case 2
      Select SelectedGadgetItem (Def)
         Case 1
            Grundzeit$ = 55
         Case 2
            Grundzeit$ = 55
         Case 3
            Grundzeit$ = 55
         Case 4
            Grundzeit$ = 55
         Case 5
            Grundzeit$ = 55
         Case 6
            Grundzeit$ = 55
         Case 7
            Grundzeit$ = 55
         Case 8
            Grundzeit$ = 55
         Case 9
            Grundzeit$ = 55
         Case 10
            Grundzeit$ = 55
      End Select
   End Select
Select SelectedGadgetItem (RsW)
   Case 1
      Verkürzung1$ = 1.0000         ;0
   Case 2
      Verkürzung1$ = 0.5000         ;1
   Case 3
      Verkürzung1$ = 0.3333         ;2
   Case 4
      Verkürzung1$ = 0.2500         ;3
   Case 5
      Verkürzung1$ = 0.2000         ;4
   Case 6
      Verkürzung1$ = 0.1667         ;5
   Case 7
      Verkürzung1$ = 0.1429         ;6
   Case 8
      Verkürzung1$ = 0.1250         ;7
   Case 9
      Verkürzung1$ = 0.1111         ;8
   Case 10
      Verkürzung1$ = 0.1000         ;9
   Case 11
      Verkürzung1$ = 0.0909         ;10
   Case 12
      Verkürzung1$ = 0.0833         ;11
   Case 13
      Verkürzung1$ = 0.0769         ;12
   Case 14
      Verkürzung1$ = 0.0714         ;13
   Case 15
      Verkürzung1$ = 0.0667         ;14
   Case 16
      Verkürzung1$ = 0.0625         ;15
   Case 17
      Verkürzung1$ = 0.0588         ;16
   Case 18
      Verkürzung1$ = 0.0556         ;17
   Case 19
      Verkürzung1$ = 0.0526         ;18
   Case 20
      Verkürzung1$ = 0.0500         ;19
   Case 21
      Verkürzung1$ = 0.0476         ;20
End Select
Select SelectedGadgetItem (Androiden)
   Case 1
      Verkürzung2$ = 1.0000         ;0
   Case 2
      Verkürzung2$ = 0.5000         ;1
   Case 3
      Verkürzung2$ = 0.3333         ;2
   Case 4
      Verkürzung2$ = 0.2500         ;3
   Case 5
      Verkürzung2$ = 0.2000         ;4
   Case 6
      Verkürzung2$ = 0.1667         ;5
   Case 7
      Verkürzung2$ = 0.1429         ;6
   Case 8
      Verkürzung2$ = 0.1250         ;7
   Case 9
      Verkürzung2$ = 0.1111         ;8
   Case 10
      Verkürzung2$ = 0.1000         ;9
   Case 11
      Verkürzung2$ = 0.0909         ;10
   Case 12
      Verkürzung2$ = 0.0833         ;11
   Case 13
      Verkürzung2$ = 0.0769         ;12
   Case 14
      Verkürzung2$ = 0.0714         ;13
   Case 15
      Verkürzung2$ = 0.0667         ;14
   Case 16
      Verkürzung2$ = 0.0625         ;15
   Case 17
      Verkürzung2$ = 0.0588         ;16
   Case 18
      Verkürzung2$ = 0.0556         ;17
   Case 19
      Verkürzung2$ = 0.0526         ;18
   Case 20
      Verkürzung2$ = 0.0500         ;19
   Case 21
      Verkürzung2$ = 0.0476         ;20
End Select
       Leer$ = ""      
      SetTextAreaText ausgabe, Leer$
      AddTextAreaText ausgabe, Grundzeit$ + Verkürzung1$ + Verkürzung2$
   EndIf
Until ev=$803 And es=win
End


ps.: ich hab geschaut aba ich bin wahrscheinlich einfach blind/doof
wie mach ich das dass ich die grundzeit mit verkürzung1 un verkürzung2 mulitipliziere??

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSa, Nov 29, 2008 21:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Überprüfe deine Variablennamen den bei der Suche in deinem Code konnte ich nur einmal "SchifDef" finden !
Normal sollte es mindestens 2x vorkommen, eimal beim erstellen des Gadgets und dann beim abfragen!
[BB2D | BB3D | BB+]

10hofnarr01

 BeitragSa, Nov 29, 2008 21:19
Antworten mit Zitat
Benutzer-Profile anzeigen
ahhh danke Smile

habs wohl überlesen gehabt...
ich kann alles,
aber nur ein bischen,
und das was ich kann, ist falsch!!

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group