Вверх ↑
Этот топик читают: Гость
Ответов: 1321
Рейтинг: 37
#1: 2011-03-11 20:28:29 ЛС | профиль | цитата
Я не нашел тему VBS, и решил создать новую ,я просмотрел примеры ,но до меня не очень хорошо доходит
Я вроде чтото понял , написал программу,но она не работает
code_22911.txt
и сам код

dim a
a = "VBS Script"
sub doWork(data, index)
Select Case Index
case "doMessage"
msgbox a
end sub
------------ Дoбавленo в 20.28:
В принципе мне достаточно doWork, но я хотел попробовать через doMessage
и я не понял как вывести сообщение с надписью введённой в Hiasm
карма: 0

0
файлы: 1code_22911.txt [393B] [124]
Ответов: 5227
Рейтинг: 587
#2: 2011-03-11 20:34:01 ЛС | профиль | цитата
UseName=True Select Case закрыть End Select
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1321
Рейтинг: 37
#3: 2011-03-11 20:35:05 ЛС | профиль | цитата
Как сюда добавить свой текст из Lable в Hiasm

dim a
a = "VBS Script"
sub doWork(data, index)
msgbox a
end sub
   
карма: 0

0
Ответов: 5227
Рейтинг: 587
#4: 2011-03-11 20:36:38 ЛС | профиль | цитата
код вываливать бесполезно, для этого надо завести будильник на то время когда миньеткравтовцы наиграются, абсурд какой-то
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 3349
Рейтинг: 233
#5: 2011-03-11 20:41:52 ЛС | профиль | цитата
code_22912.txt
Не так ли случаем?
------------ Дoбавленo в 20.41:
Add(MainForm,1242197,308,455)
{
}
Add(VBJScript,15678476,392,455)
{
WorkPoints=#9:doMessage|
Script=#23:sub doWork(data, index)|17:Select Case Index|19:case 0: msgbox data|10:end Select|10:end sub |
}
Add(Button,9085634,350,455)
{
Left=155
Top=100
Width=85
Height=50
Data=String(weqwqwe)
link(onClick,15678476:doMessage,[])
}


карма: 1

0
файлы: 1code_22912.txt [366B] [125]
Ответов: 1321
Рейтинг: 37
#6: 2011-03-11 20:46:29 ЛС | профиль | цитата
а к примеру снимать данные с Data point в Hiasm?
карма: 0

0
Ответов: 4641
Рейтинг: 334
#7: 2011-03-11 20:49:40 ЛС | профиль | цитата
Roma, а примеры точно все посмотрел? В справке есть ссылка там очень все подробно расписано коллегой andrestudio,
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 5227
Рейтинг: 587
#8: 2011-03-11 20:49:45 ЛС | профиль | цитата
Ivann,
Roma писал(а):
но я хотел попробовать через doMessage
вроде есть как бы условие...
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1321
Рейтинг: 37
#9: 2011-03-11 20:55:08 ЛС | профиль | цитата
[flood]Я же рассказывал историю про справку ,не открывается[/flood]
карма: 0

0
Ответов: 3349
Рейтинг: 233
#10: 2011-03-11 20:56:41 ЛС | профиль | цитата
Roma, Use WikiCenter
карма: 1

0
Ответов: 1321
Рейтинг: 37
#11: 2011-03-11 20:58:42 ЛС | профиль | цитата
[flood]Блин ,совсем забыл ,спасибо Ivann, наверное у меня склироз [/flood]
карма: 0

0
Ответов: 5227
Рейтинг: 587
#12: 2011-03-11 20:59:41 ЛС | профиль | цитата
Roma, я в HiAsm Studio 4.4 build 184 вовсе с com обьектами ничего не смог скомпилировать, если это только у меня, тогда х.с.н
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 4641
Рейтинг: 334
#13: 2011-03-11 21:58:45 ЛС | профиль | цитата
Roma писал(а):
Я же рассказывал историю про справку

а справка на главной странице тоже не открывается....??? времссссс
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1321
Рейтинг: 37
#14: 2011-03-11 22:18:12 ЛС | профиль | цитата
Ravilr, писал(а):
а справка на главной странице тоже не открывается

Я просто про неё забыл
карма: 0

0
Ответов: 1321
Рейтинг: 37
#15: 2011-03-15 20:20:39 ЛС | профиль | цитата

dim = myHex
sub doWork(data, index)
Select Case Index
case 0: MyHex = Hex(data)
msgbox myHex
end Select
end sub
Мне нужно перевести данные в Hex и вывести сообщение, или вывести данные в Программу
Но этот код неправильный
карма: 0

0
15
Сообщение
...
Прикрепленные файлы
(файлы не залиты)