Visual Basic

VB Source code

    Другие проекты - Генератор веб сайтов  и  FTP загрузчик вебстраниц  и  Vedeckotechnicky scenar
    
    Несмотря на то, что Microsoft перестал поддерживать 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 кода, при перекодировании почтовых сообщений в "читаемый" вид, для защиты почтовых сообщений и т.д.
      
      Скачать курсовую работу >>  Следующая курсовая >>
      
      Vedeckotechnicky scenar >>
      
      Wiki Dictionary >>
      
       Visual Basic Source Code
      
        
      
      プログラマーがチュートリアルを作成するための無料の辞書
      
      OFLAMERON - 外国語を覚えるカード - 外国語を学ぶための新技術。 無料で学ぶ
      
                       
      外国語を記憶するための新しい方法-面白い、美しい、無料
      
      ロシアの村
      
      Sitemap  Sitemap  Java  Free dictionaries  Russian village  Shmeleff  Deutsche  One Day Travel
      
      

      Программа для изучения иностранных языков
      
      Простая и удобная программа для изучения иностранных языков - для запоминания иностранных слов. Не требует инсталляции, работает на вашем персональном компьютере в OS Windows.
      
      
      
      После запуска программа периодически показывает небольшое, высплывающее поверх всех окон, поле с иностранным словом и его переводом. Это аналог flashcards - учебных карточек. Через несколько секунд окно с словами исчезает. В качестве словаря используется обычный текстовый файл, в который вы можете добавлять слова, которые надо выучить. Соотсетственно, какие слова запишете, такой язык и будете учить. Всё сделано предельно просто.
      Программа ничего не пишет на HDD или в реестр. Это полноценная portable программа.
      Чтобы скачать программу в ZIP архиве - Click-ните по картинке.
      
      Download >>  Sitemap >>
      
      Advanced >>