ใน VB6 จับเวลา

นาฬิกาจับเวลาเป็นเครื่องมือที่ได้ ... แหมดีฉันไม่คิดว่ามันเป็นความเหมาะสมที่จะอธิบายสิ่งที่นาฬิกาจับเวลาค่อนข้างจะเข้าใจวิธีการที่จะทำให้ Visual Basic 6

ฟังก์ชั่นที่มีง่ายมาก : ปุ่ม Start เลือกที่จะหยุดนาฬิกาจับเวลาจะเริ่มเร็ว ๆ นี้นับวินาทีจากเวลาที่ในขณะเดียวกัน

คลิกที่ปุ่มอีกครั้งขณะที่คำอธิบายของมันคือการหยุด, นาฬิกาจะตั้งค่าตัวเองและหยุด

เราสร้าง EXE ใหม่ในการคัดลอกของเรา VB6 และสร้างรูปแบบการเพิ่มป้ายชื่อคำสั่งและตัวจับเวลา :

กําหนดฉลากที่มีชื่อของชื่อของตัวควบคุมปุ่มและกำหนดชื่อในการเวลาการจับเวลา

เราดับเบิลคลิกจับเวลาและเพิ่มรหัสต่อไปนี้

 tempo_Timer ตำบลเอกชน ()



    



 conta.Caption conta.Caption + 1 =







 ย่อยสิ้นสุด

เพียงแค่ไปที่การเพิ่มมูลค่าของฉลากของหน่วยที่

ที่ซับซ้อนมากขึ้นรหัสที่จะนำไปใช้ปุ่ม :

 Private Sub comando_Click ()



    



 หาก comando.Caption ="Start"แล้ว



        



 tempo.Enabled = True



        



 comando.Caption ="หยุด"



        



 tempo_Timer โทร



        



 tempo.Interval = 1000



    



 อื่น



        



 tempo.Enabled = False



        



 comando.Caption ="เริ่มต้น"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 ย่อยสิ้นสุด

เราตรวจสอบก่อนที่จะเริ่ม capition ของเขาซึ่งในกรณีนี้เราจะไปในการสั่งซื้อ :

• เปิดใช้งานการตั้งเวลาในการทำงาน;
• เปลี่ยนชื่อของปุ่มคำอธิบายตั้งแต่เริ่มต้นเพื่อหยุดนั้น
• เพื่อเรียกใช้ฟังก์ชันที่เพิ่มขึ้นทีละตัวจับเวลา;
• การตั้งค่าตัวจับเวลาช่วงที่สอง (1000) ทำงาน

ณ จุดนี้นาฬิกาจะหายไปและจะมีลักษณะดังนี้

คลิกอีกครั้งเพื่อหยุด, เวลาทำงานของโปรแกรมจะใส่บล็อกตามเงื่อนไขอื่น ๆ และปฏิบัติหน้าที่ต่อไปนี้ :

• ปิดการใช้งานการจับเวลา;
• การเปลี่ยนแปลงคำอธิบายของปุ่มจาก STOP เพื่อเริ่มต้น;
• ที่จะหยุดช่วงเวลา;
• เพื่อตั้งค่านาฬิกาจับเวลา