Программирование
Веб программирование

Время в VB

 
 

Эту часть я начал писать тогда, когда закончил писать 4, и все получилось через жопу. Поскольку о некоторых темах я вспомнил в самом конце, а в четвертой части уже было поздно писать о датах, и работе с мышью..., и я решил написать эту часть. Вот так! После истории перейдем к делу! Чтобы узнать текущее время можно посмотреть на часы, которые находятся около пуска, или создать свои. Второй вариант нам подходит больше, т.к. зачем смотреть на чужие часы (Билла Гейца), когда можно сделать свои собственные? И этим мы сейчас займемся: Создай новый проект(Standart EXE), на форму кинь текстовое поле и таймер. У таймера свойство Interval будет равным 1(это время, через которое Timer будет обновляться (мл)). На таймер нажми 2 раза, и у тебя появится окно кода с созданной процедурой:

Private Sub Timer1_Timer()

End Sub

В ней впиши Text1.Text = Time, здесь текст в текстовом поле будет равен функции Time(текущее время). Вот что у тебя должно получиться:

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

Ну вот и все - теперь на часы злого дядьки Билл Гейца не смотри, а смотри на свои.


Есть вопросы? Спроси на нашем форуме!!
compod [03.10.2010 18:45]

можно сделать и попроще)))
с лейблом:
Label1.caption = Time

Денис [14.12.2010 14:37]

Лучше уж сделать аналог часов:)

Денис [14.12.2010 15:02]

Блин,гоню,просто глюк программы была...

Амир [23.10.2011 17:59]

ни-чо не понял

Макс! [21.03.2012 23:40]

Тут не правильно!
1)
Private Sub FormLoad()
Timer1
Timer
End Sub
'__________________
Private Sub Timer1_Timer()
Timer1.Interval = (1) 'Это чтоб показывал секунды!!!
Text1.Text = Time
End Sub

alex13sh [22.03.2012 08:20]

Private Sub FormLoad()
Timer1.enabled=true
Timer1.Interval = (1000) 'Это чтоб показывал секунды!!! или лучше Timer1.Interval = (100)
End Sub
'__________________
Private Sub Timer1
Timer()
Text1.Text = Time
End Sub

Елена [14.05.2012 00:34]

а как сделать, чтобы в зависимости от текущего времени программа выводила приветствие: доброго дня, доброй ночи, доброго утра, доброго вечера

alex13sh [14.05.2012 16:09]

Елена, просто логичено подумай. НЕЧЕГО СЛОЖНО
Private Sub Form_Load()
Dim ch As Byte, a As String
a = Time
dv = InStr(1, a, ":") - 1 'ищем двоеточие между часами и минутами
ch = CByte(Mid(a, 1, dv)) ' читаем часы
If ch >= 5 And ch < 10 Then Label1 = "Утро"
If ch >= 10 And ch < 15 Then Label1 = "Обед"
If ch >= 15 And ch < 18 Then Label1 = "Полдник"
If ch >= 18 And ch < 22 Then Label1 = "Вечер"
If ch >= 22 And ch < 5 Then Label1 = "Ночь"
'''''''' НУ ТУТ ПРОСТО В ЗАВИСЕМОСТИ ОТ ЧАСОВ ВЫВОДИТ СООБЩЕНИЕ
End Sub

Юра (Shade) [15.05.2012 08:59]

Можно немного упростить!


Private Sub Timer1_Timer()
Dim ch As Long

ch = (Hour(Time$))

If ch >= 5 And ch < 10 Then Label1.Caption = "Утро"
If ch >= 10 And ch < 15 Then Label1.Caption = "Обед"
If ch >= 15 And ch < 18 Then Label1.Caption = "Полдник"
If ch >= 18 And ch < 22 Then Label1.Caption = "Вечер"
If ch >= 22 And ch < 5 Then Label1.Caption = "Ночь"
End Sub

Ансаган [16.12.2012 00:17]

а как зделать чтоб цыфрв были немножко стильней???

Гость [16.12.2012 03:01]

Скачать дополнительные компоненты для Visual Basic - чтобы элементы в программе выглядели по современному, как в Windows XP,7 и т.д

sanok7 [26.01.2013 21:11]

как задать формат переменной в минутах??

sanok7 [26.01.2013 21:28]

нужно для корректировки времени

Ivan40 [14.07.2013 21:17]

А как сделать круглые часы со стрелками, как на стене или на башне?

alex13sh300 [15.07.2013 12:13]

руками, рисуешь и за программируешь стрелки и усё
Подробно, могу статью написать, если надо

pjp07190 [15.07.2013 14:07]

Пример секундомера. Это понятно, эскиз. Но из него можно написать и полноценные стрелочные часы.
1. Помещаешь на форме Shape(Circle) и Line1 произвольные.
2. Помещаешь на форме Timer1.Interval=1000. 1 секунда.
Далее код.

Dim r, pi As Double
Dim q As Integer
Private Sub FormLoad()
'Размеры формы
Me.Width = 8000
Me.Height = 8000
'Размеры и начальное положение окружности (циферблата)
Shape1.Width = 2700
Shape1.Height = 2700
Shape1.Left = 0.5 * (Me.Width - Shape1.Width)
Shape1.Top = 0.5 * (Me.Height - Shape1.Height)
Shape1.FillColor = vbGreen
'Начальные координаты стрелки
Line1.X1 = Shape1.Left + 0.5 * Shape1.Width
Line1.Y1 = Shape1.Top + 0.5 * Shape1.Height
Line1.X2 = Shape1.Left + 0.5 * Shape1.Width
Line1.Y2 = Shape1.Top
'Длина(радиус) стрелки
r = Sqr((Line1.X1 - Line1.X2) ^ 2 + (Line1.Y1 - Line1.Y2) ^ 2)
q = -1
pi = 3.141592
End Sub

Private Sub Timer1
Timer()
q = q + 1
Label1 = q
Line1.X2 = Line1.X1 - r * Sin(-pi / 30 * q)
Line1.Y2 = Line1.Y1 - r * Cos(-pi / 30 * q)
End Sub



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.