Моё меню Общее меню Пользователи Правила форума Все прочитано
Вернуться   uForum.uz > ОБРАЗОВАНИЕ > ZiyoNET
Знаете ли Вы, что ...
...нарушения правил форума наказываются. Старайтесь их не нарушать.
<< Предыдущий совет - Случайный совет - Следующий совет >>

ZiyoNET Общественная образовательная сеть ZiyoNET. Ресурсный центр сети является структурным подразделением UZINFOCOM. Раздел UZINFOCOM


Ответить

 
Опции темы Опции просмотра
Старый 26.07.2010 21:29   #1  
Аватар для axmedovshuhrat
Оффлайн
Сообщений: 265
+ 25  96/69
– 1  19/10

Uzbekistan
Visual Basicда дастур (кирилл-лотин ўтказгич)

Форумдошлар агар сиз VBда ишлаган бўлсангиз ёки компьютерда дастурлашни уддасидан яхши чиқсангиз ушбу ёзилганлардан хато топишингиз сўраб қоламан. Мен ушбуни компда ишлата олмадим. Балким сиз баъзи ўзгартиришлар қилиб дастурни ишга тушира олсангиз форумдошлар учун қимматли ўзбек тилини кирилл-лотин ёзувларига ўтказгичи бўлар эди.

шундай қилиб мен Microsoft Visual Basic .NET да ушбуни тайёрладим.

PHP код:
Imports EnvDTE
Imports System
.Diagnostics

Public Module Module2
    Sub Макрос1
()
        
'
        ' 
Макрос1 Макрос
        
' Макрос записан 01.05.2010 Akhmedov
        Selection.HomeKey(Unit:=wdLine)
        Application.Keyboard(1033)
        Selection.MoveRight(Unit:=wdCharacter, Count:=1)
        Selection.MoveLeft(Unit:=wdCharacter, Count:=1, Extend:=wdExtend)
        While ((Selection.End + 1) <> Selection.StoryLength)
            Select Case Selection
                Case "А"
                    Selection.TypeText(Text:="А")
                Case "Б"
                    Selection.TypeText(Text:="B")
                Case "В"
                    Selection.TypeText(Text:="V")
                Case "Г"
                    Selection.TypeText(Text:="G")
                Case "Д"
                    Selection.TypeText(Text:="D")
                Case "Е"
                    Selection.TypeText(Text:="Ye")
                Case "Ё"
                    Selection.TypeText(Text:="Yo")
                Case "Ж"
                    Selection.TypeText(Text:="J")
                Case "З"
                    Selection.TypeText(Text:="Z")
                Case "И"
                    Selection.TypeText(Text:="I")
                Case "Й"
                    Selection.TypeText(Text:="Y")
                Case "К"
                    Selection.TypeText(Text:="K")
                Case "Л"
                    Selection.TypeText(Text:="L")
                Case "М"
                    Selection.TypeText(Text:="M")
                Case "Н"
                    Selection.TypeText(Text:="N")
                Case "О"
                    Selection.TypeText(Text:="O")
                Case "П"
                    Selection.TypeText(Text:="P")
                Case "Р"
                    Selection.TypeText(Text:="R")
                Case "С"
                    Selection.TypeText(Text:="S")
                Case "Т"
                    Selection.TypeText(Text:="T")
                Case "У"
                    Selection.TypeText(Text:="U")
                Case "Ф"
                    Selection.TypeText(Text:="F")
                Case "Х"
                    Selection.TypeText(Text:="X")
                Case "Ц"
                    Selection.TypeText(Text:="S")
                Case "Ч"
                    Selection.TypeText(Text:="Ch")
                Case "Ш"
                    Selection.TypeText(Text:="Sh")
                Case "Ў"
                    Selection.TypeText(Text:="O‘")
                Case "Ь"
                    Selection.TypeText(Text:="")
                Case "Қ"
                    Selection.TypeText(Text:="Q")
                Case "Ъ"
                    Selection.TypeText(Text:="'")
                Case "
