Горячее
Лучшее
Свежее
Подписки
Сообщества
Блоги
Эксперты
Войти
Забыли пароль?
или продолжите с
Создать аккаунт
Я хочу получать рассылки с лучшими постами за неделю
или
Восстановление пароля
Восстановление пароля
Получить код в Telegram
Войти с Яндекс ID Войти через VK ID
Создавая аккаунт, я соглашаюсь с правилами Пикабу и даю согласие на обработку персональных данных.
ПромокодыРаботаКурсыРекламаИгрыПополнение Steam
Пикабу Игры +1000 бесплатных онлайн игр
Начните с маленькой подводной лодки: устанавливайте бомбы, избавляйтесь от врагов и старайтесь не попадаться на глаза своим плавучим врагам. Вас ждет еще несколько игровых вселенных, много уникальных сюжетов и интересных загадок.

Пикабомбер

Аркады, Пиксельная, 2D

Играть

Топ прошлой недели

  • AlexKud AlexKud 38 постов
  • SergeyKorsun SergeyKorsun 12 постов
  • SupportHuaport SupportHuaport 5 постов
Посмотреть весь топ

Лучшие посты недели

Рассылка Пикабу: отправляем самые рейтинговые материалы за 7 дней 🔥

Нажимая кнопку «Подписаться на рассылку», я соглашаюсь с Правилами Пикабу и даю согласие на обработку персональных данных.

Спасибо, что подписались!
Пожалуйста, проверьте почту 😊

Помощь Кодекс Пикабу Команда Пикабу Моб. приложение
Правила соцсети О рекомендациях О компании
Промокоды Биг Гик Промокоды Lamoda Промокоды МВидео Промокоды Яндекс Директ Промокоды Отелло Промокоды Aroma Butik Промокоды Яндекс Путешествия Постила Футбол сегодня

Qbasic

7 постов сначала свежее
Pasha4056
4 года назад

QBasic ( программирование )⁠⁠

QBasic ( программирование ) Программирование, Qbasic, Помощь, Длиннопост
QBasic ( программирование ) Программирование, Qbasic, Помощь, Длиннопост
QBasic ( программирование ) Программирование, Qbasic, Помощь, Длиннопост

Помогите правильно записать, в компиляторе выдаёт ошибку , не определяет SIN!

Показать полностью 2
Программирование Qbasic Помощь Длиннопост
21
13
Ev3658
Ev3658
5 лет назад

Бэйсик жив, Бэйсик будет жить! )))⁠⁠

Эта небольшая история о том, как навыки языка программирования Бэйсик пригодились во втором десятке XXI века.

Сразу скажу вам, все проекты которые тут представлены делались в течении 2х-3х недель и не более.

Всё началось с простого, с моргания лампочками, к сожалению в те годы не всегда обладал аппаратурой видео съемки:

Однажды друг попросил придумать ему рекламу ремонта сотовых телефонов и в то время уже начал тренироваться программировать микроконтроллеры. Увидев его "плюс" на вывеске, я ему предложил закрыть его орг.стеклом и внутри приклеить старые сотовые телефоны...ох и старые, там даже была модель и фильма "Матрица" как у Нэо.

Изучая микроконтроллеры, я столкнулся с запасом экранчиков от Nokia 1110, это породило чае-кофе-наливалку. Шурупы из мобильных телефонов из соседней мастерской, наждак и фен из соседней лавочки ремонта обуви породили это (три части по мере прогресса):

Всё это написано на Бэйсике.... но из игрушек я плавно переходил в большие игрушки. Как-то на 9 мая мне захотелось удивить жителей маленького города и за пару недель сварил и создал такую конструкцию:

А ещё через год на 9 мая создал вот такую конструкцию, установив на автомобиль:

Понимаю, скажете вы, всё это это игрушки и любой сможет сделать такое..... но это-же для души!!!

Устроился как-то в одну добрую организацию, там многие станки работали на перфоленте. Однажды зашел в цех и вижу как два электромеханика пытаются кормить старые токарные ЧПУ станки Schaublin измятой перфолентой, выглядело это примерно так (видео с кнопочного телефона):

Само собой это был тупик развития цивилизации, кое как оцифровал этот перфолес, прочитав тонны литературы, износявкав гугл переводчик, я создал вот это:

Так-же был на заводе ещё одно страшное чудо:

Воткнул туда Atmega128 и графический дисплей. Разработка проекта была около месяца и то по большей части шкурить-красить-медь сдавать.


Я эти микроконтроллеры пихал куда только можно. Многие старые узлы на производстве мозги канифолили, по этому приходилось самому всё переделывать. То создам модуль управления тремя коробками передачи и запуском шпинделя, то моторчик заставлю линейно работать с обратной связью для движения осей фрезерного станка:

Даже в квадратурный лес залез:

Всё это не только на Basic в Bascom Avr, но и на Basic в PureBasic. Если кто и дочитал до конца, то вот так вот оказал техническую помощь друзьям, они собрали сушилку леса, но с печкой не все контроллеры могли работать, дорого стоили, родной контроллер сломался и вообще исчез в неизвестном направлении, я на скорую руку полуавтомат собрал:

