Курсовик на Visual Basic

    
Анекдоты   Игры   Курсовые   Учебник по вебдизайну   Visual Basic   Готовые сайты   Каталог   Хостинг сайтов  
    
    
    При разработке программ для изучения английского языка возникла необходимость их адаптации для англоязычных пользователей. При этом основной проблемой было использование Cyrillic символов для обработки и отображения на экране. Для подготовки словаря была создана программа Chext, перекодирующая Cyrillic символы в unicode цепочку символов, а для отображения на экране - библиотека графических изображений Cyrillic символов в формате Jpeg

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

    С чего начать разработку
    
    Разработаем программу, преобразующую строку символов кириллицы в строку Unicode. Это бывает необходимо при разработке web сайтов, когда необходимо показать часть HTML кода как текст или при разработке программ для изучения иностранных языков (подробнее это рассмотрено во 2 части), когда у пользователя нет поддержки изучаемого языка на компьютере.

      Стандартный VB проект
      
      Создадим обычный VB-проект, разместим форму Form1, два экземпляра TextBox – Text1 и Text2 и кнопку Command1.
      
      Полный VB проект – в файле vb1.zip (Листинг для курсового проекта)
      
      Text1 будем использовать для ввода строки с кириллицей, а Text2 для показа результата трансляции в Unicode.
      
      Объявим массив Dim A(72) As String для хранения Cyrillic символов и массив Dim B(72) As String для хранения соответствующих Unicode строк.
      
      Краткая информация о массивах - progs.biz/vbnet/

      Заполним массивы A() и B() значениями:

      …
      …

      …
      …

      
      Можно использовать иные варианты заполнения элементов массивов. Например, из файлов. Но для упрощения листинга, мы используем самый простой способ – впишем значения вручную.
      

      Полный 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
      
      Эта программа уже работает. Она позволяет конвертировать 1 cyrillic символ из верхней строки в 1 unicode в нижней строке.

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

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

      Достигнут определенный результат – создана работоспособная программа с минимальным кодом.
      Осталось написать обработку ошибок и «пропуск» некириллических символов.

      Обработка 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
      
      Скачать полный архив >>