100 likes | 308 Views
Konstanty. jsou datové objekty jejich hodnoty nelze v programu měnit Deklarace. Const jméno = hodnota. Příklad: Textový řetězec ZPRAVA Const ZPRAVA = “Zadej heslo “. Příklad: Definice konstanty . Const PI = 3.141592653. Proměnná .
E N D
Konstanty • jsou datové objekty • jejich hodnoty nelze v programu měnit • Deklarace • Const jméno = hodnota • Příklad: Textový řetězec ZPRAVA • Const ZPRAVA = “Zadej heslo “ • Příklad: Definice konstanty . • Const PI = 3.141592653
Proměnná • datový objekt, jehož hodnotu lze v průběhu programu měnit • určena identifikátorem - jménem a datovým typem • deklaruje se pomocí klíčového slova Dim • datové typy Syntaxe: Dim jméno As typ
Datové typy • Variant - univerzální datový typ • Integer - celé číslo (2 bytes) <-32 768, 32 767> • Long - celé číslo < -2 147 483 648 , 2 147 483 647> • Single – reálné číslo (4 bytes)< -3,4 E38, 3,4 E38 > • Boolean - logická hodnota True nebo False • String - řetězec (10 bytes) Dim P As Integer Dim OK As Boolean Dim Cesta As String
Proměnná • proměnné lze deklarovat v části general - declaration, tyto proměnné mají platnost ve všech procedurách daného formuláře tzv. globální proměnné • OPTION EXPLICIT - na začátku programu (pomocí nabídky Tools - Options - Editor - Require Variable Declaration) • povinnost deklarovat proměnné • provádí automatickou kontrolu deklarace • pro větší přehlednost je doporučeno proměnné deklarovat. • pokud proměnnou nedeklaruji, je jí automaticky přiřazen datový typ Variant
Proměnná • nesmím deklarovat tímto způsobem: Dim I,J As Integer • pak I je typu Variant a J je Integer
Přiřazení hodnoty do proměnné • pocet = 10 'Proměnné počet je přiřazena hodnota 10 • jmeno1 = "Pavel" 'Proměnné jmeno1 je přiřazen řetězec Pavel • jmeno2 = jmeno1 'Proměnné jmeno2 je přiřazena hodnota proměnné jmeno1 • Dim BudePrset As Boolean, zmokneme As Boolean • '“Nebude-li pršet, nezmoknem” • If Not BudePrset Then zmokneme = False
Znakové konstanty • Nová řádka v objektu MSGBOX • pomocí funkce Chr(kod znaku) • převádí kód znaku na řetězec (string) • některé znakové kódy mají speciální význam • Chr(13)-návrat na začátek řádky • Chr(10)-přesun na další řádku • pomocí konstanty vbNewLine • nebo konstanta vbCrLf
Kreslení bodu objekt.PSet (x, y) Pset(1000,1000)‘na formuláři se objeví bod ScaleMode - nastavení na Twip {1 cm =567 Twip } Vlastnost AutoRedraw (formulář) - automatické překreslování objekt.DrawWidth [= tloušťka] DrawWidth=4 ‘nastavení tloušťky pera Nastavení barvy:vlastnost ForeColor - formuláře Funkce RGB(red,green,blue) Pset(1000,1000), RGB(255,0,0)
Barevné konstanty • pro barevné kreslení je možno využít barevných konstant • vbBlack, vbGreen, vbRed, vbBlue … • Pset(1000,1000), vbRed
Události generované myší PrivateSub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single) Parametry Button číslo, které říká, jaké tlačítko myši bylo stisknuto bitové pole (vbLeftButton - levé, vbRightButton - pravé)Shift číslo, které informuje o stlačení pomocné klávesy (Shift, Ctrl) bitové polex, y souřadnice aktuální pozice myši