Welcome, Guest. Please login or register.


Author Topic: Hasznos kis Basic programok (Read 639 times)

Offline endi

  • EP addict
  • *
  • Posts: 7017
  • 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 49.0.2623.87 Chrome 49.0.2623.87
    • View Profile
    • Honlapom
Hasznos kis Basic programok
« on: 2016.April.14. 15:49:15 »
Kisebb hasznos programokat ide gyűjthetnénk, amik beépíthetők más fejlesztésekbe.
Pl itt van mindjárt ez a nagy szám kiíró.

A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline szipucsu

  • EP addict
  • *
  • Posts: 7669
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 65.0 Firefox 65.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Hasznos kis Basic programok
« Reply #1 on: 2019.March.11. 23:23:03 »
Játékok pontszámtábláját sorba rendező program: * scores.bas (2.17 kB - downloaded 11 times.)
Szobatiszta input rutinnal (csak betűket fogad el, valamint az erase, enter billentyűket), pontszámtábla kimentéssel, betöltéssel.
32000 a maximális pontszám, a Zzzip által kezelhető legnagyobb szám miatt.
A Felhasználói kézikönyvben lévő, 10 számot nagyság szerint sorba rendező program elvén működik. A pontszámot stringgé alakítja úgy, hogy 5 számjegyű legyen, az elején nullákkal kiegészítve, ha kell. Ehhez hozzáfűzi a beírt nevet. Ennek az egész stringnek egyben 20 karakter hosszúnak kell lennie, mert a sorbarendezés a karakter hosszát is figyelembe veszi. Ha nincs meg a 20 karakternyi hossz, a végére pontokat tesz (így mutat jól a pontszámtáblában). A pontszámtábla kiírásánál szétszedi a stringet, az elején lévő pontszámot a végére teszi és külön írja ki.
Biztos meg lehet csinálni szebben, egyszerűbben is. Akinek van ötlete, módosíthatja.

UI: A pontszámtábla betöltése után még ki kellene adni, hogy
LET MIN_SCORE=VAL(TOP$(10))
(Tudni kell, mennyi a legrosszabb eredmény a pontszámtáblán, mert ha annál kevesebbet érünk el, akkor nem hívja meg a névbeírós-sorbarendezős eljárást.)
« Last Edit: 2019.March.11. 23:31:28 by szipucsu »
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