Всё на великом Бэйсике и результат не через месяц-два.

Конечно да, очень тесно в архитектуре AVR, я даже сделал попытки войти в эру VGA и хоть и писал на Бэйсике, даже DMA вкурил, всё-же производительность AVR контроллера, его память и т.п. не позволяла развернуться так как хотелось:

Я не показал все устройства и всё что собирал, это всё поверхностно.

Не ругайте Basic, он способен ещё на многое и в короткие сроки. Это не Arduino и рядом не стоит, тут не смотря на лёгкий синтаксис всё равно устройство и особенности микроконтроллера изучать приходится. Ну и да, я обладатель лицензионного BascomAVR.


Хочу выразить благодарность информатике в 97-98 годах за уроки в Qbasic и особая благодарность родителям за Delta-C в начале 90х. Всё началось с Basic-48k.


P:S: Одно из первых видео где я осваивал силовое управление нагрузкой и программным ШИМ:

Приношу извинения за орфографические ошибки, в школе на тройках еле вылазил, да и в 90е качественное образование было недоступным и кто был без денег, особенно многодетные семьи, те сидели в последних буквах класса на самых последних партах и даже с плохим зрением.

Показать полностью 12
[моё] Basic Avr Изобретения Радиолюбители Творчество Qbasic Видео Длиннопост
9
237
blackstrip
blackstrip
7 лет назад
IT минувших дней

Разработка оболочки-проводника для DOS в 2017 году⁠⁠

Как показывает практика, комфорт существования динозавра человека при работе/игре под DOS складывается из всевозможных драйверов и утилит. Но даже когда мы подгрузим лишь такие необходимые драйвера как драйвер мышки, драйвер CDROM, драйвера звука/midi для звуковухи, русификатор, зайдем в старый добрый Norton Commander, доберемся до EXE/COM/BAT-файла любимой игры и запустим ее, то вместо игры можем увидеть, например, вот такую картину:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Я часто сталкивался с подобным. Из доступных 640 килобайт драйверами может быть забито 100 или даже 150-200 килобайт. Оболочка (norton, volkov и т.д.) после запуска игры тоже остается висеть в памяти и занимать драгоценное место. Да и игра может требовать не 530 килобайт, как King's Bounty выше, а 550 или даже все 600 килобайт.


"Надо что-то делать!" - подумал я. Понятное дело, надо чистить autoexec.bat и config.sys! Но и после чистки и ужимания объема запускаемых драйверов и резидентных прог, бывает, что всё равно не хватает каких-то там 10 килобайт для запуска игры.


Тогда надо выкинуть оболочку из памяти. Тот же Norton Commander занимаете около 10 килобайт лишней оперативы. Но без оболочки неудобно запускать игры. Ведь придется комбинацией команд cd и dir переходить по папкам и смотреть имя нужного EXE/COM/BAT-файла, которое потом вводить в консоль чтобы запустить игру.


И тогда пришла мысль: "Надо сделать такую оболочку, которая не будет занимать память вообще". Но такого не может быть. Разве что если завершить работу оболочки перед запуском игры. Но, к сожалению, функция DOS "запуск проги из другой проги" не дает возможности закрыть оболочку, а потом запустить EXE/COM/BAT-файл игры. Отсюда вытекает:


Необходимая фича оболочки №1

Запуск программы "из чистого DOS" без нахождения оболочки в памяти


Тогда остается один вариант запуска проги "из чистого DOS":

- выбрать папку с EXE/COM/BAT-файлом игры текущей папкой,

- завершить оболочку, написав напоследок на экране "введи имяфайла.exe для запуска этой игры".


Пользователю останется только ввести с экрана это имя и нажать Enter - и получится, что он достаточно легко запустил прогу из чистого DOS.


Необходимая фича оболочки №2

Легкораспространяемый единственный EXE-файл малого размера и с коротким именем.


В идеале это должна быть прога в виде единственного EXE-шника без сопутствующих файлов. Ее путь пользователь добавляет в PATH в autoexec.bat. И затем, если вдруг надо быстро запустить любимые проги, то одним вводом короткого имени EXE-файла оболочки запускает ее и дергает из под нее нужную прогу.


Название было выбрано "BlackStrip Shell" (т.е. "Оболочка BlackStrip"), а имя EXE-файла "bss.exe". В любое время вводим в досе "bss" - и мы тут же внутри оболочки.


Вперед!


Языком программирования был выбран знакомый с детства (и заброшенный там же в детстве) Visual Basic 1.0 for DOS - у него оконная среда программирования в текстовом режиме, есть поддержка работы с прерываниями через библиотеку vbdos.qlb, т.е. можно организовать работу с мышиным драйвером по int 33h, работу со стандартными DOS-функциями из int 21h и прочими прерываниями.


Т.к. делаем оболочку для небыстрых старых компов, а заодно хотим охватить большую аудиторию, то не будем использовать SVGA-видеорежимы, а возьмем 640х480х16 цветов. А это режим экрана "SCREEN 12".

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Хотелось сделать прогу с русским и английским интерфейсами, при это не зависеть от загруженного/незагруженного русификатора. Поэтому добавляем графический растровый шрифт, предварительно слитый с DOS системы (самый мелкий, моноширинный 8х8 пикселей). А т.к. кроме EXE никаких файлов быть у оболочки не должно, то суем шрифт прямо внутрь проги с помощью команд DATA (конечно не вручную, а с помощью отдельной написанной приблуды, перекодирующей побайтово любой файл в набор DATA команд). И будем грузить шрифт оттуда с помощью RESTORE.

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Программировать на VBDOS можно как на компе, так и на телефоне из под DOSBOX. Поэтому бОльшая часть кода (99%) была написана на телефоне.


Первые пробы написания шрифтом разного размера и жирности на синем "рабочем столе" оболочки:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Затем надо было придумать оконный менеджер. Не мудрствуя лукаво была сделана система, подозрительно похожая на Windows 95 по объемности компонентов. Вот окошко:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Потом кнопки и текст а ля "label". В углу планировалось рисовать большой значок открытого окна. Но потом от этого пришлось отказаться, не выпендриваться и рисовать его рядом с текстом заголовка окна.

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Кстати, размеры значков были выбраны 8х8 точек. В совокупности с мелким шрифтом 8х8 пикселей это давало иллюзию "большого экрана" при разрешении 640х480 точек.


Потом был добавлен компонент "поле ввода":

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Для иллюзии большого экрана надо было уменьшить все. Поэтому наряду со шрифтом и значками нужно было уменьшить мышиный курсор. Дефолтный курсор от драйвера был спрятан и заменен на значок 8х8 пикселей с "горячей точкой". В систему были добавлены 5 курсоров на все случаи жизни (курсор-крест так и не был нигде использован пока что).

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Окна, висящие в пустоте, смущали. Поэтому надо было добавить панель задач. Раз уж "blackstrip" это "черная полоса мужского пола", то оболочка-чернополос должна была иметь черную полосу. И панель задач была окрашена в черный. А в углу были добавлены электрические часы из пяти 7-сегментных индикаторов, средний из который никогда не использовался (сначала предполагалось выводить там что нибудь еще, но потом там стало выводиться только время).

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Сама система изнутри была похожа на Windows-систему. Бесконечный цикл, в ходе которого опрашивается клавиатура и мышь, а на происходящие события установлены обработчики. Поэтому при запуске в эту систему надо было напихать окошек с дочерними компонентами, а в бесконечном цикле вставить обработчик "если (фокус на кнопке А и был нажат пробел) или (мышка кликнула по кнопке А) - то делай то-то". И надо было это все расписать для всех окон и всех компонентов на них. Вот старый скрин из исходников, где уже можно было напихать при старте два окошка, на каждом из которых лежит по одной кнопке.

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

И на экране все это отображалось при работе оболочки так:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Оконная система работала и надо было писать внутренности самой оболочки. Т.к. главной задачей стояла задача "запустить прогу, вырубив оболочку", то надо было сваять файловый менеджер, позволяющий лазить по папкам и файлам и имеющий кнопки "запустить выделенный EXE из оболочки" и "запустить выделенный EXE из под DOS".


Прототип файлового менеджера:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Ну а потом все завертелось, и были написаны:

- сам файловый менеджер "Файлы",

- окошко "Память" отображения количества DOS-памяти в самой BSS (чтобы можно было понять - рыпаться ли запускать игру из BSS, либо ей точно не хватит памяти и игру запускать только из под DOS),

- окошко "Клавиатура" показа кода клавиши (для отладки BSS, а заодно и для заезжих DOS-программистов, которые, сидя в досе, м.б. захотят узнать какая клавиша на клаве какой имеет код, простой 1-байтовый или расширенный 2-байтовый),

- и окошко "Экран" настройки экрана, позволяющее выбрать соотношение сторон экрана 4:3 или 16:9 (при этом в 16:9 весь экран отображался также на 640х480, но BSS "думала" что экран 853x480, это позволяет на широкоэкранных ноутах видеть оболочку не с растянутыми по горизонтали компонентами, а с нормальными), выбрать тему (выпуклая типа win95 или плоская типа win10), язык интерфейса, а также ускорение отрисовки окон при их перемещении (при включенном ускорении задняя часть экрана за окном не перерисовается при перемещении окна мышью).

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

На панели задач были добавлены кнопки "Выключение оболочки", "Сеанс DOS", окно "Файлы", окно "Клавиатура", окно "Память", окно "Экран", разделитель, кнопки "Свернуть все окна", "Развернуть окно на весь экран", "Свернуть полноэкранное окно обратно".


Основная часть оболочки - файловый менеджер "Файлы", эдакий common dialog, имела следующие органы управления:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

- наверху подобие командной строки и кнопку перехода (для тех, кто не любит жать Enter). В нее можно ввести как путь (по которому оболочка переходит), так и еще и имя файла в конце пути (на которое перескочит курсор в списке файлов),

