Помоготе создать мини-программу информер

Форумы Между деломПомоготе создать мини-программу информер ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 3

Рейтинг: 0

#1: 2009-04-20 19:40:36 ЛС | профиль | цитата

Доброе время суток, я хочу сделать программу с определенной информацией, но в программирование вобще не разбираюсь.

В программе есть 2 ComboBox'a, 1 Text и 1 кнопка.
Прикрепляю к посту похожею программу к сожалению сделанную не мной, и поэтому хочу узнать как сделать аналог такойже но с другой информацией "внутри".

http://slil.ru/27468307 (Программа об скрипт.Языке RFR)

карма: 0

Ответов: 5227

Рейтинг: 587

#2: 2009-04-20 20:37:08 ЛС | профиль | цитата

А что конкретно она будет делать

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 3

Рейтинг: 0

#3: 2009-04-20 20:51:15 ЛС | профиль | цитата

Просто предоставлять информацию как в похожей программе ссылку на которую я дал выше.

В комбо_1 информация делится на группы при выделение который в Комбо_2 появляется возможность выбрать то или иное значение о котором в Text_1 будет отображаться информация.

Просто помогите сделать такуюже программу в HiAsm.

карма: 0

Ответов: 4641

Рейтинг: 334

#4: 2009-04-20 21:10:05 ЛС | профиль | цитата

вот изучай. например так.


Add(MainForm,2953706,28,168)
{
}
Add(ComboBox,11152652,28,91)
{
 Left=15
 Top=5
 Width=360
 Height=21
 Strings=#1:1|1:2|1:3|1:4|1:5|
 link(onClick,16057648:doEvent1,[(83,104)(83,223)])
}
Add(ComboBox,12149348,350,175)
{
 Left=15
 Top=45
 Width=360
 Height=21
 DataType=1
 link(onClick,106814:doGetIndex,[(398,188)(398,150)])
}
Add(Memo,9448001,742,175)
{
 Left=15
 Top=80
 Width=360
 Height=165
}
Add(StrList,181160,266,98)
{
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|
}
Add(ArrayRW,7824429,280,175)
{
 link(onRead,12149348:doAdd,[])
 link(Array,181160:Array,[])
}
Add(For,14055132,203,175)
{
 link(onEvent,7824429:doRead,[])
 link(Start,4696291:Left,[])
 link(End,4696291:Right,[])
}
Add(StrPart,4696291,203,98)
{
 Char=";"
 Point(Left)
 Point(Right)
 link(onSplit,14055132:doFor,[(247,104)(247,152)(191,152)(191,181)])
}
Add(StrList,2793340,140,91)
{
 Strings=#3:0;2|3:3;5|
 Point(onGetString)
 Point(doGetString)
 link(onGetString,4696291:doSplit,[])
}
Add(Hub,16057648,105,217)
{
 link(onEvent1,12149348:doClear,[(327,223)(327,188)])
 link(onEvent2,2793340:doGetString,[(132,230)(132,139)])
}
Add(StrList,6742765,651,91)
{
 Strings=#12:Вот описание|16:сам чего не знаю|0:|23:А это еще что то но что|7:не знаю|1:6|1:7|1:8|1:9|
}
Add(ArrayRW,6504286,665,175)
{
 link(onRead,9448001:doAdd,[])
 link(Array,6742765:Array,[])
}
Add(For,7166216,588,175)
{
 link(onEvent,6504286:doRead,[])
 link(Start,11870879:Left,[])
 link(End,11870879:Right,[])
}
Add(StrPart,11870879,588,98)
{
 Char=";"
 Point(Left)
 Point(Right)
 link(onSplit,7166216:doFor,[(632,104)(632,152)(576,152)(576,181)])
}
Add(StrList,7180518,525,91)
{
 Strings=#3:0;2|3:3;5|
 Point(onGetString)
 Point(doGetString)
 link(onGetString,11870879:doSplit,[])
}
Add(Hub,6455276,483,217)
{
 link(onEvent1,9448001:doClear,[(725,223)(725,188)])
 link(onEvent2,7180518:doGetString,[(503,230)(503,139)])
}
Add(StrList,106814,413,95)
{
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|
 Point(onGetString)
 Point(doGetString)
 Point(doGetIndex)
 Point(onGetIndex)
 link(onGetIndex,6455276:doEvent1,[(457,115)(457,223)])
}

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 5227

Рейтинг: 587

#5: 2009-04-20 21:14:40 ЛС | профиль | цитата

Пример code_12908.txt

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

файлы: 1

code_12908.txt [1.4KB] [194]

Ответов: 1304

Рейтинг: 405

#6: 2009-04-20 21:24:40 ЛС | профиль | цитата

plastid, тебе сегодня повезло, во ещё третий пример.

code_12909.txt

карма: 3

файлы: 1

code_12909.txt [1.8KB] [192]

Разработчик

Ответов: 4698

Рейтинг: 426

#7: 2009-04-20 21:32:28 ЛС | профиль | цитата

MAV писал(а):

plastid, тебе сегодня повезло, во ещё третий пример

code_12910.txt
------------ Дoбавленo в 21.32:
Ток не третий, а четвертый

карма: 10

Мой сайт, Мои рассказы

файлы: 1

code_12910.txt [1.6KB] [198]

Ответов: 4641

Рейтинг: 334

#8: 2009-04-20 21:40:40 ЛС | профиль | цитата

Assasin писал(а):

code_12910.txt
------------ Дoбавленo в 21.32:
Ток не третий, а четвертый

пример не рабочий...да и не красивый.
Assasin, ты когда будешь нормально подходить к рисованию схем? Учти на тебя другие смотрят и оценивают возможности хиасма и как надо работать, а ты путаешь че то!!

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 4698

Рейтинг: 426

#9: 2009-04-20 21:53:09 ЛС | профиль | цитата

А чем Вам не нравится схема(кроме оформления)

карма: 10

Мой сайт, Мои рассказы

Ответов: 4641

Рейтинг: 334

#10: 2009-04-20 21:59:36 ЛС | профиль | цитата

Assasin писал(а):

А чем Вам не нравится схема(кроме оформления)

не в этой теме!

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 3

Рейтинг: 0

#11: 2009-04-20 22:03:38 ЛС | профиль | цитата

Благодарю всех за столь широкий ассортимент схем.

карма: 0

Ответов: 3851

Рейтинг: 159

#12: 2009-04-21 06:39:47 ЛС | профиль | цитата

если необходим многострочный текст, то, например в варианте от MAV, содержимое вехнего левого StrList, будет выглядеть примерно так:

Элементы;
ComboBox;Выпадающий
список
RichEdit;Расширенный
рeдaктop тeкcтa

здесь сочетание "" не влияет на работу элементом массивов, а в RichEdit работает как "новая строка"..

карма: 0

начавший

Форумы Между деломПомоготе создать мини-программу информер ← Ctrl1Ctrl →


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