my code

Aktuelle funktionierende lösung

Snippet options

Download: Download snippet as segment-anzeige.vbs.
Copy snippet: For this you need a free my code account.
Embed code : You will find the embed code for this snippet at the end of the page, if you want to embed it into a website or a blog!

Private Sub tmrCountdown_Tick(sender As Object, e As EventArgs) Handles tmrCountdown.Tick
        'Schreibe BCD auf USB-Pio Port 3 
        '(Bit0 = 9, Bit1 = 22, Bit2 = 10, Bit3 = 23)
        obj_PIO.DigitalOut(3) = x And &HFF

        'Rückwärts Zählen
        x -= 1

        'Countdown kleiner 1 wieder mit 5 aufladen
        If (x > 1) Then
            x = 5
        End If
    End Sub

Create a free my code account now.

my code is a free service, which allows you to save and manage code snippes of any kind and programming language. We provide many advantages for your daily work with code-snippets, also for your teamwork. Give it a try!

Find out more and register now

You can customize the height of iFrame-Codes as needed! You can find more infos in our API Reference for iframe Embeds.