- поле с отображением реальной текущей папке (если ввели наверху бред, то текущая папка не изменится),

- список файлов со значками и именами,

- маска-фильтр списка файлов, например, "*.exe" покажет только exe файлы в текущей папке, а также кнопка сброса фильтра в "*.*",

- кнопка "Обновить" позволяет обновить список файлов (если есть подозрения, что какой нибудь резидентный софт что нибудь меняет),

- кнопка "Папка выше" (как и кнопка Влево на клаве) позволяет выйти из текущей папки на один уровень вверх,

- кнопки "Запуск из BSS" (с возвратом обратно в BSS по окончании запущенной проги) и "Запуск из DOS" (та самая фича закрытия оболочки и оставления пользователя в чистом досе с подсказкой "что ввести чтобы запустить"),

- поле ввода аргументов командной строки "Аргументы КС", которые будут переданы программе при запуске из BSS/из DOS, а также кнопка очистки этого поля,

- опции сортировки и отображения списка файлов. Сортировка по имени, дате, размеру, типу файла, группировка файлов отдельно и папок отдельно, инверсия списка и отображения информации в соответствии с типом сортировки (т.е. отображение даты, размера, типа файла),

- показ количества файлов/папок в списке.


Потом была добавлена возможность смены диска (кнопка правее командной строки или на клавиатуре кнопка "Влево" из корневого каталога диска).

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

И вот оболочка уже могла запускать игры хоть из самой себя (занимая при этом место в оперативе), хоть из чистого доса. Но этого было мало.


Меню запуска: ярлыки на DOS программы


Чтобы каждый раз не лезть к EXE хорошо бы было создать на него некоторое подобие ярлыка. Выбирать этот ярлык в меню и запускать по нему прогу (из оболочки или из доса). Так в оболочке родилось "меню запуска".


Для начала лезем в файловом менеджере к нужному EXE/COM/BAT-файлу, ставим на него курсор в списке файлов и жмем волшебную кнопку с ракетой, которая расположилась справа от командной строки в файловом менеджере рядом с кнопками перехода и смены диска.

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

После этого открывается окно меню запуска, где уже будут введены:

- название проги (по имени исполняемого файла),

- путь и имя исполняемого файла,

- номер значка для ярлыка,

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Можно поменять имя на любое (включая русскоязычное), добавить аргументы для командной строки, изменить значок на любой значок оболочки, а потом либо добавить ярлык в список, либо заменить выбранный в списке ярлык на ярлык с введенными параметрами.


По списку можно лазить кнопками "Вверх"-"Вниз" на клавиатуре или в окне справа. При нажатии на пункт списка он загружается в верхние поля. Таким образом, можно нажать на пункт списка, загрузить его параметры в верхние поля, исправить их, нажать кнопку "Заменить" и сохранить измененный ярлык поверх первоначального загруженного.


Также можно:

- удалить выделенный ярлык кнопкой "Удалить",

- сортировать ярлыки по имени в алфавитном порядке,

- сдвинуть текущий ярлык в списке вверх или вниз на одну позицию,

- запустить программу/игру по ярлыку из BSS или из DOS.


Но и этого было мало. Иногда хочется посмотреть на файлы, окружающие программу или игру. Почитать "ридми" там или посмотреть текстовые ресурсы проги.


Hex-редактор


Было добавлено еще одно окошко, позволяющее побайтово просматривать и редактировать файлы. Ставим в файловом менеджере курсор на файл и жмем справа от командной строки волшебную кнопку с колбой или просто пытаемся открыть по Enter неисполняемый файл. Открывается окно редактора:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

В этом окне можно:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

- изменить имя файла и загрузить его (например, если имя файла известно и без файлового менеджера или имена нескольких файлов отличаются номером типа file1.txt, file2.txt),

- включить "режим правки" (редактирования файла вместо только чтения) и режим "Далее по ENTER" перехода к следующему байту по нажатию Enter в поле кода/символа текущего байта,

- выбрать кодировку файла для просмотра и редактирования (DOS 866 или кириллическую Windows 1251),

- выбрать символ переноса для просмотра файла в текстовом виде (0D(13) или 0A(10)),

- посмотреть на "таблице из трех двойных кнопок" файл побайтово, изменяя текущее смещение на 1 по кнопкам "Вверх" и "Вниз" с клавиатуры или кликом по "таблице из кнопок",

- изменить смещение вручную или обнулить/увеличить/уменьшить текущее смещение на определенное количество байт в области "Переход",

- посмотреть и изменить код текущего байта или символ текущего байта (в соответствии с выбранной кодировкой),

- посмотреть кнопками "Текст" и "Коды" в поле предпросмотра файл с текущего смещения в виде текста или hex-кодов,

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

- посмотреть таблицу символов в соответствии с выбранной кодировкой и ввести символ в "Код:"/"Символ:" по клику на ячейку этой таблицы,

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост
Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

- перейти кнопкой "Ниже" к следующей странице при просмотре файла в виде текста или hex-кодов.

Конец


Получилась вот такая DOS-оболочка:

