Folgender Code Schnipsel funktioniert, aber meine Frage ist ob ich diesen Code
verkleinern kann ?
Code: Alles auswählen
Case #Button_Exit
Result = MessageRequester("Exit Program !", "Close Program ?"+#CRLF$+"Feedback to"+#CRLF$+"OscarGolf3@gmail.com", #PB_MessageRequester_YesNo | #PB_MessageRequester_Info )
If Result = #PB_MessageRequester_Yes ; Ja-Schalter wurde gedrückt dann Exit Programm
Quit = 1
End
EndIf
EndSelect
Case #PB_Event_CloseWindow ; Ereignis des Fensters
Result = MessageRequester("Exit Program !", "Close Program ?"+#CRLF$+"Feedback to"+#CRLF$+"OscarGolf3@gmail.com", #PB_MessageRequester_YesNo | #PB_MessageRequester_Info )
If Result = #PB_MessageRequester_Yes ; Ja-Schalter wurde gedrückt dann Exit Programm
Quit = 1
End
EndIf
Close Window beendet auch das Programm !
In der Hilfe habe ich gelesen das man Case Zuweisungen Verschachteln kann !?!
aber das funktioniert bei mir nicht.
Und ganz großen Dank an MIB (kann alles weiß alles usw.)
Die Auto Abspielfunktion in meinem Media Player (ExplorerListGadget) Funktioniert.....
und auch an TS-Soft (Thomas Schmidt)
für den Wrapper (ich glaube so nennt man das ?) LibZPlay() .dll
Noch eine Frage ,
Mit dem Befehl DIM() (FFTArray) erstelle ich ein Array von z.B. 32 Werten.
Ich lese jetzt das Array folgendermaßen aus
Code: Alles auswählen
Global Dim FFTArray.i(31)
das Array sind Integer Werte .
Das Auslesen erreiche ich durch Beispiel Code:
Code: Alles auswählen
ProgressBarGadget(15,5,440,400,20,0,100)
ProgressBarGadget(16,5,460,400,20,0,100)
ProgressBarGadget(17,5,480,400,20,0,100)
ProgressBarGadget(18,5,500,400,20,0,100)
SetGadgetState(15,FFTArray(0))
SetGadgetState(16,FFTArray(1))
SetGadgetState(17,FFTArray(2))
SetGadgetState(18,FFTArray(3))
Meine Frage ist, um das Array auszulesen muss ich jeden Wert des Arrays hier 0-31 einzeln abfragen,
oder kann ich das auch z.b. in eine Grafische Funktion umwandeln?
z.B. Befehl
Code: Alles auswählen
LineXY() bzw. Box()
Gruß Torr !