X11-Basic Windows v1.27

📦 Instalace a stažení

Po instalaci je interpreter dostupný jako xbasic.exe v instalační složce. Přidej ji do PATH pro spouštění odkudkoli.

▶ Spuštění programu

' PowerShell / CMD
xbasic.exe program.bas

' Interaktivní režim (bez souboru)
xbasic.exe

' Kompilace do bytekódu
xbbc.exe program.bas -o program.xbc
xbvm.exe program.xbc

Po skončení programu se otevře interaktivní prompt >. Ukončení: napiš quit nebo stiskni Ctrl+C.

⚠️ Záludnosti Windows verze

🔤 Proměnné a typy

' Deklarace pole
DIM hodnoty(100)
DIM jmena$(20)

' Přiřazení
hodnoty(1) = 42
jmena$(0) = "Alice"

' 2D pole
DIM mat(10, 10)
mat(2, 3) = 99

➕ Operátory

x = 10 ^ 2         ' = 100
r = 17 MOD 5       ' = 2
q = 17 DIV 5       ' = 3
b = (x > 5) AND (x < 200)  ' = -1 (true)

📝 Řetězce

' Spojení řetězců operátorem +
pozdrav$ = "Ahoj" + " " + "svete"

' Délka
n = LEN(pozdrav$)          ' = 10

' Podřetězec
zac$ = LEFT$(pozdrav$, 4)   ' = "Ahoj"
kon$ = RIGHT$(pozdrav$, 5)  ' = "svete"
mid$ = MID$(pozdrav$, 6, 5) ' = "svete"

' Konverze
s$ = STR$(42)              ' číslo → řetězec
n  = VAL("3.14")          ' řetězec → číslo
u$ = UPPER$(s$)           ' na velká
l$ = LOWER$(s$)           ' na malá

🔀 IF / ELSE / ENDIF

IF x > 0 THEN PRINT "kladne"
IF x < 0 THEN x = 0

IF x > 0
  PRINT "kladne"
ENDIF

IF x < 0
  x = 0
ENDIF

' IF s ELSE
IF skore >= 50
  PRINT "Prospel"
ELSE
  PRINT "Neprospel"
ENDIF

' Vnořené IF
IF a > 0
  IF a < 100
    PRINT "V rozsahu 1-99"
  ENDIF
ENDIF

🔁 Smyčky

FOR … NEXT

FOR i = 1 TO 10
  PRINT i
NEXT i

FOR i = 10 TO 1 STEP -1
  PRINT i
NEXT i

WHILE … WEND

' Podmínka se testuje NA ZAČÁTKU – tělo se nemusí provést vůbec
x = 1
WHILE x <= 5
  PRINT x
  x = x + 1
WEND

REPEAT … UNTIL

' Tělo se provede VŽDY ALESPOŇ JEDNOU
REPEAT
  PRINT "Zadej kladne cislo: ";
  INPUT n
UNTIL n > 0

DO … LOOP (nekonečná smyčka)

DO
  INPUT cmd$
  IF cmd$ = "quit"
    EXIT
  ENDIF
  PRINT "Prikaz: " + cmd$
LOOP

📦 PROCEDURE / END PROC

GOSUB mojefunkce
...
mojefunkce:
  PRINT "ahoj"
RETURN

' Volání – jménem bez GOSUB
mojefunkce

' Definice
PROCEDURE mojefunkce
  PRINT "ahoj"
END PROC

' Lokální proměnné – globální scope, ale konvence: krátká jména uvnitř procedury
PROCEDURE vypocet
  tmp = 0
  FOR i = 1 TO ndeti
    tmp = tmp + 1000
  NEXT i
  vysl = tmp
END PROC

' Předčasné ukončení procedury
PROCEDURE zkontroluj
  IF x < 0
    RETURN     ' EXIT z procedure
  ENDIF
  PRINT "OK: " + STR$(x)
END PROC

⌨️ INPUT / PRINT

' Základní INPUT
INPUT x                     ' čte číslo
INPUT jmeno$                ' čte řetězec

' INPUT s promptem
PRINT "Zadejte mzdu (Kc): ";  ' ; = bez odřádkování
INPUT mzda

' PRINT varianty
PRINT "Ahoj"               ' s odřádkováním
PRINT "Ahoj";             ' bez odřádkování
PRINT                     ' prázdný řádek
PRINT "x =", x            ' , = tabulátor

🪟 Grafické okno

' Otevření okna
OPENW 1                         ' okno č. 1
TITLEW 1, "Moje aplikace"
SIZEWIN 800, 600               ' nastavení velikosti

' Smazání obsahu
CLEARW 1

' Zavření
CLOSEW 1

🎨 Barvy

