Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Vanligt tidtagarur

Postades av 2005-11-02 23:04:57 - Torbjörn Karlberg, i forum visual basic - allmänt, Tråden har 5 Kommentarer och lästs av 824 personer

Hej!

Sitter och försöker få till ett enkelt tidtagarur.

Skall börja från 00:00 (minuter och sekunder) och ska kunna pausa och forsätta vid pausadtid.

Verkar knepigt har letat dels här på pellesoft och övrigt på internet men hittare inget om detta

tips om detta!!!



Tobbe


Svara

Sv: Vanligt tidtagarur

Postades av 2005-11-03 01:00:04 - Joakim Åhl

Använd en timmer med intervall 1000.
använd två lablar.

deklarera en int i sec
deklarera en int i minut

i timern:
om i är <9 så lägg dit en noll först. Annars visa siffrorna.
om label1 >59 så öka minut med ett.
Om minut <9 så lägg dit en nolla. Annars skriv siffrorna.


Svara

Sv: Vanligt tidtagarur

Postades av 2005-11-03 01:25:41 - Thomas Roman

Sätt ut en knapp (Command1), en timer (Timer1) och en label (Label1) och testa den här koden:

<code>
Dim Seconds As Integer

Private Sub Command1_Click()
Timer1.Enabled = Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Seconds = Seconds + 1
Label1.Caption = Mid(DateAdd("s", Seconds, 0), 4)
End Sub
</code>


Thomas


Svara

Sv:Vanligt tidtagarur

Postades av 2005-11-03 03:08:07 - Sven Åke Persson

<b>Använd en timmer med intervall 1000. </b>
Du skall använda Timer intervall 448 för att få säker träff varje sekund.
Du kan kolla in mitt uppskick

Programarkivet:Två StopUr växelvis


Svara

Sv:Vanligt tidtagarur

Postades av 2005-11-03 14:54:09 - Torbjörn Karlberg

Hej!

Thomas förslag funkade bra tackar.

Men nu vill jag räkna ner från t,ex 2 min 02:00 hur gör man då.



Tobbe



Svara

Sv: Vanligt tidtagarur

Postades av 2005-11-03 21:16:11 - Thomas Roman

<code>
Dim Seconds As Integer

Private Sub Form_Load()
Seconds = 120
End Sub
Private Sub Command1_Click()
Timer1.Enabled = Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Seconds > 0 Then
Seconds = Seconds - 1
Label1.Caption = Mid(DateAdd("s", Seconds, 0), 4)
End If
End Sub
</code>


Thomas


Svara

Nyligen

  • 17:54 Vegastars New Zealand
  • 16:56 Verde Casino Danmark
  • 13:54 Vegastars: Top Australian Online C
  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 971
27 965
271 783
3 291
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies