ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с двумя задачами плз
12 сообщений из 12, страница 1 из 1
Помогите с двумя задачами плз
    #36989895
stason88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stason88
Гость
1
Создать в редакторе VBA форму, добавить на нее 5 элементов управления CheckBox, пронумеровать их от 1 до 5, задать имена вида cbo_n, где n – номер элемента управления от 1 до 5. Добавить на форму четыре кнопки. Первая кнопка, подписанная как "Установить четные", устанавливает четные флажки, кнопка "Сбросить все" сбрасывает все флажки, кнопка "Количество установленных флажков" выводит сообщение вида "Количество установленных флажков равно n", в том случае, если ни один флажок не установлен, выводит сообщение "Ни один флажок не установлен"
2
Создать в редакторе VBA форму и разместить на ней два текстовых поля. Добавить к ним подписи "Введите число" и "Вывод". Запретите изменение пользователем содержимого второго поля. При вводе в первое окно числа во втором окне должно выводиться слово "Чётное" если число четное и "Нечетное" если число нечетное. Если введено не число – во втором окне должна быть отображена фраза "Неверный ввод".

Вообще не шарю в VBA, зарание спасибо!
...
Рейтинг: 0 / 0
01.12.2010, 19:30
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36989920
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
stason88,
>Создать в редакторе VBA форму ....... и т.д.
А интересно, каким образом Вам её передать потом???
...
Рейтинг: 0 / 0
01.12.2010, 19:42
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36989926
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
$10
Со скриншотами процесса создания форм - $20
...
Рейтинг: 0 / 0
01.12.2010, 19:43
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36989932
stason88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stason88
Гость
Ципихович Эндрю,

В первой задаче можете объяснить как сделать чтобы выводило сообщение и определяло сколько отмеченных...
...
Рейтинг: 0 / 0
01.12.2010, 19:50
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36989944
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
stason88, что о вроде этого:
If Форма.CheckBox7.Value = True Then 'условие, если установлен седьмой флажок
...
Рейтинг: 0 / 0
01.12.2010, 19:57
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36989984
stason88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stason88
Гость
Ципихович Эндрю,

То есть нужно будет создавать вторую форму?
...
Рейтинг: 0 / 0
01.12.2010, 20:15
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36989993
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
stason88Ципихович Эндрю,

То есть нужно будет создавать вторую форму?
нет, слово Форма это её название
...
Рейтинг: 0 / 0
01.12.2010, 20:27
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36990013
stason88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stason88
Гость
Ципихович Эндрю,

Спасибо попробую! А по второй задаче как сделать чтобы он определял числа это или текст?
...
Рейтинг: 0 / 0
01.12.2010, 20:40
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36990021
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
stason88, из этой области
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Лет_Change()

If Len(Лет.Text) =  1  Then
Первый_символ_текстбокса = Лет.Text
Select Case Первый_символ_текстбокса
'положительная проверка, когда Первый_символ_текстбокса равен "1", "2", "3", "4", "5", "6", "7", "8", "9"
Case "1", "2", "3", "4", "5", "6", "7", "8", "9"
Case Else
'отрицательная проверка, когда Первый_символ_текстбокса не равен "1", "2", "3", "4", "5", "6", "7", "8", "9"
If Len(Первый_символ_текстбокса) <>  0  Then
If Первый_символ_текстбокса =  0  Then
MsgBox$ "В поле для ввода данных о количестве лет, которые нужно прибавить или вычесть от даты введён: 0, что является ошибкой, количество лет введите без нуля", vbOKOnly, "ВНИМАНИЕ, ИСПРАВЬТЕ ОШИБКУ"
Else
MsgBox$ "В поле для ввода данных о количестве лет, которые нужно прибавить или вычесть от даты введёно: " & Первый_символ_текстбокса & ", что является ошибкой", vbOKOnly, "ВНИМАНИЕ, ИСПРАВЬТЕ ОШИБКУ"
End If
Лет.Text = "" 'стереть введённые данные
Exit Sub
End If
End Select
End If
...
Рейтинг: 0 / 0
01.12.2010, 20:45
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36990030
stason88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
stason88
Гость
Огромное спасибо я понял!!!)))
...
Рейтинг: 0 / 0
01.12.2010, 20:51
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36990158
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
в первой части ТЗ потеряно описание функционала четвертой кнопки
...
Рейтинг: 0 / 0
01.12.2010, 22:42
| Ответить | Цитировать | Написать  
Помогите с двумя задачами плз
    #36991414
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
stason88,

понял, то понял, код форм выкладывайте
...
Рейтинг: 0 / 0
02.12.2010, 15:11
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с двумя задачами плз
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36989895&tid=2159190]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 13ms
total:  146ms
созд. / загр.: 146ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]