Differenze tra le versioni di "Sapere il tipo di dato più piccolo in Gambas capace di contenere e rappresentare un numero"
Da Gambas-it.org - Wikipedia.
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 1: | Riga 1: | ||
− | Per sapere il tipo di dato più piccolo in Gambas capace di contenere e rappresentare un numero, si può adottare il seguente codice: | + | Per sapere il tipo di dato più piccolo in Gambas capace di contenere e rappresentare un numero (sia esso positivo o negativo), si può adottare il seguente codice: <SUP>[[[#Note|nota 1]]]</sup> |
Private Const NUMERO As Long = 21081969 <FONT Color=gray>' ''Il numero da verificare''</font> | Private Const NUMERO As Long = 21081969 <FONT Color=gray>' ''Il numero da verificare''</font> | ||
Riga 26: | Riga 26: | ||
'''End''' | '''End''' | ||
+ | |||
+ | |||
+ | |||
+ | =Note= | ||
+ | [1] Vedere anche questa pagina: [[Sapere_con_le_funzioni_esterne_del_API_di_Glib_quanti_bit_sono_necessari_per_contenere_un_numero|Sapere con le funzioni esterne del API di Glib quanti bit sono necessari per contenere un numero]] |
Versione attuale delle 18:56, 9 dic 2021
Per sapere il tipo di dato più piccolo in Gambas capace di contenere e rappresentare un numero (sia esso positivo o negativo), si può adottare il seguente codice: [nota 1]
Private Const NUMERO As Long = 21081969 ' Il numero da verificare Public Sub Main() Dim n, t, s As String Dim b As Byte n = "1" t = "BYTE" If NUMERO < 0 Then n = "0" t = "SHORT" Endif Print Bin(NUMERO, 64) b = InStr(Bin(NUMERO, 64), n) s = "LONG" If b > 33 Then s = "INTEGER" If b > 49 Then s = "SHORT" If (b == 0) Or (b > 56) Then s = t Print "\nIn Gambas il numero \e[31m"; CStr(NUMERO); "\e[0m può essere contenuto da un dato di tipo: \e[31m"; s End
Note
[1] Vedere anche questa pagina: Sapere con le funzioni esterne del API di Glib quanti bit sono necessari per contenere un numero