Разработка оболочки-проводника для DOS в 2017 году DOS, Оболочка, Shell, Visual basic, Qbasic, Длиннопост

Кнопки на панели задач аналогичны клавишам F1-F12. Поэтому, добавив в переменные среды path оболочку bss, и добавив единожды ярлыки на проги/игры в меню запуска, вызов любимой проги/игры из любой папки в DOS-е выглядит так:

1) bss [enter]

2) [F5] (вызов окна "Меню запуска")

3) Выбор проги в "Меню запуска" по [вверх][вниз]

4) [enter] для запуска из BSS либо [shift+enter] для запуска из под DOS (аналогичные сочетания работают и в окне файлового менеджера).


Скачать оболочку можно по адресу: http://blackstrip.ru/bss.exe (118 килобайт).


Запакована UPX-ом, при запуске разворачивается в память и занимает 270 килобайт.


Под досбоксом на андроиде работает хорошо, под досбоксом под виндой работает не очень (по Ctrl+F12 повысьте циклы до 20-30 тысяч), на настоящем досовском ноутбуке "Bliss 3070" 2000 года выпуска работает отлично.


Всем веселых игр под DOS.

Показать полностью 22
[моё] DOS Оболочка Shell Visual basic Qbasic Длиннопост
114
39
Промо Забустить свой пост
BadGodman
BadGodman
Авторские истории

Сериал "Локдаун". Season #1 Episode #1⁠⁠

Сериал "Локдаун". Season #1 Episode #1 Фантастика, Антиутопия, Текст, Постапокалипсис, Параллельная вселенная, Альтернативная история, Альтернативная реальность, Мат, Длиннопост

— Андрей, у нас пиздец! — не поздоровавшись рявкнул Сергей Валерьевич, распахивая входную дверь и практически вынося, стоящего в дверном проёме Андрея. В голосе Сергей Валерьевич слышались едва скрытые нотки паники.

— И вам здравствуйте… — показательно невозмутимо ответил Андрей вслед удаляющейся спине в темно-синем костюме и аккуратно закрыл дверь.

Шаркая тапочками и еще не отойдя ото сна, он добрел по коридору до гостиной. Сергей Валерьевич уже стоял около бара и, поднося бутылки почти к носу, рассматривал надписи на этикетках.

— Не рановато ли в… — Андрей замялся, соображая, который сейчас час. Бросил взгляд на экран айфона, отметив про себя сообщение о шестидесяти четырех пропущенных звонках — …в 11:20 утра.

— Нормально. — Сергей Валерьевич остановился на коньяке стоимостью в сорок тысяч, налил себе добрую половину рокса и по-хозяйски уселся в кресло у камина.

— У нас пиздец, Андрей.

— Это вы уже говорили. Но, может, это какой-то конкретный пиздец? Есть какие-то вводные, данные, факты? — Андрей присел в кресло напротив, рассматривая через окно во всю стену за спиной Сергея Валерьевича, залитый солнцем задний двор. Попутно мелькнула мысль, что траву пора бы уже покосить.

— Шутник! Ты в интернете вообще бываешь? Тебе же тридцать девять, почти молодежь! Даже я в свои шестьдесят три им пользуюсь и всегда в курсе новостей! — в голосе Сергея Валерьевича послышались мерзенькие нотки сарказма. — А ты все дрыхнешь! Опять бухал небось! — он начал заводиться, левой рукой вытирая испарину с лысой головы. Стакан с коньяком опасно дрожал в его правой руке, отчего напиток едва не выплескивался из стакана. – Тебе за что такое бабло платят, Андрей? Чтобы ты все контролировал! На, смотри!

Андрей взял айпад Сергея Валерьевича. Там был открыт ютуб с рекомендованными видео.

— И что смотреть?

— Любое! — зло отрезал Сергей Валерьевич.

Андрей, секунду посомневавшись, наугад ткнул в ролик блогера с рецептами еды. Видео раскрылось, и подгрузилась реклама.

«Странно, что у него нет премиума, — успел подумать Андрей и перевел взгляд на отсчет. — Блять, двадцать секунд».

В рекламном ролике стоял человек в черном худи и накинутом на голову капюшоне. На его лице была белая грязная улыбающаяся маска. За спиной виднелся размытый фон, в котором угадывалась вечерняя улица.

— Недобрый день, — слегка наклонив голову, будто смотрел в камеру исподлобья, сказал человек. — Конечно, вы чувствуете, что власть многое не договаривает, а зачастую — и вовсе откровенно лжет своему народу, которому, согласно Конституции, должна служить. Ведь согласно Конституции суть власти составляют избранные народом менеджеры, которые управляют страной и ее ресурсами во благо своего электората. Однако во всем мире с самого начала этот постулат является фикцией, ширмой и враньем. Любой политик и чиновник, используя многочисленные ухищрения и обещания, добираясь до власти, тут же забывает про свои слова, преследуя исключительно личные цели. Мы решили показать, что получится, если избранные простыми людьми управленцы начнут говорить правду… — двадцать секунд прошло, но Андрей уже забыл про кнопку «Пропустить». — …и выполнять обещанное. К сожалению, ложь, стремление к самообогащению, интриги и развязанные ими войны каждый день уносят и ломают жизни многих людей. Поэтому нам придется говорить на их языке и действовать теми же методами. Советуем прислушаться к данному заявлению всем власть имущим и воспринять наш манифест всерьез. Но, конечно, выбор за вами, когда день станет добрым…

