Главная страница  Справочная по Бейсику

Часы на бейсике


Private Sub Form_Load()
Text1.Text = Now
Text1.Width = 2600
Text1.Locked = True
Text1.Alignment = vbCenter
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.Text = Now
End Sub


Создайте проект и поместите на него таймер и Text .Вставьте этот код в проект.


Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Часы на бейсике;
Хостинг от uCoz