CorelDRAW a skripty (2) - Trocha teorie - Grafika.cz - vše o počítačové grafice

REM Toto je ukázka, jak lze formátovat
REM kód pro jeho lepší čitelnost.

teplota = 28

if teplota > 25 then
    ' a tady je to, abych věděl
    message  "Sakra to je vedro, asi by" \\
           & " to chtělo jít na pivo." \\
           & " A proč vlastně ne?"
    withobject "CorelDRAW.Automation.9"
        .FileClose true
        .FileExit
    end withobject
endif

REM Ukázka názvů proměnných

'Následující proměnné jsou naprosto shodné
VYSKA = 25
vyska = 25

'Správné jména proměnných
A = 8
x = 5
ctverec4 = 21
Ctverec_4 = 12
_8_pomerancu_a_2_jablka = "deset"

'Chybné jména proměnných
ctverec 7 = 58 
8vyska = 5 
123stromy = 59
text = "chyba"
'slovo text patří mezi rezervovaná, nelze jej použít

REM Ukázka deklarace typů proměnných

'nastavení proměnných včetně typu
zprava$    = "Dobrý den"
cele&      = 293589
desetinne# = 3.14

'deklarace typů proměnných předem
DIM zprava AS STRING
DIM cele AS LONG
DIM desetinne AS DOUBLE

zprava    = "Dobrý den"
cele      = 293589
desetinne = 3.14

REM Ukázka přetypování proměnné funkcí CSTR()

