Как сделать задержку в выполнении кода 10 минут?

@rfvgy · Регистрация: 26.01.2020

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

Я делал вот так:

VB.NET
1
System.Threading.Thread.Sleep(600000)

но программа зависает. Как решить?

Uswer · 26.05.2020, 22:03

rfvgy, Вы меня удивляете, почему Вы не хотите разобраться с предложенным Вам решением? Orlangur, Вам написал, что если есть моменты в его коде непонятные Вам, то задавайте вопросы.
Вот у меня есть вопрос к нему: почему PassedIndexes заполняется при каждом вопросе, а не один раз? Совершенно недавно, для программы "Миллионер", делал по другому. Для разнообразия?

@Orlangur · 26.05.2020, 22:41

Uswer,

Как сделать задержку в выполнении кода 10 минут?

@rfvgy · 26.05.2020, 22:45 **[ТС]**

Uswer, Orlangur, да ладно вам, все итак работает, но с функциями в решении Orlangur я разберусь. Спасибо всем

@Orlangur · 26.05.2020, 22:55

rfvgy, пропустил последнее сообщение, не знаю что уж вы там решите, как и что делать, но относительно этого

VB.NET
1
2
3
4
5
6
7
8
9
Dim s As String
        Dim fl As Integer
        fl = FreeFile()
        FileOpen(fl, path + "\words.txt", OpenMode.Input, OpenAccess.Default)
        While Not EOF(fl)
            s = LineInput(fl)
            ListBox1.Items.Add(s)
        End While
        FileClose(fl)

Вот этот код заменяется одной строчкой

VB.NET
1
ListBox1.Items.AddRange(IO.File.ReadAllLines(Application.StartupPath & "\words.txt", System.Text.Encoding.Default))

VB.NET
1
2
3
4
If My.Computer.FileSystem.FileExists(IO.Path.Combine(path + "\words.txt")) = False Then
            Dim fs As FileStream = File.Create(IO.Path.Combine(path + "\words.txt"))
            fs.Close()
        End If

Тоже не понятно, смысл создавать файл, если в нём в итоге ничего не будет?

@rfvgy · 26.05.2020, 23:02 **[ТС]**

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

ListBox1.Items.AddRange(IO.File.ReadAllL ines(Application.StartupPath & "\words.txt", System.Text.Encoding.Default))

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

If My.Computer.FileSystem.FileExists(IO.Pat h.Combine(path + "\words.txt")) = False Then
Dim fs As FileStream = File.Create(IO.Path.Combine(path + "\words.txt"))
fs.Close()
End If

Orlangur, спасибо, годная вещь!

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

Тоже не понятно, смысл создавать файл, если в нём в итоге ничего не будет?

Потому что если файла не будет, то программа будет выдавать ошибку. Я знаю что можно будет просто нажать на кнопку продолжить или выход, но я решил предусмотреть все случаи(если честно просто не люблю когда ошибка выскакивает).

@Orlangur · 26.05.2020, 23:30

rfvgy, так если файла не будет, программе и работать незачем

@rfvgy · 27.05.2020, 13:42 **[ТС]**

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

так если файла не будет, программе и работать незачем

Согласен.

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .

Uswer 2298 / 1614 / 400 Регистрация: 26.06.2017 Сообщений: 4,780 Записей в блоге: 1
	26.05.2020, 22:03
	rfvgy, Вы меня удивляете, почему Вы не хотите разобраться с предложенным Вам решением? Orlangur, Вам написал, что если есть моменты в его коде непонятные Вам, то задавайте вопросы. Вот у меня есть вопрос к нему: почему `PassedIndexes` заполняется при каждом вопросе, а не один раз? Совершенно недавно, для программы "Миллионер", делал по другому. Для разнообразия? 0

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	26.05.2020, 22:41
	Uswer, 0

@rfvgy 1 / 1 / 0 Регистрация: 26.01.2020 Сообщений: 180
	26.05.2020, 22:45 [ТС]
	Uswer, Orlangur, да ладно вам, все итак работает, но с функциями в решении Orlangur я разберусь. Спасибо всем 0

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	26.05.2020, 23:30
	rfvgy, так если файла не будет, программе и работать незачем 0

Как сделать задержку в выполнении кода 10 минут?

Решение