Welcome, Guest. Please login or register.


Recent Posts

Pages: [1] 2 3 4 5 6 7 8 ... 10
1
Nem lenne szebb, és jóval tömörebb, ha a paletta beállítás is ciklisban menne, és a színeket DATA-ból olvasná a progi?
Így nagyon hosszú, legalábbis az én szememnek :D
2
Soronként változtatható palettájú attribútum képernyő beállítása. 24 soros, de könnyen beállítható más is.
Írni rá nem a PRINT #csat,AT sor,oszlop:, hanem a PRINT #sor, AT 1,oszlop: tud.
Letörölni az egészet nem tudja a CLEAR #csat önmagában, hanem ott van a DEF CLS eljárás erre.
Ha nem attribútum képernyő kell, akkor a SET VIDEO MODE és SET VIDEO COLOR után mást is meg lehet adni.
Szöveges lapoknál a kurzor kikapcsolására is szükség lehet.
(A megfelelő színeket még be kell állítani, a programban az adatok csak tájékoztató jellegűek.)

Code: [Select]
7000 DEF VIDEO_INI
 7005   SET VIDEO Y 1:SET VIDEO X 40
 7010   SET VIDEO COLOR 0:SET VIDEO MODE 15
 7015   FOR X=1 TO 24 !27
 7020     OPEN #X:"video:"
 7025     DISPLAY #X:AT X FROM 1 TO 1
 7030     !SET #X:PALETTE BLACK,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7035   NEXT
 7040   SET #1:BIAS 24
 7045   SET #1:PALETTE 52,255,14,25
 7050   SET #2:PALETTE 180,255,14,25
 7055   SET #3:PALETTE 52,255,14,25
 7060   SET #4:PALETTE 164,255,14,25
 7065   SET #5:PALETTE 36,255,14,25
 7070   SET #6:PALETTE 4,255,14,25
 7075   SET #7:PALETTE 4,255,14,25
 7080   SET #8:PALETTE 32,254,14,25
 7085   SET #9:PALETTE 32,254,14,25
 7090   SET #10:PALETTE 32,254,14,25
 7095   SET #11:PALETTE 52,255,14,25
 7100   SET #12:PALETTE 180,255,14,25
 7105   SET #13:PALETTE 52,255,14,25
 7110   SET #14:PALETTE 164,255,14,25
 7115   SET #15:PALETTE 36,255,14,25
 7120   SET #16:PALETTE 4,255,14,25
 7125   SET #17:PALETTE 4,255,14,25
 7130   SET #18:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7135   SET #19:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7140   SET #20:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7145   SET #21:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7150   SET #22:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7155   SET #23:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7160   SET #24:PALETTE 32,223,BLACK,GREEN,BLACK,GREEN,BLACK,RED
 7165   !SET #25:PALETTE 32,254,14,25
 7170   !SET #26:PALETTE 32,254,14,25
 7175   !SET #27:PALETTE 32,254,14,25
 7180 END DEF
 7200 DEF CLS
 7205   FOR X=24 TO 1 STEP-1  !27 TO
 7210     CLEAR #X
 7215   NEXT
 7220 END DEF
3
Hardver / Re: Milyen EP konfigod van?
« Last post by Zozosoft on Today at 13:01 »
A kétsoros hüvely nem fért bele, lehet a kínaiak hibája.
Valószínű. Úgy kb 25-30 gépbe raktam már ramot, és mindbe simán bement a kétsoros.
4
Hardver / Re: Milyen EP konfigod van?
« Last post by szorítókéz on Today at 11:49 »
Érdekes, én két egysoros hüvelysort raktam be, az tudott kicsit billenni. A kétsoros hüvely nem fért bele, lehet a kínaiak hibája.
5
BASIC / Re: BASIC program beíró feladatok?
« Last post by Tutus on Today at 09:29 »
Igen, Enditől rengeteg jó példa van itt:
https://www.facebook.com/groups/112679608813524
Igen, de Kapitánynak erre a linkre valamiért ezt dobja a buta face...
Most már mindegy, lassan indul a Regamex :)
6
Hardver / Re: Milyen EP konfigod van?
« Last post by Judge on Today at 08:17 »
Eddig senki nem írta, hogy az alaplapon a lyuksor távolsága nagyobb 0.1 in-nél, így nem fér bele a dupla tüskesor.

Érdekes, :smt017  nekem befért...

[ Guests cannot view attachments ]

[ Guests cannot view attachments ]
7
BASIC / Re: QUIZ motor
« Last post by geco on Yesterday at 22:48 »
Hogy a hosszú sorokat ne a szó közepén törje szét, hanem a szóköznél.
Hat, ha csak emiatt, akkor ezt is egyszeruen ki lehet kuszobolni, legyen minden data sor hossza max 40 karakjer, es lehet kotojelezni is, szebben is fog kinezni, es nem lesz a szoveg 39, vagy 38 karakter szelessegre limitalva egy sorban, es egy-egy hosszu tulcsordulo szonal se marad ur a sor vegen.
8
BASIC / Re: QUIZ motor
« Last post by szipucsu on Yesterday at 22:41 »
De ez a SYNC-es megoldás ez kicsit fejvakarós azért... :D
Pár éve (2017? 2018?) volt szó egy Enterpressben a SYNC használatáról részletesen. A lényeg, ahány csatornát akarunk egyszerre megszólaltatni, annyi mínusz egyet kell beírni a SYNC után. (Lásd még itt az aláírásomban is.)

Quote
100 PROGRAM QUIZ
Ez így szerintem értelmetlen, nem csinál semmit. Helyette ez jó:

Code: [Select]
100 PROGRAM "QUIZ"vagy még jobb a hagyományaink miatt:
Code: [Select]
100 PROGRAM "QUIZ.BAS"
Arra jó a PROGRAM utasítás, hogy ha SAVE-vel mentünk, akkor nem kell megadni nevet, mert a PROGRAM után megadott néven menti a programot, de ehhez ott idézőjelbe kell tenni a nevet. Az nevet, aki (utoljára) "idézőjelbe teszi" a nevet.
9
BASIC / Re: QUIZ motor
« Last post by szipucsu on Yesterday at 22:24 »
Lehet naiv kérdés, de miért kell annyira az editor?
Hogy a hosszú sorokat ne a szó közepén törje szét, hanem a szóköznél.
10
BASIC / Re: QUIZ motor
« Last post by geco on Yesterday at 21:44 »
Lehet naiv kérdés, de miért kell annyira az editor?
Ha csak szövegbevitelre, akkor az veszélyes is lehet szerintem, ha a user elkezd marhaságokat gépelni, és viszonylag eccerűen helyettesíthatő GET A$-ral szerintem.
Pages: [1] 2 3 4 5 6 7 8 ... 10