Как привязать неделю и день недели?

@alex8800 · Регистрация: 03.11.2015

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

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
Sub Расписание()
Dim a As Integer
Dim b As String
    
a = Val(InputBox("Текущая неделю: "))
b = Val(InputBox("День недели: "))
If a = 1 Then
Select Case b
Case Понедельник
MsgBox "1"
Case Вторник
MsgBox "2"
Case Среда
MsgBox "3"
Case Четверг
MsgBox "4"
Case Пятница
MsgBox "5"
Case Суббота
MsgBox "6"
Case Else
MsgBox "Ошибка ввода, попробуйте сначала"
    End Select
    Else
Select Case b
Case Понедельник
MsgBox "1"
Case Вторник
MsgBox "2"
Case Среда
MsgBox "3"
Case Четверг
MsgBox "4"
Case Пятница
MsgBox "5"
Case Суббота
MsgBox "6"
Case Else
MsgBox "Ошибка ввода, попробуйте сначала"
End Select
End If
End
End Sub

@Казанский · 03.11.2015, 22:50

alex8800, наверно

Visual Basic
1
2
3
b = InputBox("День недели: ")
'...
Case "Понедельник"

и далее в том же духе.
Что сделать-то надо?

@alex8800 · 03.11.2015, 22:58 **[ТС]**

посмотри название темы

Добавлено через 3 минуты
Прикол то в чем, это все робит, но я пишу неделю любую, потом пишу день недели и у меня всегда пишет, что "Ошибка ввода"

@Димит · 03.11.2015, 23:16

поставь в начале модуля Option Explicit и посмотри как оно робит))

@Казанский · 03.11.2015, 23:39

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

посмотри название темы

Посмотрел. Не понял - какая неделя, что к чему привязать?

Наверно, хрустальный шар у меня запылился. Ждите экстрасенсов со свежими силами.

@Alex Dark · 04.11.2015, 00:37

Сообщение от Казанский

Ждите экстрасенсов со свежими силами.

Да уж... задачка для телепатов...

ps Какой сакральный смысл числа хранить в строке?

ps2 Две переменные. А и В. Одна числовая, а другая строковая.
И той и другой вы присваиваете одно и тоже.
Ясен пень в каком то из присвоений есть ошибка. И быстрее всего это в А. Да и присвоение В мягко говоря не корректно.

ps3 На сколько я помню бейсик не обладает интеллектом и выражение Case Суббота бессмысленно
Суббота должна быть в кавычках

@alex8800 · 04.11.2015, 10:54 **[ТС]**

где цифры 1 2 3 ... так далее, там строки, но сайт не хочет мне все это нормально перевести, и поэтому для сокращения написал так "Суббота" заключил в кавычки, нечего не поменялось

@Alex Dark · 04.11.2015, 19:36

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

но сайт не хочет мне все это нормально перевести

Ты о чём???

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
Sub Расписание()
Dim a As Integer
Dim b As Integer
    
One:
a = Val(InputBox("Текущая неделя: (1,2,3 ...)"))
b = Val(InputBox("День недели: (1,2,3 ...)"))
If a = 1 Then
    Select Case b
    Case 1
        MsgBox "Понедельник"
    Case 2
        MsgBox "Вторник"
    Case 3
        MsgBox "Среда"
    Case 4
        MsgBox "Четверг"
    Case 5
        MsgBox "Пятница"
    Case 6
        MsgBox "Суббота"
    Case 7
        MsgBox "Воскресенье"
    Case Else
        MsgBox "Ошибка ввода, попробуйте сначала"
        GoTo One
    End Select
Else
    Select Case b
    Case 1
        MsgBox "Понедельник"
    Case 2
        MsgBox "Вторник"
    Case 3
        MsgBox "Среда"
    Case 4
        MsgBox "Четверг"
    Case 5
        MsgBox "Пятница"
    Case 6
        MsgBox "Суббота"
    Case 7
        MsgBox "Воскресенье"
    Case Else
        MsgBox "Ошибка ввода, попробуйте сначала"
        GoTo One
    End Select
End If
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@alex8800 0 / 0 / 0 Регистрация: 03.11.2015 Сообщений: 18
	03.11.2015, 22:58 [ТС]
	посмотри название темы Добавлено через 3 минуты Прикол то в чем, это все робит, но я пишу неделю любую, потом пишу день недели и у меня всегда пишет, что "Ошибка ввода" 0

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	03.11.2015, 23:16
	поставь в начале модуля Option Explicit и посмотри как оно робит)) 0

@alex8800 0 / 0 / 0 Регистрация: 03.11.2015 Сообщений: 18
	04.11.2015, 10:54 [ТС]
	где цифры 1 2 3 ... так далее, там строки, но сайт не хочет мне все это нормально перевести, и поэтому для сокращения написал так "Суббота" заключил в кавычки, нечего не поменялось 0