Russian English
   Basic.net
Среда, 23.09.2020, 04:14
Меню сайта
Категории раздела
Basic [44]
Помощь [0]
Облако тегов
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа
Главная » Статьи » Basic

Примеры кодов в PowerBasic
Share |
Примеры кодов в PowerBasic.

Программы по работе с графикой:
tunnel.rar (11 кб) - Полет по туннелю
world.rar
(110 кб) - Вращающийся земной шар


ООП:

'Первая переменная это объект, а вторая изменяемого типа
Dim oWord As Dispatch, vBool As Variant
'Word.Application.10 - это PROGID, определяющий имя сервера
'Dispatch - это объект позднего связывания
'попытка связи клиента с сервером
Let oWord = Dispatch In "Word.Application.10"
'Если Word уже был запущен, соответственно установится связь,
'в противном случае объектная переменная останется пустой.
'Если объект пустой значит нужно запустить сервер (ключевым словом New)
If IsFalse IsObject(oWord) Then Let oWord = New Dispatch In "Word.Application.10"
'Значения, передваемые (получаемые) в объект,
'должны храниться в переменной изменяемого типа
Let vBool = 1
'Изменяется одно из свойств объекта командой Let
'В данном случае устанавливается видимость.
Object Let oWord.Visible = vBool


Inline Assembler:

Function CalcASM(ByVal Value As Long) As Long
' Переслать константу в счётчик цикла
! MOV ECX,10
' Переслать параметр в аккумулятор
! MOV EAX,Value
Label1:
' В цикле к значению прибавляется 1
! INC EAX
' Уменьшить счётчик цикла на 1
! DEC ECX
' Продолжить цикл
! JNZ Label1
' Функция возвращает результат
! MOV Function,EAX
End Function


Работа с массивами:
'Объявить динамический массив и задать его размер
Dim A$(): ReDim A$(1 To 10)
'Присвоить 7-мому элементу строчный литерал
A$(7)="Привет мир"
'Создать строку с таблицей символов
C$ = Chr$(0 To 255)
'Заменить коды строчных символов на коды заглавных
Dim PosU As Integer
For PosU=1 To Asc("Я")-Asc("А")+1
Mid$(C$,Asc("а")+PosU,1)=Mid$(C$,Asc("А")+PosU,1)
Next PosU
'Команда поиска, здесь:
'From 8 To 11 - искать с символа номер 8 по 11-й в каждом элементе массива;
'Collate C$ - использовать пользовательскую таблицу;
'= "МИР" - Искомое выражение;
'To I& - результат.
Array Scan A$(), From 8 To 11, Collate C$, = "МИР", To I&
MsgBox Str$(I&)


Категория: Basic | Добавил: Admin (06.12.2010)
Просмотров: 3932 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Наш опрос
Какую версию Basic вы предпочитаете?
Всего ответов: 2028

© Basic.ucoz.net, 2020