Прошу помощи сCheckBox

Форумы Между деломПрошу помощи сCheckBox ← Ctrl12 3Ctrl →

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

Ответов: 3

Рейтинг: 2

#1: 2013-10-09 11:51:56 ЛС | профиль | цитата

Не пинайте сильно)) Прошу помочь новичку. Помогите разобраться с программкой. Как смог отобразил на картинке. Желательно с примером, чтоб открыть в HiAsm. Заранее благодарю!!!!!

карма: 1

Гость

Ответов: 17029

Рейтинг: 0

#2: 2013-10-09 12:11:03 правка | ЛС | профиль | цитата

Редактировалось 4 раз(а), последний 2025-01-09 07:11:18

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#3: 2013-10-09 12:22:08 ЛС | профиль | цитата

Можно и вот так, именно, как просили

Add(MainForm,2953706,56,105)
{
}
Add(CheckBox,15349416,112,70)
{
 Left=15
 Top=15
 Width=90
 TabOrder=-1
 Caption="1"
}
Add(CheckBox,5883062,119,77)
{
 Left=15
 Top=35
 Width=90
 TabOrder=-1
 Caption="2"
}
Add(CheckBox,10363184,126,84)
{
 Left=15
 Top=55
 Width=90
 TabOrder=-1
 Caption="3"
}
Add(CheckBox,7843476,133,91)
{
 Left=15
 Top=75
 Width=90
 TabOrder=-1
 Caption="4"
}
Add(CheckBox,15219868,140,98)
{
 Left=15
 Top=95
 Width=90
 TabOrder=-1
 Caption="5"
}
Add(Button,6638124,56,147)
{
 Left=25
 Top=130
 TabOrder=-1
 Caption="Ok!"
 link(onClick,2939497:doNumber,[])
}
Add(BitsToInt,2939497,112,147)
{
 Count=5
 link(onNumber,269336:doGetIndex,[])
 link(Bit1,15349416:Checked,[])
 link(Bit2,5883062:Checked,[])
 link(Bit3,10363184:Checked,[])
 link(Bit4,7843476:Checked,[])
 link(Bit5,15219868:Checked,[])
}
Add(StrList,269336,196,105)
{
 Strings=#1:3|1:9|2:18|1:5|0:|
 Point(onGetIndex)
 Point(doGetIndex)
 link(onGetIndex,9052158:doGetString,[])
}
Add(Message,15690419,364,77)
{
 Caption="!!!"
}
Add(StrList,9052158,259,70)
{
 Strings=#5:1 - 2|5:1 - 4|5:2 - 5|5:1 - 3|0:|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,14375221:doCase,[])
}
Add(Case,14375221,308,77)
{
 Value=String()
 link(onNextCase,15690419:doMessage,[])
}

карма: 22

Ответов: 3

Рейтинг: 2

#4: 2013-10-09 13:09:52 ЛС | профиль | цитата

Большое спасибо!!! А проектом *.sha можете сбросить? Чтоб открыть в HiAsm, в виде блоков?

карма: 1

Ответов: 223

Рейтинг: 24

#5: 2013-10-09 13:11:22 ЛС | профиль | цитата

Можно и так
code_31972.txt

карма: 0

файлы: 1

code_31972.txt [1.1KB] [231]

Ответов: 1536

Рейтинг: 176

#6: 2013-10-09 13:17:50 ЛС | профиль | цитата

fllup писал(а):

А проектом *.sha можете сбросить? Чтоб открыть в HiAsm, в виде блоков?

Копипасти код в рабочее поле редактора HiAsm. Если видишь кракозябры, то поменяй в интернет браузере кодировку на UTF-8.

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 223

Рейтинг: 24

#7: 2013-10-09 13:20:05 ЛС | профиль | цитата

плохо скопировал
code_31973.txt

карма: 0

файлы: 1

code_31973.txt [1KB] [254]

Голосовали:

fllup

Ответов: 3

Рейтинг: 2

#8: 2013-10-09 13:20:47 ЛС | профиль | цитата

