Power Point VSB Переход на случайный слайд из промежутка

@egor_mol · Регистрация: 10.01.2019

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

Голову себе сломал.... Можно ли получить переход на заданный промежуток слайдов. Задача сделать тест с 15 заданиями и в каждом задании по 5 вопросов(слайдов) У меня срабатывает случайный кадр, но не из промежутка и чтоб случайный слайд не был из множества предыдущих слайдов

PureBasic
1
2
3
4
5
6
 
    w = Int(ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex)
    R = Int(2 * Rnd) + 1
 
 
ActivePresentation.SlideShowWindow.View.GotoSlide (w + R)

Добавлено через 25 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
Dim CorrAns As Integer 'Ïåðåìåííàÿ äëäÿ ïîäñ÷åòà ïðàâèëüíûõ îòâåòîâ
Dim WrongAns As Integer ' ïåð äëÿ ïîäñ÷åòà íå ïðàâèëüíûõ îòâåòîâ
Dim Shp As Shape ' ïåð äëÿ ïðÿìîóãîëüíèêîâ ñ îòâåòàìè
Dim Message As String ' èòîãè òåñòà
 
 
Dim answer As String
 
 
Dim sld As Slide 'èíäåêñ ñòðàíèöû
 
 
Sub CorrectAnswer()
 
 
End Sub
 
 
 
'!!!çàïóñê òåñòèðîâàíèÿ
Sub Start()
'Ñáðîñ ñ÷åò÷èêîâ
CorrAns = 0
WrongAns = 0
 
'ActivePresentation.SlideShowWindow.View.Next
'ActivePresentation.SlideShowWindow.View.GotoSlide (3)
 
'R = Int(ActivePresentation.Slides.Count * Rnd) + 1
'ActivePresentation.SlideShowWindow.View.GotoSlide (R)
 
 
S = Int(4 * Rnd) + 1
w = Int(ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex) ' Îïðåäåëåíèå òåêóùåãî êàäðà
Ts = Int(w + 1)
R = Int(5 * Rnd()) + 5
 
 
 
 
ActivePresentation.SlideShowWindow.View.GotoSlide (R)
 
 
 
 
End Sub
 
'Çàâåðøåíèå òåñòèðîâàíèÿ
Sub ExitTest()
    ActivePresentation.SlideShowWindow.View.Exit
End Sub
 
'Ïîäñâåòêà îòâåòîâ ïðàâèëüíûõ è íåò
Sub ShowAnswer()
'ïðàâèëüíûé îòâåò ïîäñâå÷èâàåì çåëåíûì
With ActivePresentation.SlideShowWindow.View.Slide.Shapes("Corr").Fill
.Solid
.ForeColor.RGB = RGB(146, 208, 80)
End With
 
'Íå ïðàâèëüíûå îòâåòû âûäåëÿþòñÿ êðàñíûì
With ActivePresentation.SlideShowWindow.View.Slide.Shapes("Wrong1").Fill
.Solid
.ForeColor.RGB = RGB(255, 0, 0)
End With
 
With ActivePresentation.SlideShowWindow.View.Slide.Shapes("Wrong2").Fill
.Solid
.ForeColor.RGB = RGB(255, 0, 0)
End With
 
With ActivePresentation.SlideShowWindow.View.Slide.Shapes("Wrong3").Fill
.Solid
.ForeColor.RGB = RGB(255, 0, 0)
End With
 
End Sub
 
'âîçâðàùåíèå ñòàíäàðòíîé çàëèâêè
Sub HideAnswer()
'ïåðåîáî âñåõ îáúåêòîâ
For Each Shp In ActivePresentation.SlideShowWindow.View.Slide.Shapes
    If Shp.Name Like "Corr*" Or Shp.Name Like "Wrong*" Then
        'Shp.ShapeStyle = msoLineStylePreset905
        Shp.ShapeStyle = msoShapeStylePreset41
        'Shp.ShapeStyle = msoShapeStylePrest12
    End If
Next Shp
End Sub
 
