Пятница, 29.03.2024, 15:06
Приветствую Вас Гость

Nikitich Systems

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nikitich_Systems, Chez  
Форум » Разное » Программирование » Приколы на QB (Прикольные прораммы на Quick Basic)
Приколы на QB
geloДата: Суббота, 26.09.2009, 19:06 | Сообщение # 1
Рядовой
Группа: Юзверь
Сообщений: 1
Награды: 0
Репутация: 2
Статус: Offline
Внимание!!! Все программы интерпритируются в средах Quick Basic и QBasic (!!!). Если у тебя не работает ты быдло и мудло!!!

Програмы написаны gelo в качестве разминки перед кодингом.

Хуйня первая

Надеюсь все знают зачем сочетание клавишь ctrl + Pause Break

Code
DECLARE SUB fac ()
CLS
fac
DO
a$ = INKEY$
  IF a$ <> "" THEN
    CLS
    PRINT "объебись ублюдок: выхода нет"
    SLEEP 1
    CLS
    fac
    a$ = ""
  END IF
LOOP

SUB fac
  PRINT "          _-_"
  PRINT "         |   |"
  PRINT "         |---|"
  PRINT "         |   |"
  PRINT "         |   |"
  PRINT "         |   |"
  PRINT "         |   |"
  PRINT "         |   |"
  PRINT " _-_._-_.|   |._-_"
  PRINT "|                 |"
  PRINT "|                 |"
  PRINT "|                 |"
  PRINT " |               |"
  PRINT "  _______________"
END SUB

Хуйня вторая

Code

DATA "хуй","пиздюк","пидарюга","уебок","гандон","хуесос","блядина","хуйлоног","и всё это ты:)","пиздабол"
DIM i AS INTEGER
DIM col AS INTEGER ' цвет
DIM str(10) AS STRING ' массив со словеми
DIM s AS STRING
DIM x AS INTEGER
DIM y AS INTEGER
FOR i = 1 TO 10 ' загуржаем в массив слова из блока днных
  READ s: str(i) = s
NEXT i
'//-------------------------------------------------------
CLS

DO
  col = INT(RND(1) * 16)
  x = 1 + INT(RND(1) * 80)
  y = 1 + INT(RND(1) * 23)
  i = INT(RND(1) * 11)
  COLOR col
  LOCATE y, x
  PRINT str(i)
  SLEEP 1
  a$ = INKEY$
LOOP UNTIL a$ <> ""

FOR i = 1 TO 10 * 80
  col = INT(RND(1) * 16)
  COLOR col
  PRINT "ты"; " ";
NEXT i
SLEEP 1
CLS
FOR i = 1 TO 10 * 80
  col = INT(RND(1) * 16)
  COLOR col
  PRINT "всё"; " ";
NEXT i
SLEEP 1
CLS
LOCATE 10, 35
PRINT "ты всё!!!"

Помни все рабочее, если ты считаешь иначе ты быдло и мудло!!!

",,,,,,,,,,,,,,,,,,,,,,,,,,,,,," марш по местам.

Этис атис аниматис, коректор арфографикс автоматикс

 
Форум » Разное » Программирование » Приколы на QB (Прикольные прораммы на Quick Basic)
  • Страница 1 из 1
  • 1
Поиск: