danke

ich bin auch schon ene schritt weiter gekommen
Code:
$regfile "m16def.dat "
$crystal = 1000000

Dim Test As Integer
Dim Zeit As Integer
Dim Bit00_array(7) As Byte
Dim Bit01_array(7) As Byte
Dim Bit02_array(7) As Byte
Dim Bit03_array(7) As Byte
Dim Bit04_array(7) As Byte
Dim Bit05_array(7) As Byte
Dim Bit06_array(7) As Byte
Dim Bit07_array(7) As Byte
Dim Bit08_array(7) As Byte
Dim Bit09_array(7) As Byte
Dim Bit10_array(7) As Byte
Dim Bit11_array(7) As Byte
Dim Bit12_array(7) As Byte
Dim Bit13_array(7) As Byte
Dim Bit14_array(7) As Byte
Dim Bit15_array(7) As Byte
Dim Bit16_array(7) As Byte
Dim Bit17_array(7) As Byte
Dim Bit18_array(7) As Byte
Dim Bit19_array(7) As Byte
Dim Bit20_array(7) As Byte
Dim Bit21_array(7) As Byte

Bit00_array(2) = 1
Bit00_array(3) = 1
Bit00_array(4) = 1
Bit00_array(5) = 1
Bit00_array(6) = 1
Bit00_array(7) = 1
Bit01_array(5) = 1
Bit01_array(6) = 1
Bit02_array(1) = 1
Bit02_array(3) = 1
Bit02_array(4) = 1
Bit02_array(6) = 1
Bit02_array(7) = 1
Bit03_array(1) = 1
Bit03_array(4) = 1
Bit03_array(5) = 1
Bit03_array(6) = 1
Bit03_array(7) = 1
Bit04_array(1) = 1
Bit04_array(2) = 1
Bit04_array(5) = 1
Bit04_array(6) = 1



Bit10_array(2) = 1
Bit10_array(3) = 1
Bit10_array(4) = 1
Bit10_array(5) = 1
Bit10_array(6) = 1
Bit10_array(7) = 1
Bit11_array(5) = 1
Bit11_array(6) = 1
Bit12_array(1) = 1
Bit12_array(3) = 1
Bit12_array(4) = 1
Bit12_array(6) = 1
Bit12_array(7) = 1
Bit13_array(1) = 1
Bit13_array(4) = 1
Bit13_array(5) = 1
Bit13_array(6) = 1
Bit13_array(7) = 1
Bit14_array(1) = 1
Bit14_array(2) = 1
Bit14_array(5) = 1
Bit14_array(6) = 1


Bit20_array(2) = 1
Bit20_array(3) = 1
Bit20_array(4) = 1
Bit20_array(5) = 1
Bit20_array(6) = 1
Bit20_array(7) = 1
Bit21_array(5) = 1
Bit21_array(6) = 1


Config Timer0 = Timer , Prescale = 1024
Enable Timer0
Stop Timer0
Timer0 = 0

Config Porta.0 = Input
Config Porta.1 = Input
Config Portb = Output
Config Portc = Output
Config Portd = Output


If Pina.0 = 1 Then Start Timer0
If Pina.1 = 1 Then Stop Timer0


Timer0 = Zeit

Zeit \ 1757 = Test
derzeit hängt es noch an der Berechung Zeit durch faktor

Die Arrays habe ich noch nicht alle fertig. ICh habe aber noch keine Idee wie ich aus der Variabelen die richtige Array auslese.