Welcome, Guest. Please login or register.


Author Topic: Általános BASIC Kérdések (Read 423756 times)

Offline nyuzga

  • EP addict
  • *
  • Posts: 2280
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #75 on: 2008.November.27. 19:35:29 »
Tessék:

Köszönöm.
A haverom évekig szórakozott ezzel programmal. Az a mániája hogy kiszeretné íratni a lottó összes variációját, pedig még lottót sem vett soha. :lol:

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #76 on: 2008.November.27. 21:38:11 »
shift+3 (német gépen kereszt, angol gépen fontjel. Az egyik fontos, a másik keresztes. :D )
Lehet, nem voltam világos. Szóval ha fontot írsz a csatornaszám elé, az egyenértékû a kereszttel, tehát ha az van a shift+3-ason, akkor azzal fog mûködni.
Egyébként szerintetek van olyan PC-s basic, amibe aránylag könnyû az IS-BASIC-bõl "átírni" egy programot?
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline vizor

  • EP fan
  • *
  • Posts: 238
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #77 on: 2008.November.27. 22:06:52 »
Quote
Egyébként szerintetek van olyan PC-s basic, amibe aránylag könnyû az IS-BASIC-bõl "átírni" egy programot?

Ha MSDOS-os idõk lennének, azt mondanám GWBASIC. Az elsõ 386-osomon rögtön azt használtam és elég könnyû volt az IS-BASIC után. Még ajánlanám a Turbo Basic-ot is, könnyû volt az is. Egyszer a melóhelyemen unatkoztam, semmi nem volt a gépeken és Turbo Basicban összedobtam egy egyszerû karakteres lövöldözõs játékot, pusztán a help alapján (ne gondolj valami nagy dologra, "A" betû lõtte a "B" betût  :ds_icon_cheesygrin:).

Ha viszont érted a progi mûködését, akkor akármilyen BASIC-ba berakod, akár Visual Basic-ba is.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #78 on: 2008.November.28. 00:35:28 »
Ha viszont érted a progi mûködését, akkor akármilyen BASIC-ba berakod, akár Visual Basic-ba is.
Akkor ha írtam egyszer EP-re basic-ben egy programot, akkor azt elméletileg könnyen meg tudnám írni valami PC-s basic-ben is?
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline vizor

  • EP fan
  • *
  • Posts: 238
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #79 on: 2008.November.28. 00:43:47 »
Elméletileg igen. Sok utasítás ugyanaz, a FOR ott is FOR, vagy csak kicsit tér el pl. értékadás, ugrások. A speciális dolgok, pl képernyõre írás, fájlkezelés, stb. amit újra kell tanulni. Persze ezzel nagyon leegyszerûsítettem a dolgot...

Amikor régen Turbo Pascalt tanultam a PC-n mániám volt, hogy elõszedtem régi SPV-ket meg EnterPress-eket és átírkáltam a basic programokat  :) Pl. volt az a jellegzetes progi, ami egy kalapszerû ábrát rajzolt legalább egy félóráig. Na azt pascalban pár másodperc alatt generálta a gép én meg nagyon örültem  :ds_icon_cheesygrin:

Offline vizor

  • EP fan
  • *
  • Posts: 238
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #80 on: 2008.November.30. 21:53:35 »
Quote from: szipucsu
Akkor ha írtam egyszer EP-re basic-ben egy programot, akkor azt elméletileg könnyen meg tudnám írni valami PC-s basic-ben is?

Egy példa:

EP128-as basic program (Tippek és Trükkök könyvbõl):

100 !grafikus kepernyore villogo szoveg
110 GRAPHICS 16
120 FOR X=0 TO 26 !sinusgorbe
130 LET V=45*X+50:LET F=240+240*SIN(X*PI/12)
140 SET INK RND(7)+1:PLOT V,F;
150 NEXT
160 PLOT V,F,
170 LET A$="ENTERPRISE128"
180 FOR X=0 TO 12 !a$ hullamvonalu kiirasa
190 LET F=400+230*SIN(X*PI/6)
200 SET INK RND(7)+1:PLOT 90*X,F,
210 PRINT #101:A$(X+1)
220 NEXT
230 GOTO 180