'åñëè îòâåò âåðíûé
Sub Corr()
 
    S = Int(4 * Rnd) + 1
    w = Int(ActivePresentation.Windows(1).Selection.SlideRange(1).SlideIndex)
    Ts = Int(w + 1)
    R = Int(4 * Rnd) + 1
 
 
    'óòî÷íÿåì óâåðåíû ëè âîòâåòå?
    If MsgBox("Âû óâåðåíû?", vbYesNo, "Ïîäòâåðæäåíèå îòâåòà") = vbNo Then Exit Sub
    'Ïðèáàâëÿåì â ñ÷åò÷èê îäèí ïðàâèëüíûé îòâåò
    CorrAns = CorrAns + 1
    'âûçûâàåì ìàêðîñ äëÿ ïîäñâåòêè ïðàâèëüíûé è íå ïðàâèëüíûõ îòâåòîâ
    Call ShowAnswer
    'âûâîäèì ñîîáùåíèå î ïðàâëüíîì îòâåòå
    MsgBox "Îòëè÷íî! Ýòî ïðàâèëüíûé îòâåò", vbInformation, "Âåðíî!"
    'Âûçûâàåì ìàêðîñ âîçâðàòà çàëèâêè
    Call HideAnswer
    'ïåðåõîä íà íîâûé ñëàéä
    'ActivePresentation.SlideShowWindow.View.Next
    If CorrAns = 15 Then ActivePresentation.SlideShowWindow.View.GotoSlide (76)
    
    
    
    ActivePresentation.SlideShowWindow.View.GotoSlide (w + R + CorrAns)
End Sub
 
'Åñëè îòâåò íå âåðíûé
Sub Wrong()
    'Óòî÷íÿåì óâåðåíû ëè â îòâåòå
    If MsgBox("Âû óâåðåíû â îòâåòå?", vbYesNo, "Ïîäòâåðæäåíèå îòâåòà") = vbNo Then Exit Sub
    'Ïðèáîâëÿåì ê íå ïðàâèëüíûì îòâ 1
    WrongAns = WrongAns + 1
    'âûçûâàåì ìàêðîñ ïîäñâåòêè ïðàâèëüíûõ è íå ïðàâèëüíûõ îòâåòîâ
    Call ShowAnswer
    'âû âîäèì ñîîáùåíèå î íå âåðíîì îòâåòå
    MsgBox "Îé-îé! Ýòî íå âåðíûé îòâåò", vbInformation, "Îøèáêà!"
    'Âûçûâàåì ìàêðîñ âîçâðàòà çàëèâêè
    Call HideAnswer
    'ïåðåõîä íà íîâûé ñëàéä
    'ActivePresentation.SlideShowWindow.View.Next
    ActivePresentation.SlideShowWindow.View.GotoSlide (77)
End Sub
 
'âûâîä ðåçóëüòàòà
Sub Result()
With ActivePresentation.SlideShowWindow.View
    .Next
    With .Slide
    '÷èñëî âåðíûõ îòâåòîâ
    .Shapes("CorrA").TextFrame2.TextRange.Characters.Text = CorrAns
    '÷èñëî íå âåðíûõ îòâåòîâ
    .Shapes("WrongA").TextFrame2.TextRange.Characters.Text = WrongAns
    'äîëÿ ïðàâèëüíûõ îòâåòîâ îòâåòîâ
    .Shapes("Ress").TextFrame2.TextRange.Characters.Text = Int(CorrAns / (CorrAns + WrongAns) * 100) & "%"
    End With
End With
'åñëè ïðàâèëüíûõ îòâåòîâ áîëüøå 80 %, òî ñîîáùåíèå ñ ïîçäðàâëåíèåì, èíà÷å  - ïðîâàë
If Int(CorrAns / (CorrAns + WrongAns) * 100) > 80 Then
    Message = "Ïîçäðàâëÿåì! Òåñò ïðîéäåí!"
Else
    Message = "Ýòî ôèàñêî, äðóã!"
End If
'âûâîäèì çíà÷åíèå ñ ïåðåìåííîé â ñîîáùåíèè
ActivePresentation.SlideShowWindow.View.Slide.Shapes("Msg").TextFrame2.TextRange.Characters.Text = Message
 
End Sub

@molchat doma · 21.03.2022, 20:38

Visual Basic
1
2
3
4
Sub randoms()
R = Int(ActivePresentation.Slides.Count*Rnd)+1
ActivePresentation.SlideShowWindow.View.GotoSlide (R)
End Sub

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .