การสร้างตัวตั้งเวลา
เวลานี้ผมต้องการที่จะแสดงวิธีการสร้างจับเวลาใน Visual Basic. สุทธิโดยใช้องค์ประกอบการจับเวลา
ดีไม่ได้หลอกว่านี่เป็นขั้นตอนโดยขั้นตอนที่แสดงตัวอย่างแต่ละคุณสมบัติการปรับเปลี่ยนจากการควบคุมของแต่ละทางที่ฉันต้องการสมาธิในการทำงานของตัวจับเวลาและฉันจะช่วยให้คุณออกแบบ เพียงแค่เขารู้ว่าฉันไม่
ตัวควบคุมที่ใช้คือ: รูปแบบสามปุ่มและสองป้าย นอกจากนี้เรายังจำเป็นต้องเพิ่มเวลาให้กับฟอร์ม มันจะมีลักษณะเพิ่มเติมหรือเดือนดังนี้ 
แต่สิ่งแรกที่เราจะกำหนดสี่ตัวแปรเอกชนในระดับของฟอร์ม
ชั่วโมงเอกชน As Integer = 0 นาทีที่เอกชน As Integer = 0 ที่สองภาคเอกชน As Integer = 0 มิลลิวินาทีเอกชน As Integer = 0
ส่วนเวลาจะต้องมีสถานที่ให้บริการในช่วงเวลาของมันถึง 100
เราจะสร้างฟังก์ชันที่จะแสดงใน label1 เมื่อเวลาผ่านไป:
printTime ย่อย ()
Label1.Text = hora.ToString.PadLeft (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text = (1, "0")
Label1.Refresh ()
ย่อยสิ้นสุด
ในกรณีที่ขีดขององค์ประกอบที่เป็นตัวตั้งเวลาที่คุณวางทั้งหมดตรรกะของนาฬิกาจับเวลา คัดลอกโค้ดต่อไปนี้มี:
+ มิลลิวินาที = 1 แล้วถ้ามิลลิวินาที = 9 มิลลิวินาที = 0 ที่สอง + = 1 หากวินาที = 59 จากนั้น ที่สอง = 0 + นาที = 1 แล้วถ้า = 59 นาที นาที = 0 ชั่วโมง + = 1 End If End If End If printTime ()
ดีสิ่งที่ยังคงเป็นรหัสของสามปุ่ม ปุ่มเริ่มต้นเปิดใช้งานตัวจับเวลา:
Timer1.Enabled = True
ปุ่มหยุดชั่วคราวหยุดการจับเวลา:
Timer1.Enabled = False
และปุ่มรีเซ็ตเพื่อค่าของตัวแปร:
เวลา = 0 นาที = 0 ที่สอง = 0 มิลลิวินาที = 0 printTime ()
ผมหวังว่าตัวอย่างนี้ไม่ได้พิสูจน์ความซับซ้อนและเหนือสิ่งอื่นที่จะเป็นประโยชน์ สุดท้ายฉันปล่อยให้คุณภาพรวมของนาฬิกาจับเวลาที่ทำงาน: 
32 Responses to "วิธีการสร้างนาฬิกาจับเวลา"
ความเห็น
Bitacoras.com ข้อมูล ...
อัตราใน Bitacoras.com: เวลาที่ฉันต้องการที่จะแสดงวิธีการสร้างจับเวลาใน Visual Basic นี้สุทธิใช้องค์ประกอบการจับเวลา. ดีไม่ได้หลอกว่านี่เป็นขั้นตอนโดยขั้นตอนที่แสดงตัวอย่างแต่ละคุณสมบัติการปรับเปลี่ยนจาก ...
ขอบคุณมากผมเพียงแค่เริ่มต้นด้วยสุทธิมีประโยชน์มาก. และอธิบายอย่างดี
ลาก่อน
ตัวอย่างที่ดีมาก ... และขอบคุณสำหรับการบริจาคความรู้สำหรับ Tiens Q และ Q เพิ่งเริ่มต้น ...
Hello!
PX ขอบคุณมากเป็นความช่วยเหลืออย่างมากรหัสของคุณจะขึ้นหน้าที่ฉันช่วยชีวิตฉันเลย ...
ไม่ค่อยทำงานเลย ...
Bye Bye kuidate ...
ขอบคุณคนมาก ... ที่ไม่มีภาวะแทรกซ้อนเช่นนี้ดีมากมากว่าพระเจ้าจะช่วยให้คุณเป็น ...
ผลงานดีมากดังนั้นฉันขอแสดงความยินดีคุณ!
ขอบคุณมากที่ช่วยฉันมาก
จับเวลาเป็นเพียงแค่ปรับไม่ให้เวลา 59 วินาทีหลังจาก 00:01:59:0 ไม่คิดกระโดด 58-00 และ 59 ไม่ได้อยู่โปรดตรวจสอบรหัสของคุณเอง
วิธีการแก้ปัญหาจะเป็นดังนั้น
+ มิลลิวินาที = 1
หากมิลลิวินาที = 10 จากนั้น
มิลลิวินาที = 0
ประการที่สอง + = 1
ถ้าสอง = 60 จากนั้น
ประการที่สอง = 0
โอกาส + = 1
ถ้าใกล้วัน = 60 จากนั้น
Min = 0
เวลา + = 1
End If
End If
End If
PrintTime ()
ดังนั้นโอกาสที่สองหรือ 59 จะไม่มีตัวตน แต่จะมีขอบคุณสำหรับผลงาน
ดีมาก, ขอบคุณมาก! ฉันได้ของฉันฉัน duranga
ขอบคุณ! ฉันตื่นขึ้นมาเช่นตรรกะ xq ทำให้โครงการเมกะฉันหวังว่าจะยังคงการประเมินเช่นตัวอย่างนี้จากนี้ขนาด suviendo God Bless
ฉันใหม่เพื่อการเขียนโปรแกรม Haci ทำโครงการของฉัน
สาธารณะ Form1 ระดับ
ชั่วโมงเอกชน As Integer = 0
นาทีที่เอกชน As Integer = 0
ที่สองภาคเอกชน As Integer = 0
มิลลิวินาทีเอกชน As Integer = 0
printTime ย่อย ()
Label1.Text = hora.ToString.PadLeft (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text = (1, "0")
Label1.Refresh ()
ย่อยสิ้นสุด
Timer1_Tick Private Sub (ผู้ส่ง ByVal เป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ Timer1.Tick
+ มิลลิวินาที = 1
แล้วถ้ามิลลิวินาที = 9
มิลลิวินาที = 0
ที่สอง + = 1
หากวินาที = 59 จากนั้น
ที่สอง = 0
+ นาที = 1
แล้วถ้า = 59 นาที
นาที = 0
ชั่วโมง + = 1
End If
End If
End If
printTime ()
ย่อยสิ้นสุด
Private Sub Button1_Click (ByVal ผู้ส่งเป็น System.Object, ByVal e เป็น System.EventArgs) Button1.Click จับ
Timer1.Enabled = True
ย่อยสิ้นสุด
Private Sub Button2_Click (ByVal ผู้ส่งเป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ Button2.Click
Timer1.Enabled = False
ย่อยสิ้นสุด
Button4_Click Private Sub (ผู้ส่ง ByVal เป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ Button4.Click
ปลาย
ย่อยสิ้นสุด
ขอบคุณมากสำหรับผลงาน
ดีรหัส!
รหัสที่ดี .... ผมทำหน้าที่เพื่อความสมบูรณ์แบบด้านบนการแก้ไขข้อผิดพลาด .... ขอบคุณ
ขอบคุณสำหรับผลงานของคุณได้รับผมประโยชน์มาก
สวัสดีเพื่อน quisioera ทราบว่าคุณให้บล็อกของคุณ? คือหน้านี้หรือไม่?
คุณสามารถช่วยฉัน
สวัสดี
ผมทำบล็อกในบัวโนสไอเรสประเทศอาร์เจนตินานี้ อาศิรพจน์
ผมทำงานได้ยอดเยี่ยมนี้ที่ดีในการ aora กวดวิชาของคุณและฉันมีความคิดของวิธีการใช้นาฬิกาจับเวลา
รหัส grax x
Zi zirvio ฉัน!
○ ^ ^
ขอบคุณสำหรับโค้ดนี้ฉันกำลังเขียนโปรแกรมบางสิ่งบางอย่างที่ใหญ่กว่า jejej
ขอบคุณ ...
รหัสที่ดีมีประโยชน์โดยเฉพาะอย่างยิ่งในการพัฒนาแอพลิเคชันที่จะตรวจสอบเวลาในการรอของกระบวนการ
ขอบคุณมาก
อะไร!
และหากจะนับถอยหลังเป็นร้ายแรง?
ตัวอย่างที่ดีมากที่ฉันได้โยนในการเขียนโปรแกรม C + + กับ profresor ของฉัน แต่ก็คิดไม่ออกก็คือในภาพขอบคุณสำหรับการป้อนข้อมูล basic.net ง่ายมากและยังมาก atractivo.Gracias
เพียง แต่สิ่งที่ดีมากในปุ่มรีเซ็ตถ้าคุณกดมันถูกตั้งค่าเป็น 0 แต่ยังคงวิ่งออกมาจากเวลาที่อยู่คนเดียวคุณจะต้องวาง
Btn_reset_Click Private Sub (ผู้ส่ง ByVal เป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ btn_reset.Click
Timer1.Enabled = False
เวลา = 0
นาที = 0
ที่สอง = 0
มิลลิวินาที = 0
printTime ()
ย่อยสิ้นสุด
พระคุณสูงสำหรับผลงาน
ฉันต้องการทราบวิธีการปรับให้เข้ากับ ASP กับ VB ตั้งแต่ได้โดยใช้โค้ดเพจจะทำ postback
ขอบคุณ
ขอบคุณมากที่ผมต้องการ
ข้อมูลที่ดีมากบันทึกฉันจากปัญหา
..
..
ขอบคุณ
ขอบคุณมากสำหรับผลงาน พวกเขามีความชัดเจนและดีมาก
ผลงานดีมากเป็นสิ่งที่ฉันถูกมองหา!
ขอบคุณ
คุณช่วยบอกฉันว่าที่คุณทำกับ label1.refresh ()
ขอบคุณ