|
|
Бесплатные курсовые работы
Программа на Visual Basic для разработки сайтов
Разработаем курсовой проект - простую программу на Visual Basic, позволяющую экономить много времени при разработке HTML кода однотипных веб страниц сайта. Программа представляет собой простой текстовый редактор HTML кода, позволяющий добавлять к записанному коду однотипные блоки HTML кода и сохранять результаты в файле.
В примере программы используются два текстовых файла html1.txt и html2.txt. В первом файле находится заголовок веб страницы, метатэги, таблица стилей, счетчик, тэг Body, верхняя часть оформления и т.д.
Во втором файле записана заключительная часть HTML кода веб страницы - нижняя часть оформления, закрывающие тэги и т.д. Наш курсовой проект будет иметь преимущество перед другими проектами на VB в том, что мы используем при его написании еще и знание HTML (правда в минимально необходимом объеме).
Программа на Visual Basic Курсовая работа
Запустим Visual Basic и создадим новый проект Standard EXE. Растянем форму Form1, чтобы можно было создать поле для редактирования удобного размера.
Разместим на форме следующие элементы: TextBox Text1, Text2, Text3. В Text1 и Text3 будут считываться данные из файлов html1.txt и html2.txt - "не изменяемые" фрагменты HTML кода. В этих окнах их можно будет просмотреть и откорректировать.
Разместим на форме три кнопки CommandButton Command1 (Write HTML), Command2 (Clear) и Command3 (Exit).
Кнопка Command1 (Write HTML) - запись сформированного из текстовых полей Text1, Text2, Text3 HTML кода.
Программный код для кнопки
Private Sub Command1_Click()
Open "webpage.htm" For Append As #1
qqei = Text1.Text + Text2.Text + Text3.Text
Print #1, qqei
Close #1
End Sub
Обратите внимание, что файл webpage.htm с сгенерированным HTML кодом записывается в текущий каталог. Для откомпилированной программы - это каталог, из которога она стартовала. Для интерпретатора Visual Basic - каталог, в котором размещен VB проект.
Процедура чтения HTML заготовок сайта из файлов html1.txt и html2.txt
Private Sub Form_Load()
Dim A()
ReDim A(0)
Open "html1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, A(UBound(A))
ReDim Preserve A(UBound(A) + 1)
Text1.Text = Text1.Text + A(UBound(A))
Loop
Close
ReDim Preserve A(UBound(A) - 1)
b = Join(A, Chr(13) + Chr(10)) 'Содержимое 1-го файла с неизменяемой частью HTML кода html1.txt
Text1.Text = b
End Sub
Для второго файла чтение выполняется аналогично.
Полностью процедуру чтения можно посмотреть - sub1.doc
Полный листинг программы (Visual Basic project) можно скачать - project1.zip
Курсовая работа. Получившаяся программа не смотря на простоту вполне работоспособна и позволяет быстро создавать много типовых веб страниц для сайта. Например, страницы с одеждой , продуктами питания, запчастями и т.д.
Программу можно сделать еще удобнее не сильно усложнив код. Т.к. окна Text1 и Text3 чаще всего не нужны на форме Form1, их можно свернуть, а окно Text2 сделать максимально большим.
Главная страница >>>> Читать далее >>>>
Бесплатные курсовые работы
|
|
|