To wtedy trzeba po pytaniu w nawiasie pisać jak ma wyglądać odpowiedź, albo w jakieś pomocy napisać takie niuanse. A co do polskich znaków, to ja bym próbował ze stroną kodową przez ten exec. Mi analogiczne rozwiązanie chodziło w C.
Szukam po necie o polskich znakach w FreePascalu i jakoś nie umiem znaleźć, może nie bardzo się da?
-
urban92
- Administrator
- Posty: 5783
- Rejestracja: 06 lut 2008, 22:25
- Lokalizacja: Michalin, gdzieś w Polsce
- Kontakt:
A gdzie opcje 50/50, telefon do przyjaciela i pytanie do publiczności?
![Obrazek](http://techvortal.pl/images/userbars/win10n.png)
Moje maszyny:
Komputery używane na co dzień:
Stacja robocza (główny pecet):
Core i7-12700K 3.6-5Ghz + Noctua NH-D15 Chromax LTT
Gigabyte Z690 GAMING X DDR4
32GB Ram HyperX Predator DDR4 3200Mhz CL16
GeForce RTX 4070 Gigabyte Gaming OC 12GB + 2x Dell P2416D
Kingston KC3000 2TB (OS)
Samsung 970 EVO Plus 2TB (Dane)
WD Red Plus 3TB (Archiwum)
Asus Xonar DGX
Asus ROG AREION 10G
MSI MPG A850G PCIE5 850W + SPC Armis AR7X TG RGB
Windows 11 Pro
Drugi pecet:
Core i7-11700K 3.6-5Ghz + SilentiumPC Fortis 5 Dual Fan
Gigabyte Z590 AORUS ULTRA
16GB Ram Corsair Vengeance LPX Black DDR4 3200Mhz CL16
GeForce GTX 1660 SUPER Gigabyte Gaming OC 6GB
Samsung 980 PRO 500GB (OS)
Crucial BX500 1TB (VM)
WD Red 3TB (Dane)
SPC Supremo FM2 750W + SPC Armis AR6 TG
Windows 11 Insider Canary
Retro PC do zabawy:
Xeon X5670 @ 4Ghz+ Pentagram Karakorum
GA-X58A-UD3R
18GB RAM Kingston DDR3 1333Mhz CL9 (3x2+3x4GB)
ATI Radeon 4850 1GB
WD Velociraptor 160GB (XP)
OCZ Vertex 4 128GB (Win 7)
2x WD Black 500GB RAID1 (Dane)
Creative Sound Blaster Audigy SE
Sharkoon Rebel 9 + OCZ StealthXStream 600W
Warsztatowy mini PC:
HP ProDesk 600 G3 Mini
Core i7-7700T 2,9-3.8Ghz
16GB RAM DDR4 2400Mhz
Intel HD Graphics 630
SSD Samsung 256GB NVMe
HDD 1GB Toshiba
Windows 10
Stacja do testowania dysków ATA, oraz zgrywania obrazu z karty TV:
Core 2 Duo E4700 @ 2,6Ghz
Gigabyte GA-945GCMX-S2
3GB Ram Kingston DDR2 533Mhz
GMA 950
HDD 500GB WD Black
Windows XP
Laptop:
Dell Latitude 5420
Core i5-1135G7
32GB Ram DDR4 3200Mhz
Intel Iris Xe
SSD Kingston A2000 1TB
Windows 11
Serwery:
TECHVORTAL-PROD + NAS
Xeon E5-2680v4 2,4Ghz (14 rdzeni, 28 wątków) + Noctua NH-U9DX i4
Supermicro X10SRi-F
128GB Ram DDR4 RDIMM 2400MHz (4x32GB)
Samsung PM981 256GB (ESXI Boot + Cache)
Samsung 970 Evo Plus 2TB NVMe (VM)
Intel 670p 2TB (Data)
HDD 4x 8TB WD Red Pro (RAID-Z1)
VMware ESXi 8.0/True NAS Scale VM
TECHVORTAL-TEST
Dell PowerEdge R720
2x Xeon E5-2650v2 2,6Ghz (2 CPU, 8 rdzeni, 16 wątków)
128GB Ram DDR3L ECC FB 1333MHz (16x8GB)
SSD Samsung 980 512GB
HDD 4x 1.2TB SAS Dell (PERC H710p RAID 10)
VMware ESXi 7.0
TECHVORTAL-BACKUP-OFFLINE
Dell PowerEdge R710
2x Xeon E5649 2,53Ghz (2 CPU, 6 rdzeni, 12 wątków)
48GB Ram DDR3 ECC FB 1333MHz (6x8GB)
SSD WD 256GB NVMe
HDD 8x 2TB SAS Dell (Perc H700 RAID 5)
VMware ESXi 6.7
Komputery referencyjne do pokazów i testów systemów:
Sigma OS:
Athlon 64 3800+ @ 2400Mhz Venice + chłodzenie Cooler Master
Abit AX8
2 GB Ram DDR Kingmax 400Mhz
Radeon X700
HDD 80 GB Seagate 7200.10 ATA
Sigma OS 3.0
Windows 98 i stare gry:
Pentium III Katmai @ 500Mhz Slot 1
Asus P2B-F
256MB Ram SDRAM 100Mhz
Nvidia Riva TNT2 Pro
Sound Blaster Live! 5.1
HDD 40GB Samsung
Windows 98 SE
DOS, Windows 3.11 i oprogramowanie 16 bitowe:
Pentium 166 Mhz (P54C)
Micronics M55HI-PLUS
64MB RAM EDO
S3 Trio64V2/DX 1MB
Sound Blaster Vibra 16C
HDD 3GB WD
DOS 6.22 + Windows 3.11
Komputery używane rzadziej lub zabytkowe:
Athlon XP (mój pierwszy pecet):
Athlon XP 2000+ (Thoroughbred-B) 1667 @ 2100Mhz + Thermaltake TR-2
Soltek SL-75DRV5-C (Wymienione kondensatory, thx SzymekRak)
1GB Ram DDR 333Mhz
Radeon 9600 Pro
Sound Blaster Live! 5.1
HDD 80GB Samsung
Windows XP
Tualatin:
Pentium III-S Tualatin 1400 @ 1606Mhz + Arctic Cooling Copper Silent 3
Asus TUSL2-C
512MB Ram SDRAM 133 @ 153Mhz
Geforce FX5200
Sound Blaster Live! 5.1
HDD 40GB WD
Windows XP
K6 + Voodoo:
AMD K6-2 @ 550Mhz
Acorp 5ALI61
256 MB Ram SDRAM 100 Mhz CL2
3dfx Voodoo Banshee 16MB
HDD 40 GB Seagate 7200.4 ATA
Windows 98
Optimus:
Celeron Coppermine 1000 @ 1120Mhz
Procomp BVD1M
256MB Ram SDRAM @ 145Mhz
GeForce 2 MX 32MB
HDD 20GB Samsung
Windows Me (oryginalna naklejka na obudowie i pudełko z płytą)
Compaq P3:
Compaq Deskpro EP
Pentium III 600Mhz Coppermine Slot 1
320 MB SDRAM 100Mhz
Matrox G200 8MB
HDD 20 GB Samsung
Windows 2000
Compaq P2:
Compaq Deskpro PD
Pentium II 400Mhz Slot 1
320 MB SDRAM 100Mhz
ATI Rage Pro 3D 6MB (4MB + SIMM 2MB)
HDD 6 GB Quantum
Windows NT4
Compaq P1:
Compaq Deskpro 5133
Pentium 166 Mhz (P54CS)
128 MB Ram EDO (w 6 slotach)
Cirrus Logic 5434 1MB
HDD 6GB Quantum
Windows NT 3.51
Gulipin Am5x86 DX4:
AMD Am5x86 133Mhz
Dataexpert EXP8449
32 MB Ram SIMM (72 pin)
S3 Trio 2MB
HDD 2 GB Seagate ATA
Windows 95a
486 DX4:
AMD 486 DX4 100 Mhz
Chicony CH-471A
16 MB Ram SIMM (72 pin)
Trident TGUI9400CXI 2MB VLB
HDD 2 GB Seagate ATA
Windows 95a
486 DX2:
Intel 486 DX2 66 Mhz
Biostar MB-1433FA
8 MB Ram SIMM (30 pin)
Tritent TVGA9000 512KB
HDD 504 MB Quantum ATA
DOS 6.22 + Win 3.11
Hyundai SUPER-386S/20L:
Intel 386SX 20Mhz
8 MB Ram SIMM (30 pin)
VGA 1MB
HDD 1TB Seagate ATA
DOS 6.22 + Win 3.11
286:
AMD 286 16Mhz
1MB RAM
Grafika EGA (Hercules Mode)
HDD 124MB ST3144AT
DOS 6.22 + Win 3.1
Do tego masa innych gratów.
Stacja robocza (główny pecet):
Core i7-12700K 3.6-5Ghz + Noctua NH-D15 Chromax LTT
Gigabyte Z690 GAMING X DDR4
32GB Ram HyperX Predator DDR4 3200Mhz CL16
GeForce RTX 4070 Gigabyte Gaming OC 12GB + 2x Dell P2416D
Kingston KC3000 2TB (OS)
Samsung 970 EVO Plus 2TB (Dane)
WD Red Plus 3TB (Archiwum)
Asus Xonar DGX
Asus ROG AREION 10G
MSI MPG A850G PCIE5 850W + SPC Armis AR7X TG RGB
Windows 11 Pro
Drugi pecet:
Core i7-11700K 3.6-5Ghz + SilentiumPC Fortis 5 Dual Fan
Gigabyte Z590 AORUS ULTRA
16GB Ram Corsair Vengeance LPX Black DDR4 3200Mhz CL16
GeForce GTX 1660 SUPER Gigabyte Gaming OC 6GB
Samsung 980 PRO 500GB (OS)
Crucial BX500 1TB (VM)
WD Red 3TB (Dane)
SPC Supremo FM2 750W + SPC Armis AR6 TG
Windows 11 Insider Canary
Retro PC do zabawy:
Xeon X5670 @ 4Ghz+ Pentagram Karakorum
GA-X58A-UD3R
18GB RAM Kingston DDR3 1333Mhz CL9 (3x2+3x4GB)
ATI Radeon 4850 1GB
WD Velociraptor 160GB (XP)
OCZ Vertex 4 128GB (Win 7)
2x WD Black 500GB RAID1 (Dane)
Creative Sound Blaster Audigy SE
Sharkoon Rebel 9 + OCZ StealthXStream 600W
Warsztatowy mini PC:
HP ProDesk 600 G3 Mini
Core i7-7700T 2,9-3.8Ghz
16GB RAM DDR4 2400Mhz
Intel HD Graphics 630
SSD Samsung 256GB NVMe
HDD 1GB Toshiba
Windows 10
Stacja do testowania dysków ATA, oraz zgrywania obrazu z karty TV:
Core 2 Duo E4700 @ 2,6Ghz
Gigabyte GA-945GCMX-S2
3GB Ram Kingston DDR2 533Mhz
GMA 950
HDD 500GB WD Black
Windows XP
Laptop:
Dell Latitude 5420
Core i5-1135G7
32GB Ram DDR4 3200Mhz
Intel Iris Xe
SSD Kingston A2000 1TB
Windows 11
Serwery:
TECHVORTAL-PROD + NAS
Xeon E5-2680v4 2,4Ghz (14 rdzeni, 28 wątków) + Noctua NH-U9DX i4
Supermicro X10SRi-F
128GB Ram DDR4 RDIMM 2400MHz (4x32GB)
Samsung PM981 256GB (ESXI Boot + Cache)
Samsung 970 Evo Plus 2TB NVMe (VM)
Intel 670p 2TB (Data)
HDD 4x 8TB WD Red Pro (RAID-Z1)
VMware ESXi 8.0/True NAS Scale VM
TECHVORTAL-TEST
Dell PowerEdge R720
2x Xeon E5-2650v2 2,6Ghz (2 CPU, 8 rdzeni, 16 wątków)
128GB Ram DDR3L ECC FB 1333MHz (16x8GB)
SSD Samsung 980 512GB
HDD 4x 1.2TB SAS Dell (PERC H710p RAID 10)
VMware ESXi 7.0
TECHVORTAL-BACKUP-OFFLINE
Dell PowerEdge R710
2x Xeon E5649 2,53Ghz (2 CPU, 6 rdzeni, 12 wątków)
48GB Ram DDR3 ECC FB 1333MHz (6x8GB)
SSD WD 256GB NVMe
HDD 8x 2TB SAS Dell (Perc H700 RAID 5)
VMware ESXi 6.7
Komputery referencyjne do pokazów i testów systemów:
Sigma OS:
Athlon 64 3800+ @ 2400Mhz Venice + chłodzenie Cooler Master
Abit AX8
2 GB Ram DDR Kingmax 400Mhz
Radeon X700
HDD 80 GB Seagate 7200.10 ATA
Sigma OS 3.0
Windows 98 i stare gry:
Pentium III Katmai @ 500Mhz Slot 1
Asus P2B-F
256MB Ram SDRAM 100Mhz
Nvidia Riva TNT2 Pro
Sound Blaster Live! 5.1
HDD 40GB Samsung
Windows 98 SE
DOS, Windows 3.11 i oprogramowanie 16 bitowe:
Pentium 166 Mhz (P54C)
Micronics M55HI-PLUS
64MB RAM EDO
S3 Trio64V2/DX 1MB
Sound Blaster Vibra 16C
HDD 3GB WD
DOS 6.22 + Windows 3.11
Komputery używane rzadziej lub zabytkowe:
Athlon XP (mój pierwszy pecet):
Athlon XP 2000+ (Thoroughbred-B) 1667 @ 2100Mhz + Thermaltake TR-2
Soltek SL-75DRV5-C (Wymienione kondensatory, thx SzymekRak)
1GB Ram DDR 333Mhz
Radeon 9600 Pro
Sound Blaster Live! 5.1
HDD 80GB Samsung
Windows XP
Tualatin:
Pentium III-S Tualatin 1400 @ 1606Mhz + Arctic Cooling Copper Silent 3
Asus TUSL2-C
512MB Ram SDRAM 133 @ 153Mhz
Geforce FX5200
Sound Blaster Live! 5.1
HDD 40GB WD
Windows XP
K6 + Voodoo:
AMD K6-2 @ 550Mhz
Acorp 5ALI61
256 MB Ram SDRAM 100 Mhz CL2
3dfx Voodoo Banshee 16MB
HDD 40 GB Seagate 7200.4 ATA
Windows 98
Optimus:
Celeron Coppermine 1000 @ 1120Mhz
Procomp BVD1M
256MB Ram SDRAM @ 145Mhz
GeForce 2 MX 32MB
HDD 20GB Samsung
Windows Me (oryginalna naklejka na obudowie i pudełko z płytą)
Compaq P3:
Compaq Deskpro EP
Pentium III 600Mhz Coppermine Slot 1
320 MB SDRAM 100Mhz
Matrox G200 8MB
HDD 20 GB Samsung
Windows 2000
Compaq P2:
Compaq Deskpro PD
Pentium II 400Mhz Slot 1
320 MB SDRAM 100Mhz
ATI Rage Pro 3D 6MB (4MB + SIMM 2MB)
HDD 6 GB Quantum
Windows NT4
Compaq P1:
Compaq Deskpro 5133
Pentium 166 Mhz (P54CS)
128 MB Ram EDO (w 6 slotach)
Cirrus Logic 5434 1MB
HDD 6GB Quantum
Windows NT 3.51
Gulipin Am5x86 DX4:
AMD Am5x86 133Mhz
Dataexpert EXP8449
32 MB Ram SIMM (72 pin)
S3 Trio 2MB
HDD 2 GB Seagate ATA
Windows 95a
486 DX4:
AMD 486 DX4 100 Mhz
Chicony CH-471A
16 MB Ram SIMM (72 pin)
Trident TGUI9400CXI 2MB VLB
HDD 2 GB Seagate ATA
Windows 95a
486 DX2:
Intel 486 DX2 66 Mhz
Biostar MB-1433FA
8 MB Ram SIMM (30 pin)
Tritent TVGA9000 512KB
HDD 504 MB Quantum ATA
DOS 6.22 + Win 3.11
Hyundai SUPER-386S/20L:
Intel 386SX 20Mhz
8 MB Ram SIMM (30 pin)
VGA 1MB
HDD 1TB Seagate ATA
DOS 6.22 + Win 3.11
286:
AMD 286 16Mhz
1MB RAM
Grafika EGA (Hercules Mode)
HDD 124MB ST3144AT
DOS 6.22 + Win 3.1
Do tego masa innych gratów.
-
TheMediator95
- Posty: 468
- Rejestracja: 29 kwie 2010, 10:35
- Kontakt:
Takie niuanse to mam zaplanowane że włożę do samouczka.lolasher pisze: albo w jakieś pomocy napisać takie niuanse.
@urban92 - spokojnie dopiero się rozkręcam.
Liczę że mi pomożecie ponieważ nie mam pojęcia jak zrobić w Procedurze powrót do Menu głównego gry (Dwie procedury dotyczące ustawień sterowania i grafiki). Ale nie ma się co przejmować, bo jak nie dam sobie z tym rady to po prostu wyrzucę to z procedury i napiszę normalnie w kodzie z odnośnikiem "Goto Menu;". Druga sprawa próbowałem wstawić do programu Datę i czas, tak aby aktualna data i czas był wyświetlany. Datę zrobiłem bez problemu (Chociaż nie do końca ponieważ jak ktoś będzie grał o godzinie 23.59 13.09.2012r to za minutę data się nie zmieni, podobnie mam z czasem dokładnie ten sam problem co z datą, tylko prędzej można go zauważyć bo minuta to chwila, a dzień to trochę dłużej niż minuta
![Trollface :trollface:](./images/smilies/trollface.gif)
-
lolasher
- Zasłużony użytkownik
- Posty: 2432
- Rejestracja: 10 paź 2008, 19:28
- Lokalizacja: Zadupie pod Siedlcami ;)
Programy dosowe są jednowątkowe, nic nie wymyślisz. Musiałbyś wstawić w tej pętli która sprawdza czy coś nacisnąłeś (musiałby być readkey, nie mógłbyś już używać readln, bo on zatrzymuje program) dodatkowy warunek o godzinie.
-
TheMediator95
- Posty: 468
- Rejestracja: 29 kwie 2010, 10:35
- Kontakt:
Znasz jakąś procedurę co liczy czas. Może chociaż uda mi się zrobić tą grę na czas, a później czas bym przeliczał na punkty.
-
lolasher
- Zasłużony użytkownik
- Posty: 2432
- Rejestracja: 10 paź 2008, 19:28
- Lokalizacja: Zadupie pod Siedlcami ;)
Napisz sobie :3
Mniej więcej w taki sam sposób jak mówiłem o godzinie.
A co do powrotu do menu. Nie myśl o powrocie do menu w procedurze, procedura jest tworem autonomicznym, ona ma mieć gdzieś istnienie jakiegoś tam menu. To menu ma być tak ułożone, żeby pętla, której nie masz sama wracała na początek do tego menu w odpowiednim momencie., I tak jak mówię, przejrzyj temat, bo mam wrażenie, że pc.qwerty coś takiego już chyba pisał.
Mniej więcej w taki sam sposób jak mówiłem o godzinie.
A co do powrotu do menu. Nie myśl o powrocie do menu w procedurze, procedura jest tworem autonomicznym, ona ma mieć gdzieś istnienie jakiegoś tam menu. To menu ma być tak ułożone, żeby pętla, której nie masz sama wracała na początek do tego menu w odpowiednim momencie., I tak jak mówię, przejrzyj temat, bo mam wrażenie, że pc.qwerty coś takiego już chyba pisał.
-
TheMediator95
- Posty: 468
- Rejestracja: 29 kwie 2010, 10:35
- Kontakt:
Ajjjć... A myślałem że jakoś uda mi się uniknąć pętli Repeat Until przez cały program. No nic to biorę się za usuwanie etykiet i instrukcji Goto, nie działającej w procedurze
. Może ogarnę. Tylko niech nikt nie mówi: "A nie mówiłem."
![Kwasny :kwasny:](./images/smilies/kwasny.gif)
-
jedrekk
- Administrator
- Posty: 1153
- Rejestracja: 01 sie 2008, 14:50
- Lokalizacja: Gdańsk/Gorzów Wielkopolski
- Kontakt:
A nie mówiłem?
Stacjonarka: Intel Core i9 9900 | MSI MEG Z390 ACE | 32 GB RAM DDR4 | AMD Radeon RX 6750 12 GB | Crucial P5 2TB M.2 | 2x Dell U2515H
MacBook Pro 16 2021: Apple M1 Pro 10C | 16 GB RAM DDR5 | Apple G13X | SSD 512GB
+ iPhone 13 Pro 128GB
MacBook Pro 16 2021: Apple M1 Pro 10C | 16 GB RAM DDR5 | Apple G13X | SSD 512GB
+ iPhone 13 Pro 128GB
-
TheMediator95
- Posty: 468
- Rejestracja: 29 kwie 2010, 10:35
- Kontakt:
Nie nie mówiłeś
- Pisałeś ![Trollface :trollface:](./images/smilies/trollface.gif)
![Cool :cool:](./images/smilies/cool.gif)
![Trollface :trollface:](./images/smilies/trollface.gif)
-
TheMediator95
- Posty: 468
- Rejestracja: 29 kwie 2010, 10:35
- Kontakt:
Nagraj się na mikrofonie i tu wyślij to wtedy uwierzę ![Wesoly :)](./images/smilies/smile.gif)
![Wesoly :)](./images/smilies/smile.gif)
-
PisarzKsiazkowicz
- Moderator
- Posty: 2149
- Rejestracja: 27 sty 2010, 7:53
A nie wspominałem?
-
TheMediator95
- Posty: 468
- Rejestracja: 29 kwie 2010, 10:35
- Kontakt:
Po dwóch dniach przerwy i analizy "Nakurwiacza" pc.qwertyego, nie jestem w stanie pojąć co muszę pozmieniać w swoim kodzie, aby przywrócić go do porządku. Nawet gdybym miał pisać program od zera to nie wiem jak to zrobić
.
![Smutny :(](./images/smilies/sad.gif)
Żeby zrealizować to zdanie, muszę posiadać wielką wyobraźnie, której jak na razie nie mamlolasher pisze:To menu ma być tak ułożone, żeby pętla, której nie masz sama wracała na początek do tego menu w odpowiednim momencie
![Smutny :(](./images/smilies/sad.gif)
Kto jest online
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 7 gości