Ребята а такое в общее возможно?

@АБУ_БАКР 2 · Регистрация: 30.12.2019

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

Снова привети ребята, а в этом коде for или чтота ему подобное возможно ли использовать.
вот сам код:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Voridshavi1_Click()
Call mciExecute("close D:\WORKS\VB_6,0\Bozi\Muz\Vostochnaya_flejta.mp3")
Asli.Height = 7845
Asli.Width = 15165
Asli.Picture = LoadPicture("D:\WORKS\VB_6,0\Bozi\Img\Ris2.jpg")
Call mciExecute("play D:\WORKS\VB_6,0\Bozi\Muz\Smeshno.mp3")
Asli1.Show
End Sub

Хочу использовать код на 5, 6 строчке это возможно. Сут таков когда нажмешь кнопку войти скажем так сперва он должен выполнит строчки 5,6 а когда во второй раз нажимаеш то тогда он показал бы другую форму.
С for попробовал ну не смог или что то не то написал, не получилось короче помогите.

@Argus19 · 03.01.2021, 13:28

Сообщение от АБУ_БАКР 2

С for попробовал ну не смог или что то не то написал

For начало цикла. Т.е. устанавливаете количество повторений и часть кода, находящегося между For....To и Next... несколько раз повторяется.
Если есть желание

Сообщение от АБУ_БАКР 2

когда нажмешь кнопку войти скажем так сперва он должен выполнит строчки 5,6 а когда во второй раз нажимаеш то тогда он показал бы другую форму.

, то лучше использовать переменную-триггер.
Объявляем

Visual Basic
1
Dim или Private или, в модуле - Public trig As Boolean

В событии загрузки формы инициализируем

Visual Basic
1
trig = True

В событии вашей кнопки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Voridshavi1_Click()
Call mciExecute("close D:\WORKS\VB_6,0\Bozi\Muz\Vostochnaya_flejta.mp3")
Asli.Height = 7845
Asli.Width = 15165
          If trig = True Then
Asli.Picture = LoadPicture("D:\WORKS\VB_6,0\Bozi\Img\Ris2.jpg")
Call mciExecute("play D:\WORKS\VB_6,0\Bozi\Muz\Smeshno.mp3")
         Trig = False    'Меняем состояние триггера
      Exit Sub
      Else
Asli1.Show
     Trig = True    'Меняем состояние триггера
     End If
End Sub

Как-то так. Не проверял. Писал навскидку.

@АБУ_БАКР 2 · 03.01.2021, 13:44 **[ТС]**

Argus19,
Огромное вам спасибо сработало как надо

С уважение АБУБАКР_2

@Argus19 · 03.01.2021, 14:07

Для красоты можно при переключении менять цвет надписи на кнопке или цвет её фона или изображение.

@Pro_grammer · 03.01.2021, 14:34

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

лучше использовать переменную-триггер.

Покажу, как это делать прямо в процедуре в 1 строку

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
 Static Trig As Boolean
 Trig = Trig Xor True ' одна строка меняет значение триггера
  If Trig Then
    Form1.BackColor = vbRed
  Else
    Form1.BackColor = vbGreen
  End If
End Sub

@Alex77755 · 03.01.2021, 16:53

если надо больше двух вариантов, то переменная должна быть не булевая, а счетчик.
а потом с помощью Select Case проверять

@АБУ_БАКР 2 · 03.01.2021, 20:19 **[ТС]**

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

Для красоты можно при переключении менять цвет надписи на кнопке или цвет её фона или изображение.

а это возможно?
и еще как вы уже догадались я запускаю музику вот так

Visual Basic
1
Call mciExecute("play D:\WORKS\VB_6,0\Bozi\Muz\Smeshno.mp3")

он играет музику один рас можно ли сделать так что он повторял играть

Добавлено через 5 минут
Pro_grammer,
я ваш код поместил внутри кнопочки ну эфекта не дало

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Voridshavi1_Click()
If mciExecute("play D:\WORKS\VB_6,0\Bozi\Muz\Vostochnaya_flejta.mp3") = mciExecute("play D:\WORKS\VB_6,0\Bozi\Muz\Vostochnaya_flejta.mp3") Then
mciExecute ("close D:\WORKS\VB_6,0\Bozi\Muz\Vostochnaya_flejta.mp3")
End If
Asli.Height = 8145
Asli.Width = 15165
          If Trig = True Then
