Mikuláš je tu! Získaj 90 % extra kreditov ZADARMO s promo kódom CERTIK90 pri nákupe od 1 199 kreditov. Len do nedele 7. 12. 2025! Zisti viac:
NOVINKA: Najžiadanejšie rekvalifikačné kurzy teraz s 50% zľavou + kurz AI ZADARMO. Nečakaj, táto ponuka dlho nevydrží! Zisti viac:

Diskusia – 5. diel - Small Basic - Grafická okna

Späť

Upozorňujeme, že diskusie pod našimi online kurzami sú nemoderované a primárne slúžia na získavanie spätnej väzby pre budúce vylepšenie kurzov. Pre študentov našich rekvalifikačných kurzov ponúkame možnosť priameho kontaktu s lektormi a študijným referentom pre osobné konzultácie a podporu v rámci ich štúdia. Toto je exkluzívna služba, ktorá zaisťuje kvalitnú a cielenú pomoc v prípade akýchkoľvek otázok alebo projektov.

Komentáre
Posledné komentáre sú na spodnej časti poslednej stránky.
Avatar
Filmun
Člen
Avatar
Filmun:6.12.2016 19:34

mám otázku jak udělat když zmáčknu např W aby se ěco stalo?

Avatar
Filmun
Člen
Avatar
Filmun:6.12.2016 19:36

jo a proč tohle nefunguje:
x = 50
y = 50
GraphicsWindow­.Width = 500
GraphicsWindow­.Height = 500
GraphicsWindow­.BackgroundCo­lor = "Black"
GraphicsWindow­.PenColor = "Blue"
GraphicsWindow­.FillRectangle(x, y, 50, 50)
GraphicsWindow­.KeyDown = key_down
Sub key_down
last_key_down = GraphicsWindow­.LastKey
If last_key_down = "W" Then 'W
y = y - 20
EndIf
EndSub
GraphicsWindow­.Clear()
GraphicsWindow­.FillRectangle(x, y, 50, 50)

Avatar
Michael Škrášek
Tvůrce
Avatar
Odpovedá na Filmun
Michael Škrášek:6.12.2016 19:37

Na konci článku máš ukázanou reakci na "Escape" ... jen to přepiš na "W". ;-)

Odpovedať
"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates
Avatar
Michael Škrášek
Tvůrce
Avatar
Odpovedá na Filmun
Michael Škrášek:6.12.2016 19:39

Po stisknutí musíš znovu vykreslovat čtverec:

Sub key_down
        last_key_down = GraphicsWindow.LastKey
        If last_key_down = "W" Then
                y = y - 20
                GraphicsWindow.Clear()
                GraphicsWindow.FillRectangle(x, y, 50, 50)
        EndIf
EndSub
Odpovedať
"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates
Avatar
Filmun
Člen
Avatar
Filmun:6.12.2016 20:50

Mockrát dík

Avatar
Placka03
Člen
Avatar
Placka03:8.4.2018 10:50

Dá se ve SmallBasic udělat, že bych stiskl třeba tlačítko a otevřelo by to nějaký soubor?

Avatar
Michael Škrášek
Tvůrce
Avatar
Odpovedá na Placka03
Michael Škrášek:8.4.2018 14:09

Samozřejmě, ale nebudu ti na všechno psát kód. Jestli sis přečetl všechny tutoriály a stejně nevíš, zkus se podívat na nějaké programy jak je to tam řešený. ;)

př.
https://www.itnetwork.cz/…ile-explorer
...

Odpovedať
"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates
Avatar
Placka03
Člen
Avatar
Placka03:8.4.2018 14:10

Diky moc

Avatar
Čenda
Člen
Avatar
Čenda:5.11.2018 19:32

Proč tohle nefunguje?
If GraphicsWindow­.MouseDown Then
GraphicsWindow­.ShowMessage(" ", " ")
EndIf

Avatar
Jurajs
Člen
Avatar
Odpovedá na Čenda
Jurajs:5.11.2018 20:11

Jestli umíš anglicky tak si přečti něco o událostech ke Smallbasic, tam to máš vysvětlené...A chybí ti tam pár řádků kódu + stejně to máš špatně napsané - https://smallbasic-publicwebsite.azurewebsites.net/…torials.aspx
Tady máš pěkně na to tutoriály, pěkně si to prostuduj a pak se ptej....Jinak události jsou - EVENTS :D :)

Posledné komentáre sú na spodnej časti poslednej stránky.
Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zobrazené 10 správy z 20.