Слайд 3
Date, Weekday и Time
дата = Clock.Date
день_недели= Clock.WeekDay
время = Clock.Time
отображение = ("Текущая дата: " +
дата + "," + "Текущий день недели: " + день_недели+ "," + " Текущее время: " + время)
GraphicsWindow.DrawBoundText(40, 40, GraphicsWindow.Width, отображение)
Слайд 4
Свойство Year
TextWindow.WriteLine("Введите год рождения:")
год_рождения = TextWindow.Read()
возраст = Clock.Year
- год_рождения
TextWindow.WriteLine("Ваш возраст " + возраст + ".")
Слайд 5
Month и Day
TextWindow.Write("Введите месяц рождения:")
месяц_рождения = TextWindow.ReadNumber()
TextWindow.Write("Введите дату
рождения:")
дата_рождения = TextWindow.ReadNumber()
If (месяц_рождения = Clock.month And дата_рождения =Clock.Day)
Then
TextWindow.WriteLine("Поздравляем с днем рождения!")
EndIf
Слайд 6
Hour, Minute и Second
GraphicsWindow.FontSize = 26
GraphicsWindow.BrushColor = "Green“
up:
If
Clock.Hour >= 12 Then
состояние = "PM"
Else
состояние
= "AM"
EndIf
Текущее_время = Clock.Hour + " : " + Clock.Minute + " : " + Clock.Second + " " + состояние
GraphicsWindow.DrawBoundText(100, 100, 400, "Время: " + Текущее_время)
Program.Delay(1000)
GraphicsWindow.Clear()
Goto up
Слайд 7
Объект Desktop
ImagePath = Program.Directory + "\Blue.jpg"
Desktop.SetWallPaper(ImagePath)
Слайд 8
Объект Desktop
GraphicsWindow.Height = 400
GraphicsWindow.Width = 500
GraphicsWindow.Top = (Desktop.Height
- GraphicsWindow.Height) / 2
GraphicsWindow.Left = (Desktop.Width - GraphicsWindow.Width) /
2
= 12 Then">
