Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 17 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok NapísalOffline : 22.03.2018 13:59

Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse:

Pomocou procedúry vytvorte v komponente IMAGE autíčko. Pomocou komponentu TIMER vykreslíte 2 takéto autá. V každom kroku programu sa vygenerujú 2 náhodné čísla od 1 do 5, ktoré budú znamenať vzdialenosť posunu pre jednotlivé autíčka. Nakreslite do programu cieľovú čiaru. Po prekročení cieľovej čiary jedným autíčkom, vám vyskočí okno, kde bude napísaný víťaz pretekov.


Offline

Užívateľ
Užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3
Bydlisko: Košice - ok...
Príspevok NapísalOffline : 22.03.2018 14:10

da







_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission]
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 14:20

Ďakujem za info, chcel by som ťa ešte poprosiť nevedel by si nejakú dobrú knihu na programovanie v Lazaruse?


Offline

Užívateľ
Užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3
Bydlisko: Košice - ok...
Príspevok NapísalOffline : 22.03.2018 14:23

http://pascal.input.sk







_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission]
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 14:25

Ďakujem, vedel by si mi dať ešte nejaké typy, čo by som si mal hlavne pozrieť?


Offline

Skúsený užívateľ
Skúsený užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 19.03.07
Prihlásený: 14.04.24
Príspevky: 7076
Témy: 85
Bydlisko: BA
Príspevok NapísalOffline : 22.03.2018 14:29

http://pascal.input.sk

a popis TTimer-u a TBitMap-u. Aj ked zalezi od toho, ako si musis vyskladat to auticko.

Blaho je super.







_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Surface Go 8/128 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 15:04

Fuha, neviem si poradiť ako vytvorim proceduru na to auto, neporadili by ste mi ako na to?


Offline

Užívateľ
Užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 27.06.09
Prihlásený: 04.03.23
Príspevky: 332
Témy: 3
Bydlisko: Košice - ok...
Príspevok NapísalOffline : 22.03.2018 15:09

skus si predat x a y poziciu a vykreslovat to k tomu relativne







_________________
GitHub: mfocko | mfocko.xyz
OSs: archLinux + fedora (+ Windows 10 Pro Insider Preview, only if needed)
Server: archLinux [nginx + Docker (GitLab) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Fedora) + samba + transmission]
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 15:36

Skúšam, ale nejde mi to.


Offline

Skúsený užívateľ
Skúsený užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 19.03.07
Prihlásený: 14.04.24
Príspevky: 7076
Témy: 85
Bydlisko: BA
Príspevok NapísalOffline : 22.03.2018 15:38

Zamysli sa nad tym, co si nam tym chcel povedat a ked prides na to, kde je chyba, tak to napis znovu, tak aby s toho nieco aj mal. (tl;dr: z tvojho popisu vieme prd)







_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Surface Go 8/128 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 15:52

Netuším vôbec, nejde mi nič, neviem to proste.
Na Lazarus nemám talent ale napr. šachovnicu som vedel vytvoriť ale to je asi úplne na nič.

// Spojený príspevok 22.03.2018 16:04

Prosím nepomohli by ste mi s kódom, bol by som Vám naozaj veľmi vďačný.
Chcel by som sa to naučiť.
Ďakujem.


Offline

Skúsený užívateľ
Skúsený užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 19.03.07
Prihlásený: 14.04.24
Príspevky: 7076
Témy: 85
Bydlisko: BA
Príspevok NapísalOffline : 22.03.2018 16:13

Mne ide o to, ze od teba nevidime ziaden kod.
Programovanie je specificky sposob velmi deterministicky zamernaho zmyslania. (Mas tam problem najst nahodnost, respo skor nahodnost neexistuje a ak ano, tak ta vyjde velmi draho.)
Skratka sa do toho treba dostat, podla mna malo ludi to vedelo od narodenia, monzo nejaki autisti hej, ale to koli tomu ze maju inak nalinkovany mozog.







_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Surface Go 8/128 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 16:20

Ja viem, ale keby si ten kód napísal, tak by som si všetky príkazy vyhľadal na internete a snažil sa ich pochopiť.
Prosím.
Mal by si to navždy u mňa.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 15.06.14
Prihlásený: 17.04.24
Príspevky: 17930
Témy: 142
Bydlisko: Bratislava
Príspevok NapísalOffline : 22.03.2018 16:27

Programovanie sa učí opačným smerom







_________________
ITX >>> ATX
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 22.03.18
Prihlásený: 22.05.19
Príspevky: 8
Témy: 1
Príspevok Napísal autor témyOffline : 22.03.2018 16:49

Jediné čo zatiaľ mám tak to je to vykreslenie auta
Image1.Canvas.Rectangle(x,y,x,y);
Image1.Canvas.Ellipse(x,y,x,y);
Image1.Canvas.Ellipse(x,y,x,y);
snažím sa ale neviem prísť na to aké hodnoty mám nastaviť.


Offline

Skúsený užívateľ
Skúsený užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 19.03.07
Prihlásený: 14.04.24
Príspevky: 7076
Témy: 85
Bydlisko: BA
Príspevok NapísalOffline : 22.03.2018 16:56

Kopiruj sem cely kod a aj ak to je cely kod, daj ho do tagov (v hranatych zatvorkach, miesto uvodzoviek "code" a na konci kodu "/code")

// Spojený príspevok Štv 22.03.18 17:15

Tie prednasky co ti sem poslal Focko si necital? Lebo tam mas krasne napisane co sa ako pouziva. http://pascal.input.sk/index.php/1.Prednaska http://pascal.input.sk/index.php/7.Prednaska

