Visual Basic нужно решить

@Vikusik=*** · Регистрация: 10.06.2010

Студворк — интернет-сервис помощи студентам

1 Расположить на форме графический объект кнопку, так, чтобы при нажатии на кнопку объект циклически исчезал и появлялся.
2 Расположить на форме графический объект и две полосы прокрутки и обеспечить изменение место расположения графического объекта при изменении состояния полос прокрутки.
3 Создать массив и обеспечить ввод в него значений посредством окна ввода (InputBox), предотвратив сбой программы, связанный с работой этого оператора.
4 Создать массив и ввести в него автоматически первый 37 членов геометрической прогрессии с заданными первым членом и знаменателем.

@Kelevra2 · 12.06.2010, 09:27

А ты сам не пробовал разбираться? ведь это же просто...
первое примерно так. Добавляешь на форму таймер, текстовое поле, кнопку.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Interval = 1000
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Interval = 0
End Sub
 
Private Sub Timer1_Timer()
a = Text1.Text
If a Mod 2 = 0 Then
Command1.Visible = False
 
End If
If a Mod 2 <> 0 Then
Command1.Visible = True
 
End If
 
a = a + 1
Text1.Text = a
End Sub

Добавлено через 9 минут
Второе. Добавляешь на форму вертикальный скролл и горизонтальный. Добавляешь одну кнопку.

Visual Basic
1
2
3
4
5
6
7
8
Private Sub HScroll1_Change()
Command1.Left = HScroll1.Value
 
End Sub
 
Private Sub VScroll1_Change()
Command1.Top = VScroll1.Value
End Sub

Добавлено через 3 минуты
Дальше мне чет лень писать. По массивам куча статей в инете, найти не проблема

@Vikusik=*** · 12.06.2010, 11:10 **[ТС]**

спасибо боьшое**

@Alex77755 · 12.06.2010, 12:24

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Timer1_Timer()
a = Text1.Text
If a Mod 2 = 0 Then
Command1.Visible = False
 
End If
If a Mod 2 <> 0 Then
Command1.Visible = True
 
End If
 
a = a + 1
Text1.Text = a
End Sub

Мне кажется так короче

Visual Basic
1
2
3
Private Sub Timer1_Timer()
Command1.Visible =Not Command1.Visible 
End Sub

@Vikusik=*** · 12.06.2010, 19:58 **[ТС]**

Пожалуйста помогите 4 и 5 пример решить....плиссссс

@gaw · 12.06.2010, 23:57

Сообщение от Vikusik=***

Расположить на форме графический объект кнопку

тут ошибки нет?

Добавлено через 5 минут
Kelevra2 у Вас код не совсем корректно работает (кажется)

@Kelevra2 · 13.06.2010, 14:33

Что именно тебе кажется некорректной работой? Основу дал, дальше сами разбирайтесь.

@gaw · 13.06.2010, 17:44

как работает событие Command1_MouseUp в момент когда не выдно Command1 (Command1.Visible = False)

@Kelevra2 · 14.06.2010, 09:00

Так же как и в обычном режиме работает. Только если ты отпустишь кнопку мышки, когда кнопка будет не видна, то она у тебя останется невидимой

@gaw · 14.06.2010, 13:43

Kelevra2 Вы так уверенно говорите, что хочется верить

@Alex77755 · 14.06.2010, 16:26

Одно радует, Что не говорит, что так "правильно"

@Kelevra2 · 14.06.2010, 16:58

Я может что-то не правильно понял, но я понял так, как написано "чтобы при нажатии на кнопку объект циклически исчезал и появлялся." т.е. Нажал, она мигает, отпустил, перестала мигать. Т.е. при удерживании в нажатом состоянии она будет пропадать и появлятся, как отпустишь, так перестанет. Если имелось ввиду, что нужно чтобы мигала после клика на кнопку, то да, другой код. Но я все понимаю буквально.

@gaw · 14.06.2010, 18:18

Сообщение от Kelevra2

как отпустишь, так перестанет

это произойдет в момент, когда кнопка видна. Если ее не видно, то и события как такового быть не может.
во вторых

Сообщение от Kelevra2

все понимаю буквально

Сообщение от Vikusik=***

Расположить на форме графический объект

если командная кнопка - графический объект, то спору нет
да и наверное лишние эти разговоры, если что, - сори

@Kelevra2 · 14.06.2010, 18:24

Сообщение от Vikusik=***

графический объект кнопку,

Надо было мне еще кнопку нарисовать?

@gaw · 14.06.2010, 18:38

ну зачем передергивать
просто кнопка не есть графический объект (автор в попыхах упустил пару знаков)
вот сравните

Сообщение от Vikusik=***