Обращение кончилось, начался обычный видеоролик, но Андрей уже не слушал.

— И это вы рассматриваете как... нечто серьезное? – в какой-то прострации выдавил он очевидный вопрос.

— А ты нет? Ты не понял, что этот ролик сейчас крутят везде! Не только на ютубе. Он на всех видеоресурсах, хостингах, в социальных сетях и даже в новостях. Каждую минуту миллионы людей обсуждают его, делятся ссылками и уже создают мемы! И не только у нас. Он практически на всех языках мира вне зависимости от геолокации! – уже почти кричал Сергей Валерьевич.

— Ты представляешь, что за организация могла взломать столько серверов крупных корпораций?! Какие у них ресурсы! Или сколько стоит купить всю эту рекламу! Сколько бабла! Что они могут с этими ресурсами?! И главное – какая паника начнётся в ближайшее время!

— И что уже есть? Какие наработки? Кто-то взял на себя ответственность? Что говорит Сам? Какие данные? – мозг Андрея уже начал развивать обычную скорость мышления.

— А вот хер! Нет никаких данных. Эта реклама блокируется почти всеми компаниями, но каким-то образом она все равно умудряется везде пролезть. Во всем мире просто фантастические просмотры. И это пиздец, Андрей! Или чья-то шутка. Было бы хорошо, если шутка. Но в ней тогда нет смысла. А смысл должен быть! – Сергей Валерьевич начал понижать тон, то ли смирившись, то ли успокаивая сам себя, то ли от безысходности ситуации.

Андрей смотрел на пепел в камине, но не замечал его. После ухода Сергея Валерьевича он пытался понять масштабность произошедшего. Имея в своём подчинении всё управление кибербезопасности, штат программистов и завербованных хакеров, а также почти неограниченные ресурсы своей страны, он не мог даже представить, как это возможно? Взломать все мировые видеоресурсы.

То, что это был взлом, Андрей не сомневался, потому что ни у кого нет столько денег, чтобы купить всю видеорекламу. Этот вариант невозможен даже в теории.

— Ясно, пора выезжать! — процедил Андрей и пошел одеваться.

Сгоняя «крякалками» офисный планктон с левой полосы и пролетая с мигалками по встречке, Андрей торопил водителя, параллельно при этом выслушивая по телефону доклады подчиненных. Информации было крайне мало. Одни предположения.

Уже через полчаса Андрей подъезжал к офису.

— Вас Сергей Валерьевич, по закрытой связи, – доложил охранник с переднего сиденья. Андрей взял трубку.

— Тут странная ситуация, – донёсся тихий вкрадчивый голос Сергея Валерьевича. Этот голос очень напрягал. – Практически сразу после выхода этого видео, один америкосовский политик, забыл, как его зовут, сделал заявление, что это проделки наших хакеров. Выкатил нам ноту протеста и выдвинул кучу всяких обвинений. Потом призвал к новым санкциям, ну, и всё в таком же роде. Это всё в принципе привычно. Но дело в том, что спустя двадцать четыре минуты он умер. Кардиостимулятор практически сжег ему сердце. – Голос Сергея Валерьевича почти перешел на шепот. – Об этом пока не известно СМИ, но как бы… Есть ли вероятность, что это как-то связано с заявлением этого пидора в маске?

— Скиньте мне больше информации. Всё что известно.

Просторный кабинет Андрея был заполнен руководителями разных подразделений. Он пробрался сквозь толпу и сел во главе своего Т-образного стола. Гул и разговоры затихли.

— Итак, коллеги. Начинаем. Докладываем по очереди.

— Подконтрольные СМИ сглаживают ситуацию, запустили всякую хрень про тестирование новой системы какого-то рекламного оператора, часть развивает тему, что это – завуалированная реклама и суть откроется позже. И еще кучу разных спокойных контролируемых теорий. Телеграм только не подчиняется.

— Там не так уж и много пользователей. Десять миллионов вроде?

— Кхм… Уже нет, – опустил глаза сотрудник. – Как пошло это видео, количество скачиваний увеличилось в два раза и продолжает расти в геометрической прогрессии.

— Блять. Придумайте что-нибудь! Что там Комитет по надзору, просто так сидит, что ли?

— Мы сейчас блокируем все возможные видеоресурсы, включая ютуб. Но это нереально сделать мгновенно. К тому же остаются разные обходы, типа прокси и ВПН.

— Большинство прокси-серверов мы сами вбросили людям, ты чего тупишь?

— Да, но появилось множество частных. Мы сейчас взаимодействуем со всеми службами, но пока, если честно, нет абсолютно никакой информации о том, кто это мог сделать и какие цели преследует.

