|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.05.2009, 19:55 | #1 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 25
|
Как можно реализовать эту программку в NetBeans
Весь вечер просидела, не знаю как записать Radio Button Group в коде.
Помогите, пожалуйста, вот код в Delphi: procedure TForm1.Button1Click(Sender: TObject); const marktext:array[0..1]of string=('Верных ответов-','Неверных'); Var MarkV,MarkN:integer; begin MarkV:=0; MarkN:=0; if RadioGroup1.ItemIndex=RadioGroup1.T ag then inc(MarkV) else inc(MarkN); if RadioGroup2.ItemIndex=RadioGroup2.T ag then inc(MarkV) else inc(MarkN); if RadioGroup3.ItemIndex=RadioGroup3.T ag then inc(MarkV) else inc(MarkN); if RadioGroup4.ItemIndex=RadioGroup4.T ag then inc(MarkV) else inc(MarkN); if RadioGroup5.ItemIndex=RadioGroup5.T ag then inc(MarkV) else inc(MarkN); ShowMessage(MarkText[0]+IntToStr(MarkV)+MarkText[1]+IntToStr(MarkN)); end; |
14.05.2009, 14:47 | #2 |
Пользователь
Регистрация: 31.05.2008
Сообщений: 25
|
Сама справилась, оказалось проще простого.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Необходимо реализовать небольшую программку с распорядком дня | Bobick | Помощь студентам | 21 | 14.05.2011 15:14 |
Как увеличить память jvm на netbeans? | kudaybaha | Общие вопросы по Java, Java SE, Kotlin | 0 | 30.10.2008 20:42 |
как можно реализовать то же, но по-другому? | Shawn | БД в Delphi | 19 | 03.10.2007 11:29 |
Подскажите как реализовать эту ерунду.. | Origammi | JavaScript, Ajax | 2 | 17.08.2007 23:49 |