Ugyanaz a program csak PC-s QBasic-ban (a DOS6.22-ben alapban benne van vagy letölthetõ a fordító):

' grafikus kepernyore villogo szoveg
RANDOMIZE TIMER ' ora alapjan general veletlenszamot
SCREEN 9 ' EGA 640x350x16
' sinusgorbe
PI = 3.14
V1 = 56
F1 = 175
FOR X = 0 TO 25
 V2 = 56 + (20 * X)
 F2 = 175 + (70 * SIN((X * 14) * (PI / 180)))
 LINE (V1, F1)-(V2, F2), INT(RND * 15) + 1
 V1 = V2
 F1 = F2
NEXT
' a string hullamvonalu kiirasa
A$ = "ENTERPRISE128"
DO
FOR X = 1 TO 13
 COLOR INT(RND * 15) + 1
 LOCATE 10 + (5 * SIN((X * 28) * (PI / 180))), 5 + (X * 5)
 PRINT MID$(A$, X, 1)
NEXT
LOOP UNTIL INKEY$ = CHR$(27) ' ESC lenyomasaig csinalja

Szerk: a QBasic simán fut XP alatt

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #81 on: 2008.November.30. 23:25:18 »
Egy példa:
Nagyon szokatlan, hogy nincs a soroknak száma. Így a GOTO-t sem lehet használni. Persze valamirevaló programozónak ez nem is nagyon kell állítólag. :D
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline MrPrise

  • Administrator
  • EP addict
  • *
  • Posts: 2755
  • Country: hu
    • Enterprise Forever
Re: Általános BASIC Kérdések
« Reply #82 on: 2008.November.30. 23:28:59 »
Nagyon szokatlan, hogy nincs a soroknak száma. Így a GOTO-t sem lehet használni. Persze valamirevaló programozónak ez nem is nagyon kell állítólag. :D
A sorok számozása csak a nagyon basic (alap) basic-ekben szokásos. Egyébként sorszám nélkül is van goto, csak címkével, hasonlóan az assembly-ben lévő címkékhez.

Offline vizor

  • EP fan
  • *
  • Posts: 238
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #83 on: 2008.November.30. 23:37:13 »
Quote from: MrPrise
Quote from: szipucsu
Nagyon szokatlan, hogy nincs a soroknak száma. Így a GOTO-t sem lehet használni. Persze valamirevaló programozónak ez nem is nagyon kell állítólag.
A sorok számozása csak a nagyon basic (alap) basic-ekben szokásos. Egyébként sorszám nélkül is van goto, csak címkével, hasonlóan az assembly-ben lévõ címkékhez.

Igen, van benne címkés GOTO:

VALAMI
eleje
DOLOG1
DOLOG2
GOTO eleje

Csak én direkt DO-LOOP-al csináltam szipucsu, hogy szoktasd magad a strukturális programozás gondolatához  :) Ettõl függetlenül használhatod ugyanúgy a GOTO-t, sõt GOSUB is van még a normál függvény és procedure hívások mellett...  :)  Egyik haverom kedvenc mondása volt: " Az igazi programozó nem fél a GOTO-tól..."  :ds_icon_cheesygrin: :ds_icon_cheesygrin: :ds_icon_cheesygrin:

Offline nyuzga

  • EP addict
  • *
  • Posts: 2280
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #84 on: 2008.December.01. 00:19:20 »
Egy példa:

EP128-as basic program (Tippek és Trükkök könyvbõl):

Beraktam a programodat EBBE de valami baja van a screennel. Bár én hülye vagyok a basichoz. :lol:

