[ Príspevkov: 17 ] 
AutorSpráva
Offline

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

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

da


_________________
GitHub: mfocko | mfocko.github.io | (Programovanie v C#, VB, Java, Python) - mfocko.xyz/prog | (Programovanie v C#) - mfocko.xyz/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.10 + 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) + Ubuntu 18.10 + Fedora Rawhide
Server: CPU: Intel Celeron T3300; RAM: 4GB; HDD: 500GB; OS: archLinux [Apache + Docker (GitLab, gitea) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Ubuntu 18.10)]
Offline

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

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

http://pascal.input.sk


_________________
GitHub: mfocko | mfocko.github.io | (Programovanie v C#, VB, Java, Python) - mfocko.xyz/prog | (Programovanie v C#) - mfocko.xyz/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.10 + 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) + Ubuntu 18.10 + Fedora Rawhide
Server: CPU: Intel Celeron T3300; RAM: 4GB; HDD: 500GB; OS: archLinux [Apache + Docker (GitLab, gitea) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Ubuntu 18.10)]
Offline

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

Registrovaný: 22.03.18
Prihlásený: 31.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.01.19
Príspevky: 5603
Témy: 75 | 75
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 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 | 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 &
Ntb1: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Ntb2: MS Surface 2017 i5/8GB/128GB &
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ý: 31.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ý: 13.01.19
Príspevky: 331
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.xyz/prog | (Programovanie v C#) - mfocko.xyz/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.10 + 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) + Ubuntu 18.10 + Fedora Rawhide
Server: CPU: Intel Celeron T3300; RAM: 4GB; HDD: 500GB; OS: archLinux [Apache + Docker (GitLab, gitea) + SSH/SFTP + local mirror (FTP/rsync - archLinux, Ubuntu 18.10)]
Offline

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

Registrovaný: 22.03.18
Prihlásený: 31.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.01.19
Príspevky: 5603
Témy: 75 | 75
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 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 | 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 &
Ntb1: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Ntb2: MS Surface 2017 i5/8GB/128GB &
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ý: 31.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.01.19
Príspevky: 5603
Témy: 75 | 75
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 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 | 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 &
Ntb1: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Ntb2: MS Surface 2017 i5/8GB/128GB &
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ý: 31.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.


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ý: 15.06.14
Prihlásený: 23.01.19
Príspevky: 14522
Témy: 117 | 117
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
PC1: CPU Intel Xeon E5440 @2.83GHz GPU Sapphire Radeon HD 6950 1GB RAM 8GB HDD WD Blue 500GB OS Win 10 Pro 64-bit Monitors 2x Dell S2415H
PC2: CPU AMD Ryzen 5 2600 @~4.2GHz Cooler BeQuiet Pure Rock GPU EVGA GTX 1070 SC RAM Crucial 16GB 3000Mhz SSD Adata XPG Gaming 480GB HDD WD Blue 1TB Case Fractal Design Define Mini C TG PSU Corsair RM550X OS Win 10 Pro 64-bit Monitor 32" AOC IPS
Peripherals: Mouses Logitech MX Anywhere 2S | A4Tech Bloody V8 V-track Keebs TADA68 Pro (Cherry MX Brown, lubed and taped stabs) | Cooler Master Suppressor External drive Samsung M3 Portable 2TB
Audio: DAC/AMP SMSL M3 Headphones Audio-Technica ATH-M40X (Brainwavz HM5 Earpads, BT mod) | Symphonized Wraith 2.0 | Kingston HyperX Cloud | Xiaomi Wireless Bluetooth Earbuds | 2x TY Hi-Z HP-32 | Xiaomi Piston v3 | Rock Zircon | 2x Knowledge Zenith EDR1
Phone: Xiaomi Mi Mix 2 6/128 w/ Syberia A9 + Xiaomi MiBand 2 | Xiaomi Redmi Note 2
Foto: Sony A6000 + Sony 16-50mm OSS
Offline

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

Registrovaný: 22.03.18
Prihlásený: 31.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.01.19
Príspevky: 5603
Témy: 75 | 75
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 4x8GB DDR4 G-SKILL TridentZ RGB 3000 CL16-16-16-36 | VGA Powercolor VEGA56 | 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 &
Ntb1: DELL inspiron 7537 i7 4500U, 8GB RAM, nv750, FHD IPS,Crucial M4 128GB | ARCH x64 & Ntb2: MS Surface 2017 i5/8GB/128GB &
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ý: 22.01.19
Príspevky: 17791
Témy: 69 | 69
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

817

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

472

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

445

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 Assembler, C, C++, Pascal, Java

8

360

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 Assembler, C, C++, Pascal, Java

2

166

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

740

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

207

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

592

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

287

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

378

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

670

06.11.2008 10:34

martinmmm

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

Chcel by som sa spýtať

v AMD čipové sady

2

461

08.04.2009 18:15

prandof

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

1019

10.02.2011 20:28

ROFLman

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

chcel by som prepojit 2 PC

v Siete

5

1102

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

763

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

6725

15.03.2008 13:33

mimkork



© 2005 - 2019 PCforum, edited by JanoF