Как в VB

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Ответить
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Как в VB

Сообщение _Мика_ » 30.01.2005 (Вс) 20:41

Да вот хотел написать прогу для Pocket PC, которая хотя бы эмитирвала VB, т.е. что бы буквы где надо, были бы большими, ну как VB
Я делаю вот так, но получается плохо, там курсор сбивается!
Код: Выделить всё
Code = Text1.Text

Code = Replace(Code, "private", "Private", , , 2)
Code = Replace(Code, "sub", "Sub", , , 2)
Code = Replace(Code, "end", "End", , , 2)

Code = Replace(Code, "dim", "Dim", , , 2)
Code = Replace(Code, "as", "As", , , 2)
Code = Replace(Code, "integer", "Integer", , , 2)
Code = Replace(Code, "string", "String", , , 2)
Code = Replace(Code, "long", "Long", , , 2)
Code = Replace(Code, "boolean", "Boolean", , , 2)
Code = Replace(Code, "currency", "Currency", , , 2)

Code = Replace(Code, "if", "If", , , 2)
Code = Replace(Code, "then", "Then", , , 2)
Code = Replace(Code, "else", "Else", , , 2)

Code = Replace(Code, "for", "For", , , 2)
Code = Replace(Code, "to", "To", , , 2)
Code = Replace(Code, "next", "Next", , , 2)

Code = Replace(Code, "select", "Select", , , 2)
Code = Replace(Code, "case", "Case", , , 2)
Code = Replace(Code, "next", "Next", , , 2)

Code = Replace(Code, "open", "Open", , , 2)
Code = Replace(Code, "close", "Close", , , 2)
Code = Replace(Code, "print", "Print", , , 2)
Code = Replace(Code, "line", "Line", , , 2)
Code = Replace(Code, "input", "Input", , , 2)
Code = Replace(Code, "output", "Output", , , 2)
text1=code


:roll: [/code]
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!
Вернуться к началу
A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 30.01.2005 (Вс) 20:50

Код: Выделить всё
Dim Pos&
Pos = Text1.SelStart
Code = Text1.Text

Code = Replace(Code, "private", "Private", , , 2)
Code = Replace(Code, "sub", "Sub", , , 2)
Code = Replace(Code, "end", "End", , , 2)

Code = Replace(Code, "dim", "Dim", , , 2)
Code = Replace(Code, "as", "As", , , 2)
Code = Replace(Code, "integer", "Integer", , , 2)
Code = Replace(Code, "string", "String", , , 2)
Code = Replace(Code, "long", "Long", , , 2)
Code = Replace(Code, "boolean", "Boolean", , , 2)
Code = Replace(Code, "currency", "Currency", , , 2)

Code = Replace(Code, "if", "If", , , 2)
Code = Replace(Code, "then", "Then", , , 2)
Code = Replace(Code, "else", "Else", , , 2)

Code = Replace(Code, "for", "For", , , 2)
Code = Replace(Code, "to", "To", , , 2)
Code = Replace(Code, "next", "Next", , , 2)

Code = Replace(Code, "select", "Select", , , 2)
Code = Replace(Code, "case", "Case", , , 2)
Code = Replace(Code, "next", "Next", , , 2)

Code = Replace(Code, "open", "Open", , , 2)
Code = Replace(Code, "close", "Close", , , 2)
Code = Replace(Code, "print", "Print", , , 2)
Code = Replace(Code, "line", "Line", , , 2)
Code = Replace(Code, "input", "Input", , , 2)
Code = Replace(Code, "output", "Output", , , 2)
Text1.Text = Code
Text1.SelStart = Pos
Пойдет? :roll:
Вернуться к началу
hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 30.01.2005 (Вс) 20:50

Was machst du? - Что ты делаешь?
Во-первых, деинсталлируй eVB и поставь Visual Studio .NET 2003 с компонентом Smart Device Development. После чего зацени возможности .Net Compact Framework. Подсказка: очень эффективны при обработке текстов регулярные выражения (System.Text.RegularExpressions) :)
Моду создают модоки, а распространяют модозвоны.
Вернуться к началу
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 30.01.2005 (Вс) 20:52

Гы гы гы, слишком долго :shock:

A.A.Z. спасибо, ща посмотрим! :wink:
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!
Вернуться к началу
A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 30.01.2005 (Вс) 20:53

hCORe, скажи, плиз, где достать этот самый Smart Device Development :roll:
Вернуться к началу
hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 30.01.2005 (Вс) 20:54

A.A.Z. писал(а):Пойдет? :roll:

Классный код, A.A.Z. :) Насколько понимаю, работать будет. Только (по-моему) у Мики проблема с архитектурой. Намертво вбитые в программу строковые выражения - это, несомненно, прикольно :) Думаю, для редактирования кода "в стиле VB6" надо как минимум наследовать TextBox и раскрашивать тексты с использованием регулярных выражений (это в .NET) :)
Моду создают модоки, а распространяют модозвоны.
Вернуться к началу
hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 30.01.2005 (Вс) 20:56

Хммм... Где достать Smart Device Development? В Microsoft Download Center, вестимо :) А вообще, он идёт в комплекте с VS.NET 2003 и VS.NET 2005, начиная с редакций Professional :)
Моду создают модоки, а распространяют модозвоны.
Вернуться к началу
A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 30.01.2005 (Вс) 20:59

hCORe писал(а):А вообще, он идёт в комплекте с VS.NET 2003 и VS.NET 2005, начиная с редакций Professional :)
У кого как 8)
[edit] Блин, ну почему на microsoft.com нету большой кнопки посередины страницы с надписью
"Special for users such as A.A.Z.: Download Smart Device Development Kit"
Ну не могу я там ничего найти :cry: [/edit]
Вернуться к началу
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 30.01.2005 (Вс) 23:35

A.A.Z. писал(а):
hCORe писал(а):А вообще, он идёт в комплекте с VS.NET 2003 и VS.NET 2005, начиная с редакций Professional :)
У кого как 8)
[edit] Блин, ну почему на microsoft.com нету большой кнопки посередины страницы с надписью
"Special for users such as A.A.Z.: Download Smart Device Development Kit"
Ну не могу я там ничего найти :cry: [/edit]
во во, у меня та же трабла, какой-то запутанный сайт!
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!
Вернуться к началу
GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 31.01.2005 (Пн) 3:36

А разве то, что идёт в составе студии, выкладывается в скачивание? :)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Вернуться к началу
hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 31.01.2005 (Пн) 13:21

.NET Compact Framework вроде бы как бесплатен. Насчёт возможности загрузки его и SDK - не знаю, не искал. Но, по идее, должен лежать где-то :)
Моду создают модоки, а распространяют модозвоны.
Вернуться к началу
Ответить

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 14

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Time : 0.171s | 12 Queries | GZIP : On
   TopList