Differenze tra le versioni di "Isalpha()"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 6: Riga 6:
 
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 isalpha</font>(c As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
  Private <FONT color=#B22222>Extern isalpha</font>(c 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 isalpha(int c)''</font>
+
  <FONT color=Gray>' ''int isalpha(int c)''
 +
' ''Checks if the passed character is alphabetic.''</font>
 
  Private <FONT color=#B22222>Extern isalpha</font>(c As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
  Private <FONT color=#B22222>Extern isalpha</font>(c As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
   
 
   
Riga 18: Riga 18:
 
   Dim i As Integer
 
   Dim i As Integer
 
    
 
    
    i = <FONT color=#B22222>isalpha</font>(80)
+
  i = <FONT color=#B22222>isalpha</font>(80)
 
      
 
      
    Print i, Cbool(i), Chr(80)
+
  Print i, Cbool(i), Chr(80)
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione attuale delle 12:19, 4 set 2022

La funzione della libreria di C

int isalpha(int c);

ritorna un valore superiore a zero (Vero), se "c" e' un carattere alfabetico (ossia se corrisponde nel codice ASCII ad una lettera dell'alfabeto).


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 isalpha(c As Integer) As Integer In "libc:6"


Semplice esempio di uso in Gambas:

' int isalpha(int c)
' Checks if the passed character is alphabetic.
Private Extern isalpha(c As Integer) As Integer In "libc:6"


Public Sub Main()

 Dim i As Integer
 
 i = isalpha(80)
   
 Print i, Cbool(i), Chr(80)
 
End