Zitat von
waldi_n
OK, wenn Effektivität in Größe und Geschwindigkeit im Vordergrund stünden, müsste ich mich eh in C oder Assembler versuchen
Wo hab ihr eigentlich solche Vorurteile her?
Was du mit deinen Programm bezwecken möchtest hab ich zwar nicht verstanden aber ich erkläre es mal so.
Code:
config Porta = output 'kompletten Port A als Ausgang definieren
Porta =&B11111111 'alle Pins auf High setzen
Porta = 255 ' macht das Gleiche, nur in dezimaler Schreibweise
Porta.0 = 1 ' nur PortA.0 einschalten
Porta.0 = 0 ' Nur PortA.0 ausschalten
config Porta = input ' kompletten Port A als Eingang setzen
Porta = &B11111111 ' Alle Pullups von Port A aktivieren
Dim A as Byte
A = Pina ' komplette Zustandstabelle von Porta in die Variable A geschrieben.
A = Pina.0 'nur Zustand von Pina.0 in die Variable A geschrieben
'#####################################################
'ADC
'#####################################################
Config ADC = Single, Prescaler = Auto ' ADC einstellen, Single ist nötig für den GetADC Befehl, mit Prescaler Auto stellt sich Bascom die Abtastgeschwindigkeit selbst ein.
Dim Anlg as Word ' Variable definieren (die meisten Controller haben 10Bit ADCs. Deswegen die Variable als Word, Integer würde auch gehen
Start ADC ' alle ADCs werden gestartet.
Anlg = GetADC(0) 'Frage den ersten ADC (AIN0) ab und schreibe den Wert in die Variable Anlg
Hoffe es hilft/ da war Michael schneller 
Zitieren
Lesezeichen