FreeBASIC vs VB6 – Referenční příručka

' Explicitní deklarace (povinná v -lang fb)
Dim x As Integer
Dim y As Double = 3.14
Dim s As String = "ahoj"

' Více najednou
Dim a As Integer, b As Integer

' Konstanty
Const PI As Double = 3.14159265

' Statická (zachová hodnotu mezi voláními)
Static pocitadlo As Integer

' Globální
Dim Shared globalniVar As Integer

' Option Explicit doporučeno
Option Explicit
Dim x As Long
Dim y As Double
y = 3.14
Dim s As String
s = "ahoj"

' Více najednou (každá musí mít typ!)
Dim a As Long, b As Long

' Konstanty
Const PI As Double = 3.14159265

' Statická
Static pocitadlo As Long

' Globální (v .bas modulu)
Public globalniVar As Long

Dim s As String = "Ahoj, světe!"
Print Len(s)               ' 13
Print Mid(s, 1, 4)          ' Ahoj
Print InStr(s, "světe")     ' 7
Print UCase(s)              ' AHOJ, SVĚTE!

' Sprintf-styl (fb 1.x)
Dim buf As String = Str(42) & " kočků"

' ZString = C-string (null-terminated)
Dim cstr As ZString * 256
cstr = "C-styl"

Dim s As String
s = "Ahoj, světe!"
Debug.Print Len(s)          ' 13
Debug.Print Mid(s, 1, 4)     ' Ahoj
Debug.Print InStr(s, "světe") ' 7
Debug.Print UCase(s)         ' AHOJ, SVĚTE!

' Formátování
Dim buf As String
buf = Format(3.14, "0.000") ' "3.140"

' VB6 nemá ZString – přímý C interop přes API

If x > 10 Then
    Print "velké"
ElseIf x > 5 Then
    Print "střední"
Else
    Print "malé"
End If

' Jednořádkové (bez End If)
If x = 0 Then Print "nula"

' Select Case
Select Case x
  Case 1
    Print "jedna"
  Case 2, 3
    Print "dva nebo tři"
  Case 4 To 10
    Print "4 až 10"
  Case Is > 10
    Print "více než 10"
  Case Else
    Print "jinak"
End Select

If x > 10 Then
    Debug.Print "velké"
ElseIf x > 5 Then
    Debug.Print "střední"
Else
    Debug.Print "malé"
End If

' Jednořádkové
If x = 0 Then Debug.Print "nula"

' Select Case – identická syntaxe
Select Case x
  Case 1
    Debug.Print "jedna"
  Case 2, 3
    Debug.Print "dva nebo tři"
  Case 4 To 10
    Debug.Print "4 až 10"
  Case Is > 10
    Debug.Print "více než 10"
  Case Else
    Debug.Print "jinak"
End Select

' For...Next
For i As Integer = 1 To 10 Step 2
    Print i
Next

' While...Wend
While x > 0
    x -= 1
Wend

' Do...Loop (4 varianty)
Do While x > 0
    x -= 1
Loop

Do
    x -= 1
Loop Until x = 0

' Exit / Continue
For i As Integer = 1 To 100
    If i = 5 Then Continue For  ' FB only!
    If i = 10 Then Exit For
Next

' For...Next
Dim i As Long
For i = 1 To 10 Step 2
    Debug.Print i
Next i

' While...Wend
While x > 0
    x = x - 1
Wend

' Do...Loop
Do While x > 0
    x = x - 1
Loop

Do
    x = x - 1
Loop Until x = 0

' Exit For / Exit Do (žádné Continue!)
For i = 1 To 100
    ' VB6 nemá Continue – nutno použít GoTo
    If i = 10 Then Exit For
Next i

' Sub (žádná návratová hodnota)
Sub Pozdrav(jmeno As String)
    Print "Ahoj, " & jmeno
End Sub

' Function
Function Secti(a As Integer, b As Integer) As Integer
    Return a + b   ' nebo: Function = a + b
End Function

' ByRef vs ByVal
Sub Zvys(ByRef n As Integer)
    n += 1
End Sub

' Výchozí parametry
Sub Log(msg As String, uroven As Integer = 1)
    Print uroven; ": "; msg
End Sub