Asli.Picture = LoadPicture("D:\WORKS\VB_6,0\Bozi\Img\Ris2.jpg")
Call mciExecute("play D:\WORKS\VB_6,0\Bozi\Muz\Smeshno.mp3")
         Trig = False    'Ìåíÿåì ñîñòîÿíèå òðèããåðà
      Exit Sub
      Else
Asli1.Show
Asli1.Label1.Caption = "Âû íàçâàëèñ êàê " & Asli.Text1.Text & " êàê òî òàê!"
     Trig = True    'Ìåíÿåì ñîñòîÿíèå òðèããåðà
     End If
Call mciExecute("close D:\WORKS\VB_6,0\Bozi\Muz\Smeshno.mp3")
Asli.Hide
End Sub

может чегото я не то поставил

@Argus19 · 03.01.2021, 20:51

Сообщение от АБУ_БАКР 2

а это возможно?

Добавьте в код, который ф вам привёл. Между строками 8 и 9

Visual Basic
1
Voridshavi1.BackColor = vbGreen

Между строками 12 и 13

Visual Basic
1
Voridshavi1.BackColor = vbRed

@АБУ_БАКР 2 · 03.01.2021, 20:58 **[ТС]**

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

@Argus19 · 03.01.2021, 21:26

Сообщение от АБУ_БАКР 2

не получилось

Свойство кнопки Style = 1 (Graphical). И всё получится.

@АБУ_БАКР 2 · 03.01.2021, 21:43 **[ТС]**

Argus19,
да ты не подезреваеш как я тебя люблю парен. ты просто мастер вб

@Pro_grammer · 03.01.2021, 22:20

Сообщение от АБУ_БАКР 2

Pro_grammer,
я ваш код поместил внутри кнопочки ну эфекта не дало

Это не мой код. В моём самое важное это Trig объявит как Static
Static Trig As Boolean
и второе :
Trig = Trig Xor True
Т.о. с каждым нажатием переменная Trig сама меняет своё значение с False на True
Ну чтобы это понять, надо знать двоичную арифметику

I can · 03.01.2021, 22:26

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

Trig = Trig Xor True

Зачем ксорить?
Понятнее так

Visual Basic
1
Trig =not Trig

@Argus19 · 03.01.2021, 22:54

Во вложении два изображения. Загружать:

Visual Basic
1
    Command1.Picture = LoadPicture(App.Path & "\stop2.jpg")

и

Visual Basic
1
    Command1.Picture = LoadPicture(App.Path & "\start3.jpg")

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании 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	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@АБУ_БАКР 2 1 / 1 / 0 Регистрация: 30.12.2019 Сообщений: 194
	03.01.2021, 13:44 [ТС]
	Argus19, Огромное вам спасибо сработало как надо С уважение АБУБАКР_2 0

@Argus19 1433 / 450 / 78 Регистрация: 24.09.2017 Сообщений: 2,533 Записей в блоге: 23
	03.01.2021, 14:07
	Для красоты можно при переключении менять цвет надписи на кнопке или цвет её фона или изображение. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	03.01.2021, 16:53
	если надо больше двух вариантов, то переменная должна быть не булевая, а счетчик. а потом с помощью Select Case проверять 1

@АБУ_БАКР 2 1 / 1 / 0 Регистрация: 30.12.2019 Сообщений: 194
	03.01.2021, 20:58 [ТС]
	Argus19, не получилось, наверное это у программы какой то глюк кнопочек комманд вопше не получается перекрасит даже с свойствами. а таким вы сталкивалис? 0

@АБУ_БАКР 2 1 / 1 / 0 Регистрация: 30.12.2019 Сообщений: 194
	03.01.2021, 21:43 [ТС]
	Argus19, да ты не подезреваеш как я тебя люблю парен. ты просто мастер вб 0

Ребята а такое в общее возможно?

Решение