Бесплатные курсовые работы

    Курсовая работа - программа на Visual Basic для быстрого создания веб страниц. Использованы только стандартные операторы и функции языка VB. Поэтому программу легко перенести в более позние версии VB.
    Получившаяся программа позволяет быстро создавать много веб страниц на основе готовых шаблонов. При всей простоте программы, ее легко довести до уровня повседневного использования. Есть отдельная категория сайтов - вспомогательные сайты. Основная задача которых создать качественные ссылки на основной веб сайт владельца. Для вспомогательных сайтов основной показатель - хорошая индексируемость и положение в результатах поисковой выдаче. Эти показатели напрямую связаны с количеством размещенного контента и количеством веб страниц. Дизайн страниц и изыски вроде Flash и красивых меню для таких сайтов не имеют значеня.
    Для быстрого создания второстепенных сайтов с 150-200 веб страницами и предназначены подобные программы.
    Использование "горячих" клавиш (Hot Keys) позволяет вставлять заготовки HTML кода в редактируемое поле в нужное место. Попробуем добавить это в программу.
    
    Курсовая работа
    
    Сделаем обработку нажатия клавиши PageUP, по которому в окно Text2 будет записываться макрос

    Добавим в Form1.Load код
    
       Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 33 Then 'Код кнопки PageUP '---- Прочитать макрос ---- ReDim A(0) Open "gmacros.txt" For Input As #1 Do Until EOF(1) Line Input #1, A(UBound(A)) ReDim Preserve A(UBound(A) + 1) 'ReDim Preserve увеличивает размер массива, сохраняя при этом его содержимое gmacros = gmacros + A(UBound(A)) Loop Close ReDim Preserve A(UBound(A) - 1) b = Join(A, Chr(13) + Chr(10)) 'Содержимое файла gmacros.txt Text2.Text = Text2.Text + b 'Добавить макрос к содержимому окна Text2 End If End Sub