home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma91.dms / ma91.adf / Choice / Choice.doc < prev    next >
Encoding:
Text File  |  1997-07-16  |  1.6 KB  |  64 lines
  1.                  Dokumentacja do programu Choice
  2.  
  3. Program Choice, jest programem typu FreeWare. Przeznaczonym do
  4. wybierania opcji z klawiatury, moûe tîumaczenie jest dosyê zawiîe
  5. dodam tylko ûe program ten jest odpowiednikiem programu o tej
  6. samej nazwie, urzywanym w MS-DOSie na PCecie.
  7.  
  8. Uûytkownik jako argument dla tegoû programu uûywa ciâgu znaków
  9. np. 'abcd', a nastëpnie program czeka na wprowadzenie, którejô
  10. z wyûej wymienionych liter. Numer wprowadzonego znaku jest
  11. zapisywany w zmiennej lokalnej o nazwie $num.
  12.  
  13. Przykîad choice abcd
  14. wprowadziîem literë 'd', zmienna num przyjmuje wartoôê 4, poniewaû
  15. litera 'd' jest czwartâ z kolej we wprowadzonym ciâgu liter
  16. 'abcd'. Istnieje jeszcze drugi argument, bëdâcy przeîâcznikiem
  17. o nazwie 'COM'. Sîuûy on do wprowadzenia komentarza w rodzaju:
  18. 'Wybierz klawisz - abcd'. Gdy umieôcimy ten przeîâcznik, komentarz
  19. pojawi sië, a program bëdzie czekaî na wprowadzenie znaku.
  20. Gdy uûytkownik wprowadzi znak inny niû wczeôniej zdefiniowany, to
  21. zmienna $num przyjmie wartoôê 0.
  22.  
  23. W pliku choice.e jest zamieszczony kod úródîowy programu w jëzyku
  24. Amiga E v3.0+
  25.  
  26. Oto przykîadowy skrypt z uûyciem powyûszej komendy:
  27.  
  28. Echo "a - dir ; b - list ; c - newshell ; ? - avail"
  29. DH4:dos_extend/choice abc COM
  30. IF VAL $num EQ 0
  31.   Echo "Pozycja deflaudowa"
  32.   avail
  33.   skip koniec
  34. ENDIF
  35.  
  36. IF VAL $num EQ 1
  37.   Echo "Wybraîeô a"
  38.   skip pierwsza
  39. ENDIF
  40.  
  41. IF VAL $num EQ 2
  42.   Echo "Wybraîeô b"
  43.   skip druga
  44. ENDIF
  45.  
  46. IF VAL $num EQ 3
  47.   Echo "Wybraîeô c"
  48.   skip trzecia
  49. ENDIF
  50.  
  51. lab pierwsza
  52.   Dir
  53.   skip koniec
  54.  
  55. lab druga
  56.   list
  57.   skip koniec
  58.  
  59. lab trzecia
  60.   newshell
  61.   skip koniec
  62.  
  63. lab koniec
  64.