kalletronic
23.03.2007, 14:32
hi Leute,
ich hab mir grad mal die Demo von Bascom runtergezogen und mal etwas rumexperimentiert. Ich hab mal vestucht einen taster von Port c
auf einem Pin von Port B 1:1 auszugeben, dazu hab ich folgenden Code verwendet:
$regfile = "m8def.dat" 'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
$crystal = 16000000 'Die Frequenz des verwendeten Quarzes
'Sie muss auch beim PC Terminalprogramm identisch sein
Config Portb.6 = Output 'Ein Pin wird als Ausgang konfiguriert PC0 (also Pin0 von Port C)
Config Pinc.7 = Input
Led Alias Portb.6
Taster Alias Pinc.7
Portc.7 = 1
Dim A As Bit
do
Led == Taster
A == Taster
loop
wenn ich das jetzt im simulator teste, bekomm ich folgendes Ergebnis:
Taster = 1 => Led & Variable a =0
Taster = 0 => Led & Variable a =1
was muß ich da anders schreiben, damit ich bei Taster =1 auch die Led & Variable a =1 ](*,)
Danke für eure Hilfe
gruß kalle
ich hab mir grad mal die Demo von Bascom runtergezogen und mal etwas rumexperimentiert. Ich hab mal vestucht einen taster von Port c
auf einem Pin von Port B 1:1 auszugeben, dazu hab ich folgenden Code verwendet:
$regfile = "m8def.dat" 'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
$crystal = 16000000 'Die Frequenz des verwendeten Quarzes
'Sie muss auch beim PC Terminalprogramm identisch sein
Config Portb.6 = Output 'Ein Pin wird als Ausgang konfiguriert PC0 (also Pin0 von Port C)
Config Pinc.7 = Input
Led Alias Portb.6
Taster Alias Pinc.7
Portc.7 = 1
Dim A As Bit
do
Led == Taster
A == Taster
loop
wenn ich das jetzt im simulator teste, bekomm ich folgendes Ergebnis:
Taster = 1 => Led & Variable a =0
Taster = 0 => Led & Variable a =1
was muß ich da anders schreiben, damit ich bei Taster =1 auch die Led & Variable a =1 ](*,)
Danke für eure Hilfe
gruß kalle