[ 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 | 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.


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 | 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]
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 | 1

Ď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 | 3
Bydlisko: Košice - ok...

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 | 1

Ď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ý: 22.04.26
Príspevky: 7084
Témy: 86 | 86
Bydlisko: BA

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 XFX RX6800XT | 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: Mac M4 Air 512 &
Mobil: Pixel 7a & 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 | 1

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 | 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]
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 | 1

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ý: 22.04.26
Príspevky: 7084
Témy: 86 | 86
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 XFX RX6800XT | 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: Mac M4 Air 512 &
Mobil: Pixel 7a & 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 | 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.


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ý: 22.04.26
Príspevky: 7084
Témy: 86 | 86
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 XFX RX6800XT | 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: Mac M4 Air 512 &
Mobil: Pixel 7a & 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 | 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.


Offline

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

Registrovaný: 15.06.14
Prihlásený: 26.04.26
Príspevky: 18014
Témy: 144 | 144
Bydlisko: Bratislava

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 | 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ť.


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ý: 22.04.26
Príspevky: 7084
Témy: 86 | 86
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: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 XFX RX6800XT | 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: Mac M4 Air 512 &
Mobil: Pixel 7a & SBC: Raspberry pi 0 | 3B+ & Headphones: Senheiser HD58X | AKG K551 + detachable cable mod | Linsoul TIN T2 | KZ SZN
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ý: 12.10.06
Prihlásený: 26.04.26
Príspevky: 20990
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
 [ Príspevkov: 17 ] 


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



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 Ostatné

7

1090

25.04.2007 13:39

maria kormanakova

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 Bazár

4

533

08.08.2019 13:28

dansy

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

Pomože mi niekto potrebujem napisat jendoduchy program v C

v Backend

3

747

04.05.2008 15:15

danciwo

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

Zdravim vas, potreboval by som poradit...

v Notebooky a netbooky

2

683

17.10.2009 16:05

erikoo

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 Backend

8

636

12.01.2011 14:40

eXistenZ

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 Backend

2

448

06.03.2017 17:48

Miso122

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

potrebujem pomoct, urobit tento priklad v delhi

v Ostatné

2

1082

06.05.2008 8:11

dodS12

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

Chcel by som poradit

v Grafické karty

18

911

15.10.2007 9:32

FesterE36

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

chcel by som radu

v Pevné disky a radiče

7

555

20.07.2014 19:07

tatko Tom

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

Chcel by som sa spýtať

v AMD platformy

2

790

08.04.2009 18:15

prandof

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

Chcel by som malu recenziu

v Notebooky a netbooky

4

659

07.10.2009 15:36

ac.milan

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

Chcel by som sa spytat...

v Pamäte

3

647

10.07.2009 1:28

mayo9999

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

1727

10.02.2011 20:28

ROFLman

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

chcel by som pretaktovat procesor

v Intel

5

986

06.11.2008 10:34

martinmmm

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

chcel by som prepojit 2 PC

v Siete

5

1422

10.11.2008 5:23

Jaro

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

1164

28.11.2009 13:03

Koro36



© 2005 - 2026 PCforum, edited by JanoF