Hallo Bascom Freunde!
Ich habe diese Binärfunktion in einer For-Next Schleife gefunden,
funktioniert, lässt sich gut im Simulator nachvollziehen,
aber ich finde nirgends eine Erklärung oder eine Grundlage dazu.
weiß da jemand was darüber ?
mfg. Peter
Alles anzeigen
Ich habe diese Binärfunktion in einer For-Next Schleife gefunden,
funktioniert, lässt sich gut im Simulator nachvollziehen,
aber ich finde nirgends eine Erklärung oder eine Grundlage dazu.
weiß da jemand was darüber ?
mfg. Peter
BASCOM-Quellcode
- $regfile = "m8def.dat"
- $crystal = 1000000
- $hwstack = 8
- $swstack = 8
- $framesize = 8
- '****************************************************************
- Dim A As Byte
- Dim B As Byte
- Dim I As Byte
- '****************************************************************
- 'Hauptschleife:
- Do
- For I = 0 To 3 'Zustände wie folgt:
- 'I = 0 A = 0 B = 0
- A = I.0 'I = 1 A = 1 B = 0
- B = I.1 'I = 2 A = 0 B = 1
- 'I = 3 A = 1 B = 1
- Waitms 10
- Next I
- Loop