Stránka: 1 z 1
| [ Príspevkov: 17 ] | |
Autor | Správa |
---|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
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.
|
|
Registrovaný: 27.06.09 Prihlásený: 04.03.23 Príspevky: 332 Témy: 3 | 3 Bydlisko: Košice - ok... |
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] |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
Ďakujem za info, chcel by som ťa ešte poprosiť nevedel by si nejakú dobrú knihu na programovanie v Lazaruse?
|
|
Registrovaný: 27.06.09 Prihlásený: 04.03.23 Príspevky: 332 Témy: 3 | 3 Bydlisko: Košice - ok... |
_________________ 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] |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
Ďakujem, vedel by si mi dať ešte nejaké typy, čo by som si mal hlavne pozrieť?
|
|
Registrovaný: 19.03.07 Prihlásený: 11.01.25 Príspevky: 7076 Témy: 85 | 85 Bydlisko: BA |
http://pascal.input.ska 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 |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
Fuha, neviem si poradiť ako vytvorim proceduru na to auto, neporadili by ste mi ako na to?
|
|
Registrovaný: 27.06.09 Prihlásený: 04.03.23 Príspevky: 332 Témy: 3 | 3 Bydlisko: Košice - ok... |
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] |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 | |
Registrovaný: 19.03.07 Prihlásený: 11.01.25 Príspevky: 7076 Témy: 85 | 85 Bydlisko: BA |
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 |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
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.
|
|
Registrovaný: 19.03.07 Prihlásený: 11.01.25 Príspevky: 7076 Témy: 85 | 85 Bydlisko: BA |
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 |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
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.
|
|
Registrovaný: 15.06.14 Prihlásený: 05.02.25 Príspevky: 17969 Témy: 143 | 143 Bydlisko: Bratislava |
Programovanie sa učí opačným smerom
_________________ ITX >>> ATX |
|
Registrovaný: 22.03.18 Prihlásený: 22.05.19 Príspevky: 8 Témy: 1 | 1 |
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ť.
|
|
Registrovaný: 19.03.07 Prihlásený: 11.01.25 Príspevky: 7076 Témy: 85 | 85 Bydlisko: BA |
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:15Tie 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.PrednaskaElipse 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 |
|
Registrovaný: 12.10.06 Prihlásený: 04.02.25 Príspevky: 20655 Témy: 79 | 79 Bydlisko: Banska Byst... |
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 | Kingston FURY 32GB DDR4 3600 MHz CL18 Beast Black | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 32" Samsung ViewFinity S60UA | 3x Noctua NF-S12B redux 1200 PWM Xiaomi 14T 256GB |
|
Stránka: 1 z 1
| [ Príspevkov: 17 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v Assembler, C, C++, Pascal, Java | 7 | 1041 | 25.04.2007 13:39 maria kormanakova | | v Informujem sa | 4 | 466 | 08.08.2019 13:28 dansy | | v Assembler, C, C++, Pascal, Java | 3 | 700 | 04.05.2008 15:15 danciwo | | v Notebooky a netbooky | 2 | 654 | 17.10.2009 16:05 erikoo | | v Assembler, C, C++, Pascal, Java | 8 | 597 | 12.01.2011 14:40 eXistenZ | | v Assembler, C, C++, Pascal, Java | 2 | 406 | 06.03.2017 17:48 Miso122 | | v Delphi, Visual Basic | 2 | 1041 | 06.05.2008 8:11 dodS12 | | v Grafické karty | 18 | 845 | 15.10.2007 9:32 FesterE36 | | v Pevné disky a radiče | 7 | 511 | 20.07.2014 19:07 tatko Tom | | v Intel - Integrated Electronics | 5 | 946 | 06.11.2008 10:34 martinmmm | | [ Choď na stránku: 1, 2 ] v Grafické karty | 31 | 1637 | 10.02.2011 20:28 ROFLman | | v AMD čipové sady | 2 | 742 | 08.04.2009 18:15 prandof | | v Notebooky a netbooky | 4 | 611 | 07.10.2009 15:36 ac.milan | | v Pamäte | 3 | 615 | 10.07.2009 1:28 mayo9999 | | v Monitory, televízory a projektory | 15 | 1122 | 28.11.2009 13:03 Koro36 | | v Siete | 5 | 1385 | 10.11.2008 5:23 Jaro |
|