IT rekvalifikácia. Seniorní programátori zarábajú až 6 000 €/mesiac a rekvalifikácia je prvým krokom. Zisti, ako na to!

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
Avatar
Nevo
Člen
Avatar
Nevo:18.4.2015 17:54

Mám dotaz: Jde nějakým způsobem vytvářet tlačítka? A mám problém. Nejdou mi vkládat obrázky podle návodu v programu. Jde s tím něco dělat.

Odpovedať
18.4.2015 17:54
Všechno jde, pouze musíš být zapálenej pro danou věc, pak jde všechno.
Avatar
Michael Škrášek
Tvůrce
Avatar
Michael Škrášek:18.4.2015 18:03

Vytvářet tlačítka můžeš:

button = Controls.AddButton("name", 10, 10)
Controls.ButtonClicked = click
Sub click
 last = Controls.LastClickedButton
 If last = button Then
  ...
 EndIf
EndSub
Odpovedať
18.4.2015 18:03
"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 Nevo
Michael Škrášek:18.4.2015 18:04

K těm obrázkům, ukaž prosím kód.

Editované 18.4.2015 18:04
Odpovedať
18.4.2015 18:04
"I choose a lazy person to do a hard job. Because that person will find an easy way to do it. " Bill Gates
Avatar
Jurajs
Člen
Avatar
Odpovedá na Nevo
Jurajs:18.4.2015 18:34

Vkládat obrázky můžeš takhle třeba:

player = "E:\Cesta \ k \souboru\player.png"
GraphicsWindow.DrawImage(player, posX, posY)
Editované 18.4.2015 18:36
 
Odpovedať
18.4.2015 18:34
Avatar
Nevo
Člen
Avatar
Odpovedá na Michael Škrášek
Nevo:18.4.2015 18:51

Dík všem :)

Editované 18.4.2015 18:51
Odpovedať
18.4.2015 18:51
Všechno jde, pouze musíš být zapálenej pro danou věc, pak jde všechno.
Avatar
Nevo
Člen
Avatar
Nevo:22.5.2015 21:32

Mám tady nový problém a nevím si s ním rady, opět :)
Dávám zdroják:
change = Controls.AddBut­ton("Changelog", 15, 250)
Sub click3
last3 = Controls.LastClic­kedButton
If last3 = change Then
Goto chnglog
EndIf
EndSub
Problém je, jak jsem zjistil v řádku s "Goto". Po vypsání tohoto řádku mi editor vypíše toto: Chybný popisek v ILGenrator. Zajímavé je, že když toto tlačítko přidám do jiného programu, program bez problému pracuje. Ví někdo co s tím může být?

Odpovedať
22.5.2015 21:32
Všechno jde, pouze musíš být zapálenej pro danou věc, pak jde všechno.
Avatar
Jurajs
Člen
Avatar
Odpovedá na Nevo
Jurajs:22.5.2015 21:45

Tohle je celý kód?

 
Odpovedať
22.5.2015 21:45
Avatar
Jurajs
Člen
Avatar
Odpovedá na Nevo
Jurajs:22.5.2015 21:55

Tady to máš upravené, ale když kliknu na button tak to nic stejně nedělá :D

chnglog:
change=Controls.AddButton("Changelog", 15, 250)
click3()
Sub click3
  last3 = Controls.LastClickedButton
  If last3 = change Then
Goto chnglog
EndIf
EndSub
 
Odpovedať
22.5.2015 21:55
Avatar
Jurajs
Člen
Avatar
Odpovedá na Nevo
Jurajs:22.5.2015 22:02

Tak teď to vypisuje - Ahoj :D

chnglog:
change=Controls.AddButton("Changelog", 15, 250)
Controls.ButtonClicked = click3
Sub click3
  last3 = Controls.LastClickedButton
  If last3 = change Then
    GraphicsWindow.ShowMessage("Ahoj","Pozdrav")
    Goto chnglog

EndIf
EndSub
Editované 22.5.2015 22:03
 
Odpovedať
22.5.2015 22:02
Avatar
Jurajs
Člen
Avatar
Jurajs:19.6.2016 14:41

SmallBasic má podporu 3D :D huráá :)
https://blogs.msdn.microsoft.com/…sualisation/

 
Odpovedať
19.6.2016 14:41
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.

Zatiaľ nikto nevložil komentár - buď prvý!