Э"
                    Selection.TypeText(Text:="
E")
                Case "
Ю"
                    Selection.TypeText(Text:="
Yu")
                Case "
Я"
                    Selection.TypeText(Text:="
Ya")
                Case "
&#1202;"
                    
Selection.TypeText(Text:="H")
                Case 
"Ғ"
                    
Selection.TypeText(Text:="G‘")
                Case 
"а"
                    
Selection.TypeText(Text:="a")
                Case 
"б"
                    
Selection.TypeText(Text:="b")
                Case 
"в"
                    
Selection.TypeText(Text:="v")
                Case 
"г"
                    
Selection.TypeText(Text:="g")
                Case 
"д"
                    
Selection.TypeText(Text:="d")
                Case 
"е"
                    
Selection.TypeText(Text:="ye")
                Case 
"ё"
                    
Selection.TypeText(Text:="yo")
                Case 
"ж"
                    
Selection.TypeText(Text:="j")
                Case 
"з"
                    
Selection.TypeText(Text:="z")
                Case 
"и"
                    
Selection.TypeText(Text:="i")
                Case 
"й"
                    
Selection.TypeText(Text:="y")
                Case 
"к"
                    
Selection.TypeText(Text:="k")
                Case 
"л"
                    
Selection.TypeText(Text:="l")
                Case 
"м"
                    
Selection.TypeText(Text:="m")
                Case 
"н"
                    
Selection.TypeText(Text:="n")
                Case 
"о"
                    
Selection.TypeText(Text:="o")
                Case 
"п"
                    
Selection.TypeText(Text:="p")
                Case 
"р"
                    
Selection.TypeText(Text:="r")
                Case 
"с"
                    
Selection.TypeText(Text:="s")
                Case 
"т"
                    
Selection.TypeText(Text:="t")
                Case 
"у"
                    
Selection.TypeText(Text:="u")
                Case 
"ф"
                    
Selection.TypeText(Text:="f")
                Case 
"х"
                    
Selection.TypeText(Text:="x")
                Case 
"ц"
                    
Selection.TypeText(Text:="s")
                Case 
"ч"
                    
Selection.TypeText(Text:="ch")
                Case 
"ш"
                    
Selection.TypeText(Text:="sh")
                Case 
"ў"
                    
Selection.TypeText(Text:="o‘")
                Case 
"ь"
                    
Selection.TypeText(Text:="")
                Case 
"қ"
                    
Selection.TypeText(Text:="q")
                Case 
"ъ"
                    
Selection.TypeText(Text:="'")
                Case 
"э"
                    
Selection.TypeText(Text:="e")
                Case 
"ю"
                    
Selection.TypeText(Text:="yu")
                Case 
"я"
                    
Selection.TypeText(Text:="ya")
                Case 
"ҳ"
                    
Selection.TypeText(Text:="h")
                Case 
"ғ"
                    
Selection.TypeText(Text:="g‘")
                Case Else
                    
Selection.TypeText(Text:=Selection)

            
End Select
            Selection
.MoveRight(Unit:=wdCharacterCount:=1)
            
Selection.MoveLeft(Unit:=wdCharacterCount:=1Extend:=wdExtend)
        
End While


    
End Sub

End Module 
Ответить 
Старый 26.07.2010 22:28   #2  
Real ID Group uParty Member
Аватар для Shuhrat Ismailov
Оффлайн
Сообщений: 3,421
+ 2,936  2,661/1,365
– 84  129/82

UzbekistanОтправить сообщение для Shuhrat Ismailov с помощью Skype™Facebook
Адаш ака. Аттач қилинган визуал бейсик дастурлари билан солиштиринг. Менда ишлаяпти-ю, аммо негадир қ, ғ, ҳ ларни бошқа символларга алмаштираяпти. Уларни кейин "Поиск-замена" функциялари билан жойига қўяпман. Неудобно
Вложения
Тип файла: zip Install.zip (3.6 Кб, 42 просмотров)
__________________
http://www.matholymp.zn.uz

Последний раз редактировалось Shuhrat Ismailov; 26.07.2010 в 22:31.
Ответить 
Старый 27.07.2010 08:27   #3  
Аватар для axmedovshuhrat
Оффлайн
Сообщений: 265
+ 25  96/69
– 1  19/10

Uzbekistan
Цитата:
Сообщение от Shuhrat Ismailov Посмотреть сообщение
Адаш ака. Аттач қилинган визуал бейсик дастурлари билан солиштиринг. Менда ишлаяпти-ю, аммо негадир қ, ғ, ҳ ларни бошқа символларга алмаштираяпти. Уларни кейин "Поиск-замена" функциялари билан жойига қўяпман. Неудобно
Ака Сизда 2010 Office ўрнатилган бўлса синаб кўрингчи? Айтишларича бундай ҳолат 2010да содир бўлмас экан. Яна билмадим чунки ўзим 2010да ишлаб кўрмадим. VBда тузишдан асосий мақсадим ҳам ҳамма мавжуд ҳарфларни ўтказа олсин. Office 2003да ишлатганда менда қ, ғ, ҳ лар "?" белгиси бўлиб қолар эди.
Ответить 
"+" от:
Старый 29.07.2010 07:22   #4  
Аватар для axmedovshuhrat
Оффлайн
Сообщений: 265
+ 25  96/69
– 1  19/10

Uzbekistan
Сизни тайёрлаган дастурингизда русча ҳарфларни олиб ташлаб янгиладим. Ҳамда икки қадамда барча ҳарфларни (ў, қ, ғ, ҳ ларни ҳам) ўзгартира оладиган вариантга ўтказдим.
Вложения
Тип файла: rar Kirill-Lotin.rar (2.9 Кб, 81 просмотров)
Ответить 
"+" от:
Старый 09.12.2016 20:51   #5  
Аватар для sawa
Оффлайн
Сообщений: 1
+ 1  0/0
– 0  0/0

Bahrain
Цитата:
Сообщение от axmedovshuhrat Посмотреть сообщение
Сизни тайёрлаган дастурингизда русча ҳарфларни олиб ташлаб янгиладим. Ҳамда икки қадамда барча ҳарфларни (ў, қ, ғ, ҳ ларни ҳам) ўзгартира оладиган вариантга ўтказдим.
ЭЭЭЭЭ РАҲМАТ АКА!!! Бутун инетрнетни титиб чиқдим, оири шу ердан топдим! Катта раҳмат!
Ответить 
Ответить
Опции темы
Опции просмотра




Здесь представлены форумы: UZINFOCOM, ЦППМП, ГКСИТТ, PC.UZ, Microsoft, IBM, HP, Fujitsu, D-Link, Intel, Ассоциация IT, InfoCOM.UZ, BANK.UZ, ActiveCloud, Sarkor Telecom, BUZTON, Cisco Systems, NetDec, EVO, Sharq Telekom, EPSON, Cron Telecom.
Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. Перевод: zCarot
Advertisement System V2.5 By Branden
Центр UZINFOCOM


Новые 24 часа Кто на форуме Новички Поиск Кабинет Все прочитано Вверх