01-30-2024, 11:22 PM
(This post was last modified: 01-30-2024, 11:23 PM by Kernelpanic.)
Hello, that's gets even better! 
Code: (Select All)
'Uebunmg, Zuweisung von Nummern an Stringvariable - 30. Jan. 2024
'https://qb64phoenix.com/forum/showthread.php?tid=2413
$Console:Only
Option _Explicit
Dim As Integer zaehler
Dim As String lookahead
For zaehler = 65 To 84
lookahead = Chr$(zaehler)
Print lookahead
If Asc(Chr$(zaehler)) Mod 3 = 0 Then
Print zaehler: Beep
End If
Next
End