— Андрей! – перебил их другой сотрудник в наушниках, не отрываясь от айпада. – Только что ИГ взял на себя всю ответственность за происходящее!

— Ну уже что-то… - Андрей даже почувствовал легкое облегчение. – Как нам это красиво преподнести с выигрышем для себя?

— Сейчас обсудим с пиарщиками.

— И вообще, давайте, решайте проблему! Доклад каждые полчаса!

Подчиненные тихо вышли из кабинета.

Андрей открыл ноутбук. Писем и сообщений было слишком много. Прокрутив немного, он наткнулся на письмо Сергея Валерьевича с информацией про умершего политика. Прочитал два раза, но в голове не возникло никакой взаимосвязи - политик был уже стар, сердце слабое, да и кардиостимуляторы дают иногда сбой, это не новость.

Через двадцать минут в кабинет без стука ворвался тот парень с айпадом, Витя.

— Почему без стука? – от неожиданности вскрикнул Андрей.

— Извини, но тут какая-то хрень! – с бегающими от волнения глазами резко выпалил Виктор, теребя провод от наушников.

Он отвечал за информационный фон и просматривая множество ресурсов всегда был в курсе того, что и где происходит. У него повсюду были свои информаторы, которые сливали ему новости и данные из разных уголков мира, в том числе и из правительственных источников.

— Короче, с ИГ шляпа!

— В смысле?

— Только что слили инфу с американской базы. У них одна ракета, стоящая на боевом дежурстве, после заявления ИГ самостоятельно стартовала в неизвестность. Точнее, в известность. В то место, откуда было запеленговано обращение об ответственности. Америкосы знают это место, ты же понимаешь. Там сотрудничество, то, сё. Поэтому видеообращение особо не маскировалось. Уже привыкли все. Но теперь там все зачищено этой ракетой. Это как так?

— Это как так? – тупо повторил вопрос Андрей.

— И как бы… это, слушай. Чисто предположить, если… в теории… Может, есть связь и с Дениэлем Колином? Два раза – это уже не случайность.

Андрей вспомнил, это было имя из отчета про кардиостимулятор.

— Ты откуда знаешь про него? Хотя похуй. Ты… понимаешь, что это? – прошипел Андрей. – Срочно! Запретить кому-либо из политиков, чиновников и вообще кому-либо выступать с заявлениями! Свяжись со Службой Госохраны! Доложи об этом! Пусть занимаются своей работой! Надо, чтобы все пока заткнулись! Пока мы не поняли, что это, случайность или... пиздец!

— Понял! – уже выбегая из кабинета, крикнул Витя.

Андрей набрал Сергея Валерьевича, сухо изложил тому последнюю информацию и попросил посодействовать с тишиной в эфирах.

За последующие два дня при различных обстоятельствах погибло еще сорок семь политиков в разных странах мира, которые будучи отмороженными, не захотели молчать и кидали разного рода заявления направо и налево.

А информации об организаторах этой атаки, сейчас это расценивалось именно как атака — по прежнему не было. Правительства всех стран рвали и метали. Но исключительно в закрытом режиме, требуя постоянного отчёта о принятых мерах от соответствующих служб.

Но к какому-либо результату это не приводило. Несмотря на то, что, забыв о былых разногласиях, все страны согласились на сотрудничество, всё равно отыскать даже малейшую зацепку пока не получалось.

Не был понятен и повод. Если это террористы, тогда где требования?

Или же это банальная маскировка грабежа века? А может быть баловство хакерской группы? Или одного хакера? Развал устоявшегося государственного строя мира? Кем? Зачем? Версий и вопросов было очень много.

Все новостные ленты же в это время были заполнены позитивной информацией, чтобы максимально отвести внимание и понизить градус напряженности простым людям. Вначале была предпринята попытка вброса информации о подстроенных авариях, чтобы переключить внимание на новую проблему, и заодно замаскировать отключение некоторых неподконтрольных интернет-ресурсов. Это была обычная практика. Но человека, которому поручили это задание, через несколько часов обнаружили мертвым и без каких-либо признаков насильственной смерти.

И тут действительно стало страшно.

Через неделю было зафиксировано уже девяносто восемь смертей и контроль над ситуацией в целом был утрачен. Люди стали требовать того, что им когда-то обещали. Больше стало запросов, писем, звонков чиновникам и политикам.

И обещанное пришлось выполнять. Все оправдания, что работы уже находятся в процессе выполнения, ожидают утверждения бюджета, или очередности, собравшейся толпой уже никак не рассматривались в качестве ответа. Каждый чиновник боялся соврать или не выполнить обещанное. И этим пользовались. Должностные лица стали массово увольняться, отдавая свои кровные, украденные и заработанные только лишь для того, чтобы ускорить выполнение требований. За свои средства ремонтировали больницы и школы, прокладывали асфальт. Даже уволившись, они боялись послать подальше тех, кто вспоминал их предвыборные речи и грозился слить итог их обещаний в интернет.

