Курсовая работа на Visual Basic

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

    При разработке программ для изучения английского языка (при создании курсовой работы) возникла необходимость их адаптации для англоязычных пользователей. При этом основной проблемой было использование Cyrillic символов для обработки и отображения на экране. Для подготовки словаря была создана программа Chext, перекодирующая Cyrillic символы в unicode цепочку символов, а для отображения на экране - библиотека графических изображений Cyrillic символов в формате Jpeg

    Chext - программа для перекодировки символов из Cyrillic в Unicode или в символы подстановки.
    
    Программа для преобразования символов кириллицы (русского и украинского алфавитов) в универсальной таблице символов   Unicode   Использование Unicode значительно упрощает создание многоязычных приложений. Поэтому, создавая программы с прицелом на этот стандарт, вы закладываете неплохую базу для локализации своего программного продукта. Специально для студентов, проект выполнен и оформлена в виде   курсовой работы  . Приложены полные листинги программы для каждого этапа разработки.
    
    Курсовая [1]  Курсовые [2]  Курсовые [3]  [ Найти еще ]    

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

Курсовая работа на Visual Basic

      Полный VB проект – в файле vb2.zip
      
      Самый простой вариант программы – минимум VB кода
      
      Теперь нужно написать процедуру обработки введенной в TextBox – Text1 строки кириллицы.
      
      Краткий справочник по работе со строками на VB - www.microsoft.com/Rus/Msdn/
      
      Объявим
      
      Dim Cyrillic As String ' строка переменной длины для введенного текста
      Dim Unicode As String ' строка переменной длины для Unicode
      Dim Mt As String * 1 ' строка фиксированной длины (=1) для одного Cyr символа
      Dim Bt As String 'Для Unicode для одной буквы
      Dim It 'Длина строки

      Напишем процедуру обработки нажатия кнопки Command1 (Translate):
      
      Private Sub Command1_Click()
      Cyrillic = Text1.Text 'Прочитать текст в строковую переменную
      It = Len(Cyrillic) – 1 'Длина введенной строки
      
      For i = 1 To It Step 1 'Просматривать введенную строку
        Mt = Mid$(Cyrillic, i, 1) 'Одна буква из введенной строки кириллицы
        For j = 0 To 71
          If Mt = A(j) Then Bt = B(j) 'Если в A(j) буква определена, то в Bt записать её Unicode
        Next j
      Next i
      
      Text2.Text = Bt 'Написать Unicode в строку Text2
      
      End Sub
      
      Полный VB проект – в файле vb3.zip
      

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

      Краткая статья по операторам цикла - club.shelek.com
      
      Краткая статья по условным операторам - hiprog.com
      
      Как производить обработку целой строки Cyrillic символов    [   Справочник VB   ]
      

      Допишем программу для конвертирования всей строки текста.
      Для этого надо дописать всего одну строку:
      
      Unicode = Unicode + Bt 'Сформировать строку unicode из отдельных unicode
      
      Полный VB проект – в файле vb4.zip
      
      Иллюстрация работы программы:

      Достигнут определенный результат – создана работоспособная программа (для курсовой работы) с минимальным Visual Basic кодом.   [ Hand Made ]
      Осталось написать обработку ошибок и «пропуск» некириллических символов.

      Обработка none-Cyrillic символов
      
      Допишем программу так, чтобы можно было пропускать (не обрабатывать) не-Cyrillic символы. Объявим триггер
      
      Dim Tr 'Триггер =1, если найден Cyrillic символ
      
      и будем обнулять значение триггера Tr при выборе каждой буквы из введенной строки
      
      For i = 1 To It Step 1 'Просматривать введенную строку
        Mt = Mid$(Cyrillic, i, 1) 'Одна буква из введенной строки кириллицы
        Tr = 0 'Предполагаем, что символ - не Cyrillic
        For j = 0 To 71
          If Mt = A(j) Then Bt = B(j) 'Если в A(j) буква определена, то в Bt записать её Unicode
          If Mt = A(j) Then Tr = 1 'Триггер =1, если найден Cyrillic символ
        Next j
        If Tr = 1 Then Unicode = Unicode + Bt 'Сформировать строку unicode из отдельных unicode
        If Tr = 0 Then Unicode = Unicode + Mt 'Если символ – не Cyrillic, то его просто вписать
        Text2.Text = Unicode 'Написать Unicode в строку Text2
      
      Здесь цветом выделена часть кода, которую нужно было дописать для обработки не-Cyrillic символов, знаков и цифр. Теперь программа может корректно обрабатывать любые строки. В приведенном ниже примере видно, что цифры 1234 добавлены в нижнюю строку без обработки.

      Полный VB проект – в файле vb5.zip
      
      Программы для перекодировки символов могут использоваться во многих ситуациях: при разработке веб сайтов, шифровании HTML кода, при перекодировании почтовых сообщений в "читаемый" вид, для защиты почтовых сообщений и т.д.
      
      Скачать полный архив курсовой работы >>
      
       Курсовая работа на Visual Basic