Расположить на форме графический объект кнопку

Сообщение от Vikusik=***

Расположить на форме графический объект и две полосы прокрутки

если по вашему "графический объект кнопку" то зачем во втором писать "графический объект" если надо как в первом предложении или проще и короче "кнопку"

@Kelevra2 · 14.06.2010, 21:17

Уважаемый gaw, раз вы такой умный, то в чем разница, кнопку мы будем двигать или какой нибудь графический объект? Или поменять в коде command1 на имя этого графического объекта для вас кажется чем то нереальным? Что первое попалось, с тем и работал.

@gaw · 14.06.2010, 21:40

да Бог с вами

@Kelevra2 · 14.06.2010, 22:03

Вот вы все такие умные, по всякой мелочи хрен знает что разводите. А раз вы все такие умные, что ж никто так и не ответил ни на один мною заданный вопрос? Давай gaw, ты ж у нас гений, посмотри мои темы, попробуй ответить хоть на одну.

@gaw · 14.06.2010, 22:25

Сообщение от Kelevra2

ты ж у нас

пропустил бы, но должен сказать: я никогда не был у вас и, надеюсь, не буду.
за сим разрешите откланятся.

Добавлено через 14 минут
интереса ради глянул темы, знаешь, троянописанием не занимаюсь, /попробуй NAT/

Новые блоги и статьи Все статьи Все блоги /
Контроль корректности заполнения дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Vikusik=*** 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 8

	Visual Basic нужно решить 12.06.2010, 03:28. Показов 1364. Ответов 18 Метки нет (Все метки) 1 Расположить на форме графический объект кнопку, так, чтобы при нажатии на кнопку объект циклически исчезал и появлялся. 2 Расположить на форме графический объект и две полосы прокрутки и обеспечить изменение место расположения графического объекта при изменении состояния полос прокрутки. 3 Создать массив и обеспечить ввод в него значений посредством окна ввода (InputBox), предотвратив сбой программы, связанный с работой этого оператора. 4 Создать массив и ввести в него автоматически первый 37 членов геометрической прогрессии с заданными первым членом и знаменателем. 0

@Vikusik=*** 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 8
	12.06.2010, 11:10 [ТС]
	спасибо боьшое** 0

@Vikusik=*** 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 8
	12.06.2010, 19:58 [ТС]
	Пожалуйста помогите 4 и 5 пример решить....плиссссс 0

@Kelevra2 0 / 0 / 0 Регистрация: 11.06.2010 Сообщений: 62
	13.06.2010, 14:33
	Что именно тебе кажется некорректной работой? Основу дал, дальше сами разбирайтесь. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	13.06.2010, 17:44
	как работает событие Command1_MouseUp в момент когда не выдно Command1 (Command1.Visible = False) 0

@Kelevra2 0 / 0 / 0 Регистрация: 11.06.2010 Сообщений: 62
	14.06.2010, 09:00
	Так же как и в обычном режиме работает. Только если ты отпустишь кнопку мышки, когда кнопка будет не видна, то она у тебя останется невидимой 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	14.06.2010, 13:43
	Kelevra2 Вы так уверенно говорите, что хочется верить 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	14.06.2010, 16:26
	Одно радует, Что не говорит, что так "правильно" 0

@Kelevra2 0 / 0 / 0 Регистрация: 11.06.2010 Сообщений: 62
	14.06.2010, 16:58
	Я может что-то не правильно понял, но я понял так, как написано "чтобы при нажатии на кнопку объект циклически исчезал и появлялся." т.е. Нажал, она мигает, отпустил, перестала мигать. Т.е. при удерживании в нажатом состоянии она будет пропадать и появлятся, как отпустишь, так перестанет. Если имелось ввиду, что нужно чтобы мигала после клика на кнопку, то да, другой код. Но я все понимаю буквально. 0

@Kelevra2 0 / 0 / 0 Регистрация: 11.06.2010 Сообщений: 62
	14.06.2010, 21:17
	Уважаемый gaw, раз вы такой умный, то в чем разница, кнопку мы будем двигать или какой нибудь графический объект? Или поменять в коде command1 на имя этого графического объекта для вас кажется чем то нереальным? Что первое попалось, с тем и работал. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	14.06.2010, 21:40
	да Бог с вами 0

@Kelevra2 0 / 0 / 0 Регистрация: 11.06.2010 Сообщений: 62
	14.06.2010, 22:03
	Вот вы все такие умные, по всякой мелочи хрен знает что разводите. А раз вы все такие умные, что ж никто так и не ответил ни на один мною заданный вопрос? Давай gaw, ты ж у нас гений, посмотри мои темы, попробуй ответить хоть на одну. 0