5641
Programmazione / Rotazione speculare di un carattere (senza uso di DrawingArea)
« il: 10 Gennaio 2012, 00:35:10 »
Quanto mi piacerebbe con una rotazione speculare poter passare da d a b (senza usare una DrawingArea) !
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
' Gambas class file
Private c[32] As Integer
PUBLIC SUB Button1_Click()
Dim b, e As Integer
Dim a As String
Dim d As Integer = 1
a = InputBox("Immetti un numero binario:")
If a = Null Then Return
For b = Len(a) To 1 Step -1
If b = Len(a) Then
Select Case Right$(a, 1)
Case 1
c[b] = 1
d = 1
Case 0
c[b] = 0
End Select
Else
d = d * 2
If Mid$(a, b, 1) = 1 Then
c[b] = d
Else
c[b] = 0
Endif
Endif
e = e + c[b]
Next
Print "Corrisponde al numero:"
Print " - decimale: " & e
Print " - esadecimale: "; Hex$(Str(e))
END