Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: примеры на подпрограмму в qbasic Добавлено: 26.01.09 08:45  

Автор вопроса:  Daler
создание программ на подрограмму

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
  Профиль | | #1 Добавлено: 26.01.09 08:59
не совсем корректный вопрос. нужен пример вызова подпрограммы?
вот из его же примеров:
  1. ' *** DEFSG_EX.BAS ***
  2. '
  3. DECLARE SUB CapsOn ()
  4. DECLARE SUB CapsOff ()
  5. DECLARE SUB PrntMsg (R%,C%,M$)
  6.  
  7. CLS
  8. CapsOn
  9. PrntMsg 24,1,"<Caps Lock On>"
  10. LOCATE 12,10
  11. LINE INPUT "Enter a string (all characters are caps): ",S$
  12. CapsOff
  13. PrntMsg 24,1,"              "
  14. PrntMsg 25,1,"Press any key to continue..."
  15. DO WHILE INKEY$="" : LOOP
  16. CLS
  17. END
  18.  
  19. SUB CapsOn STATIC
  20. ' Turn Caps Lock on
  21.    ' Set segment to low memory
  22.    DEF SEG = 0
  23.    ' Set Caps Lock on (turn on bit 6 of &H0417)
  24.    POKE &H0417,PEEK(&H0417) OR &H40
  25.    ' Restore segment
  26.    DEF SEG
  27. END SUB
  28.  
  29. SUB CapsOff STATIC
  30. ' Turn Caps Lock off
  31.    DEF SEG=0
  32.    ' Set Caps Lock off (turn off bit 6 of &H0417)
  33.    POKE &H0417,PEEK(&H0417) AND &HBF
  34.    DEF SEG
  35. END SUB
  36.  
  37. SUB PrntMsg (Row%, Col%, Message$) STATIC
  38. ' Print message at Row%, Col% without changing cursor
  39.    ' Save cursor position
  40.    CurRow%=CSRLIN : CurCol%=POS(0)
  41.    LOCATE Row%,Col% : PRINT Message$;
  42.    ' Restore cursor
  43.    LOCATE CurRow%,CurCol%
  44. END SUB

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам