Примеры программ на языке бейсик
Язык Visual Basic — примеры написания кода
Всем привет, в этой статье я хочу показать Вам полезные коды небольших программ. Которые Вы можете использовать для написания уже своих более серьезных программ, ну или Вы искали именно эти функции, которые здесь описаны.
Все коды использовались в среде программирования Microsoft Visual Basic v6.0.
Выход с подтверждением
Первая своего рода программка, ну или функция, это выход с сообщением о подтверждение выхода. В общем, откройте среду программирования Visual Basic, создайте стандартный проект, потом поместите на форму одну кнопку, щелкните на кнопке и у Вас откроется окно редактирования кода, и туда Вам необходимо вставить следующий код:
Итак, Beep это просто звуковой сигнал, дальше идет выделение памяти (Dim), потом уже выполняется действие, т.е. сообщение «Хотите выйти?», да или нет и конец программы. Вот такая бесполезная функция можете использовать в своих программах.
Пароль на запуск программы
Далее идет очень полезный код, это пароль на запуск программы, ну или для чего-нибудь другого. Открывайте стандартный проект щелкните в пустом месте (загрузка формы программы) и вставляйте следующее:
Где, 12345 это пароль на запуск программы. Но этот код можно использовать, где только захотите.
Вывод сообщения
Если хотите просто выводить сообщение, для чего-нибудь, то вставьте это:
Рисование на форме
Дальше идет такая мелкая программа как мини Paint, т.е. рисование, причем на самой форме. Откройте стандартный проект, щелкните в пустом месте и вставьте следующий код:
Цвет можете менять с помощью параметра QBColor(0), т.е. вместо 0 поставьте другую цифру.
Перезагрузка компьютера
Для того чтобы перезагрузить компьютер: поместите кнопку и вставьте следующий код:
Запуск программы в единственном экземпляре
Следующий пример поможет Вам сделать так, чтобы программа запускалась только один раз, т.е. в случае повторного запуска она выдаст соответствующее сообщение. В код формы вставьте:
Выключение компьютера
Для того чтобы выключить компьютер можно использовать следующий код:
Завершение любого процесса
Для того чтобы завершить процесс можете использовать следующий код:
Где, вместо ICQlite.exe может быть любой процесс.
Сколько работает компьютер
Ниже показан пример того, как можно определить время работы компьютера. Данный способ основан на использование библиотеки kernel32, поэтому в самом начале кода формы подключите данную DLL.
Мы рассмотрели простые функции, которые можно использовать практически везде. Теперь рассмотрим более серьезные примеры, и они Вам могут очень сильно помочь написать свои крупные проекты.
Примеры работы с папками
Удалить каталог
Создать каталог
Список всех папок с под папками
На форму добавляем 2 текстовых поля и кнопку, имя первого текстового поля: StartText, имя второго текстового поля OutText. Свойство Multiline = true, имя кнопки = CmdStart
Далее пишем код в кнопке:
Теперь запускаем программу, в текстовом поле StartText пишем: C:\windows, и жмем на кнопку.
Размер каталога
Примеры работы с файлами
Копировать
Примечание! Если в каталоге 2 уже находится файл с именем 1.txt, то он будет заменен на 1.txt из каталога 1.
Можно использовать и функции API:
Удаление
Например, мы хотим удалить файл 1.txt из корня диска C:\
Перемещение
Можно, например, переместит и так:
Но лучше так (через API):
Переименование
Для того чтобы переименовать файл 1.txt находящийся в C:\ на 2.txt можно использовать следующий код:
Определить размер файла
Размер файла можно определить двумя путями:
Если файл можно открыть функцией OPEN, то можно воспользоваться функцией LOF
Или использовать функцию FileLen
Скрыть часы программно
Добавьте 2 кнопки и вставляйте код:
Добавить иконку в трей
Добавляем модуль, вставляем в него код:
Чтобы использовать вставьте в код формы:
Блокируем кнопку пуск
Добавляем 2 кнопки и вставляем код:
Считываем параметры из INI файла
Программа подключается к FTP, а в ини файле прописаны параметры — сервер, логин, порт, пароль.
С начало создаем INI файл:
Его необходимо поместите в папку с программой. Далее, вставляем в модуль:
Затем вставляем в код формы:
Список запущенных процессов
Добавляем Listbox и 1 кнопку, вставляем следующий код:
Помещение программы в автозагрузку
Для того чтобы программа загружалась вместе с Windows, как и другие некоторые программы, можно использовать реестр:
Добавьте 2 кнопки и следующий код:
А для того чтобы программа загружалась вместе с Windows, даже в безопасном режиме, то такой код:
Для начала более серьезный способ (сделайте на всякий случай резервную копию реестра).
Ну и простой способ.
Скрываем панель задач
Добавляем 2 кнопки и вставляем код:
Разархивировать архив RAR
Для того чтобы разархивировать архив RAR можно использовать следующий код:
Сколько оперативной памяти в компьютере
Добавьте одну кнопку и вставляйте следующий код:
Скрыть значки рабочего стола
Это делается следующим образом. Добавите 2 кнопки и вставляйте следующий код:
С помощью кнопки Command1 значки скрываются, Command2 — появляются.
На этом у меня все, надеюсь, вышеперечисленные примеры будут Вам полезны, пока!
Примеры программ на языке бейсик
Примеры готовых программ на QBasic. В них используется текстовая, графическая и звуковая информация. Отличное предложение начинающему программисту в QBasic.
Графика
Программа рисует простой рисунок с дорогой:
Графики Cos(x) и Sin(x):
Красивые цифровые часы:
SUB DrawChar (x%, y%, Ch%, Poz%, Mshtb!)
PCvtL% = 1: PCvtZ% = 2 ‘ Цвета для присутствующих
OCvtL% = 3: OCvtZ% = 4 ‘ Цвета для отсутствующих
xPls% = ((DataDL / Mshtb!) * 1.05) * Poz%
FOR i% = 1 TO 7 ‘ От 1-го до 7-ми частей
IF Sost%(Ch%, i%) = 1 THEN ‘ Если часть включена, рисуем
CvtL% = PCvtL%: CvtZ% = PCvtZ%
ELSE CvtL% = OCvtL%: CvtZ% = OCvtZ%
END IF
FOR k% = 1 TO Sizes%(i%) ‘ Рисуем все линии
x11% = X1%(i%, k%) / Mshtb!: x22% = X2%(i%, k%) / Mshtb!
y11% = Y1%(i%, k%) / Mshtb!: y22% = Y2%(i%, k%) / Mshtb!
LINE (x11% + xPls% + x%, y11% + y%)-(x22% + xPls% + x%, y22% + y%), CvtL%
NEXT
PAINT (PZx%(i%) / Mshtb! + xPls% + x%, PZy%(i%) / Mshtb! + y%), CvtZ%, CvtL%
NEXT
END SUB
200?’200px’:»+(this.scrollHeight+5)+’px’);»> DECLARE SUB MakeBmp (NameBmp$)
CONST Iterations = 1000000
DIM t AS DOUBLE, x AS DOUBLE, y AS DOUBLE, p AS DOUBLE
DIM k AS LONG
DIM Midx AS INTEGER, Midy AS INTEGER, radius AS INTEGER
ON TIMER(1) GOSUB ShowIter
TIMER ON
SCREEN 12
FOR k = 1 TO 15
OUT &H3C8, k
IF k «» THEN END
RETURN
bgdt: DATA 66,77,54,254,0,0,0,0,0,0,54,4,0,0,40,0,0
DATA 0,128,2,0,0,224,1,0,0,1,0,8,0,0,0,0,0,0
DATA 250,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0
Среднее арифметическое всех элементов массива:
Определить минимальный элемент массива:
200?’200px’:»+(this.scrollHeight+5)+’px’);»>
CLS
INPUT «N»; n
DIM e(n)
FOR i = 1 TO n
INPUT e(i)
NEXT
CLS
min1 = e(1)
PRINT «Массив:»
FOR i = 1 TO n
PRINT e(i);
IF e(i) Вычисления
Программа, определяющая, простое число, или нет:
Работа с мышью
Cтандартные ф-ии для работы с мышью:
200?’200px’:»+(this.scrollHeight+5)+’px’);»>
DECLARE SUB Mouse (ax%, bx%, cx%, dx%)
DECLARE SUB MouseActive (a%)
DECLARE SUB MouseReset ()
DECLARE SUB MouseShowCursor ()
DECLARE SUB MouseHideCursor ()
DECLARE SUB MouseBorders (x1%, y1%, x2%, y2%)
DECLARE SUB MouseGetStat (b%, x%, y%)
DECLARE SUB MouseSetXY (x%, y%)
DECLARE SUB MouseSetMickey (x%, y%)
TYPE RegType
ax AS INTEGER: bx AS INTEGER: cx AS INTEGER: dx AS INTEGER
bp AS INTEGER: si AS INTEGER: di AS INTEGER: f AS INTEGER
END TYPE
DIM SHARED regs AS RegType
MouseActive a%: IF a% = 0 THEN PRINT «Need a mouse to run!»: END
MouseReset
MouseShowCursor
DO
MouseGetStat a%, b%, c%
LOCATE 1, 1: PRINT a% / 8, b% / 8, c%
LOOP UNTIL INKEY$ <> «»
SUB Mouse (ax%, bx%, cx%, dx%)
regs.ax = ax%
regs.bx = bx%
regs.cx = cx%
regs.dx = dx%
CALL interrupt(&H33, regs, regs)
ax% = regs.ax
bx% = regs.bx
cx% = regs.cx
dx% = regs.dx
END SUB
SUB MouseBorders (x1%, y1%, x2%, y2%)
Mouse 7, 0, x1%, x2%
Mouse 8, 9, y1%, y2%
END SUB
SUB MouseGetStat (x%, y%, b%)
Mouse 3, b%, x%, y%
END SUB
SUB MouseHideCursor
Mouse 2, 0, 0, 0
END SUB
SUB MouseReset
Mouse 0, 0, 0, 0
END SUB
SUB MouseSetMickey (x%, y%)
Mouse 15, 0, x%, y%
END SUB
SUB MouseSetXY (x%, y%)
Mouse 4, 0, x%, y%
END SUB
SUB MouseShowCursor
Mouse 1, 0, 0, 0
END SUB
Изменение графического курсора мыши:
‘ Demonstrates Graphical Mouse Cursors
‘ Translated over from VBDOS Program
‘ Make sure to enter Environment with /L for Interrupt Support
‘ Multiple Versions of some Cursors are given because some look
‘ Better on White BG, some better on Black BG
DECLARE FUNCTION HaveMouse% () ‘ Checks to See if Driver Installed
DECLARE SUB PrintR (A$, X%, Y%, StepX%, StepY%, CO%, BackGround%, Shadow%)
‘ Prints Text in Graphics Mode 12
DECLARE SUB ChangeCursor (A$) ‘ Changes Graphics Mouse Cursor
DECLARE SUB Mouse (M0, M1, M2, M3) ‘ Mouse Driver
DECLARE SUB MouseShow () ‘ Displays Mouse Cursor
DECLARE SUB MouseHide () ‘ Hides Mouse Cursor
REM ‘$INCLUDE: ‘VBDOS.BI’
‘ Use ‘VBDOS.BI’ for VBDOS, ‘QBX.BI’ for PDS
DIM Regs AS RegType ‘ Interrupt needed for Regular Mouse Routines,
‘ QB also uses Interrupt for Mouse
REM ‘DIM RegsX AS RegTypeX ‘ InterruptX needed for PDS/VBDOS
‘ Far Strings, but both Interrupt calls
‘ Still needed for QBX/VBDOS
OUT &H3C4, 1: CMR% = INP(&H3C5): OUT &H3C5, CMR% OR &H20
LINE (0, 0)-(640, 480), 7, BF ‘ Use a White backGround
LINE (320, 20)-(600, 305), 0, BF ‘ Black «Window» to also check Cursors
‘ Yeah, I know using DATA statements is not an example of
Prompt$ = CHR$(I% + 64) + «) » + Prompt$
PrintR Prompt$, 25, I% * 20 + 5, 8, 0, 15, 7, 1
Prompt$ = «Q) Quit program.»
PrintR Prompt$, 25, 305, 8, 0, 15, 7, 1
Prompt$ = «Press the Letter of the Cursor you want, or to Quit.»
PrintR Prompt$, 45, 400, 8, 0, 11, 7, 1
‘ Now that the screen is Drawn, Turn the Screen back on..
OUT &H3C4, 1: CMR% = INP(&H3C5): OUT &H3C5, CMR% AND &HDF
IF HaveMouse% THEN ‘ Check For Mouse Driver
Mouse 0, 0, 0, 0 ‘ Initialize Mouse
MouseShow ‘ Show Mouse Cursor
LOCATE 15, 28: PRINT «You need a Mouse for a Mouse Cursor Program, Silly!»
WHILE INKEY$ = «»: WEND
DO: A$ = INKEY$: LOOP UNTIL LEN(A$)
IF A$ >= «A» AND A$ Работа с модемом/сетью
Доступ к COM-портам через ф-ии BIOS:
Compot.bas (основной файл):
Qbutil.inc (дополнительный файл):
Инструкция по использованию файлов в коде программы.
Учимся программировать! Конспекты школьника
Учимся программировать!
Конспекты школьника.
Составил: Башлаков А.С.
-Б@С- ©2003-04г.
Содержание.
2. Введение в язык программирования Basic.
3. Линейная структура программы.
4. Ветвление в алгоритмах и программах.
5. Циклы в алгоритмах и программах.
6. Массивы. Одномерные массивы.
7. Массивы.Двумерные массивы.
8. Символьные и строчные переменные.
10. Подпрограммы. Функции.
11. Графический режим работы.
12. Создание движущихся изображений.
13. Работа с файлами.
14. Комбинированные типы.
15. Задания для самостоятельного выполнения.
Данный материал не является полноценным учебником по программированию на языке Basic, а содержит только необходимый минимум для выработки у школьников алгоритмического мышления и начальных навыков программирования.
В качестве системы программирования можно использовать QBasic.
При использовании материалов ссылка на источник обязательна.
Учимся программировать!
Конспекты школьника.
Алгоритмы.
Появление алгоритмов связывают с зарождением математики. Более 1000 лет назад (в 825 году) ученый из города Хорезма Абдулла (или Абу Джафар) Мухаммед бен Муса аль-Хорезми создал книгу по математике, в которой описал способы выполнения арифметических действий над многозначными числами. Само слово алгоритм возникло в Европе после перевода на латынь книги этого математика.
Алгоритм – описание последовательности действий (план), строгое исполнение которых приводит к решению поставленной задачи за конечное число шагов.
Вы постоянно сталкиваетесь с этим понятием в различных сферах деятельности человека (кулинарные книги, инструкции по использованию различных приборов, правила решения математических задач. ). Обычно мы выполняем привычные действия не задумываясь, механически. Например, вы хорошо знаете, как открывать ключом дверь. Однако, чтобы научить этому малыша, придется четко разъяснить и сами эти действия и порядок их выполнения:
1. Достать ключ из кармана.
2. Вставить ключ в замочную скважину.
3. Повернуть ключ два раза против часовой стрелки.
4. Вынуть ключ.
Если вы внимательно оглянитесь вокруг, то обнаружите множество алгоритмов которые мы с вами постоянно выполняем. Мир алгоритмов очень разнообразен. Несмотря на это, удается выделить общие свойства, которыми обладает любой алгоритм.
Свойства алгоритмов:
1. Дискретность (алгоритм должен состоять из конкретных действий, следующих в определенном порядке);
2. Детерминированность (любое действие должно быть строго и недвусмысленно определено в каждом случае);
3. Конечность (каждое действие и алгоритм в целом должны иметь возможность завершения);
4. Массовость (один и тот же алгоритм можно использовать с разными исходными данными);
5. Результативность (отсутствие ошибок, алгоритм должен приводить к правильному результату для всех допустимых входных значениях).
Виды алгоритмов:
1. Линейный алгоритм (описание действий, которые выполняются однократно в заданном порядке);
2. Циклический алгоритм (описание действий, которые должны повторятся указанное число раз или пока не выполнено задание);
3. Разветвляющий алгоритм (алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий)
4. Вспомогательный алгоритм (алгоритм, который можно использовать в других алгоритмах, указав только его имя).
Вид стандартного графического объекта
Программирование: с чего начать, или Незаменимый бейсик
Я всегда тепло вспоминаю свой первый язык программирования. Как, полагаю, многие из увлечённых компьютерами в 80-х и ранних 90-х, я выучил его ещё до того, как прикоснуться к клавиатуре (тем более — к клавиатуре собственного компьютера!), и не по учебникам, не на спецкурсах: по распечаткам программ в популярных журналах. Синтаксически простой, семантически схожий с английским языком, с суперкомпактным набором команд, позволяющий писать сразу, с ходу, не задумываясь об инициализациях и прочем подобном, он был идеальным решением для тех, кто ничего не смыслит в программировании, но хочет разобраться. Мне даже нет нужды называть его имя, вы и так его узнали, потому что вариант только один. А случившееся на днях заставило задуматься: а правда ли век его прошёл? Правда ли он «был», но не остаётся?
Событием, которое подтолкнуло к рассуждениям о вроде бы давно забытом предмете, стал выпуск компанией Google программы Coder. Попросту говоря, это инструмент для начинающих веб-программистов, работающий в том числе (и в первую очередь) на сверхдешёвом Raspberry Pi. Десять минут на установку — и вот вы уже в среде, готовой к созданию полноценных HTML5-проектов (классическая связка HTML+Javascript+CSS). В некотором роде это современная реализация идеи восьмибитных машин: дешёвых, предельно простых, максимально открытых для изучения и девелопмента. Одна проблема, Javascript и CSS и даже современный HTML (который совсем не тот, что был пятнадцать лет назад!) ещё нужно освоить. А уж тут распечатками не обойдёшься, понадобятся минимум справочники, скорее всего, учебники, а хорошо бы ещё и знающего человека для ответов на глупые вопросы! В результате современному двенадцатилетнему пацану, решившему начать обучение с Coder’a, потребуется приложить значительно больше усилий, чем прикладывали в своё время мы, начиная с BASIC’а.
BASIC — творение 1964 года, рассветных лет компьютерной эпохи. Американцы Джон Кемени и Томас Куртц написали его, чтобы облегчить знакомство с вычислительной техникой своим студентам (в те годы как раз началось распространение терминалов, и доступ к ВТ перестал быть уделом только лишь атомщиков и ракетчиков), но язык быстро зажил самостоятельной жизнью. В 70-х, с началом эры персональных компьютеров, BASIC немедленно стал стандартом де-факто в качестве основного языка программирования, и даже больше того — пользовательской оболочкой, средой, из которой управляли машинами. Не случайно и Гейтс с Алленом для «Альтаира» и Возняк для Apple I первым делом писали именно BASIC!
Сегодня, в век графических интерфейсов, применение языка программирования в качестве основы рабочего стола кажется диким, но ещё двадцать лет назад это было не просто удобно, а и естественно — из-за ограниченных ресурсов домашних ПК. Лишь с середины 90-х, когда офисные машины захватили дом, этой моде пришёл конец. Но не бейсику (боюсь, литредактор сделает мне выговор, поскольку правильно брать название в кавычки — но рука не поднимается закавычить имя почти что друга, столько лет служившего верой и правдой)! Уже к тому моменту язык был модифицирован сотнями вендоров, которые крутили им как хотели — что, кстати, тоже было следствием того же главного достоинства, которое и обеспечило BASIC’у взлёт. А сегодня для одного только перечисления всех бейсиковских диалектов придётся занять больше дюжины страниц (если интересно, вот полный список в Википедии).
А что обеспечило ему взлёт? Простота. Абсолютная, непревзойдённая, интуитивная простота. Там, где другие языки требуют выстраивания многоэтажных конструкций, бейсик просит только номер строки. Другие требуют редактора, компилятора, операционной системы — BASIC замкнут на себя (первый вариант был компилируемым, но впоследствии его чаще выполняли в виде интерпретатора). Его структура такова, что программа в большинстве случаев работает сразу, а если не работает, то ошибка конкретна, её легко найти и понять. Да, он слаб («Слабый, легковесный язык», — говорил Возняк), но именно в этом его сила! Вообще, бейсиковская «немощь» — феномен, который заслуживает отдельной книги. Она делает язык уникальным, она помогла ему пережить несчётное множество архитектур и платформ.
Ведь как развиваются языки программирования? Усложняясь, обрастая новыми свойствами. BASIC живёт по другим законам. Его эволюционное древо прямое, как стрела: попытки привить ему новые свойства в лучшем случае обособились в отдельные проекты, никак не повлияв на популярность главного (самого простого) диалекта. Больше того, за десятилетия эволюции он отбросил словно шелуху и ту лишнюю небольшую сложность, которую изначально предусмотрели в нём авторы (к примеру, избавившись от функций матричных вычислений). Неспособный противостоять «серьёзным» языкам программирования, он нашёл себе постоянного поклонника в лице вечно молодого компьютерного новичка.
Суметь понять решающее значение «слабости», признать его — совсем не шутка. Рискну утверждать, что даже Куртц и Кемени так до конца и не поняли главной фишки созданного ими языка. В середине 80-х они попытались продавить на рынок своё новое детище, True BASIC, основав под него компанию. Как коммерческий продукт он ещё существует, но как замена BASIC’у бесстыдно провалился, ибо оказался более сложным.
Говоря о BASIC как лучшем языке для начинающих, я конечно имею в виду не исправленных до неузнаваемости ублюдков вроде Visual Basic или Openoffice.org BASIC, где от оригинала осталось почти одно лишь название, а тот базовый, универсальный для всех минимум из двух десятков команд, на котором писали уже полвека назад. Сегодня его так же легко отыскать на любой платформе для любой архитектуры — и так же просто, как и десять, и двадцать, и сорок лет назад, применить для решения несложных задач. Помнится, совсем недавно, когда жена усомнилась в справедливости парадокса Монти Холла, я за пять минут набросал программку, демонстрировавшую его практически. И использовал не любимый C, не скриптовые языки, а старину BASIC — писать на котором можно, не задумываясь о собственно программировании.
Однако времена меняются. Интернет и Веб перекроили персоналку. Компьютер сегодня — это Сеть, а оригинальный бейсик о сетях ничегошеньки не знает. Так что же, пора заменить «лучший язык для новичков» новым, более современным, более приспособленным к технике и технологиям нового столетия? Давно пора, считают многие — и предлагают наперебой варианты, чаще всего останавливаясь на Python (который даже называют «бейсиком XXI века») и Javascript. Они разные, но роднит их сравнительная простота и лёгкость в обращении с интернет-механизмами. И человек, начавший своё компьютерное образование с них, конечно, сумеет потом применить полученные знания для серьёзных дел. Вот только есть одна нестыковочка: они и близко не так просты, как BASIC!
Пусть он примитивен, пусть неспешен. Но он недостижимо прост — а значит, уже в первые полчаса — да что там, в первые десять минут! — новичок, для которого компьютер до сих пор был магическим артефактом, сможет сделать что-то своими руками. Сможет сам заставить машину сделать что-нибудь для него! Вы помните свой первый раз? Помните восторг, который испытали, когда ваши первые бейсиковские строки заставили компьютер подчиниться вашей воле? И разве вы, начиная, преследовали цель обучиться конкретным технологиям? Рискну предположить, вы начинали программировать даже не для того, чтобы понять, как работает машина, а просто чтобы получить удовольствие от управления ею!
Ну а заставив машину прокатить вас, усвоив базовые концепции программирования (для чего BASIC так же хорош, как и любой другой язык), можно спрыгнуть куда угодно. Моё поколение уходило в машинные коды и ассемблер (вот, кстати, продолжение лично моей истории: «Мой первый стартап: Россия, 94-й»); сегодня, вероятно, разумным выбором будет Python или Javascript.
Но — начинать? Руки прочь от святыни! BASIC ещё послужит.
Примеры программ на языке бейсик
Рисунок 1. Программа на BASIC. Автор24 — интернет-биржа студенческих работ
В 1977 г. Microsoft выпустила Altair BASIC и превратила этот язык в средство коммерческого давления, добившись встраивания его в чипы ПЗУ IBM PC. Это поспособствовало резкому росту популярности языка. В те годы, на волне всплеска потребительского спроса на первые персональные компьютеры, это было объяснимо. Возможности ранних ПК были скромны, программного обеспечения для них было мало, перенос и установка ПО были трудоемки (для хранения программ использовались бытовые магнитофоны), поэтому корпорации, выпускавшие ПК, охотно встраивали BASIC в свои машины. Благодаря этому владелец компьютера мог сразу же после включения устройства приступить к его использованию.
Со второй половины 1980-х гг. персональные компьютеры становятся сложнее и мощнее. BASIC уже, во-первых, не подходит для полноценного управления такими устройствами, во-вторых, появляется рынок готового ПО, и необходимость в написании компьютерных программ неспециалистами отпадает.
В начале 1990-х гг. Microsoft выпускает на рынок язык Visual Basic, рассчитанный, опять-таки, на то, чтобы неспециалисты могли с легкостью писать небольшие программы, повышающие эффективность приложений пакета Microsoft Office (т.н. макросы для Word, Excel). На этом языке можно было создавать и полноценные самостоятельные приложения, поэтому он получил название Visual Basic for Applications (VBA) и поддерживается до сих пор. В 1990-е гг. существовала также разновидность Visual Basic Script, которой Microsoft намеревалась вытеснить JavaScript на веб-страницах. Эта концепция оказалась нежизнеспособной.
Рисунок 2. Программа на Visual Basic для рисования фракталов. Автор24 — интернет-биржа студенческих работ
Особенности языка BASIC
Недостатком BASIC является и то, что в программах на этом языке большая роль отводится оператору GOTO («перейти к. «), с помощью которого осуществляются ветвления. GOTO ссылается на номера строк, а они, по мере написания программы, могут изменяться. Несмотря на все ухищрения, с помощью которых программисты пытались решить эту проблему, использование GOTO затрудняет читаемость, превращает листинг в «спагетти-код», разобраться в котором со временем становится трудно даже автору программы. Интенсивное использование GOTO было связано с отсутствием в ранних версиях BASIC возможности использовать собственные подпрограммы и функции. Со временем в большинстве реализаций этот недостаток исправили.
Реализации и диалекты BASIC
Несмотря на то, что BASIC с самого начала считался «несерьезным» языком программирования, многие компании и просто IT-специалисты создали собственные его разновидности.
Варианты BASIC существуют для множества платформ. Под свободной лицензией распространяется, например, кроссплатформенный Bywater BASIC (bwBASIC). Он предназначен для работы в консоли, т.е. без оконного интерфейса.
Пример программы на языке BASIC (диалект FreeBASIC)
Рассмотрим программу, записывающую строки в файл, а затем считывающую из него.