Реферат: Основы Visual Basic 5.0 - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

Основы Visual Basic 5.0

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Архив Zip, 39 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Основы V isual B asic 5.0 В приложениях VB 5.0 исполняемые стр оки до лжны размещаться внутри процедур либо функций . Операторы в VB редко используют номера строк , а любые из них обычно начинаются с новой строки . Строки ограничен ы длиной в 1023 символа . можно расширять стро ки , используя символ “ _” после пробела в конце строк и . Несколько операто ров можно объединять в одной строке , разде ляя их “ : ”. Комментарии задаются верхней кавычкой ( ‘ ), либо оператором REM. Комментарий может быть выведен отдельной строкой , либо в конце строки . Во втором случае лучше использовать кавычку ( ‘ ), чем REM, т.к . REM здесь требует разделителя (:). Например, DIM FARENG ‘ переменная для вычисления t 0 по Фаренгейту или DIM FARENG : REM переменная для вычисления t 0 по Фаренгейту Оператор End - программа останавливается . После оператора End закрываются все окна , открытые программой , а сама она стирается из п амяти . Внутри приложения VB может быть сколько угодно операторов End, но обычно лучше испол ьзовать только один оператор End в процедуре обработки событий QueryUnload для основной формы . В этом случае все операторы End заменя ются на Unload Me , который вызывает себе QueryUnload для формы. Одним из основных операторов является присваивание значения переменным и установка значений свойств. Например , 1) Result = 0.5 20 имя з начение переменной Можно использовать оператор LET 2) объект.свойство = значение txtDisplay.Text = “ “ Свойства по умолчанию У любого объекта VB есть свойство по умолчанию . Например , для текстового поля это свойство Text. При ссылке на данное свойство можно не указывать его имя. Например , txtDisplay=“Привет !” Некоторые свойства могут принимать значен ия TRUE или FALSE. В VB5 имеются встроенные константы для обозначения данных свойств , например , cmdExit=False будет скрывать командную кнопку , пока не появи тся выражение cmdExit=True. Внутри себя VB использует значение 0 для False и -1 для T rue (или любое ненулевое значение ). Можно использовать следующее выражение дл я изменения свойства на противоположное cmdExit.Visible = Not (cmdExit.Visible). Переменные . Имена переменных менее 255 символов начинаются с буквы , за которой следуют другие буквы , цифры или символ “ _” . Регистр значения не имеет . В качестве имен переменных нельзя использо вать зарезервированные слова , например , Print. Принято использовать смешанн ы й регистр п ри задании имен переменных , состоящих из н ескольких слов , например , CurrentValue. Типы переменных . Используется 14 стандартных типов переменных . Можно определить и собств енный тип . Основные типы : String - строковые переменные . Для обозначения эт ого типа можно добавить символ “ $” к концу имени. Например , Message $ = txtDisplay.Text Integer - целочисленная переменная в диапазоне -32768 +32767. Для обозначения в конце имени добавляется “ %” арифметический оператор выполн яется быстро. Например , IntVar% =5 LongInteger - длинное целое от -2147483648 до +2147483647. Обозначае тся “ &”. LongInt&= 123456789. SinglePrecision хранит дробные числа с точностью до 7 цифр . Для на чисел может достигать 38 знаков с обозначением “ !” . Вычи с ления ч данными переменными будет приблизител ьным. DoublePrecision “ #” . Числа с точностью до 16 ц ифр и длиной до 300 символов . Вычисления тоже приблизительны , а скорость небольшая . Использ уется для научных расчетов. Currency - используется при преобразова нии десятичных чисел в двоичную форму и наобо рот . Обозначение - “ @” . Может иметь до 14 цифр до запятой и до 4 цифр - после . Испо льзуется для финансовых расчетов. Date - значения даты и времени от 00 час .1 января .100 года до 00час .31 декабря .9999 г . Значе ни е обозначается “ #”. Time = # May 5, 1999 # Byte - для хранения целых чисел от 0 до 255. Экономит оперативную память и размеры мас сивов . Используется также при работе с дво ичными файлами. Variant - данные любого типа . Если VB не знае т тип принимаемых данных , используется э тот тип . Использование его замедляет работу программ , т.к . требует времени и ресурсы для операций преобразования типов. В отличие от других версий Basic в одн ой программе нельзя использовать одни и т е же имена переменных , отличающихся тольк о типом . Например , A% и А ! При первом использовании переменной VB врем енно присваивает переменной тип Variant и пустое значение . Это значение исчезает в тот м омент , когда переменной присваивается реальное . Любой тип данных имеет свое “пустое” з начение . Для String это строка нулевой длины “ “ . Для численных переменных это 0. Можно не использовать идентификаторы для обозначения типа переменной , а использовать оператор Dim. Оператор Dim служит для объявления типов переменных. Dim Years As Integer Dim Amount As Currency . . . . Объявления можно комбинировать в одной строке. Dim Years As Integer, Amount As Currency Dim Result без типа присваивает перем енной тип Variant. Если в программе используются необъявленн ые переменные , легко допустить ошибку при написании их имени . В этом случае ис пользуется принудительное объявление переменных с помощью оператора Option Explicit. Этот оператор не используется в конкретных процедурах обработки событий , а размещается в разделе General формы , чтобы быть доступным всем процеду рам обработ ки событий . После того , как VB встречает опер атор Option Explicit, он не позволяет более использовать необъявленные переменные . Этот оператор можн о использовать для изменения значений по умолчанию. Область видимости переменных В программах VB5 в се переменные изол ированы внутри процедур . То есть переменная Result в одной процедуре не влияет на значен ие переменной с тем же именем в друго й процедуре . То есть переменные являются л окальными по отношению к процедурам , если не указано иначе. Иногда необ ходимо , чтобы какая-то переменная была доступна всем процедурам форм ы . Такие переменные называют переменными уров ня формы или модуля . Переменные уровня фор мы также объявляются в разделе General с помощь ю операторов Private или Dim. В больших проектах , в ко торых процедуры и формы хранятся в отдельных мо дулях , а не подключаются к форме , можно объявить глобальную переменную , доступную в любой части проекта. Это делается в разделе Declarations любого моду ля кода : Public Amount As Single или Global Amount As Sin gle Когда VB вызывает процедуру обраб отки события , старые значения локальных перем енных уничтожаются . Они принимают значения по умолчанию . Такие переменные называются динам ическими . Но в некоторых случаях необходимы статические переменные , которые не иници ализируются повторно при вызове процедуры . Часто такие переменные используются для счетчиков , их используют , чтобы сделать элемен ты управления видимыми или невидимыми . Чтобы объявить статическую переменную внутри проце дуры необходим оператор Dim заменить н а Static. Static Amount As Single, Is_Visible As Boolean. Если необходимо , чтобы все п еременные в процедуре были статическими , необ ходимо добавить Static Private Sub cmdLom_Click() Строки Операция конкатенации для сложения нескол ьких строк + или & Наприме р , A$ = “Иванов” B$ = “Иван” C$ = “Иванович” D$ = A$ & B$ & C$ или D$ = A$ + B$ + C$ Отличие . С помощью “ &” можно объед инять строковые и другие типы . Например , C = A% & B$, изменится их тип на Variant. Для перехода к новой строке при п ечати символов (перев од каретки ) используе тся встроенная const VbCrLf. Например , чтобы разорвать с троку в информационной панели или в много строковом текстовом поле можно Message $ = “ 1- я строка ” Message $ = Message $+VbCrLf + “ 2- я строка ” MsgBox Message $ Замечание . Если в про грамме исполь зуются числа и они не присваиваются перем енной Variant, то VB полагает : Если число не имеет десятичной точ ки и лежит в диапазоне от -327686 +32767, то это Integer. Если не имеет десятичной точки и лежит в диапазоне для Long Integer, то это L ong Int. Если имеет десятичную точку и лежи т в диапазоне для чисел с обычной точ ностью (7 цифр ), то это Single precision. Если имеет десятичную точку , но леж ит вне диапазона , то это Double precision. Такие приблизительные расчеты часто приво дят к проблем ам . Например , VB полагает , ч то тип результата с двумя целыми числами есть целое . Например результат Print 123456 789 выходит за рамки целого и возникает ошибка переполнен ия . Тогда необходимо использовать идентификатор хотя бы для одной переменной Print 123456& 789. Можно также использовать встроенные функц ии для преобразования типов , например , LInt - округ ляет число до целого , Clong - до длинного целого , Cvar - преобразует к Var. Если производятся операции с переме нными Variant, то не возникает проблем с преобра зованием типов. Помимо обычных , десятичных чисел , VB использ ует двоичные и шестнадцатеричные . Последние о бозначаются с префиксом &H. Например , число 49 = &H31. Шестнадцатиричные цифры использ уются для кодирования различных цветов : любой цвето вой код состоит из 6 шестнадцатиричных цифр от &H000000& = 0 до &HFFFFFF& (длинное целое ) (16777215). Вообще конкретный цвет определяется колич еством красного R, зеленого G и синего цветов B во всевозможны х сочетаниях . В коде цвета VB две последние цифры означают количеств о красного , две средние - количество зеленого , а две первые - количество синего , например &H0000FF& - максимально красный &H00FF00& - максимально зеленый &HFF0000& - максимально синий &H00 0000& - черный &HFFFFFF& - белый &H00FFFF& - желтый (красный + зеленый ) &H808080& - серый (равные количества цветов ) Константы Для неизменных значений в программе и спользуются константы . Константы объявляются анал огично переменным , по тем же правилам : имя содержит не более 200 символов , первый символ буква . Если в программе используется только одна форма , то константу можно объявить в разделе DeclarationHous для объекта General. Или же можно и непосредственно в процедуре , но это хуже . Константу объявляют ч е рез зарезервированные слова Const. Например, Const Pi = 3?14159 Const Course = “ Informatics” VB5 имеет только набор встроенных констан т , например , VbCrLf или VbOrOnly. Их можно вставлять в текст программы из окна Object Browser (F2 или меню View). Чтобы вс тавить Const в программе : Курсор должен быть в окне кода. В окне Object Browser щелкнуть на кнопке Copy to Clipboard. Перейти в программе на место вставки и нажать Ctrl+V. Встроенные функции Особое значение имеют строковые функции , т.к . в полях ввода ин формация хра нится в текстовом формате или в формате ariant. Использование же неявных преобразований типо в из Variant часто приводит к проблемам и я вляется более медленным. Строковые функции : = Space (число пробелов ) - выдает строку , состоя щую из одних проб елов , причем число символов в строке определяется параметром в скобках. = String (число , строковое выражение $) - формирует строку , содержащую одинаковые символы. Например , X$=String (10, “ z” ) - 10z = Len (строковое выражение ) - длина текущей ст роки с проб лемами и напечатанными сим волами. = Mid ( строка , начало [, длина ]) Mid (“ Visual Basic” , 1,6) = “ Visual” Mid (“ Visual Basic” , 8,6) = “ Basic” Mid (“ Visual Basic” , 8) = “ Basic” Пример . Подсчет числа точек в строк е Points % = 0 Length % = Len (Text $) For I% = 1 to Length % If Mid (Text $, I%, 1) = “.” then Points $ = Points $ + 1 End If Next I% = Left (c трока , № до позиции ) = Right (строка , с № позиции ) Функцию Mid можно использовать для измене ния содержания внутри текущей строки . Наприме р X $ = “ Best Basic” Mid (X $,1,5) = “ Quick” какое количество символов с какого символа будет взято из н овой строки вставляется новая строка поверх части старой = Insert ([начальная позиция ], строка для поиска , подстрока ) является ли данная строка частью друг ой строки , выдае т номер позиции , с которой начинается подстрока. Text $ = “ QuickBasic” X $ = Instr (1, Text $, “ Basic” )=6. Если подстрока не найдена Instr возвращает нулевое значение (False). Пример . If Instr (Text $, “ ” ) then Print “ символ н айден ” Else Print “ Не найден ” End If = LС ase, = UС ase - преобразует все с имволы строки в нижний (верхний ) регистр Вместо Lcase $ Ucase$ = Str lomp - для сравнения строк Пусть X = StrComp (A$, B$) = Если A$ или B$ пуста , то х = NULL Если использовать StrComp (A$,B$,1) - регистр не учитыва ется , а если StrComp (A$,B$,0) - регистр учитывается. = Trim (строка $) - уничтожает пробелы начале и конце строки LTrim (строка $) - уни чтожает пробелы в левой части строки RTrim(строка $) - уничтожает пробелы в правой части Все строковые функции , за исключением Mid, не изменяют строку , а создают ее копию и потом с ней работают. Управляющие структуры в программе Определенные циклы For ___ Next For I% = 1 to 10 (% - целочисленный тип для ускорения р аботы цикла ) Print I% Next I% Цикл завершается , не в тот момент , когда значение счетчика равняется конечному , а когда оно превышает его. Пример . Печать всеми доступными шрифтами экрана. Pr ivate Sub Form_Click() Dim I As Integer For I=0 to Screen.FontCount - 1 FontName = Screen.Fonts (I) Print “ Это шрифт ” ; Screen.Fonts (I) Next I End Sub Неопределенные циклы Не выполняются фиксированное число раз . Цикл может выполняться или нет в завис имости от результата , вычисляемого внутри цикла Do Выражение Loop Until выполняется условие Пример . Проверка пароля Private Sub Form_Load () Do X$ = InputBox$ (“ Пароль ?” ) Loop Until X$ = “ VB” End Sub Для остановки бесконечного процесса испол ьзуют клавиши “ Break ” или Run|End или закрыт ь приложение . В программе можно использовать оператор Exit Do (или Exit For), которые переводят программ у к оператору следующему после цикла. Сложные неопределенные циклы В неопределенных циклах проверка происход ит в конце цикла и с четчика увели чивается еще на 1. Иногда это вызывает лишн ее обновление счетчика . Можно передвинуть про верку условия на начало цикла : Do Until условие Тело цикла Выражение Loop Do While Do Loop Until аналогичен Do Loop While условие Пример. Do Do Loop Until N>5 Loop While N <=5 Do While Do Выражение Loop While условие или Do While условие Выражение Loop В таких циклах можно объединять неско лько условий , например Do While X<=0 and txtDisplay.Text=“ “ Loop Цикл While /Wend While условие . . . . . Wend Например , While x>0 S = S+x Wend Может быть несколько вложенных циклов . Любой Wend относится к ближайшему While. Do __ Loop дает ст руктуру и гибкость цикла. Ус ловные операторы If условие Then оператор Например , If N>=0 and N<=9 Then Print “ Ok” Оператор Select Case Позволяет обрабатывать несколько вариантов выбора. Select Case переменная и ли выражение Case оператор проверки условия действие 1 . . . Case . . . . . . действие n -1 End Select Пример : Select Case Ball Case Is < 13 позволяет проверить значение переменн ой Grade = 2 Case Is < 18 Grade = 3 Case Is < 22 Grade = 4 Case Else Grade = 5 End Select Пример 1. If Then Else Private Sub Form_Quer yUnload(Cansel As Integer, UnloadMode As Integer) X % = MgBox ( “Вы уверены ?” , VbYesNo ) If X % = VbNo Then Cancel = True Else Cancel = False End IF End Sub Пример 2. If optColor1.Value Then Color$ = “ Красный ” Else If optColor2.Value Then Color$ = “ Зеленый ” E lse If optColor 3 .Value Then Color$ = “ Синий ” Else Color$ = “ Белый ” End If Пример : Select Case Den Case 1 Print “ Пн ” Case 2 Print “ Вт ” . . . Case 7 Print “ Вс ” End Select В фразе Case можно задавать значения переменной в виде диапаз она Select Case Den Case 1 to 5 Print “ Рабочий день ” Case Else Print “ Выходной ” End Select либо перечислением возможных значений Select Case Den Case 6, 7 Print “ Выходной ” Case Else Print “ Рабочий день ” End Select Массивы 2 вида массивы : управляющие и массивы переменных (обыч ные массивы или списки ). Управляющие массивы состоят из нескольких однотипных элементов управления , использующих общие свойства , по отличающимся порядковым номерам или индексам . Может быть не более 255 элементов в таком массиве . При этом новые элементы на форме помещаются на место исходных элементов управляющего массива . Поэтому при размещении на форме их с ледует позиционировать и двигать , чтобы они не перекрывали друг друга . Например , можно создать на форме матрицу надписей или текстовых полей. Одномерные массивы или списки опред еляются именем и положением элемента в сп иске . Например данные о выпуске продукции за 12 месяцев. Могут быть фиксированные и динамические списки . Размеры их могут быть велики и определяются объемом свободной памяти. У фиксированных списков размер не меняется , а динамические списки могут менят ь свой размер . Для фиксированных списков п амять выделяется в начале работы программы и существует меньший риск переполнения пам яти. Динамические списки более гибки в раб оте. Списки могут быть вид имыми всему приложению , данной форме (модулю ) или толь ко одной процедуре. Создание фиксированного списка : а ) в форме (модуле ). Описание помещается в разделе деклараций формы (модуля ) Dim Massiv $(20) доступен любой процедуре модуля или ф ормы ; б ) в пределах всего проекта (глоб альный ) Public Massiv(20) As String - 21 элемент от 0 до 20 или Global в ) локальный массив , который сохраняется до следующего вызова процедуры Private Sub ........... Static Massiv A(20) Создание динамических массивов. а ) в форме В разме ре декларации формы Dim DYNMAS () As String А внутри процедуры выделяем нужный размер Private Sub ........... Dim N % ReDim DYNMAS(N) As String При работе команды ReDim информация в массиве теряется. Для сохранения информации при изменении размера массива R eDim Preserve DYNMAS(N+1) As String или ( N -1) удалит последний элемент б ) Глобальный динамический список , видимог о в пределах всего проекта Public DYNMAS() As String или Global Далее можно использовать ReDIM в любой процедуре всего проекта. Ввести данные в массив можно с помощью INPUT BOX , текстового поля. Для изменения нумерации в массиве не с 0, а с 1 - оператор Option Base 1 в разделе деклараций форм ы (модуля ). Можно задавать массив диапазоном значений вместо Dim A(19) Dim A (1980 TO 2000 ) Освобождение О П от динамический м ассивов Erase DYNMAS/ Для фиксированных списков Erase только очищает массив. Окна ввода Окна ввода - это другая возможность , по мимо текстовых полей , для ввода информации . Функция InputBox$ выводит на экран модальную диал оговую панель , кот орая в отличие от текстовых полей имеет фиксированный размер окна . У окна ввода есто строка заголовк а и 4 элемента : подсказка , командные кнопки OK и Cancel и поле ввода . Синтаксис функции : Строк овая переменная = InputBox(“подсказка” [,заголовок ][поумолчанию ] [,X][,Y][,файл справки , контекст ]) где подсказка - текстовая строка или ст роковая переменная (1024 символа ), заголовок -содержание строки заголовка ок на, по умолчанию - начальное содержимое окна ввода, X,Y- расстояние между левым (верхним ) краями экрана и о кна ввода . Если парамет ры не заданы , то окно располагается по центру на 1/3 высоты экрана. Например , MyInput$=InputBox(“Введи число” , “Запрос”,”0” ,100,200) Вывод информации Для вывода информации непосредственно на форме используется метод Print. Его синтак сис : Имя формы .Print выражение Например : frmHello.Print “Привет !” VB5 выводит информацию , начиная с того места , которое определяют свойства CurrentX и CurrentY- гор изонтальная и вертикальная позиции . При испол ьзовании метода Cls для очистки содержимого фо рмы CurrentX и CurrentY=0 и метод Print выводит информац ию , начиная с левого верхнего угла. Вывод информации можно осуществлять разли чными шрифтами , в зависимости от используемог о оборудования и программного обеспечения . Ес ли операционная система не находи т да нный шрифт , она выбирает ближайший аналог . Для выбора шрифта в программном коде исп ользуется следующий оператор присваивания : ИмяОбъекта-контейнера .Font.свойство =значение ?Например , frmHello.Font.Name=“ Arial” frmHello.Font.Size =20 frmHello.Font.Bold= True и т.д. В качнстве объекта - контейнера могут б ыть командная кнопка , форма , надпись , поле ввода . Но только формы и графические окна могут работать одновременно с несколькими шрифтами . В остальных элементах управления изменение шрифта влияет на весь текс т. Печать табличных данных В VB5 печать текста можно осуществлять в заданном формате . Зона имеет размер в 14 символов . В основном зоны используются при печати непропорциональными шрифтами типа Courier, т.к . каждая колонка по ширине равна средне му значению ширины символа . Если парамет ры в методе Print разделены запятыми , то данны е выводятся в нескольких зонах . Например : Me.Print Family$,Name$ После обработки выражения методом Print, произ водится переход на новую строку . Если испо льзуется Print без параметров , выводится пустая строка . Если не нужно переходить на н овую строку , в конце строки вставляется си мвол” ;” . Для печати с заданной колонки можно использовать функцию Tab, Например : Print Tab (номер колонки %); Для вставки указанного числа пробелов , начиная с текущей позиции , используется функция Spc (число пробелов %) Функция Format Для вывода числовых данных в нужном формате используется функция Format( числовое выражение , строка формата $) Результатом данной функции является строк а , в которой выражение пр едставлено по заданному формату . Например : Me.Print Format(123.456789,” ###.###” ) дают результат 123,46. Незначащие нули в на чале и конце числа игнорируются . Для вывод а незначащих нулей используется формат “000.00” . Если необходимо вывести символы “ - “ , “ + ” , “ $”,” (“,” )” или пробел , их размещают непосредственно в формате . Наприме р : Me.Print Format(Amount,” $###.###” ) Именованные форматы Именованные форматы являются встроенными форматами VB5 и облегчают работу по форматирован ию выводимого текста. Именованный формат Описание General Number Строка цифр без ра зделителя для тысяч Currency Выводит 2 цифры справа о т дес . точки и учитывает разделителя для тысяч Fixed По крайней мере одна цифра слева и две справа от десятичной точки Standard То же и разделитель ты сяч Percent Число в виде процента . Выводит две цифры справа от дес.точки Scientific Научная форма Yes/No Если чи сло равно 0, то выводит No, иначе Yes True/False Если ч исло равно 1, то выводит True, иначе False On/Off Если чи сло равно 1, то выводит On , иначе Off General Date Выводи т дату и /или время . Если отсутствует д робная часть , выводится только дата , если целая часть , то - время.Например 23.12.98 10:30:45 Long Date Полный формат Windows для вывода даты Wedn 23 Dec 1998 Medium Date Обычный фо рмат Windows для вывода дат ы 23- Dec-98 Short Date Сокращенный формат Windows для вывода даты 23.12.98 Long Time Время в час , мин , сек Medium Time Время в 12-часовом формате : час , мин и AM/PM Short Time Время в час , мин в 24-часовом формате Например, Me.Print Format(Amount, “ Currency” ) Me.Print Format(Amount, “ ###,###.##” ) Me.Print Format(Now, “ General Date” ) Объект Printer Vb5 позволяет легко устанавливать свойства принтера , используемого в системе . Команда PrintForm выводит на принтер графический об раз окна формы . Ее синтаксис : Им яФормы .PrintForm Команда осуществляет побитовый перенос фо рмы с заголовком и рамкой с экрана на форму и не обладает достаточной гибкость ю. Обычный способ вывода информации на п ринтер состоит в использовании метода Print, свя занного с объектом Printer. Метод Print учитывает ориентацию страницы и может использовать с войства CurrentX и CurrentY для точного позиционирования т екста и точек на странице . Его синтаксис : Printer. Print текст При этом сохраняются возможности метода Pri nt : “ ;” “,” Tab, Spc, а также возможность управления свойствами шрифта : Printer. Font.Name = “ Aryal” Printer. Font.Size = 18 А изменение шрифта принтера не влияет на предыдущий текст. Свойства объекта Printer: Свойств о Назначение Значения ColorMode опре деляет тип принте ра 1-монохромный 2- цветной Page номер текущей страницы Pages количество страниц Copies количество печатных копий PrintQuality качество печати (если это поддерживает драйвер принтер а ) 1- черновая печать 2-низкое разрешение 3-среднее разрешение 4-высокое разрешение CurrentX, CurrentY Текущие координаты текста Fonts доступные шрифты принтера FontCount кол . досту пных шрифтов принтера Font.Name,Font.Size, Font.Bold,Font.Italic... характеристики шрифта ScaleMode ед . измерения мас штаба страницы 0-пользователя 1-твипы (по умолчанию ) 2-пункты 3-пикселы 4-символы 5-дюймы 6-мм 7-см ScaleLeft Расстояние от левой границы ScaleTop ScaleWidth ScaleHeight Методы объекта Printer: Метод Содержание Print Печать страницы NewPage Перейти на новую страницу EndDoc Закончить работу с документом . (Освобождение памяти и пересылка страниц в диспетчер печати ) Scale определяет координатную систему пользова теля TextHeight Определяет высоту символа TextWidth Определяет ширину символа П ример . Ф орма содержит командную кнопку “Печать” . Прог раммный код выводит на печать 2 страницы . Н а первой печатается “Стр .1” . На второй “Стр .2” . Private Sub cmdPrint_Click() Printer.Print “Стр.” +Str(Printer.Page) Printer. NewPage Printer.Print “Стр.” +Str(Printer.Page) Printer. EndDoc EndSub Объект Screen. Объект Screen позволяет управлять размещением форм и выводом информации на экране. Свойства Объекта Screen. Свойство Назначение MousePointer указатель мыши Fonts доступные шрифты экрана FontCount кол . до ступных шрифтов экрана Width ширина экрана (в твипах ) Height высота экрана Методов нет. Пример . Установить размер формы равной 50% от размера экрана. Private Sub Form_Load() Me. Width=Screen. Width/2 Me. Height=Screen. Height /2 EndSub Работа с файлами. Элементы управления для работы с файл ами FileListBox- список файлов. Списки файлов выводят по умолчанию им ена файлов в текущем каталоге . Большинство свойств списка файлов аналогичны обычному списку (размеры , расположение на форме , цвет , шрифт , в ертикальная линейка прокрутки ). Аналогично списки файлов могут реагировать на все события обычных списков . Однако для выбора файлов обычно используется не оди нарный , а двойной щелчок мыши DblClick. Основные свойства Списка файлов : Свойство Содержание List Массив членов списка файлов ListCount Кол . членов списка ф айлов ListIndex Индекс массива FileName Обозначение файла Path Текущий Путь для списка файлов Pattern Фильтр , шаблон . Задает вид отображаемых в списке файлов Например , имя выбранного фай ла мож но определить как filFile.List(ListIndex) или как свойство FileName. Вывести список файлов в массив FileNames$( I%) можно с помощью следующего кода : For I%=0 to filFile.ListCount - 1 FileNames$(I%) = filFile.List(I%) Next I% Свойство Pattern задает т ип отображаемых файлов или шаблон * , ?. По умолчанию фильтр установлен в значение *.* . Несколько фильтров отделяются друг от друга “ ; “ . Изменение свойства Pattern активизирует событие PatternChange. Свойство Path устанавливает или возвращает т екущий пу ть для списка файлов . Однако для изменения текущего пути в операционн ой системе следует использовать команду ChDir. Изм енение свойства Path активизирует событие PathChange. Изменен ие свойства FileName активизирует событие и PatternChange и PathChange. Собы тия Списка файлов : События Описание Click DoubleClick MouseDawn MouseUp MouseMove KeyUp,KeyDawn,KeyPress DragDrop, DragOver GotFocus,LostFocus PathChange Изменение текущего пути для списка файлов PatternChange Изменение шаблона для от обр ажения файлов в списке Пример события PathChange Sub File1_PathChange () Label1.Caption = "Path: " & Dir1.Path' Show path in label. End Sub Sub Dir1_Change () File1.Path = Dir1.Path' Set file path. End Sub Sub Form_Load () Label1.Caption = "Path: " & Dir1.Path' Show path in label. End Sub Sub Drive1_Change () Dir1.Path = Drive1.Drive' Set Dir path. End Sub Sub Dir1_Change () File1.Path = Dir1.Path' Set File path. End Sub DirectoryListBox- список каталогов. Элемент управления DirListBox - отображает дерево каталогов текущего диска . Содержимое списка каталогов обновляется при двойном щелчке мыши . Подкаталоги текущего каталога нумеруются от 0 до ListCount - 1. Сам текущий каталог имеет индекс -1, родительский -2, выше -3 , ...П р и двойном щелчке мыши вызывается событие Change и меняется значение свойства Path. Основные свойства Списка каталогов. Свойство Содержание List Массив членов списка катало гов ListCount Кол . члено в списка каталогов ListIndex Индекс массива Path Текущий Путь для списка каталогов Parent Для доступа к свойствам , событиям и методам родительской формы данн ого элемента События Списка каталогов События Описание Click MouseUp, MouseUp, MouseMove KeyUp,KeyDawn,KeyPress DragDrop, DragOver GotFocus,LostFocus Change Изменение в списке каталогов Для того . чтобы изменение в списке каталогов отразилось списке файлов , можно и спользовать процедуру : Private Sub dirBox_ Change() filFile1.Path = dirBox.Path End Sub При этом для списка каталогов Path указывает выбранный каталог , а для списка файлов - каталог , файлы которого отражаются в списке. DriveListBox- список дисков. В отличии от предыдущих элементов спи сок дисков является выпадающим . Список дисков отображает текущий диск , а когда пользова те ль щелкает на кнопке со стрелкой , выводит список всех доступных дисков. Основные свойства Списка дисков Свойство Содержание Drive Определяет текущий диск ListCount Кол . членов списка дисков ListIndex Индекс массива дисков List Массив членов списка дис ков Parent Для доступа к свойствам , событиям и методам родительской формы данн ого элемента События Списка дисков События Описание KeyUp,KeyDawn,KeyPress DragDrop, DragOver GotFocus,LostFocus Change Изменение в списке диск ов Основным свойством является свойство Drive , которое используется для получения и уст ановки текущего диска . Это свойство используе тся для синхронизации работы списка дисков и списка каталогов . Например, Private Sub drvBox_ Change() dirBox.Path = drvBox. Drive Ch Drive drvBo x. Drive ‘ Если нужно изменить те кущий диск ОС End Sub Файлы последовательного доступа Используются когда : а ) редко вносятся изменения б ) информация в файле обрабатывается о т начала до конца в ) если нужно добавлять информацию в конец файла. Для совершения операции чтения или записи с файлом его нужно открыть ко мандой Open. После Open следует имя файла , строковая переменная или строка в двойных кавычках . Если файл не текущем каталоге , нужно указать путь к нему. Запись информации в файл : Open “имя файла” for Output as # 1 # 1 - это идентификатор файла - число от 1 до 255 с символом #. Максимальное число одновреме нно открытых файлов определяются параметром в Config.sys. По команде Open резервируется файловый буфер в памяти компьютера . По мере заполнения буфера активируются соответствующий диск и весь блок информации посылается непрерыв ным потоком на диск (количество будет уста навливаться в Config.sys). После окончания работы с файлом он закрывается командой Close # идентификатор файла . Команда Close сбрасывает и нформа цию на диск и очищает буфер . Для сброс а содержимого буфера на диск (в критически х ситуациях ) используется команда Reset. Для ввода информации в файл можно использовать ком анду Print # “ Запись в файл Open “ File 1” For Output As #1 Print #1, “ 1 2 3 4 5 ” или Print #1, txtDisplay.Text Close #1 Если в текущем каталоге есть файл с таким именем , то этой командой он будет уничтожен. Close без параметров закрывает все файлы. Для определения размера открытого файла можно использовать команду LOF (идентификато р файла ) Open “ File 1” For Output As #1 Print #1, “ 1 2 3 4 5 ” Print LOF(1) Вместо Print можно использовать Write # идентификатор файла , список переменных. Чтение из файла Open ”имя файла” For Input As # идентификатор файла Задается свободный идентификатор , которы й в данный момент не используется в п рограмме . Или так : FileNumber % = FreeFile Open “имя файла” For Input As # FileNumber % После этого можно использовать оператор Line Input # для построчного чтения информации из файла : Open “ File1” For Input As #1 Line Input #1, A$ принимает в A$ всю информацию до Enter Print A$ Close #1 Либо Input # идентификатор файла , список переме нных , если запись с помощью Write, txtDisplay Если файл сложной структуры , состоит и з полей и записей , то файл будет читат ься целым и записями командой LineInput, либо можно информацию читать из отдельных полей командой Input # Например , чтение записей из файла Spisok в массив 1. Определяем тип пользователя Type StudentRecord Name As String Adress As String End Type 2. Объявляем масси в записей типа Student как глобальную переменную Global StudentAdress( ) As StudentRecord Sub Proc( ) Dim FileNum As Integer, I As Integer ReDim StudentAdress(1 to 150) FileNum = FreeFile Open “ Spisok” For Input As # FileNum For I=1 to 150 Input #FileNum, StudentAdress(I).Name Input #FileNum, StudentAdress(I).Adress Next I Close FileNume End Sub Чтение текстового фала в текст , поле . . . . FileNum = FreeFile Open “ My.txt” For Input As FileNum txtDisplay.Text=Input(LOF (FileNum), FileNum) Close #FileNum где LOF(FileNum) размер файла в байтах Дозапись информации в существующий послед овательный файл При этом строки , которые будут выведен ы в файл присоединяются к строкам , которые уже содержаться в файле . Для этого сл ужит оператор Open “имя файла” For Append As # идентификатор файла При этом : - VB открывает файл , а если он не с уществует , то создает и создает соответствующ ий буфер ; - находит конец файла на диске ; - готовит к записи в конец файла. Пусть существует текстовый файл My.txt и н ужно дописа ть в его конец строку “До свидания” : FileNum=FreeFile Open “ My.txt” For Append As FileNum Print #FileNum, “ До свидания ” Close #FileNum При обработке больших файлов часто необходимо проверять на достижение к онца файла . Для этого существует оператор EOF (иде нтификатор файла ). Фрагмент программы чтения информации из файла , созданного с помощью оператора Print # . . . . . B$ = “ ” FileNum=FreeFile Open “ My.txt” For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, A$ B$=B$+A$ Loop txtDisplay.Text=B$ Close #FileNum Файлы прямого доступа Напоминают базу данных . Файл состоит и з упорядоченных записей одинакового размера . Существует запись , состоящая из полей , в к оторых содержаться данные . Обеспечивает быстрый поиск информации , но дисковое пространство исп ользуется неэффективно. При создании файла указывается максимальн ая длина существующей записи . Команда создани я файла : Open “ MyLib.dat” For Random As # идентификатор файла Len = длина записи , можно определять с п омощью функции Len (имя переменной записи ) в текущем каталоге. Открытый файл прямого доступа может б ыть прочитан и записан практически одновремен но. Close # идентификатор файла - закрывает файл. Каждая запись в файле имеет номер записи . Это позволяет работать с конкретной записью . При описании запис и задаются пользовательским типом : Type Books Auther As String *30 Title As String *40 End Type Запись , содержащую пятой записи файла в переменную : Get #FileNum, 5, NewBook ( ес ли NewBook типа Books) Запись из переменной в соро ковую запись файла : Print #Fil eNum, 40, NewBook Созданные типы записей определяют размер файла прямого доступа . Размер файла опред еляется функцией FileLen (“имя файла” ). Размер записи Len(NewBook) в байтах.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

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

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по программированию "Основы Visual Basic 5.0", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru