|
| FillRect(x1,y1,x2,y2) | Draw a filled rectangle on the main buffer. |
| Rect(x1,y1,x2,y2) | Draw a rectangle on the main buffer. |
| PopUp(x,y,Title,Str,Line) | Title must be a zero-terminated string Str must be a zero-terminated string Line is the number of zero-terminated string in Str Draw a PopUp at x,y on the main buffer. |
| DimStr(Str) | Thanks to jacobly for this function This one return the lenght in pixel of the string |
| ProgressBar(x,y,weidth,height,pause) | weidth is the number of pixel in the ProgressBar. If 3 is the weidth, the progressbar will have 5 pixel of weidth with the border height is the number of pixel without border (2 pixel) pause is the time between each percent Draw a progress bar on the screen. It is possible to quit with [clear]. That generate an Alert (cf alert) |
| Button(x,y,Str,Nbr) | Draw a non-filled Button at x,y on the main buffer. Str must be a zero-terminated string Nbr is the number of zero-terminated string in Str |
| Alert(Title,Str) | Draw an alert on the main buffer. Title must be a zero-terminated string Str must be a zero-terminated string composed by one of these. |
| ClrAll() | Clear all screen (screen, main buffer and back buffer) |
| ClrAllBuf() | Clear only all buffer |
| ClrMainBuf() | Clear only the main buffer |
| ClrBackBuf() | Clear only the back buffer |
| Disp4Color() | Draw the main and back buffer to the screen to create 4 color |
| Disp3Color() | Draw the main and back buffer to the screen to create 3 color |
| Disp2Color() | Draw the main buffer to the screen |
| IndicOff() | Turns off the run indicator |
| DoneOff() | The program will not display "done" after finishing |
| SetCont(cont) | Set the LCD contrast (0 is lightest, 63 is darkest) |
| RetCont() | Return the LCD contrast value |
| SaveMainBuf() | Save the main buffer to the back buffer |
| RclBackBuf() | Copy the back buffer to the main buffer |
| Screenshot() | Takes a screenshot and saves it to the main buffer |
| DispSprt(x,y,sprt) | Sprt must be create in this form: [xxxxxxxx]->ptr [xxxxxxxx] [xxxxxxxx] [xxxxxxxx] [xxxxxxxx] [xxxxxxxx] [xxxxxxxx] [xxxxxxxx] x must be a 0 (clear the pixel at this point), a 1 (draw a pixel at this point), a 2 or other (draw or clear a pixel depending on the pixel at this point) This function draw a sprite at x,y on the main buffer |
| MiniButton(x,y,str) | Draw a filled button at x,y on the main buffer str must be a zero-terminated string composed by only one of these |
Show Posts
:Lbl DimStr
0→r₃
For(r₂,0,longueur(r₁)-1
If dansChaîne("abcdeghjknopqruvxy?0123456789-+/^{}θ…_%↑↓×\ABCDEFGHIJKLMNOPQRSTUVWXYZθ"[00],{r₁+r₂})
r₃+4→r₃
End
If 32={r₁+r₂}
r₃++
End
If dansChaîne("i.:!"[00],{r₁+r₂})
r₃+2→r₃
End
If dansChaîne("flst()[],;"[00],{r₁+r₂})
r₃+3→r₃
End
If dansChaîne("z&~"[00],{r₁+r₂})
r₃+5→r₃
End
If dansChaîne("mw*π$#@"[00],{r₁+r₂})
r₃+6→r₃
End
End
r₃
ReturnHelp me please.
..
.Adresse Var
8265→→°Num+2→→°Shift+2→→°ALock+2→→°Alpha
.Change Type Disp
1→Num
0→Shift
0→ALock
0→Alpha
.Data
Liste(33,34,26,18,35,27,19,36,28,20,0)→N
Liste(47,39,31,46,38,30,22,14,45,37,29,21,13,44,36,28,20,12,43,35,27,19,11,42,34,26,18,10,33,25,17,0)→A
Liste('0','1','2','3','4','5','6','7','8','9',0)→D
Liste('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','θ','"',' ',':','?',0)→E
Lbl BInput
.Parametres
°Alpha+2→→°XBox+2→→°YBox+2→→°MaxInput+2→→°OutPtr
r₁→XBox
r₂→YBox
r₃→MaxInput
L₁→OutPtr
For(A,0,MaxInput-1)
0→{OutPtr+A}
End
Repeat getKey(9) ou getKey(15)
Output(XBox,YBox,"_"
getKey(54)?Shift=0→Shift
If getKey(48)
If Shift
1→ALock
0→Num
Else
1→Alpha
0→Num
End
If Alpha ou ALock
0→Alpha
0→ALock
1→Num
End
0→Shift
End
If YBox*16+XBox<MaxInput
If ALock ou Alpha
dansChaîne(A,getKey)→θ
If θ
Output(XBox,YBox,{E+θ-1}Frac
→{YBox*16+XBox+OutPtr}
XBox++
End
End
If Num
dansChaîne(N,getKey)→θ
If θ
Output(XBox,YBox,{D+θ-1}Frac
→{YBox*16+XBox+OutPtr}
XBox++
End
End
If XBox=16
YBox++
0→XBox
End
End
Pause 500
Output(XBox,YBox," "
Pause 500
End
Return.INPUT
Goto A
prgmINPUTLIB
Lbl A
BInput(0,0,11)Thank you in advance 