WITHOBJECT "CorelDraw.Automation.9"
    'zjistí rozměry stránky
    .GetPageSize sirka&, vyska&
    'převede zjištěné údaje na milimetry
    sirka_mm# = sirka&/10000
    vyska_mm# = vyska&/10000
    'zapíše do stránky řetězcový text s jejími rozměry
    .CreateArtisticText "Rozměr stránky je " + \\
                        cstr(sirka_mm#) + " × " + \\
                        cstr(vyska_mm#) + "mm.", -1000000, 0
END WITHOBJECT

REM Ukázka definice pole

'definice pole o 4 hodnotách
DIM barva$(4)
'přiřazení hodnot
barva$(1) = "azurová"
barva$(2) = "purpurová"
barva$(3) = "žlutá"
barva$(4) = "černá"

'změna velikosti již vytvořeného pole
REDIM PRESERVE barva$(7)
'přiřazení dalších hodnot
barva$(5) = "červená"
barva$(6) = "zelená"
barva$(7) = "modrá"


'definice vícerozměrného pole
DIM barvy$(4,2)
'přiřazení hodnot
barvy$(1,1) = "azurová"
barvy$(1,2) = "cyan"
barvy$(2,1) = "purpurová"
barvy$(2,2) = "magenta"
barvy$(3,1) = "žlutá"
barvy$(3,2) = "yellow"
barvy$(4,1) = "černá"
barvy$(4,2) = "black"

'postupně zobrazí zprávu se jménem barvy (česky i anglicky)
FOR i% = 1 TO 4
    message barvy$(i%,1) + " = " + barvy$(i%,2)
NEXT

REM Ukázka větvení kódu 

barva$ = "černá"

' příkaz if na jeden řádek
if barva$ = "černá" then message "je to černý"

' příkaz if ... then ... else
if barva$ = "černá" then
    message "je to černý"
else
    message "není to černý"
endif

'Do celé konstrukce lze vkládat i další podmínky elseif
if barva$ = "černá" then
    message "je to černý"
elseif barva$ = "modrá" then
    message "je to modrý"
elseif barva$ = "zelená" then
    message "je to zelený"
'pokud nebyla splněna ani jedna podmínka,
'provede se tento příkaz
else
    message "tuhle barvu neznám"
endif

'konstrukce select case, tento příkaz je funkčně shodný
's předchozí konstrukcí if ... elseif ..., ale je daleko
'přehlednější
select case barva$
    case "černá"
        message "je to černý"
    case "modrá"
        message "je to modrý"
    case "zelená"
        message "je to zelený"
    'pokud nebyla splněna ani jedna podmínka,
    'provede se tento příkaz
    case else
        message "tuhle barvu neznám"
end select
'podmínku lze kdykoliv přerušit příkazem EXIT

REM Ukázka příkazů cyklu

' Cyklus for ... next.
' Při každém průchodu se hodnota deklarované proměnné (i%)
' zvýší o hodnotu 1, pokud není jinak definováno pomocí STEP.
' Probíhá dokud proměnná deklarovaná za FOR je menší, nebo
' rovna hodnotě uvedené za TO. V případě, že je krok (STEP)
' záporná hodnota, cyklus probíhá dokud je deklarovaná
' proměnna menší, nebo rovna hodnotě za TO.
for i% = 0 to 20 step 5
    message "proměnná i% má hodnotu " + cstr(i%)
next

' Cyklus do ... loop.
' Probíhá dokud je splněna podmínka (i% menší než 0).
' Podmínka je testována před proběhnutím cyklu.
' Pokud není splněna, cyklus neproběhne ani jednou.
i% = 5
DO WHILE i% > 0
    i% = i% - 1
LOOP

' Stejná ukázka, jen podmínka je testována po proběhnutí
' cyklu. Pokud není splněna, cyklus proběhne jen jednou.
i% = 5
DO
    i% = i% - 1
LOOP WHILE i% > 0

' Probíhá dokud je není splněna podmínka (i% je rovno 0).
' Podmínka je testována před proběhnutím cyklu.
' Pokud není splněna, cyklus neproběhne ani jednou.
i% = 5
DO UNTIL i% = 0
    i% = i% - 1
LOOP

' Stejná ukázka, jen podmínka je testována po proběhnutí
' cyklu. Pokud není splněna, cyklus proběhne jen jednou.
i% = 5
DO
    i% = i% - 1
LOOP UNTIL i% = 0


' Cyklus while ... wend probíhá dokud je splněna
' podmínka uvedená za WHILE.
i% = 5
WHILE i% > 0
    i% = i% - 1
WEND

REM Ukázka použití vlastní funkce

' deklarace vlastní funkce s jedním parametrem
function mm# (dmic&)
    ' ze zadaného parametru vypočítá výsledek a přiřadí
    ' jej názvu funkce, tudíž celá funkce vrátí tento výsledek
    mm# = dmic& / 10000
end function

' Zobrazí zprávu s velikostí stránky v mm,
' k přepočtu použije vlastní definovanou funkci mm#()
WITHOBJECT "CorelDraw.Automation.9"
    .GetPageSize sirka&, vyska&
    message "Rozměr stránky je " + cstr(mm#(sirka&)) \\
             + " × " + cstr(mm#(vyska&)) + " mm."
END WITHOBJECT

REM Ukázka vlastních funkcí pro konverzi jednotek

' funkce pro konverzi milimetrů na desetiny mikronů
function dmic& (mm#)
    dmic& = mm# * 10000
end function

' funkce pro konverzi desetin mikronů na milimetry
function mm# (dmic&)
    mm# = dmic& / 10000
end function

' Ukázka použití funkce pro konverzi jednotek k vytvoření
' obdélníku uprostřed stránky pomocí uživatelem zadaných
' hodnot v mm.
sirka# = inputbox ("zadejte šířku v milimetrech")
vyska# = inputbox ("zadejte výšku v milimetrech")

if (sirka#<=0 or sirka>1000) or (vyska#<=0 or vyska>1000) then
    message "Zadaná šířka nebo výška je špatná."
    stop
endif

WITHOBJECT "CorelDRAW.Automation.9"
    x1& = dmic&(0-sirka#/2)
    y1& = dmic&(vyska#/2)
    x2& = dmic&(sirka#/2)
    y2& = dmic&(0-vyska#/2)
    .CreateRectangle y1&, x1&, y2&, x2&
END WITHOBJECT