' Přetěžování (overload)
Function Secti(a As Double, b As Double) As Double
    Return a + b
End Function

' Sub
Sub Pozdrav(jmeno As String)
    MsgBox "Ahoj, " & jmeno
End Sub

' Function
Function Secti(a As Long, b As Long) As Long
    Secti = a + b   ' přiřazení = Return
End Function

' ByRef je výchozí v VB6!
Sub Zvys(ByRef n As Long)
    n = n + 1
End Sub

' Optional parametry
Sub Log(msg As String, Optional uroven As Long = 1)
    Debug.Print uroven; ": "; msg
End Sub

' ❌ VB6 nepodporuje přetěžování!

' Statické pole (od 0)
Dim arr(9) As Integer  ' 10 prvků: 0..9

' Explicitní rozsah
Dim b(1 To 5) As Double

' Dynamické pole
Dim dyn() As Integer
ReDim dyn(9)
ReDim Preserve dyn(19)  ' zachová data

' Vícerozměrné
Dim mat(3, 3) As Integer

' Bounds
Print LBound(arr); UBound(arr)  ' 0  9

' Statické pole (Option Base 0 default)
Dim arr(9) As Long  ' 10 prvků: 0..9

' Explicitní rozsah
Dim b(1 To 5) As Double

' Dynamické pole
Dim dyn() As Long
ReDim dyn(9)
ReDim Preserve dyn(19)

' Vícerozměrné
Dim mat(3, 3) As Long

' Bounds
Debug.Print LBound(arr); UBound(arr)

' VB6 má navíc: Array(), IsArray(), Erase

' Základní Type
Type Bod
    x As Double
    y As Double
End Type

Dim p As Bod
p.x = 1.5

' Type s metodami (OOP)
Type Kruh
    polomer As Double
    Declare Function Obvod() As Double
End Type

Function Kruh.Obvod() As Double
    Return 2 * 3.14159 * polomer
End Function

' Union (sdílená paměť)
Union Hodnota
    i As Integer
    f As Single
End Union

' Type (v modulu .bas)
Type Bod
    x As Double
    y As Double
End Type

Dim p As Bod
p.x = 1.5

' VB6 Type nemá metody
' Pro metody nutno použít Class Module

' Class Module: Kruh.cls
Public polomer As Double
Public Function Obvod() As Double
    Obvod = 2 * 3.14159 * polomer
End Function

' ❌ VB6 nemá Union

' Textový zápis
Dim f As Integer = FreeFile()
Open "data.txt" For Output As #f
Print #f, "Řádek 1"
Close #f

' Textové čtení
f = FreeFile()
Open "data.txt" For Input As #f
Dim radek As String
While Not EOF(f)
    Line Input #f, radek
    Print radek
Wend
Close #f

' Binární
Open "bin.dat" For Binary As #f
Put #f, , x   ' zápis
Get #f, , x   ' čtení
Close #f

' Textový zápis
Dim f As Integer
f = FreeFile
Open "data.txt" For Output As #f
Print #f, "Řádek 1"
Close #f

' Textové čtení
f = FreeFile
Open "data.txt" For Input As #f
Dim radek As String
Do While Not EOF(f)
    Line Input #f, radek
    Debug.Print radek
Loop
Close #f

' Binární – stejná syntaxe
Open "bin.dat" For Binary As #f
Put #f, , x
Get #f, , x
Close #f

' Ukazatele (VB6 to nemá!)
Dim p As Integer Ptr
Dim x As Integer = 42
p = @x              ' adresa proměnné
Print *p            ' dereference = 42
*p = 100            ' zápis přes ukazatel

' Dynamická alokace
Dim buf As Integer Ptr
buf = Allocate(10 * SizeOf(Integer))
' ... použití ...
DeAllocate(buf)

' Any Ptr = void*
Dim vp As Any Ptr = Allocate(64)

' New / Delete (OOP)
Dim obj As MojeTrida Ptr
obj = New MojeTrida
Delete obj

' VB6 přímé ukazatele NEPODPORUJE
' Pouze objektové reference

Dim obj As New MojeTrida
' obj je reference, nikoli ukazatel

' Přes Win API (nebezpečné)
Dim addr As Long
addr = VarPtr(x)    ' adresa (čtení)
addr = ObjPtr(obj)  ' adresa objektu
addr = StrPtr(s)    ' adresa řetězce

