Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 179230 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8094
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 46.0 Firefox 46.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1095 on: 2016.June.05. 14:57:01 »
Szóval akkor ilyesmit nem lehet? :(

Code: [Select]
310 IF A>50 THEN
320   LET X=X+2:LET W=W-2
330   IF Y<6 THEN GOTO 400
340   IF Y>=6 THEN GOTO 5400
350 END IF

Ezt máshogy megoldani azért eléggé macerás...
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Online Zozosoft

  • EP addict
  • *
  • Posts: 13531
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 46.0 Firefox 46.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1096 on: 2016.June.05. 15:22:40 »
Lehetni lehet, csak randa :-) GOTO nem is kell, THEN után mehet a sorszám.

Online Zozosoft

  • EP addict
  • *
  • Posts: 13531
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 46.0 Firefox 46.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1097 on: 2016.June.05. 15:23:44 »
mert nem szabadít fel szabályosan lefoglalt erőforrásokat, ami később nem várt program működést eredményezhet.
Az EP-s GOTO az takarít, ezért lehetett felhasználni a hibás EXT hibájának javítására.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8094
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 46.0 Firefox 46.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1098 on: 2016.June.05. 15:33:00 »
Lehetni lehet, csak randa :-) GOTO nem is kell, THEN után mehet a sorszám.
Nem akad ki a program később sem, ha ezen a részen, amit beraktam, többször átmegy? Csak a ciklusokkal kell vigyázni, az eljárásokkal nem? (A FOR...NEXT az ciklus, az IF..THEN eljárás, ahogy tudom.)
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 51.0.2704.63 Chrome 51.0.2704.63
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1099 on: 2016.June.14. 17:16:26 »
specy karakter editor weben, tök jó, alul kiírja a sorokat decimálisan
csak a 9. sor hiányzik :)
http://www.amelyn.com/speccy_character_builder/index.htm
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8094
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 47.0 Firefox 47.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1100 on: 2016.July.31. 01:08:18 »
Régen kezdtem írni ezt a programot, a Hamika érdekesen továbbfejlesztett verziója (Snake Traffic Controller, hehehe), de még eléggé kezdetleges. A lényeg, hogy a kukacnak csak egy karakter széles járat van, ami elágazik több felé, az elágazások között kapuk vannak, melyeket át kell kapcsolni, hogy a megfelelő irányba menjen a kukac. A kukacot nem lehet irányítani, arra megy, amerre út van, amerre nyitva a kapu.
Eléggé kezdetleges, félkész állapotban van a program. Többször akartam folytatni, de valahogy sose jutottam hozzá. A játéktér is teszt jellegű, azért vannak körben számok is, hogy a kapuk koordinátáit jobban ki lehessen kísérletezni.
A kapukat a funkcióbillentyűkkel lehet átkapcsolgatni, kb. 6 lehetséges állása van mindegyik kapunak. A kapu mellett oda van írva, hogy melyik funkcióbillentyű kapcsolja át. Ez is egy kérdés, hogy jó-e a gombokkal kapcsolgatás, vagy kurzorral kéne ugrálni a kapuk között és úgy kapcsolgatni az aktuálisat.
A játék ötlete onnan jött, hogy azon gondolkodtam, a Traffic és a Hamika programot hogyan lehetne valahogy összegyúrni.

* snaketraffic_v000.ep128s (192.77 kB - downloaded 66 times.)
* stc2.zip (6.62 kB - downloaded 60 times.)
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 51.0.2704.106 Chrome 51.0.2704.106
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1101 on: 2016.August.02. 18:32:08 »
na jó lesz ez, valami kis játék lehet belőle
hányas szám van kiírva? :)
Vigyázat! Szektás vagyok! :)

Online geco

  • EP addict
  • *
  • Posts: 5430
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
Re: BASIC
« Reply #1102 on: 2016.August.02. 20:51:10 »
na jó lesz ez, valami kis játék lehet belőle
hányas szám van kiírva? :)
mondjuk a nyerő lottó számok ? :D
0122 ? :)

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 52.0.2743.82 Chrome 52.0.2743.82
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1103 on: 2016.August.26. 20:19:34 »
ez nem tudom mi, a 2048 játék alapján akarok valami újat kitalálni
mivel xor-al rakja ki az elemeket, ezért ha egymásra kerülnek, eltűnnek
valamit majd kihozok ebből, ha lesz ötletem :)
Vigyázat! Szektás vagyok! :)

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 52.0.2743.82 Chrome 52.0.2743.82
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1104 on: 2016.August.27. 17:59:28 »
különböző formákkal... a cél az lenne hogy egy megadott mintát megcsinálj
pl a mellékelt snapshottal a mellékelt képen láthatót
Vigyázat! Szektás vagyok! :)

Offline Povi

  • EP addict
  • *
  • Posts: 1875
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 49.0 Firefox 49.0
    • View Profile
    • http://povi.fw.hu
Re: BASIC
« Reply #1105 on: 2016.November.16. 23:25:54 »
érdekes ez a BASIC

nézd a képet.

azt hinné az ember, hogy végtelen ciklusba kerül, de nem.
Az A változó értékét elmenti a legelején, és ahhoz hasonlítja az I-t, hiába változik közben az A értéke.

*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 1875
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 49.0 Firefox 49.0
    • View Profile
    • http://povi.fw.hu
Re: BASIC
« Reply #1106 on: 2016.November.17. 09:01:51 »
érdekes ez a BASIC

nézd a képet.

azt hinné az ember, hogy végtelen ciklusba kerül, de nem.
Az A változó értékét elmenti a legelején, és ahhoz hasonlítja az I-t, hiába változik közben az A értéke.

értem, hogy miért így csinálja, csak azon gondolkodok, hogy ez bug, vagy feature? :-)
az A értékét a FOR ciklus elején kiértékeli, és elmenti a verembe
az összehasonlításkor meg már nem az A-hoz hasonlítja az I-t, hanem a veremben tárolt értékhez, ami ugye állandó, hiába változott meg közben az A értéke
*** Speicherplatz zu klein

Online geco

  • EP addict
  • *
  • Posts: 5430
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
Re: BASIC
« Reply #1107 on: 2016.November.17. 10:03:54 »
Nézőpont kérdése, szerintem bug, mert mi van ha egy változó értékhez akarod állítani a ciklus végét, viszont mennyire lenne ennek értelme, vagy milyen sűrűn lenne ez használt?

Online geco

  • EP addict
  • *
  • Posts: 5430
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
Re: BASIC
« Reply #1108 on: 2016.November.17. 10:07:55 »
Leteszteltem REXX-ben, ott is ugyanígy műxik, a végérték A le lett tárolva, és csak 5x fut le a ciklus, úgy fest ez a normális eljárás.

Code: [Select]
/*REXX*/  
A=5        
DO I=1 TO A
  A=A+1    
  SAY I    
END        

És Speccy basicben is ugyanez az eredmény :)
« Last Edit: 2016.November.17. 10:11:12 by geco »

Online Zozosoft

  • EP addict
  • *
  • Posts: 13531
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 50.0 Firefox 50.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1109 on: 2016.November.17. 10:08:29 »
egy változó értékhez akarod állítani a ciklus végét
Ha ilyet akarsz arra ott a DO/LOOP WHILE/UNTIL.