ASCII: code

• De procedures kunnen er zo uit zien:
  Sub maakletter()
  txtLetter.Text = Chr(txtASCII.Text)
  End Sub
  
  Sub maakascii()
  txtASCII.Text = Asc(txtLetter.Text)
  End Sub
• We roepen de procedure op voor het maken van de letter als er een getal gegeven is:
  Private Sub txtASCII_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
  If IsNumeric(txtASCII.Text) Then maakletter
  End If
  End Sub
  
  Private Sub txtASCII_LostFocus()
  If IsNumeric(txtASCII.Text) Then maakletter
  End Sub
  
• En omgekeerd: als er een letter gegeven is, kunnen we een ASCII code weergeven.
  
  Private Sub txtLetter_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
  If Not txtLetter.Text = "" Then maakascii
  End If
  End Sub
  
  Private Sub txtLetter_LostFocus()
  If Not txtLetter.Text = "" Then maakascii
  End Sub
  
• We kunnen de procedures niet oproepen als de inhoud van een tekstvak gewijzigd worden, omdat we dan in een oneindige lus terecht zouden komen. txtAscii zou immers txtLetter wijzigen en omgekeerd.

[VB Web] - [hlrnet] - [copyright]