Caractere et valeur ASCII

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

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

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

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

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

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