И вот уже не хватает чиновников. Они бегут, а освободившиеся места никто не спешит занять. В некоторых регионах страны уже практически введено полное самоуправление. Только вот неясно к чему это приведет. Хорошо, если хотя бы не к полной анархии. Всё-таки, полиция и силовики пока ещё на местах. Хотя и здесь появилась проблема – всё теперь делается только по закону.

Людям в погонах тоже страшно. Их теперь не используешь в своих делах.

После внезапной кончины одного из проповедников, обещавшего спасти тех, кто вступит в его секту, резко стали таять ряды служителей культа. Приходы стали временно закрываться.

Под разными предлогами по ТВ перестали транслировать различные ток-шоу. Хоть что-то позитивное случилось.

А прошло всего лишь семь суток…

Андрей сидел дома в темноте и через стеклянную стену смотрел на свой участок с идеально подстриженным газоном, подсвеченным теплым светом низких фонарей, стоящих вдоль дорожки. В последнее время у него периодически возникали кратковременные панические атаки, вызванные паранойей.

Он стал бояться будущего. Ему тоже приходилось много врать и подстраиваться в угоду интересам государства и личным желаниям, чтобы сесть в это теплое кресло, которое было поистине золотой жилой. Да-а-а-а, много приходилось отдавать покровителям, но много оставалось и в кармане. Очень много. И сейчас он надеялся только на то, что отсчёт за враньё шёл с момента первого видео. Что за всеми не придут. Потому что очень уж многие повязаны одной большой паутиной лжи.

От стука во входную дверь Андрей дернулся, нечаянно пролив на стол виски из стакана. Экран айфона показал 23:34 – странное время для гостей.


Продолжение будет выкладываться и здесь, если зайдет. Так что покажи пальцем, понравилось или нет. Черкани коммент, если есть, что сказать.

Но если не терпится читать дальше, то в t.me/badgodman уже седьмой сезон сериала идет.

Показать полностью
[моё] Фантастика Антиутопия Текст Постапокалипсис Параллельная вселенная Альтернативная история Альтернативная реальность Мат Длиннопост
13
liza5834
8 лет назад

О великие программисты . Нерешаемая супер сложная задача по бэйсику.⁠⁠

Короче , проблема такая, по завершении курса бэйсика дали супер сложную (вообще не решаемую) задачу, решить на паре я её не смогла, дали на дом. Если КР по бэйсику не сдать , то допуска не будет до сдачи зачета по инфе :(.
О великие программисты . Нерешаемая супер сложная задача по бэйсику. Basic, Qbasic, Программа, Сложно
Basic Qbasic Программа Сложно
16
friskas
friskas
10 лет назад

Нужна помощь, qbasic⁠⁠

Нужно написать программу. Сам я ничерта не шарю, мой максимум - это ворд и эксель еле еле.
Могу подогнать вещей в ксго за решение задачи, или 2 гифта постала2.
Дано натуральное число. Определить:
А) кол-во цифр 3 в нем
Б) сколько раз в нем встречается последняя цифра
В) кол-во четных цифр в нем
Составное условие и более одного неполного условного оператора не использовать.;
г)сумму его цифр больше пяти;
д)произведение его цифр больше семи;
е)сколько раз в нем встречаются цифры 0 и 5;


Помощь Информатика Qbasic Текст
31
chikotlo
11 лет назад

QBasic⁠⁠

Здравствуйте,пикабушники.Очень нужна работающая версия Qbasic'a на 64 бит 7винду.
В интернете нашел более мене работающую,запустил под DOSBOX , но проблема заключается в том,что после запуска программы я ничего скопировать не могу.А само задание заключается в скопировании полученного чертежа.
Очень нужна помощь!(
И если у кого есть работающий безик,могу скинуть сам код,чтобы вы мне выслали чертеж.
[моё] Пикабу Помощь Qbasic Текст
5
Shaidar
Shaidar
11 лет назад

QBASIC для Windows 7 (x64)⁠⁠

Мне подумалось, что в разных институтах и прочих учебках сейчас до сих пор на информатике учат студиозусов Квик Бейсику, он же QBASIC. А у них дома продвинутые компы с шестьдесят четвертыми Семерками и другими свистами, и домашнего задания они выполнить не могут с помощью древнего 16-битного компилятора васика.

Behold!

По ссылке можно взять работающую в 64-битных виндах версию Бейсика: http://www.qb64.net/
[моё] Qbasic Basic Школьники Текст
13
Посты не найдены
О нас
О Пикабу Контакты Реклама Сообщить об ошибке Сообщить о нарушении законодательства Отзывы и предложения Новости Пикабу Мобильное приложение RSS
Информация
Помощь Кодекс Пикабу Команда Пикабу Конфиденциальность Правила соцсети О рекомендациях О компании
Наши проекты
Блоги Работа Промокоды Игры Курсы
Партнёры
Промокоды Биг Гик Промокоды Lamoda Промокоды Мвидео Промокоды Яндекс Директ Промокоды Отелло Промокоды Aroma Butik Промокоды Яндекс Путешествия Постила Футбол сегодня
На информационном ресурсе Pikabu.ru применяются рекомендательные технологии