FAQ Basic 4 PPC Деменёв Александр
(Time (Now)) - Узнать время
AppPath - Узнать каталог программы
CancelClose - Запрет закрытия окна
Chr - Применение кода символа
Date(Now) - Узнать дату
Do Until - Цикл (пока неравно)
ErrorLabel - Переход при ошибке в коде
Exit - Выход из цикла
FileClose - Основные флаги
FileDel - Удаление файла
FileExist - Проверка наличия файла
FileOpen - Запись в файл
FileOpen - Основные флаги
FileOpen - Чтение из файла
For - Цикл
Form - Закрыть окно
ListBox - Добавить строку
ListBox - Запись всех строк в файл
ListBox - Удаление выбранной строки
ListBox - Узнать выбранную строку
ListBox - Чтение из файла всех строк
Msgbox - Возврат выбранного действия
Msgbox - Вывод на экран месаги
OpenDialog - Возврат имени файла
OpenDialog - Показать диалог
OpenDialog - Проверка на отказ от диалога
RGB - Возвращение RGB цвета
Rnd - Генерация случайного числа
SaveDialog - Возврат имени файла
SaveDialog - Показать диалог
SaveDialog - Проверка на отказ от диалога
Shell - Запуск других программ
Sleep - Приостановка выполнения
Sound - Воспроизведение WAV
specialKey - Проверка нажатия клавиши
StrAt - Взять символ из строки
StrIndexOf - Найти часть строки в строке
StrInsert - Вставка в строку
StrLength - Узнать длину строки
StrRemove - Считать часть строки с конца
StrReplace - Замена символа в строке
StrToUpper - Сделать все символы строки большими
Sub - Применение функций
TextBox - Запись всех строк в файл
TextBox - Чтение всех строк из файла
(Time (Now)) - Узнать время
Msgbox (Time (Now))
AppPath - Узнать каталог программы
Msgbox(AppPath)
CancelClose - Запрет закрытия окна
Form1.CancelClose
Chr - Применение кода символа
Chr(34)
Chr (Integer)
Date(Now) - Узнать дату
Msgbox (Date(Now))
Do Until - Цикл (пока неравно)
Do Until r=EOF
...
Loop
ErrorLabel - Переход при ошибке в коде
ErrorLabel(Err)
Err: '-сюда перейдем
Exit - Выход из цикла
For n = 1 to 100
If n = TextBox1.Text Then Exit
Next
FileClose - Основные флаги
FileClose (переменная файла)
переменная задаётся типа String
FileDel - Удаление файла
FileDel (AppPath&"\file.txt")
FileExist - Проверка наличия файла
If FileExist ("C:\1.txt") = true Then
...
End If
FileOpen - Запись в файл
FileOpen (c1,"C:\1.txt",cWrite,,cASCII)
FileWrite (c1,"20") 'запишем в первую строку 20
FileWrite (c1,"30") 'запишем в первую строку 30
FileWrite (c1,TextBox1.Text)'запишем в первую текст
FileClose (c1)
FileOpen - Основные флаги
FileOpen (переменная файла,"имя файла",флаг чтения,кодировка)
переменная задаётся типа String
имя файла задаётся типа String
Флаги чтения:
cRead - чтение
cWrite - запись
cAppend - запись в коней файла (добавление)
Кодировка:
cASCII
FileOpen - Чтение из файла
FileOpen (c1,"C:\1.txt",cRead,,cASCII)
TextBox1.Text = FileRead (c1) 'считает 1 строку
TextBox1.Text = FileRead (c1) 'считает 2 строку
FileClose (c1)
For - Цикл
For n = 1 to 100
If n = TextBox1.Text Then Exit
Next
Form - Закрыть окно
Form1.Close '- Если главное то выход
ListBox - Добавить строку
ListBox1.Add("СТРОКА")
ListBox - Запись всех строк в файл
FileOpen(c1,AppPath&"\db.db",cWrite)
FileWrite(c1,ListBox1.Item(0))
i=Int(1)
Do Until i = ListBox1.Count
FileWrite(c1,ListBox1.Item(i))
FileClose(c1)
i=i+1
Loop
ListBox - Удаление выбранной строки
a=ListBox1.Item(ListBox1.SelectedIndex)
ListBox1.Remove(a)
ListBox - Узнать выбранную строку
Msgbox(ListBox1.Item(Index))
ListBox - Чтение из файла всех строк
FileOpen (c1,"C:\1.txt",cRead,,cASCII)
a = FileRead (c1)'читаем первую строку
If a<>EOF Then ListBox1.Add(a)'если неконец
'добавить строку
Do Until a = EOF 'цикл до конца файла
a = FileRead (c1)
If a<>EOF Then ListBox1.Add(a)
Loop
FileClose (c1) 'закрываем файл
Msgbox - Возврат выбранного действия
i = Msgbox("Вы уверены?","Заголовок",cMsgboxYesNo,cMsgboxQuestion)
If i = cYes Then
....
....
Else If i = cNo Then
End If
Msgbox - Вывод на экран месаги
Msgbox ("ТЕСТ МЕСАГИ")
OpenDialog - Возврат имени файла
OpenDialog1.Show
Msgbox(OpenDialog1.File)
OpenDialog - Показать диалог
OpenDialog1.Show
OpenDialog - Проверка на отказ от диалога
If OpenDialog1.Show <> cCancel Then
...
End If
RGB - Возвращение RGB цвета
pen1.Color = RGB (255,255,255)
RGB (R, G, B)
Rnd - Генерация случайного числа
i = Rnd (30, 60)
30 - от 30
60 - до 60
SaveDialog - Возврат имени файла
SaveDialog1.Show
Msgbox(SaveDialog1.File)
SaveDialog - Показать диалог
SaveDialog1.Show
SaveDialog - Проверка на отказ от диалога
If SaveDialog1.Show <> cCancel Then
...
End If
Shell - Запуск других программ
Shell ("Calc.exe", "")
Shell (Program File, Arguments)
Sleep - Приостановка выполнения
Sleep(1000)
Sleep (Milliseconds)
Sound - Воспроизведение WAV
Sound ("\Sounds\Beep.wav")
Sound (Wave File)
specialKey - Проверка нажатия клавиши
Sub Form1_KeyPress (specialKey)
If specialKey=cMiddleKey Then Msgbox("yes")
End Sub
cDownKey
cLeftKey
cMiddleKey
cRightKey
cUpKey
StrAt - Взять символ из строки
отчёт сиволов строки начинается с 0
Пример: a = StrAt ("abcdef" , 3)
Вернёт: a = "d"
StrAt (String, Index)
StrIndexOf - Найти часть строки в строке
Пример:
Msgbox (StrIndexOf ("abcdef" , "cd",0))
'Поиск с 0 символа
Результат : Displays 2.
Пример:
Msgbox (StrIndexOf ("abcdef" , "ab",1))
'Поиск с 1 символа
Результат: Displays -1 (not found)
StrIndexOf (String, Value, StartIndex)
StrInsert - Вставка в строку
Old = "12567"
New = StrInsert (Old,2,"34")
Result: New = "1234567"
StrInsert (String, StartIndex, Value)
StrLength - Узнать длину строки
Пример: Msgbox (StrLength ("Basic4ppc"))
Результат: Displays 9
StrLength (String)
StrRemove - Считать часть строки с конца
Old = "Basic4ppc"
New = StrRemove (Old ,6 , 3)
Result: New = "Basic4"
3 - начиная от конца с 3-го символа
6 - считываем 6 символов
StrReplace - Замена символа в строке
s = "The sun is bright"
s = StrReplace (s," ","") 'удаление пробела
Result: s = "Thesunisbright"
StrReplace (Строка , СтарыйСимвол, НовыйСимвол)
StrToUpper - Сделать все символы строки большими
Пример: Msgbox (StrToUpper("AbCdE"))
Результат: Displays "ABCDE"
StrToUpper (Строка)
Sub - Применение функций
Sub Button1_Click
Msgbox("The mean of 20 and 30 is " & Mean(20,30))
End Sub
Sub Mean (a,b)
Return (a+b)/2 'расчиатет для 20,30
End Sub
Sub SubName (Parameters)
End Sub
TextBox - Запись всех строк в файл
FileOpen(c1,"C:\1.txt",cWrite)
FileWrite(c1,TextBox1.Text)
FileClose(c1)
TextBox - Чтение всех строк из файла
FileOpen(c1,"C:\1.txt",cRead)
TextBox1.Text = FileReadToEnd(c1)
FileClose(c1)
Данный файл сгенерирован программой Rec Office
22.03.2009-0:54:26