Запрограммируй себе папу

3 мая 2007


Дорогой Илюша,

меня срочно вызвали на работу.
Ты должен
1. Погулять с Гошкой, как только вернешься, то есть примерно, я рассчитываю, это получится с 6 до 7.
2. В семь, когда вернетесь, покорми ее йогуртом или хлопьями, что она выберет. Но одного йогурта маловато.
3. В восемь, когда она отдохнет и поест, прочти с ней страничку 15 из букваря, на которой она застряла вчера.
Букварь лежит на полке возле стола.
Не разрешай ей вставать, пока она не прочтет ее нормально. Если будет баловаться, и на какой-нибудь строчке придумывать глупости, возвращай ее еще на лишнюю строчку назад каждый раз, я так всегда делаю, это ее дисциплинирует.
3а. Надеюсь, вы не поссоритесь. Если будет плохо себя вести, не давай ей шоколадное печенье.
4. Не позже девяти начинайте собираться спать.
5. Я вернусь примерно в десять.
Целую. Лара.
 



Option Strict Off
Imports Eда
Imports Ребенок
Imports System.Threading
Friend aTimer As New System.Timers.Timer
Dim bУжеПокормил, bУжеПозанимался, bУжеУложил as Boolean


Private Sub OnTimedEvent(ByVal ЧасыЛюбые As Object, ByVal e As ElapsedEventArgs)
ЧасыЛюбые.Enabled = false
Dim КоторыйЧас As Integer = DatePart(DateInterval.Hour, Date.Now)
Select Case КоторыйЧас
case 18
Call ProcПогулять(КоторыйЧас)
case 19
if not bУжеПокормил then
Call ProcПокормить(йогурт(), хлопья)
bУжеПокормил = true
end if
case 20
if not bУжеПозанимался then
Call ProcПозаниматься(полка.букварь(15))
bУжеПозанимался = True
end if
case 21
if not bУжеУложил then
Call ProcУложитьСпать(False) 'без скандала
bУжеУложил = true
end if
case 22
me.dispose()
End Select
ЧасыЛюбые.Enabled = true
End Sub


Private Sub ProcПогулять(ПокаЧасовСтолько as Integer)
While DatePart(DateInterval.Hour, Date.Now) = ПокаЧасовСтолько
Гулять
thread.sleep(некоторое разумное время, чтобы ребенок не упал с горки)
End While
End Sub


Private Sub ProcПокормить(йогурт() as short, хлопья as Boolean)
While not хлопья And йогурт.GetUpperBound(0) < 1
Select Case Уговаривать()
Case "я буду йогурт"
ReDim Preserve йогурт(йогурт.GetUpperBound(0)+1)
Case "я буду хлопья"
хлопья = True
Case "я хочу только печенье", "ничего не хочу"
'
End Select
End While
If хлопья Then
еда.хлопья.кормить(миска, ложка, молоко)
Else
dim i as short
For i = 0 to йогурт.GetUpperBound(0)
еда.йогурт.кормить(ложка)
Next i
End If
End sub


Private Sub ProcПозаниматься(СтраницаБукваря)
Dim СтрочекВсего as Short = СтраницаБукваря.КоллекцияСтрочек.Количество
СтрочкаСейчас = 1
Try
While СтрочкаСейчас <= СтрочекВсего
if СтраницаБукваря.КоллекцияСтрочек(СтрочкаСейчас).Читать = False then
СтрочкаСейчас -= 1
Else
СтрочкаСейчас += 1
End if
End While
Catch ex as Скандал
Еда.Печенье.Forbidden
End Try
End Sub


Private Sub ProcУложитьСпать(bCoCкандаломИлиБез as Boolean)
Dim СколькоРазПовторять as Integer = 1
While СколькоРазПовторять < 100 Or bCoCкандаломИлиБез
bУдалось as boolean = Ребенок.Укладывать(bCoCкандаломИлиБез)
if bУдалось then
Return
End If
End While
Call ProcУложитьСпать(True) 'cо скандалом
End Sub


Sub Main()
AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
aTimer.Interval = 60000 'проверяй часы каждую минуту
aTimer.Enabled = true 'запускаю
 


 

Поддержать проект

 

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

Перевести деньги можно через систему PayPal. Обратите, пожалуйста, внимание: чтобы перевести деньги один раз, НЕ НУЖЕН свой собственный счет на PayPal! Достаточно иметь кредитную карточку.