Rumah > Artikel > tutorial komputer > Tulis program VB dengan segera untuk mensimulasikan jam randik
Soalan 1: Tulis program VB dengan segera yang menyerupai jam randik?
Berikut ialah program VB mudah untuk mensimulasikan fungsi asas pemasa jam randik. Contoh ini menggunakan aplikasi Windows Forms.
Public Class MainForm Dim startTime As DateTime Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click startTime = DateTime.Now Timer1.Start() End Sub Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim elapsedTime As TimeSpan = DateTime.Now - startTime lblElapsedTime.Text = String.Format("{0:mm\:ss\.ff}", elapsedTime) End Sub End Class
Apl ini mengandungi pemasa (Pemasa1), butang mula (btnStart), butang henti (btnStop) dan label untuk memaparkan masa berlalu (lblElapsedTime). Apabila pengguna mengklik butang "Mula", pemasa bermula apabila pengguna mengklik butang "Berhenti", pemasa berhenti. Masa berlalu akan dipaparkan pada label.
Soalan 2: Bagaimana untuk membuat jam randik dengan VB?
Untuk membuat jam randik dengan VB, anda boleh menggunakan aplikasi Windows Forms dan kawalan pemasa. Berikut ialah contoh mudah:
Buat projek aplikasi Windows Forms baharu.
Add kawalan berikut pada bentuk:
Tulis kod VB berikut:
Public Class MainForm Dim startTime As DateTime Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click startTime = DateTime.Now Timer1.Start() End Sub Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim elapsedTime As TimeSpan = DateTime.Now - startTime lblElapsedTime.Text = String.Format("{0:mm\:ss\.ff}", elapsedTime) End Sub End Class
Program ini melaksanakan fungsi asas jam randik melalui pemasa. Apabila pengguna mengklik butang "Mula", pemasa bermula apabila pengguna mengklik butang "Berhenti", pemasa berhenti. Masa berlalu akan dipaparkan pada label.
Soalan 3: Gunakan VB untuk membuat pemasa jam randik?
Kunci untuk menggunakan VB untuk membuat pemasa jam randik ialah menggunakan kawalan pemasa dan operasi tarikh dan masa. Berikut ialah langkah-langkahnya:
Buat projek aplikasi Windows Forms baharu.
Add kawalan berikut pada bentuk:
Tulis kod VB berikut:
Public Class MainForm Dim startTime As DateTime Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click startTime = DateTime.Now Timer1.Start() End Sub Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim elapsedTime As TimeSpan = DateTime.Now - startTime lblElapsedTime.Text = String.Format("{0:mm\:ss\.ff}", elapsedTime) End Sub End Class
Program ini menggunakan kawalan pemasa untuk melaksanakan fungsi pemasa jam randik. Apabila pengguna mengklik butang "Mula", pemasa bermula apabila pengguna mengklik butang "Berhenti", pemasa berhenti. Masa berlalu akan dipaparkan pada label.
Ringkasan:
Atas ialah kandungan terperinci Tulis program VB dengan segera untuk mensimulasikan jam randik. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!