[ Príspevkov: 17 ] 
AutorSpráva
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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ý: 05.10.18
Príspevky: 328
Témy: 3 | 3
Bydlisko: Košice - ok...

da


_________________
GitHub: mfocko | mfocko.github.io | (Programovanie v C#, VB, Java, Python) - mfocko.noip.me/prog | (Programovanie v C#) - mfocko.noip.me/cs
Programovanie: C, C++, C#, Java, Python | Administrácia: archLinux, gentoo, Fedora, openSUSE, Windows
Desktop: MB: ASUS P8P67 LE; CPU: Intel Core i5-2500K; GPU: GB GTX 1050 G1 Gaming 2G; RAM: Corsair 8GB 1600MHz; HDD: Samsung 1TB, WD Red 2GB; OS: archLinux + ubuntu 18.04.1 + Fedora Rawhide + macOS 10.13.6 + Windows 10 Pro Insider Preview (170xx)
Acer Aspire V17 Nitro: CPU: Intel Core i7-4720HQ; GPU: nVidia GTX 950M; RAM: 8GB; HDD: 1TB; OS: archLinux + Windows 10 Insider Preview (16296)
Server: CPU: Intel Celeron T3300; RAM: 4GB; HDD: 500GB; OS: archLinux [Apache + Docker (GitLab, gogs) + SSH/SFTP + local mirror (FTP/rsync - archLinux, gentoo, openSUSE Tumbleweed, Fedora Rawhide)]
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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ý: 05.10.18
Príspevky: 328
Témy: 3 | 3
Bydlisko: Košice - ok...

http://pascal.input.sk


_________________
GitHub: mfocko | mfocko.github.io | (Programovanie v C#, VB, Java, Python) - mfocko.noip.me/prog | (Programovanie v C#) - mfocko.noip.me/cs
Programovanie: C, C++, C#, Java, Python | Administrácia: archLinux, gentoo, Fedora, openSUSE, Windows
Desktop: MB: ASUS P8P67 LE; CPU: Intel Core i5-2500K; GPU: GB GTX 1050 G1 Gaming 2G; RAM: Corsair 8GB 1600MHz; HDD: Samsung 1TB, WD Red 2GB; OS: archLinux + ubuntu 18.04.1 + Fedora Rawhide + macOS 10.13.6 + Windows 10 Pro Insider Preview (170xx)
Acer Aspire V17 Nitro: CPU: Intel Core i7-4720HQ; GPU: nVidia GTX 950M; RAM: 8GB; HDD: 1TB; OS: archLinux + Windows 10 Insider Preview (16296)
Server: CPU: Intel Celeron T3300; RAM: 4GB; HDD: 500GB; OS: archLinux [Apache + Docker (GitLab, gogs) + SSH/SFTP + local mirror (FTP/rsync - archLinux, gentoo, openSUSE Tumbleweed, Fedora Rawhide)]
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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.10.18
Príspevky: 5288
Témy: 74 | 74
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 | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 2x8GB DDR4 G-SKILL TridentZ RGB 3200 CL16 | VGA Powercolor VEGA56 | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE Roccat SAVU + Razer eXactMat | Corsair K30 | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: Xiaomi REdmi Note 5 PRO | FW LineageOS 15.1 Nightly & SBC: Raspberry pi 0 | 3B+
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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ý: 05.10.18
Príspevky: 328
Témy: 3 | 3
Bydlisko: Košice - ok...

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


_________________
GitHub: mfocko | mfocko.github.io | (Programovanie v C#, VB, Java, Python) - mfocko.noip.me/prog | (Programovanie v C#) - mfocko.noip.me/cs
Programovanie: C, C++, C#, Java, Python | Administrácia: archLinux, gentoo, Fedora, openSUSE, Windows
Desktop: MB: ASUS P8P67 LE; CPU: Intel Core i5-2500K; GPU: GB GTX 1050 G1 Gaming 2G; RAM: Corsair 8GB 1600MHz; HDD: Samsung 1TB, WD Red 2GB; OS: archLinux + ubuntu 18.04.1 + Fedora Rawhide + macOS 10.13.6 + Windows 10 Pro Insider Preview (170xx)
Acer Aspire V17 Nitro: CPU: Intel Core i7-4720HQ; GPU: nVidia GTX 950M; RAM: 8GB; HDD: 1TB; OS: archLinux + Windows 10 Insider Preview (16296)
Server: CPU: Intel Celeron T3300; RAM: 4GB; HDD: 500GB; OS: archLinux [Apache + Docker (GitLab, gogs) + SSH/SFTP + local mirror (FTP/rsync - archLinux, gentoo, openSUSE Tumbleweed, Fedora Rawhide)]
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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.10.18
Príspevky: 5288
Témy: 74 | 74
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 | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 2x8GB DDR4 G-SKILL TridentZ RGB 3200 CL16 | VGA Powercolor VEGA56 | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE Roccat SAVU + Razer eXactMat | Corsair K30 | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: Xiaomi REdmi Note 5 PRO | FW LineageOS 15.1 Nightly & SBC: Raspberry pi 0 | 3B+
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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.10.18
Príspevky: 5288
Témy: 74 | 74
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 | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 2x8GB DDR4 G-SKILL TridentZ RGB 3200 CL16 | VGA Powercolor VEGA56 | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE Roccat SAVU + Razer eXactMat | Corsair K30 | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: Xiaomi REdmi Note 5 PRO | FW LineageOS 15.1 Nightly & SBC: Raspberry pi 0 | 3B+
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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.


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ý: 15.06.14
Prihlásený: 23.10.18
Príspevky: 13768
Témy: 111 | 111
Bydlisko: BA/J.Bohunice

Programovanie sa učí opačným smerom


_________________
Notebook: Dell Latitude E7440 CPU Intel Core i5 4310U @3GHz GPU Intel HD4400 RAM 8GB SSD Crucial MX200 500GB mSATA | Samsung EVO 850 500GB OS Win 10 Pro 64-bit | Ubuntu 18.04 LTS 2nd monitor Dell P2414H
PC: CPU Intel Xeon E5440 @2.83GHz GPU Sapphire Radeon HD 6950 1GB RAM 8GB HDD WD Blue 500GB OS Win 10 Pro 64-bit Monitor 2x Dell S2415H
Peripherals: Mouses Logitech MX Anywhere 2S | Logitech G203 Prodigy | A4Tech Bloody V8 V-track Keyboard Cooler Master Suppressor External drive Samsung M3 Portable 2TB
Audio: DAC/AMP SMSL M3 Headphones Audio-Technica ATH-M40X + Brainwavz HM5 Earpads | Symphonized Wraith 2.0 | Corsair Void Pro Surround | Xiaomi Wireless Bluetooth Earbuds | 2x TY Hi-Z HP-32 | Xiaomi Piston v3 | Rock Zircon | 2x Knowledge Zenith EDR1
Phone: Xiaomi Redmi Note 2 + Xiaomi MiBand 2
Foto: Sony A6000 + Sony 16-50mm OSS

Na rady a otázky ohľadom pc zostáv a komponentov slúži fórum, nie SS. Ďakujem za pochopenie.
Offline

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

Registrovaný: 22.03.18
Prihlásený: 08.10.18
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.10.18
Príspevky: 5288
Témy: 74 | 74
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 | Cooling be quiet! Dark Rock Pro 4 | MB ASRock X470 Taichi Ult. | RAM 2x8GB DDR4 G-SKILL TridentZ RGB 3200 CL16 | VGA Powercolor VEGA56 | SSD Crucial MX300 525GB | HDD Seagate Ironwolf 3TB 5900rpm | PSU CORSAIR RM750X | MONITOR AOC Q3279VWFD8 | MOUSE Roccat SAVU + Razer eXactMat | Corsair K30 | ARCH x64 &
Notebook: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 &
Mobil: Xiaomi REdmi Note 5 PRO | FW LineageOS 15.1 Nightly & SBC: Raspberry pi 0 | 3B+
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ý: 23.10.18
Príspevky: 17634
Témy: 66 | 66
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.


_________________
Xeon E3-1231v3, 16GB DDR3, Gigabyte Z97-D3H, Samsung 840evo 120GB, Crucial MX300 525GB, 2x WD 1TB, Gainward GTX1060 6GB, Corsair RM550x, 24" BenQ GW2470H
iPad Air 16GB, iPhone SE 32GB
 [ 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 Assembler, C, C++, Pascal, Java

7

802

25.04.2007 13:39

maria kormanakova

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

464

04.05.2008 15:15

danciwo

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

325

12.01.2011 14:40

eXistenZ

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

Zdravim vas, potreboval by som poradit...

v Notebooky a netbooky

2

440

17.10.2009 16:05

erikoo

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

162

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 Delphi, Visual Basic

2

731

06.05.2008 8:11

dodS12

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

chcel by som radu

v Pevné disky a radiče

7

181

20.07.2014 19:07

tatko Tom

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

Chcel by som poradit

v Grafické karty

18

590

15.10.2007 9:32

FesterE36

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

Chcel by som malu recenziu

v Notebooky a netbooky

4

277

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

371

10.07.2009 1:28

mayo9999

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

chcel by som pretaktovat procesor

v Intel - Integrated Electronics

5

653

06.11.2008 10:34

martinmmm

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

1006

10.02.2011 20:28

ROFLman

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

Chcel by som sa spýtať

v AMD čipové sady

2

458

08.04.2009 18:15

prandof

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

chcel by som prepojit 2 PC

v Siete

5

1097

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

756

28.11.2009 13:03

Koro36

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

Chcel by som pribrat a vyrast. Pomozte

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

v Šport a pohyb

53

6663

15.03.2008 13:33

mimkork



© 2005 - 2018 PCforum, edited by JanoF