Offline vizor

  • EP fan
  • *
  • Posts: 238
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #85 on: 2008.December.01. 00:24:31 »
Quote from: nyuzga
Beraktam a programodat EBBE de valami baja van a screennel.
Hát ez elég tág fogalom, attól függ, mit raktál mibe  :ds_icon_cheesygrin: Az elsõ lista EP IS-BASIC, emulátorban kipróbálva (EP32). A második QBasic, tele van spec. Microsoft féle cél-utasítással mint pl a Screen. Eddig még nem láttam PC-n két egyforma BASIC-ot amiben lett volna két egyforma grafikus pontkirakó utasítás  :)

Offline nyuzga

  • EP addict
  • *
  • Posts: 2280
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #86 on: 2008.December.01. 00:27:09 »
Hát ez elég tág fogalom, attól függ, mit raktál mibe  :ds_icon_cheesygrin: Az elsõ lista EP IS-BASIC, emulátorban kipróbálva (EP32). A második QBasic, tele van spec. Microsoft féle cél-utasítással mint pl a Screen. Eddig még nem láttam PC-n két egyforma BASIC-ot amiben lett volna két egyforma grafikus pontkirakó utasítás  :)

A Qbasic-be futott szép színes szinuszgörbét láttam
Gondoltam hátha ezzel is fut, de nem. :lol:
Pedig milyen szépen tud rajzolni. :)
[ Guests cannot view attachments ]
« Last Edit: 2008.December.01. 00:36:28 by nyuzga »

Offline vizor

  • EP fan
  • *
  • Posts: 238
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #87 on: 2008.December.01. 00:48:15 »
Szépnek szép  :)

Ha hirtelen ilyen ábrát tudtam volna rajzolni az EP-en, akkor ilyen listát csapok össze  :ds_icon_cheesygrin: Errõl a BASIC-ról nem hallottam még, bár nem vagyok BASIC párti, a Delphi-vel jól elvagyok.

Errõl jut eszembe. Ha összehasonlítjuk a különbözõ gépek különbözõ BASIC nyelveit akárhány bites, nekem feltûnik valami. A fejlesztõk igyekeztek a szótárból kikeresni a lehetõ legtöbb féle szinonímát egy parancsra, nehogymár ugyanaz legyen mint a többi. Pl. a grafikus pont kirakása: PLOT, DRAW, PIXEL, PUTPIXEL, DRAWPIXEL, POINT... :) A paraméterezésrõl nem is beszélve. Nem egy univerzális nyelv, az biztos.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #88 on: 2008.December.01. 01:32:31 »
Valahogy eszembe jutott, hogy egy újságban közölt BASIC programban ha nem kérünk újabb játékot, a gép újraindul. Ezt furcsa módon a SPOKE 255,16380,0 után kiadott TEXT utasítással tette a program. "Apró" szépséghibája, hogy a memóriateszt után nem jelenik meg az ENTERPRISE felirat, hanem fagyi van. Igazi gépen az EXOS... TESTING legvégén megáll és a képernyõ elkezd csíkozódni.
Az emulátorok is ugyanígy viselkednek, szóval tuti a BASIC program írója végzett félmunkát. Pontosabban az emulátoroknál nincs képernyõcsíkozás, csak fagyás, ez érdekes, nem tudom, mi lehet az oka.

Még érdekesebb, hogy amikor Zozó 2.3-as EXOS-át használjuk, akkor a hevenyészett akció után ilyen memóriateszt következik (emulátoron legalábbis):
[ Guests cannot view attachments ]
Zozó, ilyet láttál már? :D

Szerk.: Bocs, közben rájöttem, az EXOS 2.3-ban is lehet az E-vel eredeti memóriatesztet kérni.

« Last Edit: 2008.December.01. 01:40:16 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Általános BASIC Kérdések
« Reply #89 on: 2008.December.01. 09:07:18 »
A sorok számozása csak a nagyon basic (alap) basic-ekben szokásos. Egyébként sorszám nélkül is van goto, csak címkével, hasonlóan az assembly-ben lévõ címkékhez.
Maradjunk abban, hogy az igazi BASIC az sorszámos, és interpreteres. A többi az csak amolyan utánzat :-)