Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "HiAsm 5"
Ответов: 13
Рейтинг: 0
#1: 2018-08-14 17:17:35 ЛС | профиль | цитата
Прошу прощение, если создал тему не в том разделе.

Доброго времени суток! Господа, нужна помощь. Как создать программу в оконном режиме (90х90pix), которая бы считала клики по ней. от 0 до 350. То есть: окно-там циферблат (крупный). Внизу (или не в низу) кнопка "Клик", которая бы считала, собственно говоря, сами клики.

Что-то вроде этого
Если будет функция - сброс и стрелочки "назад и вперёд" - было бы вообще здорово!
Как мне это сделать? Может кто-нибудь расписать по пунктам?
карма: 0

0
Ответов: 4630
Рейтинг: 749
#2: 2018-08-14 18:11:50 ЛС | профиль | цитата
PrpstoYan писал(а):
Может кто-нибудь расписать по пунктам?
Пункт всего 1 - компонент CounterEx на вкладке "Логика". Ну, и кнопка "Клик" с надписью для отображения кликов...
карма: 26

0
Ответов: 1926
Рейтинг: 172
#3: 2018-08-14 19:33:21 ЛС | профиль | цитата
А для стрелочек вот:

Add(VisualShape,10092607,483,294)
{
Left=130
Top=95
PWidth=2
ShapeType=0
}
карма: 9
0
Ответов: 632
Рейтинг: 4
#4: 2018-08-14 22:47:56 ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2018-08-15 16:11:37
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2018-08-14 22:49:47 ЛС | профиль | цитата
без CounterEx и без VisualShape

Add(MainForm,2953706,161,119)
{
Width=364
Position=1
link(onCreate,768899:doWork1,[(207,139)])
}
Add(Label,902530,217,168)
{
Left=40
Top=35
Width=260
Height=125
Font=[Courier New,72,1,0,204]
Ctl3D=0
WinStyle=2
Caption=""
AutoSize=1
Alignment=2
link(Text,11167816:Position,[(223,156)(260,156)(260,215)(174,215)])
}
Add(UpDown,11167816,168,168)
{
Left=30
Top=175
Width=275
Height=50
Max=350
Position=175
Kind=0
link(onPosition,768899:doWork2,[])
}
Add(HubEx,768899,203,168)
{
link(onEvent,902530:doText,[])
}
Add(Button,15519022,112,168)
{
Left=75
Top=240
Width=185
Font=[MS Sans Serif,8,1,0,1]
Caption="СБРОС"
Data=Integer(0)
link(onClick,11167816:doPosition,[])
}


Редактировалось 1 раз(а), последний 2018-08-14 22:56:08
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 13
Рейтинг: 0
#6: 2018-08-15 09:48:37 ЛС | профиль | цитата
Ребята, я совсем овощ, ну прямо картошка. Что с чем соединять, куда код вводить, вообще не понимаю. Извините, конечно, за мою глупость в данном деле. Можете более подробно расписать для овоща?

ЗЫ. В школе, на уроках информатике, мы рисовали картинки в Paint...
карма: 0

0
Ответов: 2267
Рейтинг: 676
#7: 2018-08-15 10:16:42 ЛС | профиль | цитата
PrpstoYan, а нажмите F1 в HiAsm.
карма: 11

0
Ответов: 13
Рейтинг: 0
#8: 2018-08-15 10:31:25 ЛС | профиль | цитата
sla8a писал(а):
PrpstoYan, а нажмите F1 в HiAsm.

Ну там инструкция, многобукафф, мне ничего не понятно, я не прошу меня обучить делать программы, я прошу сказать пошаговую инструкцию по созданию. Я далёк от данной темы. Она для меня слишком сложная, возникла потребность к одноразовом создание лёгкой программы, не более того.

--- Добавлено в 2018-08-15 10:50:44

Tad писал(а):
без CounterEx и без VisualShape

Add(MainForm,2953706,161,119)
{
Width=364
Position=1
link(onCreate,768899:doWork1,[(207,139)])
}
Add(Label,902530,217,168)
{
Left=40
Top=35
Width=260
Height=125
Font=[Courier New,72,1,0,204]
Ctl3D=0
WinStyle=2
Caption=""
AutoSize=1
Alignment=2
link(Text,11167816osition,[(223,156)(260,156)(260,215)(174,215)])
}
Add(UpDown,11167816,168,168)
{
Left=30
Top=175
Width=275
Height=50
Max=350
Position=175
Kind=0
link(onPosition,768899:doWork2,[])
}
Add(HubEx,768899,203,168)
{
link(onEvent,902530:doText,[])
}
Add(Button,15519022,112,168)
{
Left=75
Top=240
Width=185
Font=[MS Sans Serif,8,1,0,1]
Caption="СБРОС"
Data=Integer(0)
link(onClick,11167816:doPosition,[])
}


Куда это вставить? Нужно было указать, что я совсем ничего не понимаю...

Редактировалось 1 раз(а), последний 2018-08-15 10:50:44
карма: 0

0
Ответов: 13
Рейтинг: 0
#9: 2018-08-15 13:12:41 ЛС | профиль | цитата
Всем спасибо, особенно пользователю Dapofog! Данный пользователь прислал программу, и исходник к ней, я немного её подредактировал - всё очень хорошо вышло!!1
карма: 0

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