Timer

I verktygsfältet finns en liten klocka som heter Timer. Om man lägger en sådan i programmet kan man göra tidsrelaterade händelser. När det har blivit ett visst datum eller en viss tid skall något hända, eller också tar man tid på något. Man kan också nöja sig med att bara visa tid och datum.

Dubbelklicka på Timer i verktygsfönstret. Timern är inget verktyg som syns i formen, därför hamnar det under formuläret, men man kan ändå markera det och gå in i Properties.

I Properties för Timer kan man ange efter vilket intervall timern skall uppdatera sig i förhållande till systemklockan. Om man skriver 1 kommer timern att uppdateras med en tusendels sekunds intervall. Sätter man Interval till 1000, kan man låta något ske varje sekund.

För att starta timern måste man sätta Enable=true. Man gör det antingen i Properties så att timern kör i gång direkt när man startar programmet, eller i kod när man till exempel klickar på en knapp.

Gör en form med tre Labels. Dubbelklicka på timern och sätt in följande kod

Label1.Text = DateString
Label2.Text = TimeString
Label3.Text = System.DateTime.Now()

Label1 visar dagens datum, Label2 visar tiden och label3 visar både dag och tid.

• TimeString returnerar den aktuella tiden från systemklockan.
• Datestring returnerar dagens datum från systemklockan.
• Now returnerar både datum och den aktuella tiden.
• Hour returnerar timdelen av den aktuella tiden.
• Minute returnerar minutdelen av den aktuella tiden.
• Second reurnerar sekunddelen av den aktuella tiden.
• Day returnerar dagens datum, ett tal mellan 1 och 31.
• Mounth returnerar månadens ordningstal, ett tal mellan 1 och 12.
• Year returnerar aktuellt årtal.
• Weekday returnerar veckodagens ordningstal: söndag = 1, måndag = 2 ...

Med en If-sats kan man kontrollera om en viss tid har inträffat; i så fall skall Notepad startas. Lägger vi den koden i timerkoden så kollas If-satsen varje sekund.

If TimeString = "15:57:50" Then
   Shell "c:\windows\notepad.exe", 1
End If

Alltså: Klockan 15:57:50 startas Notepad.

© SupportData.Net