Кликер(счётчик) до 350

Форумы Между деломКликер(счётчик) до 350 ← Ctrl1Ctrl →

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

Этот топик был перемещен из раздела "HiAsm 5"

Ответов: 13

Рейтинг: 0

#1: 2018-08-14 17:17:35 ЛС | профиль | цитата

Прошу прощение, если создал тему не в том разделе.

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

Что-то вроде этого

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

карма: 0

Ответов: 4628

Рейтинг: 749

#2: 2018-08-14 18:11:50 ЛС | профиль | цитата

PrpstoYan писал(а):

Может кто-нибудь расписать по пунктам?

Пункт всего 1 - компонент CounterEx на вкладке "Логика". Ну, и кнопка "Клик" с надписью для отображения кликов...

карма: 26

Ответов: 1926

Рейтинг: 172

#3: 2018-08-14 19:33:21 ЛС | профиль | цитата

А для стрелочек вот:


Add(VisualShape,10092607,483,294)
{
 Left=130
 Top=95
 PWidth=2
 ShapeType=0
}

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Ответов: 632

Рейтинг: 4

#4: 2018-08-14 22:47:56 ЛС | профиль | цитата

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

карма: 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

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 13

Рейтинг: 0

#6: 2018-08-15 09:48:37 ЛС | профиль | цитата

Ребята, я совсем овощ, ну прямо картошка. Что с чем соединять, куда код вводить, вообще не понимаю. Извините, конечно, за мою глупость в данном деле. Можете более подробно расписать для овоща?

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

карма: 0

Ответов: 2236

Рейтинг: 676

#7: 2018-08-15 10:16:42 ЛС | профиль | цитата

PrpstoYan, а нажмите F1 в HiAsm.

карма: 11

Ответов: 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,11167816

osition,[(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

Ответов: 13

Рейтинг: 0

#9: 2018-08-15 13:12:41 ЛС | профиль | цитата

Всем спасибо, особенно пользователю Dapofog! Данный пользователь прислал программу, и исходник к ней, я немного её подредактировал - всё очень хорошо вышло!!1

карма: 0

Форумы Между деломКликер(счётчик) до 350 ← Ctrl1Ctrl →


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