Cum să faci un cronometru pentru examene în cuvântul tău prin VBA

În acest articol, vom detalia cum să faceți un cronometru pe care îl puteți utiliza pentru examinări în Word prin VBA.

Cu editorul VBA din Word, puteți crea singuri multe instrumente mici, dar utile. Și astăzi, vrem să vă arătăm modul de a face cronometru. Îl puteți declanșa și utiliza oricând Word este deschis. De exemplu, va fi util în timpul examinărilor.

Inserați un modul în proiectul VBA

1. În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA în Word.
2. Apoi faceți clic pe „Normal” proiect și faceți clic pe „Insert”.
3. Alegeți „Modul” din meniul respectiv.
4. Faceți dublu clic pe modul pentru a-l deschide.
5. Apăsați „F4” pentru a deschide „Fereastra de proprietăți”. Schimbați numele modulului ca „modStopwatch”.
6. În continuare, lipiți următoarele coduri pe modul:

Public g_dtStart As Variant
Public g_bOnTimer As Boolean

Public Sub OnTimerUpdate()
  Dim tmNextUpdate As Variant
 
  frmStopwatch.lblShowElapsedTime = Format(Now - g_dtStart, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  If g_bOnTimer Then
    Application.OnTime tmNextUpdate, "OnTimerUpdate"
  End If
End Sub

Sub TriggerStopwatch()
    frmStopWatch.Show
End Sub

7. În sfârșit, salvați codurile.

Introduceți un formular de utilizator

1. În editorul VBA, faceți clic pe „Insert” și alegeți „UserForm”.
2. Apoi faceți clic pe mânerele sale pentru a ajusta dimensiunea formularului.
3. Pagina Următoare → denumește formularul de utilizator drept „frmStopwatch”, setați legendă ca „Cronometru”și setați culoarea de fundal. De asemenea, setați „ShowModal” ca „False”.
4. Faceți clic pe fila „Vizualizare” și selectați „Toolbox”.
5. În caseta de instrumente, faceți clic pe „Etichetă” și desenați șase etichete într-o poziție corectă pe formularul de utilizator, cum ar fi mai jos:
6. Acum, setați proprietăți pentru fiecare etichetă.

• Faceți clic pe eticheta 1. Apoi mergeți la fereastra de proprietate. Introduceți „Ora de începere:” pentru legendă. Schimbați culoarea de fundal și fontul după cum este necesar.
• Faceți clic pe eticheta 2. Denumiți-l ca „lblStartTime”. Setați „BackColor” în alb. Apoi setați corect „Font”.
• Faceți clic pe eticheta 3. Tastați „Ora de încheiere:” pentru legendă. Setați culoarea de fundal și fontul la fel ca cele ale etichetei 1.
• Faceți clic pe eticheta 4. Numiți-l ca „lblEndTime”. Setați „BackColor” în alb. Apoi setați fontul la fel ca cel al etichetei 2.
• Faceți clic pe eticheta 5. Introduceți „Timp scurs:” pentru legendă. Setați culoarea de fundal și fontul la fel ca cele ale etichetei 1.
• Faceți clic pe eticheta 6. Numiți-l ca „lblShowElapsedTime”. Setați „BackColor” în alb. Apoi setați fontul la fel ca cel al etichetei 2.

7. În caseta de instrumente, faceți clic pe „CommandButton” și creați 3 butoane. Aranjați-le în următoarea ordine:
8. În mod similar, setați proprietățile butonului.

• Faceți clic pe butonul 1. Denumește-l „btnStart”. Setați-i culoarea de fundal. Introduceți „Temporizator de pornire” pentru legendă. Și setați fontul corect.
• Faceți clic pe butonul 2. Numiți-l ca „btnStop”. Setați-i culoarea de fundal. Introduceți „Oprire cronometru” pentru legendă. Și setați fontul corect.
• Faceți clic pe butonul 3. Numiți-l ca „cmdClose”. Setați-i culoarea de fundal. Tastați „Închidere” pentru legendă. Și setați fontul corect.

9. Acum faceți dublu clic pe butonul „Start Timer”. Și introduceți următoarele coduri:

Private Sub btnStart_Click()
  Dim tmNextUpdate As Variant
  g_dtStart = Now
 
  frmStopwatch.lblStartTime = Format(g_dtStart, "hh:mm:ss")
  frmStopwatch.lblShowElapsedTime = Format(0, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  g_bOnTimer = True
  Application.OnTime tmNextUpdate, "modStopwatch.OnTimerUpdate", 0
End Sub

Prima și ultima linie sunt deja acolo, așa că nu trebuie să le introduceți din nou. Salvați codurile.

10. Apoi faceți dublu clic pe butonul „Opriți cronometrul”. Apoi introduceți aceste coduri:

Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub

11. Faceți dublu clic pe butonul „Închidere” și inserați codurile:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Apoi puteți atribui un buton pentru macro „TriggerStopwatch„În ceea ce privește pașii detaliați pentru a atribui butonul pentru macro, puteți consulta acest articol: Cum să eliminați formatarea textelor lipite cu macro și VBA în Word

Iată o demonstrație a utilizării cronometrului:

Alegeți instrumentul de recuperare potrivit

Cu mai multe dispozitive digitale implicate în stocarea informațiilor, recuperarea datelor a devenit un subiect fierbinte în zilele noastre. De exemplu, dacă întâmpinați un colaps Word, trebuie să obțineți un instrument de reparat cuvânt coruptAtunci este de maximă importanță să obțineți un instrument eligibil.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperați xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com