Caractere et valeur ASCII

Question

Bonjour 

Pour me famliariseer avec l inverssion des codes et caracteres aider svp a resoudre ce qui suit.

Une boite de texte permet d entrer un nombre entre 0 et 255 seleument. Lorsque la touche ENTER est appuyée ,le caractere de ce code ASCII est affichee dans une etiquette (label) .
Une seconde boite de texte permet l entree d un seul caractere .Losque la touche ENTER est appuyee la valeur ASCII de ce caratere est affaichee dans une seconde etiquette 

Merci de votre aide
tres coodialement 
Eric

cs_Jack · Answer

Salut eric_piccaut
Avec un peu de rechercher dans l'aide, tu aurais trouvé ces deux instructions :
Chr(Chiffre) = Renvoie le caractère dont le code ASCII est Chiffre
Asc(Lettre) = Renvoie le code ASCII de Lettre
Pour la détection de la touche Entrée dans tes TextBox, utilise ces deux instructions et utilise les dans le TextBox_KeyPress
(un indice pour vous, téléspectateurs : 13)

Vala
Jack

econs · Answer

Voici au moins la réponse à ta seconde requête :


Avec la propriété MaxLength de Text1 égale à 1 ...

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If Text1.Text <> "" Then
            Label1.Caption = Asc(Text1.Text)
        End If
    End If
End Sub



Manu

cs_liquide · Answer

Salut

Un seul "if and then" etait préférable, puis aussi je prefere utiliser le keypress (keyascii = 13), que de devoir jongler avec les keyup keydown. .... chacun son truc puisque les 2 cas de figure fonctionnent.

Bonne prog, poele_a_frire@hotmail.com
liquide

eric_piccaut · Answer

voila uune solution qui fonctionne , je suis certain qu il ya mieux que ca , moi j ai juste mis en code vos suggestions Merci a tous Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text1.Text <> "" Then Label1.Caption = Asc(Text1.Text) Text1 = "" Text2.SetFocus Rem A = Chr(Text1.Text) Rem Print A End If End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text2.Text <> "" Then If Text2 > 255 Then MsgBox "Veuillez saisir un nombre entre 0 et 255" Text2.SetFocus Text2 = "" Else Label2.Caption = Chr(Text2.Text) Text1.SetFocus Text2 = "" End If End If End If End Sub

cs_liquide · Answer

salut

If KeyAscii = 13 And Text1.Text <> "" Then
    
        Label1.Caption = Asc(Text1.Text)
        Text1 = ""
        Text2.SetFocus
        ' A = Chr(Text1.Text)
        ' Print A

End If


Bonne prog, poele_a_frire@hotmail.com
liquide

Caractere et valeur ASCII

5 réponses

Discussions similaires