Learn GAMBAS with Real Code Examples

DIM count AS INTEGER = 0
DIM isDark AS BOOLEAN = FALSE

PROCEDURE updateUI()
    PRINT "Counter: "; count
    IF isDark THEN
        PRINT "Theme: Dark"
    ELSE
        PRINT "Theme: Light"
    END IF
END PROCEDURE

PROCEDURE increment()
    count += 1
    updateUI()
END PROCEDURE

PROCEDURE decrement()
    count -= 1
    updateUI()
END PROCEDURE

PROCEDURE reset()
    count = 0
    updateUI()
END PROCEDURE

PROCEDURE toggleTheme()
    isDark = NOT isDark
    updateUI()
END PROCEDURE

' Simulate actions
updateUI()
increment()
increment()
toggleTheme()
decrement()
reset()

Demonstrates a simple counter with theme toggling using Gambas variables and procedures.

FOR i = 1 TO 3
    PRINT "Random "; i; ": "; Rnd(1,100)
NEXT

Generates random numbers between 1 and 100 and prints them.

DIM todos AS NEW Collection

PROCEDURE addTask(task AS String)
    todos.Add(task)
    FOR EACH t AS String IN todos
        PRINT t;
    NEXT
END PROCEDURE

PROCEDURE removeTask(index AS Integer)
    todos.RemoveAt(index)
    FOR EACH t AS String IN todos
        PRINT t;
    NEXT
END PROCEDURE

' Simulate actions
addTask("Buy milk")
addTask("Write Gambas code")
removeTask(0)

Maintains a simple todo list with add and remove functionality.

FOR i = 1 TO 3
    PRINT "Roll "; i; ": "; Rnd(1,6)
NEXT

Rolls a six-sided dice three times.

DIM count AS INTEGER = 5
WHILE count >= 0
    PRINT "Countdown: "; count
    count -= 1
WEND
PRINT "Done!"

Counts down from 5 to 0.

FUNCTION isPrime(n AS Integer) AS Boolean
    IF n < 2 THEN RETURN FALSE
    FOR i = 2 TO Sqr(n)
        IF n MOD i = 0 THEN RETURN FALSE
    NEXT
    RETURN TRUE
END FUNCTION

DIM nums AS INTEGER[] = [7,10,13]
FOR EACH n AS Integer IN nums
    PRINT n; " is "; IIF(isPrime(n), "Prime", "Not Prime")
NEXT

Checks if numbers are prime.

FUNCTION cToF(c AS Double) AS Double
    RETURN c * 9 / 5 + 32
END FUNCTION

FUNCTION fToC(f AS Double) AS Double
    RETURN (f - 32) * 5 / 9
END FUNCTION

PRINT "25°C = "; cToF(25); "°F"
PRINT "77°F = "; fToC(77); "°C"

Converts Celsius to Fahrenheit and Fahrenheit to Celsius.

DIM cart AS NEW Collection
DIM prices AS NEW Collection

PROCEDURE addItem(item AS String, price AS Integer)
    cart.Add(item)
    prices.Add(price)
    PRINT "Cart: "; cart
    PRINT "Total: "; prices.Sum
END PROCEDURE

PROCEDURE removeItem(index AS Integer)
    cart.RemoveAt(index)
    prices.RemoveAt(index)
    PRINT "Cart: "; cart
    PRINT "Total: "; prices.Sum
END PROCEDURE

' Simulate actions
addItem("Apple", 2)
addItem("Banana", 3)
removeItem(0)

Adds and removes items in a shopping cart with total cost.

PROCEDURE greet(name AS String)
    PRINT "Hello, "; name; "! Welcome!"
END PROCEDURE

' Simulate actions
greet("Saurav")
greet("Alice")
greet("Bob")

Greets users by name.

DIM time AS INTEGER = 0
WHILE time < 5
    PRINT "Stopwatch: "; time; " seconds"
    time += 1
WEND
PRINT "Done!"

Simulates a stopwatch incrementing seconds.