Differenze tra le versioni di "Isprint()"
Da Gambas-it.org - Wikipedia.
| (4 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
La funzione della libreria di C | La funzione della libreria di C | ||
| − | + | int isprint(int c) | |
| − | ritorna 1 (Vero) se "c" e' un carattere stampabile. | + | ritorna 1 (Vero) se "c" e' il valore che rappresenta un carattere (compreso quello dello ''spazio'') stampabile. |
Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta: | Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con ''Extern'', nonché dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta: | ||
Private <FONT color=#B22222>Extern isprint</font>(num As Integer) As Integer In "<FONT color=#B22222>libc:6</font>" | Private <FONT color=#B22222>Extern isprint</font>(num As Integer) As Integer In "<FONT color=#B22222>libc:6</font>" | ||
| − | |||
Semplice esempio di uso in Gambas: | Semplice esempio di uso in Gambas: | ||
| − | <FONT color=Gray>' ''int isprint(int c)''</font> | + | <FONT color=Gray>' ''int isprint(int c)'' |
| − | + | ' ''Checks for any printable character including space.''</font> | |
| + | Private Extern <FONT color=#B22222>isprint</font>(num As Integer) As Integer In "<FONT color=#B22222>libc:6</font>" | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | Dim i As Integer | + | Dim i, n As Integer |
| − | i = isprint( | + | For n = 0 To 255 |
| − | + | i = isprint(n) | |
| − | Print | + | Print n, CBool(i) |
| + | Next | ||
'''End''' | '''End''' | ||
Versione attuale delle 20:11, 11 mag 2023
La funzione della libreria di C
int isprint(int c)
ritorna 1 (Vero) se "c" e' il valore che rappresenta un carattere (compreso quello dello spazio) stampabile.
Volendola utilizzare direttamente in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta:
Private Extern isprint(num As Integer) As Integer In "libc:6"
Semplice esempio di uso in Gambas:
' int isprint(int c) ' Checks for any printable character including space. Private Extern isprint(num As Integer) As Integer In "libc:6" Public Sub Main() Dim i, n As Integer For n = 0 To 255 i = isprint(n) Print n, CBool(i) Next End
