| Вопрос: Расписание Уроков | Добавлено: 17.01.07 10:59 |
Автор вопроса:  rayman
|
|
Доброго времени суток!
Я новичек в VB, обучаюсь на чужих примерах =) Нашел такую интересную программку здесь - http://www.vbnet.ru/samples/download.aspx?id=513 - - Расписание уроков - с кодом разобрался, а вот как изменить время начала уроков не понимаю. Помогите плз разобраться что и как надо поменять, чтобы уроки начинались не с 8 а с 8.45. Зараннее Спасибо. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  bi-lya Вопросов: 1 Ответов: 125 |
Профиль | | #1 | Добавлено: 22.01.07 02:38 |
|
rayman, если еще не разобрался - прибавляй ко всем четырем вычислениям Result'ов в процедурах Start_Lesson и End_Lesson по 45, подобно этому:
Result = Val(LessStart) * Val(txtLessNum) + Val(txt3Leis) - Val(txtLeis) + 45
И поправь надпись на Label9 Привет |
||
|
Номер ответа: 2 Автор ответа: bi-lyaВопросов: 1 Ответов: 125 |
Профиль | | #2 | Добавлено: 22.01.07 03:52 |
|
ПОПРАВКА
В процедуре End_Lesson в следующей строке нужно прибавлять не 45, а 35: Result = Val(LessStart) * Val(txtLessNum) + Val(txt3Leis) - Val(txtLeis) + 35
А так же вместо строки Label9.Caption = "Урок № " & txtLessNum & " закончится в " & 8 + sHour & ":" & sMin * 100
вставь If sMin >= 0.1 Then
Label9.Caption = "Урок № " & txtLessNum & " закончится в " & 8 + sHour & ":" & sMin * 100 Else Label9.Caption = "Урок № " & txtLessNum & " закончится в " & 8 + sHour & ":" & "0" & sMin * 100 End If Возможно, что-то подобное придется и в Start_Lesson городить(это поправка на некорректное отображение минут в Lebel9) |
||
|
Номер ответа: 3 Автор ответа: bi-lyaВопросов: 1 Ответов: 125 |
Профиль | | #3 | Добавлено: 22.01.07 04:42 |
|
А так же: в End_Lesson вместо
sMin = sM1 * 0.6
sMin = Round(sM1 * 0.6, 2)
Короче, "Как вы яхту назовете, так она и поплывет"! |
||
Страница: 1 |