PureBoard

Code: Alles auswählen

;Beispiel:
OpenConsole()
f=Val(Input())
PrintN(" ")
Print(Str(f))
b$=Chr(f)
Print(" ")
PrintN(b$)
PrintN("Ascii "+Str(f)+" = Buchstabe "+(b$))
Input()
closeConsole()  

Sobald ich aber versuche dies im Windowsfenster auszuführen per Inputrequester, erhalte ich nicht das gewünschte Ergebnis. Meist kommt dann die Fehlermeldung, dass sich ein numerischer Wert nicht mit einem
String verträgt. 
Hier ist mein Code in Windows. Wo liegt der Fehler?

;Code:
;Beispiel: zahl$
OpenWindow(0, 50, 200, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar, "Window")  

InputRequester("Ascii-Wert u. Buchstabe","Bitte geben sie eine Zahl ein:",b$)
     If Input$ <> "" 
       ;Ascii = Asc(String$) 
      ;ASCII = Asc("!") ; 'ASCII' erhält den Wert '33'
      
             ; Text$ = Chr(ASCII-Wert) 
       ;x$ = Chr(33);x$ enthält das Zeichen "!" 
   
   ;    Ergebnis$ = StrU(Wert, Typ) 
    ;   Konvertiert eine vorzeichenlose Zahl in einen String. 

   ;Die folgenden 'Typen' sind möglich: 
   ; #Byte: Der Wert ist eine Byte-Zahl, im Bereich von 0 bis 255 
  
     b$=input$  
     ;ASCII= Asc("input$")
     ;b$= ValF(b$)) 
      ;b$=StrF(ValF(b$))
     b$= Str(Val(b$)) 
     ;b$= StrU(b$,#Byte)

     ;b$=Str(b)
     ;c=Asc("b")
     ;b$=Chr(input$)
     
     a$="Sie haben folgendes in den Requester geschrieben:" + Chr(10) 
     ;ASCII= Asc("b$")
 
    ;x$ + Input$ +"Ascii "+Str(i)+" = Buchstabe "+(b$)
    a$+"  Buchstabe "+b$+" = AsciiWert "+Input$
    ;+ " Ascii "+Str(zahl$)+" = Buchstabe "+(Input$)                                                   
    ;a$+" Ascii "+Str(f)+" = Buchstabe "+(Input$);Else  
   ; x$ = "Der Requester wurde abgebrochen oder es wurde nichts eingegeben." 
    ;zahl$
  EndIf 
  MessageRequester("Information",a$,0) 
    End 
    Debug Input$
Debug b$
Debug a$
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 

Code: Alles auswählen

zahl.l = Val(InputRequester("Test", "Zahl eingeben", ""))
Debug zahl.l
Debug Chr(zahl.l)

Code: Alles auswählen

OpenWindow(0, 50, 200, 600, 300, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar, "Window")
; für was das Fenster?

input$ = InputRequester("Ascii-Wert u. Buchstabe","Bitte geben sie eine Zahl ein:",b$)
; 1. InputRequester muss das doch irgendwohin speichern, schau dir mal die Syntax von dem Befehl an
; natürlich kannst du b$ als letzten Parameter nehmen, aber da b$="" nimm doch lieber gleich "" - dann weißt du auch was das ist

If input$ <> ""
  ; b$=Input$
  ; wofür das?
  ; b$= Str(Val(input$))
  ; bewirkt überhaupt nichts, da Str(Val(b$)) = b$
  ; statt Str(a.l), dass aus 4 einfach "4" macht brauchst du Chr(a.l)
  
  b$ = Chr(Val(b$))

  a$="Sie haben folgendes in den Requester geschrieben:" + Chr(10)
  a$+" Buchstabe "+b$+" = AsciiWert "+Input$
  MessageRequester("Ausgabe", a$)
  ; in die If-Klammer geschrieben, da sonst ein leere msg-req. kommt
EndIf

Code: Alles auswählen

In$=InputRequester("Ascii-Wert u. Buchstabe","Bitte geben sie eine Zahl ein:","") 

Code: Alles auswählen

b$=InputRequester("Ascii-Wert u. Buchstabe","Bitte geben sie eine Zahl ein:","")
If b$
    wert=Val(b$)
    asc_wert$=Chr(wert)
    MessageRequester("ASCII:",Str(wert)+" Buchstabe"+asc_wert$,0)
EndIf
End