Спасибо!!!! Сам не догадался ((

карма: 1

Разработчик

Ответов: 26163

Рейтинг: 2127

#9: 2013-10-09 13:34:01 ЛС | профиль | цитата

wasya писал(а):

Можно и так

Есть недостаток такого способа, как и способа с одним StrList-ом -- пустые поля ненужных индексов. Представьте, если чеков будет не 5, а 10, к примеру, это надо будет заполнить список из 2^10 индексов. Как вы думаете, очень легко, и не обшибиться при этом

Вот почему я эти способы и отбросил сразу

карма: 22

Ответов: 1536

Рейтинг: 176

#10: 2013-10-09 14:01:12 ЛС | профиль | цитата

Как вариант, если производительность не важна:

Add(MainForm,8238906,133,119)
{
}
Add(CheckBox,15349416,189,119)
{
 Left=15
 Top=15
 Width=90
 TabOrder=-1
 Caption="1"
}
Add(CheckBox,5883062,196,126)
{
 Left=15
 Top=35
 Width=90
 TabOrder=-1
 Caption="2"
}
Add(CheckBox,10363184,203,133)
{
 Left=15
 Top=55
 Width=90
 TabOrder=-1
 Caption="3"
}
Add(CheckBox,7843476,210,140)
{
 Left=15
 Top=75
 Width=90
 TabOrder=-1
 Caption="4"
}
Add(CheckBox,15219868,217,147)
{
 Left=15
 Top=95
 Width=90
 TabOrder=-1
 Caption="5"
}
Add(Button,6638124,140,196)
{
 Left=25
 Top=130
 TabOrder=-1
 Caption="Ok!"
 link(onClick,12527523:doCalc,[])
}
Add(StrList,269336,259,154)
{
 Strings=#0:|13:Сообщение 1,2|13:Сообщение 1,4|13:Сообщение 2,5|13:Сообщение 1,3|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,2180319:doText,[])
}
Add(MathParse,12527523,189,196)
{
 DataCount=5
 MathStr="(((%1=1)and(%2=1)and(%3=0)and(%4=0)and(%5=0))*1)+
(((%1=1)and(%2=0)and(%3=0)and(%4=1)and(%5=0))*2)+
(((%1=0)and(%2=1)and(%3=0)and(%4=0)and(%5=1))*3)+
(((%1=1)and(%2=0)and(%3=1)and(%4=0)and(%5=0))*4)"
 link(onResult,269336:doGetString,[])
 link(X1,15349416:Checked,[])
 link(X2,5883062:Checked,[])
 link(X3,10363184:Checked,[])
 link(X4,7843476:Checked,[])
 link(X5,15219868:Checked,[])
}
Add(Label,2180319,308,161)
{
 Left=120
 Top=60
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Разработчик

Ответов: 26163

Рейтинг: 2127

#11: 2013-10-09 14:04:22 ЛС | профиль | цитата

ser_davkin писал(а):

Как вариант

Вполне себе нормальный вариант. Только Tad-y не показывать, а то докопается, что места в памяти жрет много

карма: 22

Гость

Ответов: 17029

Рейтинг: 0

#12: 2013-10-09 16:05:05 правка | ЛС | профиль | цитата

Редактировалось 4 раз(а), последний 2025-01-09 07:11:18

карма: 0

Ответов: 16884

Рейтинг: 1239

#13: 2013-10-09 16:05:40 ЛС | профиль | цитата

Выше я.

карма: 25

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

Ответов: 223

Рейтинг: 24

#14: 2013-10-09 17:08:56 ЛС | профиль | цитата

ser_davkin в схеме ошибка,если все не отметить или отметить 1 и 5 событие одинаковое(Сообщение 1,2)

карма: 0

Ответов: 1536

Рейтинг: 176

#15: 2013-10-09 17:15:37 ЛС | профиль | цитата

wasya, вероятно, ты случайно удалил пустую строку в StrList. Индекс "0" именно её и вызывает (пустое сообщение).

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Форумы Между деломПрошу помощи сCheckBox ← Ctrl12 3Ctrl →


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