..:: caractères ascii 2 >> decimal, hexadecimal, et binaire :) ::..

Télécharger le projet
Commenter

Description

Bah zallé on en profite je sort la vieille vaisselles d placard lol
ceci est un truc que j'ai intégré pour la prochaine version de mon soft profité en merci.
Correspondance ascii >> decimal, hexa & binary

Source / Exemple : 


'Je remercie BingLi224 pour son aide precieuse.
Private Sub Command1_Click()
'fermeture
Unload Me
End Sub
Private Sub Command2_Click()
'initialisation des txtbox on remet tt a zero
t1.Text = " "
t2.Text = " "
t3.Text = " "
t4.Text = " "
t5.Text = " "
t1.BackColor = &HFFFFFF
t2.BackColor = &H8000000A
t3.BackColor = &H8000000A
t4.BackColor = &H8000000A
t5.BackColor = &H8000000A
End Sub
Private Sub Form_Load()
'lol bah la c'passe rien :)
End Sub
Private Sub t1_KeyPress(KeyAscii As Integer)
'un peu de color pour le fun sinon on charge les txt box
Command2.Default = True
Command2.Enabled = True
t1.BackColor = &H80000018
Frame1.ForeColor = &H800000
Label5.ForeColor = &H80000003
Label1.ForeColor = &H0&
Label2.ForeColor = &H0&
Label3.ForeColor = &H0&
Label4.ForeColor = &H0&
t1.Text = ""
t2.Text = KeyAscii
t3.Text = Hex(KeyAscii)
t4.Text = Bin(KeyAscii)
t5.Text = Chr(KeyAscii)
t2.BackColor = &HFFFFFF
t3.BackColor = &HFFFFFF
t4.BackColor = &HFFFFFF
t5.BackColor = &HFFFFFF
End Sub
Function Bin(Number As Integer) As String
'convertion
Bin = ""
Dim I%
I = Number
Do
    Bin = (I Mod 2) & Bin
    I = I \ 2
Loop While I > 0
End Function

Conclusion :


Voila amusez vous bien c gratuit lol :p
bian à vous (angie)
Télécharger le projet

Codes Sources

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (AngelWide92)