Ausgabe Ganzer Zahlen
' Ausgabe ganzer Zahlen
GraphicsWindow.Show()
' App Grafikfenster Titel festlegen
GraphicsWindow.Clear()
GraphicsWindow.Title = "Ausgabe ganzer Zahlen"
' App Grafikfenster Größe (Verdana)
GraphicsWindow.Show()
' App Grafikfenster Position
GraphicsWindow.Top = 350
GraphicsWindow.Left = 750
GraphicsWindow.Width = 400
' Breite x-Koordinate
GraphicsWindow.Height = 240
' Höhe y-Koordinate
GraphicsWindow.FontName = "Tahoma"
GraphicsWindow.FontSize = "12"
GraphicsWindow.BrushColor = "MidnightBlue"
GraphicsWindow.DrawText(5,200,
"___________________________________________________")
GraphicsWindow.DrawText(112,220, "Copyright by ENI-Soft 2019")
' Horizontale Ausgabe der Zahlen 0 bis 9
' Variablen initialisieren
x = 10 ' Zeile
y = 10 ' Spalte
z = 0 ' Zähler
For z = 48 To 57 Step 1
' Text.GetCharacter
' Ermittelt das entsprechende ASCI Zeichen,
' das dann als Text ausgegeben wird (z. B. 48 = 0).
CRLF = Text.GetCharacter(z)
GraphicsWindow.DrawText(x, y, CRLF)
x = x + 20
' Horizontale Bildschirmausgabe
' y = y + 20
' Vertikale Bildschirmausgabe
EndFor
' Vertikale Ausgabe der Zahlen 0 bis 9
' Variablen initialisieren
x = 10 ' Zeile
y = 10 ' Spalte
z = 0 ' Zähler
For z = 48 To 57 Step 1
' Text.GetCharacter
' Ermittelt das entsprechende ASCI Zeichen,
' das dann als Text ausgegeben wird (z. B. 48 = 0).
CRLF = Text.GetCharacter(z)
GraphicsWindow.DrawText(x, y, CRLF)
' x = x + 20
' Horizontale Bildschirmausgabe
y = y + 20
' Vertikale Bildschirmausgabe
EndFor
' Diagonale Ausgabe der Zahlen 0 bis 9
' Variablen initialisieren
x = 10 ' Zeile
y = 10 ' Spalte
z = 0 ' Zähler
For z = 48 To 57 Step 1
' Text.GetCharacter
' Ermittelt das entsprechende ASCI Zeichen,
' das dann als Text ausgegeben wird (z. B. 48 =
0).
CRLF = Text.GetCharacter(z)
GraphicsWindow.DrawText(x, y, CRLF)
x = x + 20
' Horizontale Bildschirmausgabe
y = y + 20
' Vertikale Bildschirmausgabe
EndFor
