Курсовая работа на Visual Basic. Скачай бесплатно курсовые работы на Visual Basic

Курсовая работа бесплатно

Скачать курсовую работу на Visual Basic. Бесплатные курсовые работы по программированию.

    Программа на Visual Basic для раскрутки веб сайтов.
    

Курсовая работа

    Курсовые работы >>>>
    
    
Курсовая работа на Visual Basic - разработка программы для продвижения веб сайтов. Программа использует веб сайты, производящие он-лайн анализ веб сайтов пользователей и создающих веб страницы с результатами.
    Для каждого заданного сайта программа выполняет обращение к он-лайн сервису. при этом создается вебс траница, которая потом может быть проиндексирована поисковыми системами.
    
Курсовая работа рассчитана на программистов начального уровня, содержит небольшое количество процедур, хорошо иллюстрирована и документирована.
    Разработанная программа вполне пригодна для реального использования при продвижении веб сайтов.
    

Курсовая работа


    Принцип работы Разработанная программа при запуске читает список адресов сайтов он-лайн сервисов (обычный текстовый файл), на которых будут генерироваться веб страницы. По таймеру программа переходит к работе с следующим он-лайн сервисом.
    Когда список сервисов исчерпывается, внутренний таймер отключается и программа готова к обработке следующего сайта пользователя.


    
    Создадим Visual Basic проект Standard EXE
    
    
    Курсовая работа
    
    В панель Components добавим объект Webbrowser
    
    
    Курсовая работа
    
    
    Курсовая работа
    
    В качестве встроенного броузера будет использоваться Enternet Explorer, что гарантирует работоспособность программы на любом компьютере.
    Растянем форму Form1 до нужных размеров, зададим цвет фона и разместим на ней веб броузер webbrowser1, текстбокс Text1 для ввода адреса сайта и кнопку Command1 с надписью |Load| для запуска программы
    
    
    Курсовая работа
    


    Теперь потребуется массив, в который будем считывать адреса сайтов он-лайн сервисов из файла web.txt
    
    Dim e() - объявим массив e() для чтения списка адресов сайтов, на которых будет генерироваться страница с данными о нашем сайте (например,
http://coffe.vov.ru/)
    
    Напишем VB код для чтения файла web.txt
    
    Private Sub Form_Load() 'Читаем файл при загрузке формы
    ReDim e(0)
    Open "web.txt" For Input As #1 'Открыть файл для чтения
    Do Until EOF(1) 'Читать файл до конца
    Line Input #1, e(UBound(e)) 'Считать строку файла
    ReDim Preserve e(UBound(e) + 1) 'ReDim Preserve увеличивает размер массива, сохраняя при этом его содержимое
    Loop 'Повторить
    Close 'Закрыть файл
    ReDim Preserve e(UBound(e) - 1) 'Переопределить размер массива
    End Sub
    
    Каждый элемент массива e() содержит адрес одного он-лайн сервиса
    Теперь можно добавить на форму таймер Timer1
    
    
    Курсовая работа
    
    Зададим параметры работы таймера
    
    Timer1.enable = falce - при загрузке программы таймер запрещен
    
    Timer1.Interval = 4000 - выставим интервал для работы с каждым он-лайн сервисом. Потом этот интервал увеличим.
    
    По таймеру будет выполняться следующий код
    
    Private Sub Timer1_Timer()
    On Error GoTo NH 'По ошибке перейти к метке
    PageCreate 'Сформировать строку для загрузки в веб броузер
    WebBrowser1.Navigate site2 'Загрузить сайт, указанный в site2, в броузер
    NH:
    Text1.Text = site2 'Написать название загружаемого сайта
    site1 = "" 'Очистить переменную для следующего адреса
    site2 = "" 'Очистить переменную для следующего адреса
    End Sub
    

Скачать бесплатно


    Разместим на форме кнопку Command1 по нажатию которой будем разрешать таймер
    
    Private Sub Command1_Click()
    site3 = Text1.Text 'Запомнить адрес сайта для добавления
    Timer1.Enabled = True 'Разрешить таймер
    End Sub
    
    Теперь напишем, как будет формироваться адресная строка для он-лайн сервиса. Для этого к адресу он-лайн сервиса добавляется в качестве параметра адрес вашего сайта. Например, http://www.cys.ru/forward.html?url= и coffe.vov.ru
    Причем, адрес вашего сайта указывается без http://
    
    Private Sub PageCreate() 'Сформировать строку для загрузки в веб броузер
    site1 = e(i) 'Выбрать адрес из массива e()
    site2 = site1 + site3 'Сформировать адрес для загрузки из адреса он-лайн сервиса и адреса вашего сайта
    i = i + 1 'Указатель на следующий адрес в массиве e()
    If i > UBound(e) Then
    i = 0
    Timer1.Enabled = False 'Запретить таймер
    End If
    End Sub
    
    Использование программы
    
    Запустите программу
    
    
    Курсовая работа
    
    В строке укажите адрес вашего сайта без http://. Например, coffe.vov.ru
    
    Запустите программу, нажав кнопку |Load|
    


    Программа будет с заданным интервалом обращаться к он-лайн сервисам анализа сайтов. При этом будет создаваться страница с данными вашего сайта.
    
    Скачать полный VB проект можно здесь -
Web_Ping_Mgr.zip
    
    Для некоторых сервисов данный интервал работы таймера может оказаться слишком маленьким. Напишем для программы специальную функцию для формирования паузы
    
    Function SoftSleep(Time As Long) 'Время в миллисекундах
    PauseTime = Time ' Устанавливаем время паузы в секундах
    Start = Timer ' Берем начальное время
    Do While Timer < Start + PauseTime 'Крутим цикл пока значение таймера меньше, чем нужно
    DoEvents ' Позволяем работать другим процессам
    Loop
    End Function
    
    Вызов функции
    
    SoftSleep 15 'Пауза 15 секунд
    
    Скачать доработанный полный VB проект можно здесь -
Web_Ping_Mgr2.zip
    
    Коммерческие перспективы программы
    
    При всей простоте программы, у вас получился вполне пригодный для реального использования продукт. Все, что нужно для создания коммерческой версии продукта - большое количество адресов он-лайн сервисов для работы. Через поисковые системы вы можете найти несколько десятков русскоязычных сервисов он-лайн анализа сайтов. Англоязычных ресурсов - больше 2.5 тысяч.
    Для сохранения приоритета можно модернизировать программу так, чтобы она работала с закодированными линками или загружать список с собственного сайта.
    
    Другие курсовые проекты
    
    В архиве с курсовой работой есть ссылки на другие
курсовые проекты на Visual Basic.
    
    
    


    
    
    Готовый дизайн этой страницы можно
скачать здесь
    

Курсовая работа бесплатно

Курсовая работа на Visual Basic Игры для Андроид

Курсовая работа на Visual Basic. Скачай бесплатно курсовые работы на Visual Basic Игры для Андроид