' Přímá paměť jen přes API:
' RtlMoveMemory, CopyMemory apod.

' Garbage collector automatický
' (reference counting)

Type Zvire
    jmeno As String
    Declare Constructor(n As String)
    Declare Destructor()
    Declare Virtual Sub Zvuk()
End Type

Constructor Zvire(n As String)
    jmeno = n
End Constructor

Destructor Zvire()
    Print jmeno & " odchází"
End Destructor

Virtual Sub Zvire.Zvuk()
    Print "..."
End Sub

' Dědičnost
Type Pes Extends Zvire
    Declare Virtual Sub Zvuk()
End Type

Sub Pes.Zvuk()
    Print "Haf!"
End Sub

' Soubor: Zvire.cls
Public jmeno As String

Private Sub Class_Initialize()
    ' konstruktor
End Sub

Private Sub Class_Terminate()
    Debug.Print jmeno & " odchází"
End Sub

Public Sub Zvuk()
    Debug.Print "..."
End Sub

' ❌ VB6 nepodporuje dědičnost!
' Pouze Interface (Implements)

' Soubor: Pes.cls
Implements IZvire  ' interface
Public Sub IZvire_Zvuk()
    Debug.Print "Haf!"
End Sub

' Preprocesor (#define, #ifdef, #include)
#define MAX_BUFF 1024
#define VERZE "1.0"

#ifdef __FB_WIN32__
    Print "Windows"
#else
    Print "Linux"
#endif

' Include
#include "modul.bi"       ' hlavičkový soubor
#include once "lib.bi"   ' include guard

' Namespace
Namespace MathLib
    Function Ctverec(x As Double) As Double
        Return x * x
    End Function
End Namespace

Print MathLib.Ctverec(5)

' VB6 nemá preprocesor #define / #ifdef
' Pouze #Const a #If pro podmíněný kód

#Const DEBUG_MODE = 1

#If DEBUG_MODE = 1 Then
    Debug.Print "Debug build"
#End If

' Moduly = .bas soubory
' Class modules = .cls soubory
' Žádný #include – vše přidáno do projektu

' ❌ Žádné Namespace
' Moduly slouží jako namespace-like grouping

' Výstup / vstup
Print "Text"
Print Using "###.##"; 3.14159
Input "Zadej číslo: ", n
Color 14, 1     ' žlutá na modré
Locate 5, 10   ' řádek, sloupec
Cls

' Grafický režim (fbgfx)
ScreenRes 800, 600, 32
Line (0, 0)-(400, 300), RGB(255, 0, 0)
Circle (400, 300), 100, RGB(0, 255, 0)
PSet (100, 100), RGB(255, 255, 0)
Sleep   ' čekej na klávesu

' VB6 je GUI-first – žádná konzola
' Výstup do formuláře nebo Debug okna
Debug.Print "Text"  ' Immediate window
MsgBox "Zpráva"

' Grafika na Form/PictureBox (Form1)
Form1.Line (0, 0)-(1000, 1000), RGB(255, 0, 0)
Form1.Circle (2000, 2000), 500, RGB(0, 255, 0)
Form1.PSet (100, 100), RGB(255, 255, 0)

' Souřadnicový systém v Twips (1440/inch)
' FB: pixely přímé

' FB: On Error (kompatibilita)
On Error Goto ChybaLabel

' ... kód ...
Exit Sub

ChybaLabel:
    Print "Chyba: " & Err
Resume Next

' Moderní FB: žádné try/catch
' Doporučeno: testovat návratové hodnoty

' Kontrola souboru
If FileExists("soubor.txt") = 0 Then
    Print "Soubor neexistuje"
End If

' VB6 ošetření chyb
On Error GoTo ChybaHandler
On Error Resume Next     ' ignoruj chyby
On Error GoTo 0          ' reset

' Obslužná rutina
Exit Sub
ChybaHandler:
    Select Case Err.Number
        Case 53  ' File not found
            MsgBox "Soubor nenalezen"
        Case Else
            MsgBox Err.Description
    End Select
Resume Next

' Vlastní chyba
Err.Raise 1001, "MojeApp", "Popis"