Тихая просьба о помощи

[Novichok$]

Разобрались мы с поминутно и почасово.
Договорились, что поминутно может быть только:
- 5, 10, 15, 20, 30 мин
- и что время запуска в этом случае должно быть кратным Интервалу.

В этом случае легко проверить через OR. Правда немного громоздко вышло.
С "почасово" - аналогично.

Ты не знаешь, что есть ограничения в VB .NET по колличеству знаков в одной строке?


Уже час маюсь с синтаксисом.
Вот такой эллементарный перенос он у сеня почему то не воспринимает:

Код: Выделить всё

ElseIf Interval = 2 Then
                            If (DateNowStund = DateStartStund) Or (DateNowStund = DateStartStund + Interval), _
                            Or (DateNowStund = DateStartStund + Interval * 2) Then

Подчеркивает все синим и говорит "Ожидается end of- Указание"
Может If и Then должны быть в одной строке?

[Rainbow]

Запятую в "DateStartStund + Interval), _ " убери

[Novichok$]

Спасибо.

[Rainbow]

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

Код: Выделить всё

DateNow = Format(Date.Now, "mm")
                            MessageBox.Show(DateNow)
                            If DateNow = 0 Or 5 Or 10 Or 15 Or 20 Or 25 Or 30 Or 35 Or 40 Or 45 Or 50 Or 55 Then

Замени это фрагмент на следующее:

Код: Выделить всё

If (Date.Now.Minute Mod 5 = 0) Then

Оператор Мod вычисляет остаток от деления. В данном случае, я проверяю, что Минуты кратны 5.

Переделай остальные аналогично.

[Novichok$]

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

По незнанию,
теперь буду знать

[Novichok$]

Все исправил, любо дорого ...
теперь буду If на select case менять

[Rainbow]

По незнанию, теперь буду знать

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

Если объект типа DateTime, то логично предположить, что разработчики позаботились о том, чтобы тебе было удобно с датами работать - добавили наиболее очевидные свойства и методы.

[Novichok$]

Еще вопросик по синтаксису:

Теперь я вместо MessageBox.Show делаю так:

Код: Выделить всё

If Interval = 5 Then
                            If (Date.Now.Minute Mod 5 = 0) Then
                                proc.StartInfo.FileName = "C:\WindowsApplication1.exe"
                                proc.Start()

И это работает, проблма в том, что это WindowsApplication1.exe имеет еще параметры старта, ее можно стартовать так:
C:\WindowsApplication1.exe
или
C:\WindowsApplication1.exe "1"
или
C:\WindowsApplication1.exe "2"


Для параметров старта у меня в программе прелусмотрена Переменная (Dim Parametr As VariantType)
И 1ый столбец в таблице (Parametr = myReader.GetValue(0))
Теперь я пытаюсь WindowsApplication1.exe с параметром "1" стартовать:
"C:\WindowsApplication1.exe & " + " & "Parametr""
или
"C:\WindowsApplication1.exe & " + " & Parametr"
или
"C:\WindowsApplication1.exe "Parametr""
или
"C:\WindowsApplication1.exe Parametr"

"C:\WindowsApplication1.exe', ' "Parametr"'"

и все никак

[Novichok$]

уже сам нашел, спасибо

[Rainbow]

А точку использовать?
Раз уж нашел FileName, логично предположить, что там же можно задать и другие параметры запуска.

proc.StartInfo.Arguments = "1"

[Novichok$]

Привет,

Хотел спросить, а на сколько важно и вообще нужно ли менять мне мой код (написанный с If Then Else), на Select case + писать функции везде?

Это вопрос производительности программы или "хорошего тона" в программировании.

Пытаюсь сделать, как ты мне выше показывала, и опять 150 вопросов по поводу "что где и как первым объявлять".
Может лучше так оставить?

[Rainbow]

Это вопрос производительности программы или "хорошего тона" в программировании.

В общем-то это вопрос хорошего тона. Проще читать и понимать (даже свою через 3 месяца) программу. Иногда это также вопрос производительности (например при операциях со строками)

Пытаюсь сделать, как ты мне выше показывала, и опять 150 вопросов по поводу "что где и как первым объявлять".

А поподробнее вопросы?

[Novichok$]

Я тебе в ЛС написал