title image


Smiley Re: Schieberegister
Hallo, die Lösung hat sich ein anderer ausgedacht, nicht ich !





[code]

Option Explicit



Dim FiFo(4) As Boolean



Private Sub Form_Load()

Me.Show

txtFiFo = "00000"

txtOut = "0"

End Sub



Private Sub cmd0_Click()

Schiebe False

End Sub



Private Sub cmd1_Click()

Schiebe True

End Sub



Private Sub Schiebe(ein As Boolean)

Dim i%, t$

If FiFo(4) Then

txtOut = "1"

Else

txtOut = "0"

End If

For i = 4 To 1 Step -1

FiFo(i) = FiFo(i - 1)

Next i

FiFo(0) = ein

For i = 0 To 4

If FiFo(i) Then

t = t & "1"

Else

t = t & "0"

End If

Next i

txtFiFo = t

End Sub

[/code]


Elektrodieter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: