Đồng hồ kỹ thuật số (Timer)
Hôm nay tôi muốn hiển thị một đồng hồ kỹ thuật số đơn giản và dễ dàng để tạo ra hình ảnh cơ bản. Net. Chúng tôi sẽ làm điều này bằng cách sử dụng một nhãn và một Timer.
Các hình thức tương tự như hình ảnh tiếp theo>
Đối với ví dụ này chỉ có thời gian sẽ hiển thị, thay đổi font chữ của các nhãn kiểm soát để cho nó tầm quan trọng hơn. Tôi đang sử dụng kích thước phông chữ Tahoma 28.
Bây giờ cho các thuộc tính thành phần bộ đếm thời gian. Để chạy các mã trong sự kiện Tick của các thành phần bộ đếm thời gian, điều này phải có tài sản cho phép là True. Và chúng ta nhập mã để chạy tất cả các bọ ve n. Số lượng bọ ve của n là khoảng thời gian với các tài sản được chỉ ra trong phần nghìn giây. Vì vậy, nếu chúng ta đặt tài sản trong năm 1000 bọ ve, các mã này sẽ chạy mỗi 1 giây.
Bây giờ hãy xem mã này là rất đơn giản:
Timer1_Tick Private Sub (ByVal sender System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Date.Now.ToLongTimeString End Sub
Nó chỉ còn lại để chạy (F5) các ứng dụng và chúng tôi sẽ có đồng hồ kỹ thuật số của chúng tôi như được hiển thị trong hình dưới đây>
Nếu bạn là một độc giả thường xuyên của blog này, bạn biết rằng tất cả các ví dụ mã luôn luôn có nghĩa là rất đơn giản và bạn có từ những ví dụ khả năng để cải thiện, bổ sung và thích ứng với họ để sử dụng trong các ứng dụng của bạn.
Như mọi khi, tôi hy vọng bạn tìm thấy nó hữu ích.
33 Responses to "Đồng hồ kỹ thuật số (Timer)"
Bình luận
Thông tin Bitacoras.com ...
Tỷ giá trong Bitacoras.com: Hôm nay tôi muốn hiển thị một đồng hồ kỹ thuật số đơn giản và dễ dàng để tạo ra hình ảnh cơ bản Net. Chúng tôi sẽ làm điều này bằng cách sử dụng một nhãn và một Timer. Các hình thức tương tự như i sau ....
bộ đếm thời gian là không cần thiết, một cách đơn giản:
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load
Me.Label1.Text = Format (Now, "hh: mm: ss tt)
End Sub
fastmonro:
cảm ơn cho đầu vào, nhưng tất cả các bạn làm gì với nó là "hiển thị" trên nhãn khi nó đã được nạp hình thức (như bạn gọi nó từ sự kiện Load). Hãy để tôi nói cho bạn biết rằng để đạt được các chức năng của một chiếc đồng hồ, hoặc hiển thị thời gian hiện tại tất cả các thời gian "Thời gian là cần thiết r thành phần, nhưng không phải là một chiếc đồng hồ ... khi bạn cho thấy chỉ có một thời gian.
Rất tốt cho khoản đóng góp của bạn! Xin chúc mừng!
anh em đóng góp xuất sắc nhưng vấn đề duy nhất tôi tìm thấy là không tính phí trong khi nó thực hiện một chờ đợi một thời gian để hiển thị đồng hồ chỉ cần đặt trong sự kiện load của form tôi đã làm trong C # mà là nhất mà tôi có thể sử dụng
private void timer1_Tick (đối tượng người gửi, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
private void Form1_Load (object sender, EventArgs e)
{
DateTime.Now.ToShortTimeString Label.Text = ();
}
và một điều hơn bất cứ ai biết làm thế nào để hiển thị tên của tập tin đã lưu hoặc mở trong thanh tiêu đề và đã thử nhiều cách khác nhau và không thể tìm thấy làm thế nào để làm điều đó cho dù đó là trong VB hoặc C #.
salu2
bạn là đúng nhưng là các qu etienes để chờ đợi một lần thứ hai đó là khi bạn chạy các mã đánh dấu đồng hồ (nhớ là mỗi 1 giây thứ hai hoặc sau khi tải) tôi nói với bạn một thủ thuật dễ dàng hơn nhiều cho lấy ta ene qu bóng, đặt cùng một mã mà bạn đặt trong một tíc tắc của đồng hồ dưới hình thức tải mẫu đơn của bạn như thế này:
Private Sub Form1_Load ....
Me.Label12.Text = Format (Now, "hh: mm: ss tt)
end sub
và chỉ của bạn tình thế tiến thoái lưỡng nan
Kính trọng
Eliseo .... cũng nhờ giúp đỡ bạn với các mã số đơn giản và tốt giải thích cho chúng ta những người chỉ mới bắt đầu lập trình với bạn ngay với bộ đếm thời gian là rất cần thiết để hiện thực .. .......
Cảm ơn bạn.
Tốt cung cấp!
Tốt tôi muốn các giải pháp
bạn bè tôi không nhìn vào mã để đánh dấu bộ đếm thời gian? giúp đỡ xin vui lòng
Xin chào, tôi sử dụng các bộ đếm thời gian và như đã nói ở trên, tài sản Enable có q để thực, và khoảng cách = 1000 .... bây giờ ... bạn kích đúp vào đối tượng và đưa họ Timer1 sự kiện Tick ... đưa mã vào một cái gì đó như ...
Public class frmPrincipal
Tiempo_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Tiempo.Tick
txtHora.Text = Format (Now, "hh: mm: ss tt)
txtFecha.Text = Date.Now.Date
End Sub
End Class
io trong trường hợp của tôi, tôi đã thay đổi tên của đối tượng, thay vì Timer1 thời gian tôi đặt ...
q Tôi hy vọng họ giúp các lập trình mới.
Cojonuda Neobones vai trò của bạn! fucking tuyệt vời.
Người bạn tốt, tôi đã thử nhiều lần như tôi nói, nhưng để chạy các chương trình đồng hồ được cập nhật mỗi thứ hai mà tôi thực hiện được để chạy cập nhật, và tài sản khoảng thời gian của nơi này trong năm 1000, nhưng không được cập nhật .
Tôi hy vọng tôi có thể giúp đỡ.
lời chào.
mặc dù tôi đoán rằng bạn đề cập đến nó habras mã logic bằng văn bản cho các đánh dấu sự kiện của đồng hồ? đó là điều này
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Timer1.Tick
Label12.Text = Format (Now, "hh: mm: ss tt)
End Sub
TA SISAS MÃ BN yop TOY JUST HỌC TẬP VÀ NA .. MUỐN BIẾT LÀM THẾ NÀO ĐỂ TẠO TIMER ASERLE SISAS ...
Dưới đây là một cái gì đó phức tạp hơn một chút
Public class Form1
Dim count As Integer
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load
Me.Text = "thời gian chỉ số"
Me.Label1.BorderStyle = BorderStyle.FixedSingle
Me.Label1.TextAlign = ContentAlignment.MiddleCenter
Me.Label1.Text = ""
Me.Label1.BackColor = Color.Black
Me.Label1.ForeColor = Color.Red
Me.Label1.Visible = False
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = True
BackColor = Color.White
End Sub
HoraToolStripMenuitem_click Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles HoraToolStripMenuItem.Click
chống lại = 1
End Sub
FechaToolStripMenuItem_click Private Sub (ByVal sende As Object, ByVal e Như System.EventArgs) Handles FechaToolStripMenuItem.Click
chống lại = 2
End Sub
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Timer1.Tick
Me.Label1.Visible = True
Nếu truy cập = 1 Sau đó Label1.Text = TimeString
Nếu truy cập = 2 Sau đó Label1.Text = My.Computer.Clock.LocalTime.Date.ToString
End Sub
End Class
Cảm ơn bạn cho đầu vào, hoạt động hoàn hảo
Tôi đã có nhiều vòng với điều này và sửa chữa những dòng này ... THANKS AGAIN!
muốn bạn gửi cho tôi bài tập với bộ đếm thời gian, đặc biệt là làm thế nào để làm cho một di chuyển thang máy đến tầng mong muốn
Cảm ơn bạn.
Đồng hồ là chính xác như trong ví dụ, chỉ cần để bạn bắt đầu phải đặt Timer.Start hình thức ()
Chúc mừng.
nếu bộ đếm thời gian funka nhưng nhìn vào công việc quản lý của bạn để xem làm thế nào nó di chuyển các nguồn lực (tùy thuộc vào bộ xử lý ram vv ..) một số cách khác để tối ưu hóa? một số Me.Refresh?
Hijes làm mát ra khỏi khó khăn
Tôi có một câu hỏi làm thế nào để cắt giảm tiền mặt trước đây với doanh số bán hàng dond hoàn toàn chiêm niệm các lĩnh vực truy cập cơ sở dữ liệu
là monto_venta
Cảm ơn bạn nếu bạn có bất kỳ ví dụ
tôi là sinh viên kỹ thuật trong systems'm làm một hệ thống thực hành của tôi đóng góp của họ là những ví dụ tuyệt vời trên thăm dò 2 XQ c là sự thật này là cơ bản nhưng trong những trường hợp một trong hai c anh ta ra CPU. hehe
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load
Me.Label1.Text = Format (Now, "hh: mm: ss tt)
End Sub
chỉ mang lại cho tôi một thời gian nhất định không cập nhật
và
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Timer1.Tick
LHora.Text = Date.Now.ToLongTimeString
End Sub
tài sản này nếu các bộ đếm thời gian phải đúng sự thật đúng sự thật và một phạm vi của 1000 và đó là tất cả các hoạt động hoàn hảo
Xin chào, cũng như các đồng hồ thay vì một hình thức web trên một trang web, tôi không thể nhìn thấy nó, sự kiện đặt timer.start không tồn tại.
vấn đề là các sự kiện của các điều khiển chạy trên phía máy chủ, và điều đó xảy ra, bạn có để làm một reques, mà tải lại toàn bộ trang ... thực sự, bạn phải làm phía khách hàng.
Hãy thử java (javascript) với ajax hoặc jQuery.
Luck
grasias tất cả nhưng tôi cần được giúp đỡ
Tôi cần phải làm tất cả những điều này, nhưng trong c # Tôi programdo mới nếu có ai biết xin vui lòng giúp đỡ tôi.
Tôi cũng mới lập trình và muốn biết nếu có ai biết làm thế nào để làm cho một hình thức q q khi bạn cung cấp cho nhấp chuột được thực hiện minh bạch cũng như các cửa sổ trên Linux openSUSE 11,3
Nhập khẩu ClassLibrary1
Public class Form1
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load
Time.Start ()
End Sub
Time_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Time.Tick
Theo New Class1 giờ Dim
Horas.hora Label.Text = ()
'Giờ ()
End Sub
'Private Sub thời gian ()
'Label.Text = Bây giờ
"MessageBox.Show (" Đặt thời gian ")
"End Sub
End Class
TÌM RẰNG MÃ PASSABA ở đây ... Chỉ cần lấy LUẬT CỦA TIMER THE ... MỘT SỐ CHỨC VÀ ME làm việc hoàn hảo ... CẢM ƠN MIGUELITO ...
Cảm ơn cho các mã trước đây cho phép tôi để thích ứng để khai thác mỏ.
Mã funcinó tôi để có được thời gian, mà thay đổi như hệ thống điều hành để làm như vậy ..
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles MyBase.Load
lblHora.Text = Date.Now.ToLongTimeString
Timer1.Start ()
End Sub
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e Như System.EventArgs) Handles Timer1.Tick
lblHora.Text = Date.Now.ToLongTimeString
End Sub
và lấy mẫu một số và không có arribaa funcionaa tôi! Tôi nghĩ rằng tôi rất xấu cho điều này: S Tôi cần một chiếc đồng hồ nhưng ke trên màn hình sẽ giống như một cái gì đó từ oseaa thứ hai! DD ayudenmeee 00:00:00:
Hi all, tôi đã được nghiên cứu trên thời gian và như tôi đã thấy tôi phải sử dụng chúng để kiểm soát một thang máy cho đến bây giờ tôi chỉ có giao diện với các cấp độ 1 đến 10 và các tour du lịch, nhưng sau khi bắt đầu một lần nữa 1 đến 10 và không nên được và vẫn chưa tìm thấy một cách để làm việc với các nút, không nếu có ai đó đã có để làm việc trên một cái gì đó để tôi có thể giúp đỡ hoặc ít nhất giải thích, cảm ơn trước.
như tôi thực hiện bộ đếm thời gian khi chạy chỉ cho tôi thấy một từ trong một ListBox
như tôi có thể gọi sự giúp đỡ của cửa sổ trong vb.net 2005