' Nastavení barvy kreslení
COLOR RGB(255, 0, 0)        ' červená
COLOR RGB(0, 128, 0)        ' zelená
COLOR RGB(255, 255, 255)    ' bílá
COLOR RGB(0, 0, 0)          ' černá

Předdefinované konstanty barev:

✏️ Kreslení

' Příklad: barevné obdélníky
OPENW 1
TITLEW 1, "Bary"

COLOR RGB(200, 50, 50)
PBOX 20, 20, 120, 120

COLOR RGB(50, 200, 50)
PBOX 140, 20, 240, 120

COLOR RGB(50, 50, 200)
PBOX 260, 20, 360, 120

INPUT a$
CLOSEW 1
END

🔠 TEXT a SETFONT

' Nastavení fontu
SETFONT 14         ' velikost v bodech
SETFONT 18

' Vykreslení textu na souřadnice (x, y = levý dolní roh)
COLOR RGB(0, 0, 0)
TEXT 20, 40, "Ahoj svete"

' Text s proměnnou (přes pomocný řetězec)
t$ = "Vysledek: " + STR$(vysl) + " Kc"
TEXT 20, 60, t$

🔢 Matematické funkce

🧵 Řetězcové funkce

🔄 Konverze typů

' Číslo na řetězec
s$ = STR$(42)              ' " 42" (s mezerou)
s$ = LTRIM$(STR$(42))     ' "42" (bez mezery)
s$ = STR$(INT(x))         ' celé číslo jako text

' Řetězec na číslo
n = VAL("3.14")
n = VAL("  42  ")         ' mezery jsou OK

' Formátované číslo (pevný počet des. míst)
s$ = FORMAT$("%.2f", 3.14159)   ' "3.14"
s$ = FORMAT$("%d", 42)          ' "42"

👋 Příklad: Hello World s grafikou

OPENW 1
TITLEW 1, "Hello World"

COLOR RGB(30, 30, 80)
PBOX 0, 0, 400, 200

COLOR RGB(255, 255, 100)
SETFONT 24
TEXT 80, 110, "Hello, X11-Basic!"

COLOR RGB(200, 200, 200)
SETFONT 12
TEXT 140, 140, "Stiskni Enter..."

INPUT a$
CLOSEW 1
END

🧮 Příklad: Konzolová kalkulačka

novy = 1
WHILE novy = 1
  PRINT
  PRINT "=== KALKULACKA ==="
  PRINT "Prvni cislo: ";
  INPUT a
  PRINT "Operator (+,-,*,/): ";
  INPUT op$
  PRINT "Druhe cislo: ";
  INPUT b

  vysl = 0
  chyba = 0

  IF op$ = "+"
    vysl = a + b
  ENDIF
  IF op$ = "-"
    vysl = a - b
  ENDIF
  IF op$ = "*"
    vysl = a * b
  ENDIF
  IF op$ = "/"
    IF b = 0
      PRINT "Chyba: deleni nulou!"
      chyba = 1
    ELSE
      vysl = a / b
    ENDIF
  ENDIF

  IF chyba = 0
    t$ = STR$(a) + " " + op$ + " " + STR$(b) + " = " + STR$(vysl)
    PRINT t$
  ENDIF

  PRINT
  PRINT "Dalsi vypocet? (1=ano / 0=konec): ";
  INPUT novy
WEND

PRINT "Nashledanou."
END

📊 Příklad: Sloupcový graf

OPENW 1
TITLEW 1, "Sloupcovy graf"
SIZEWIN 640, 400

' Data
DIM data(5)
DIM popisy$(5)
data(1) = 80  : popisy$(1) = "Leden"
data(2) = 120 : popisy$(2) = "Unor"
data(3) = 95  : popisy$(3) = "Brezen"
data(4) = 150 : popisy$(4) = "Duben"
data(5) = 110 : popisy$(5) = "Kveten"

' Pozadi
COLOR RGB(240, 245, 255)
PBOX 0, 0, 640, 400

' Nadpis
COLOR RGB(20, 40, 120)
SETFONT 16
TEXT 220, 30, "Mesicni trzby"

' Sloupce
maxval = 200
barw   = 70
gbase  = 350

FOR i = 1 TO 5
  xpos = 60 + (i - 1) * 110
  bh   = INT(data(i) / maxval * 280)
  COLOR RGB(60 + i * 30, 100, 220)
  PBOX xpos, gbase - bh, xpos + barw, gbase
  COLOR RGB(30, 30, 30)
  SETFONT 10
  TEXT xpos + 5, gbase + 16, popisy$(i)
  t$ = STR$(data(i))
  TEXT xpos + 15, gbase - bh - 5, t$
NEXT i

COLOR RGB(80, 80, 80)
DRAW 50, gbase TO 610, gbase

INPUT a$
CLOSEW 1
END