Elipse x y x y su koordinaty od bodu v lavo hore(ak sa dobre pamatam lazarus je speciany v tom, ze kde ma 0,0) kde sa nakresli elipsa do svtoruholniku vyhradeneho danymi koordinami. (prvy je jeden roh, druhy je diagonalny roh k rpvemu rohu)
Rectangle snad vysvetlovat nemusim.

daj si to du procedury kresliauto(x,y,x,y, canvas). Tato bude musiet mat vstup obsahujuci Image1.Canvas pri volani (aby procedura vedela kam a na ktoru plochu ma kreslit tie objekty)

Do timeru (prednaska7) daj kreslit 2 auta vyssie urobenou funkciou (asi nad sebou) kde budes stale inkrementovat "y" o random vzdialenost (prednaska 1)
odporucam spravit si globalne premene, ktore budu obsahovat vzdialenost, ktoru auto preslo. A ked tato premena dosiahne pre jedno alebo druhe auto limit, tak ti vypise vo vyskakovacom okne, ktore viem ze to ma ale nespominam si ako sa volalo, ze ktore auto vyhralo.

Kod ti pisat nebudem, lebo je to asi 7 rokov co som sa naposledy hral s lazarom a nemam ho nainstalovany a ani tolko casu :)







_________________
Desktop: CPU AMD R7 1700x @ 3.85GHz | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 + Raijintek Morpheus II | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE HyperX Pulsefire FPS + Razer eXactMat | HyperX Alloy FPS Brown | HyperX Cloud | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 16GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Surface Go 8/128 &
Mobil: LG v40 ThinQ (2018) & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
Online

Užívateľ
Užívateľ
Zdravím, chcel by som sa opýtať, či by niekto nevedel, či sa tento príklad dá napísať v Lazaruse

Registrovaný: 12.10.06
Prihlásený: 17.04.24
Príspevky: 20302
Témy: 79
Bydlisko: Banska Byst...
Príspevok NapísalOnline : 22.03.2018 19:27

Cely cas sa mi zda, ze z jeho prejavu je priam citit to klasicke ze "spravte to za mna, neviem to, neucil som sa, kaslem na to...ale ked pekne pokecam a poprosim tak hadam dakoho zmagorim"
inac by mal toho viac ako 3 riadky a studoval by tie prednasky, az by sa z hlavy parilo :-)

...a auto by som riesil ako jeden objekt (obrazok auta), aby som nemusel pracovat s niekolkymi vecami (obrazkami, tvarmi), z ktorych sa auto sklada (karoseria a kolesa) = menej napisaneho kodu, efektivnejsie.
Pokial je profak normalny, pochopi to a este by ta mohol aj pochvalit. Logicke je si zlahcovat pracu, nie sa slepo drzat zadania, nech je akokolvek svihnute....to nema cenu. Kazdy si vsade pracu vzdy snazi ulahcit. Kym som programovaval v Delphi (prakticky to iste co lazarus), tak som to vzdy tak robil.







_________________
Ryzen 7 3700X | SilentiumPC Fera 3 | Asrock X570M Pro4 | Patriot Viper 4 Blackout 16GB DDR4-3600 CL17 | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 24" BenQ GW2470H | 3x Noctua NF-S12B redux 1200 PWM
Xiaomi Mi 9 Lite 64GB
Odpovedať na tému [ Príspevkov: 17 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Neviete niekto tento jeden priklad v Pascale???

v Assembler, C, C++, Pascal, Java

7

1003

25.04.2007 13:39

maria kormanakova Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Vedel by mi niekto poradiť cenu za akú by som mal predať tento PC?

v Informujem sa

4

419

08.08.2019 13:28

dansy Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomože mi niekto potrebujem napisat jendoduchy program v C

v Assembler, C, C++, Pascal, Java

3

655

04.05.2008 15:15

danciwo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zdravim vas, potreboval by som poradit...

v Notebooky a netbooky

2

612

17.10.2009 16:05

erikoo Zobrazenie posledných príspevkov

Táto téma je zamknutá, nemôžete posielať nové príspevky alebo odpovedať na staršie. Pls kto by vedel napisat tento program

v Assembler, C, C++, Pascal, Java

8

560

12.01.2011 14:40

eXistenZ Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zdravím, potreboval by som pomocť so zadaním z ASM 8080

v Assembler, C, C++, Pascal, Java

2

367

06.03.2017 17:48

Miso122 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. potrebujem pomoct, urobit tento priklad v delhi

v Delphi, Visual Basic

2

1008

06.05.2008 8:11

dodS12 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Chcel by som poradit

v Grafické karty

18

794

15.10.2007 9:32

FesterE36 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. chcel by som radu

v Pevné disky a radiče

7

459

20.07.2014 19:07

tatko Tom Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Chcel by som malu recenziu

v Notebooky a netbooky

4

546

07.10.2009 15:36

ac.milan Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Chcel by som sa spytat...

v Pamäte

3

567

10.07.2009 1:28

mayo9999 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. chcel by som novu grafiku

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Grafické karty

31

1529

10.02.2011 20:28

ROFLman Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. chcel by som pretaktovat procesor

v Intel - Integrated Electronics

5

901

06.11.2008 10:34

martinmmm Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Chcel by som sa spýtať

v AMD čipové sady

2

688

08.04.2009 18:15

prandof Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. chcel by som prepojit 2 PC

v Siete

5

1332

10.11.2008 5:23

Jaro Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. LCD MONITOR CHCEL BY SOM PORADIT

v Monitory, televízory a projektory

15

1037

28.11.2009 13:03

Koro36 Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra