Offizielles Bascom Forum

Nachbau eines Analoginstruments

escape123 — Fri, 18 May 2012 11:18:43 GMT

Hallo Community,

ich m�chte gern ein Analoginstrument wie wir es alle kennen nachbauen.
Die Idee ist es einen Motor mit einer Nadel zu versehen welche die Werte anzeigt die ich �bertrage.

Aktuell habe ich den Wert 0 bis 100 als Drehzahlausgabe
Auf einem 50 mm Blatt habe ich mir ein Instrument ausgedruckt und der
Zeiger soll da stehen wo der jeweilige wert ist z.B. wenn mein Programm 10 sendet soll der Motor auf Position 10 des ausgedruckten Blatts laufen.

Hier ein Beispiel genau sowas m�chte ich realisieren.

Nun habe ich gestern einen Scanner geschlachtet den Unipolaren Schrittmotor an einen ULN 2003a gehangen und diesen erstmal versucht zum laufen zu bringen was auch klappte. Was mir negativ aufviel ist das dieser Motor wie ein Servo stottert oder zumindest einen ruhigen lauf einer Nadel nicht erm�glicht. Die Schritte sind einfach zu ruckelig.

Nun habe ich etwas gelesen das man Drehspulenmotoren nutzen soll da sie eine D�mpfung haben und so wie im Auto ganz ruhig laufen ohne zu ruckeln.

Hier stellen sich mir viele Fragen:
Woher bekomme ich so einen kleinen Motor zu einem fairen Preis ?
Was f�r ein Treiberbaustein ben�tigt man daf�r ?
Und wie f�ttert sich so eine Steuerung dann eigentlich?
Der Motor darf sehr klein sein da ja nur eine Nadel darauf sitzt.

Hat jemand eine Ahnung oder Idee wie ich ein Instrument realisieren kann so das die Nadel sich schon ruhig bewegt?

Gru� Bee

Aktuell habe ich einen Steppermotor bei 360� mit einer D�mpfung der Nadel allerdings ist das immernoch zu ruckelig. Bei Druck der Taste setze ich den Wert auf 100 beim loslassen wird 0 gesetzt. Das dient zum simplen testen und verstehen was ich da mal wieder basteln will.

Schrittmotor Test:

Code:

$regfile = "m328pdef.dat"

$crystal = 14745600

$hwstack = 100

$swstack = 100

$framesize = 100

$baud = 57600





Test5:

Dim Phase(4) As Byte

Dim Pos As Long

Dim Pos2 As Word

Dim Stp As Byte

Dim U As Byte



Portb = 255



Config Portc = &B00001111

Config Adc = Single , Prescaler = Auto , Reference = Off



Phase(1) = 1

Phase(2) = 2

Phase(3) = 4

Phase(4) = 8



Do



  If Pinb.0 = 1 Then U = 100

  If Pinb.0 = 0 Then U = 0



  U = U / 2

  Pos2 = Pos2 + U

  Pos2 = Pos2 - Pos

  Pos = Pos2 / 100

  Stp = Pos And 3

  Stp = Stp + 1

  Portc = Phase(stp)

  Waitms 10



Loop

Auch fand ich diese Seite hier wo Schaltpl�ne sind allerdings sind die Schriften schlecht zu lesen und der Bauplan sagt mir zur realisierung nicht viel aus: Tacho_Controller_by_Elektronikjack

Wohin mit der Flie�kommarechnung?

Interner-Fehler — Thu, 17 May 2012 19:13:59 GMT

Hallo Bascomfreunde,
ich habe ein Problem und mir gehen die Ideen aus :-(
Das Problem sind 6 Flie�kommarechnungen (3 Additionen und 3 Divisionen) welche zu einem bestimmten Zeitpunkt durchgef�hrt werden sollen.Also habe ich in einem Timerinterrupt von Timer0 ,welcher als Zeitbasis fungiert,einen Flag gesetzt und diesen dann in der Do/Loop ausgewertet und wenn gesetzt, dann die Berechnungen machen lassen und den Flag wieder gel�scht.Das ging anfangs auch ganz gut.Inzwischen ist die Do/Loop aber recht lang geworden so das das Timing nicht mehr stimmt und es zu einer Verz�gerung mit dem Flag auswerten sowie den Berechnungen kommt.Dann habe ich versucht diese Berechnungen direkt im Timerinterrupt berechnen zu lassen was zwar dahingehend gut ging das das Timing wieder stimmte,aber leider gibt es nun willk�rlich seltsame Zeichen im Display und ab und zu h�ngt sich der AVR ganz auf.Also hier gehts nicht und da auch nicht.Was nun? Daher meine Frage ob es eine M�glichkeit gibt diese Berechnungen zu einem definierten Zeitpunkt,z.B. gestartet durch einen Flag im Timerinterrupt aber unabh�ngig von der Hauptschleife durchf�hren zu lassen ?

viele Gr��e und besten Dank im Vorraus!

NetIO mit GUI

shadow01 — Thu, 17 May 2012 05:50:51 GMT

Hallo zusammen

Ich befasse mich seit kurzem mit dem Net IO Board von Pollin. Ich habe auch schon diverse andere Firmwaren aufgespielt, Ulrich Radig... etc. Nun aber wollte ich eine Version die nicht in c geschrieben ist und ein GUI hat das auf dem ATmega l�uft und nicht lokal.

Gibt es eine solche Version in Bascom die ein Web-GUI auf dem Atmega hat?

gruss und Danke

Lichtprofi

elektron — Wed, 16 May 2012 18:59:34 GMT

Warum erscheint seit Neuem in der Forum-Startseite gross das Logo von
http://lichtprofi.de/ ?
Bug Anhang 5438 or feature?
Gruss, elektron

Angeh�ngte Grafiken

rolleyes.gif‎ (1,1 KB)

Problem mit Doppelbelegung von I/O PIN

dreampoi — Wed, 16 May 2012 14:57:25 GMT

Hallo zusammen,

ich muss f�r eine Schaltung einen I/O Pin sowohl als Ausgang als auch als Eingang verwenden.
Im Normalfall ist der Pin als Ausgang = 1 aktiv.

W�hrend einer ISR muss der Port als als Eingang geschaltet und der Zustand am Pin abgefragt werden.
Am Ende der ISR wird er wieder auf Ausgang =1 umgeschaltet.
--> Im Moment sehe ich jedoch (dem Oszi sei Dank), dass der Port nicht umgeschaltet wird, da der Port dauerhaft auf 3,6 V = 1 bleibt.

Hat jemand eine Idee wo mein Fehler liegt?

Danke f�r Eure Hilfe !

Hier den Bacom Code den ich zum Testen verwende:
======================================

Code:

 

$regfile = "xm256d3def.dat"                                

 

 

$crystal = 32000000                                         

 

 

$hwstack = 100

 

 

$swstack = 100

 

 

$framesize = 100

 

 

 

 

 

$lib "xmega.lib"

 

 

$external _xmegafix_clear

 

 

$external _xmegafix_rol_r1014

 

 

 

 

 

'Interner System Takt aktivieren

 

 

Config Osc = Disabled , 32mhzosc = Enabled                  

 

 

Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1  

 

 

 

 

 

'Interrupts

 

 

'==========

 

 

Config Priority = Static , Vector = Application , Lo = Enabled , Med = 

Enabled

 

 

Config Tcc0 = Normal , Prescale = 1024 , Event_source = E0 , Event_action = 

Capture

 

 

On Tcc0_ovf Tastensensor                                   

 

 

Enable Tcc0_ovf , Lo                                        

 

 

Tcc0_per = 2                                                

 

 

Enable Interrupts

 

 

 

 

 

'HW Init

 

 

'=======

 

 

Ddra = &B11111111       ' Alle Ports als Ausgangeinstellen

 

 

Ddrb = &B11111111

 

 

Ddrc = &B11111111

 

 

Ddrd = &B11111111

 

 

Ddre = &B11111111

 

 

Ddrf = &B11111111

 

 

 

 

 

Porta = &B00000000     ' Alle Ausg�nge auf 0 bis auf Port-D.6

 

 

Portb = &B00000000

 

 

Portc = &B00000000

 

 

Portd = &B01000000    

 

 

Porte = &B00000000

 

 

Portf = &B00000000

 

 

                                           '

 

 

Dim Muster As Byte

 

 

Muster = 1

 

 

 

 

 

Declare Sub Tastensensor

 

 

Declare Sub Muster1 

 

 

Declare Sub Muster2

 

 

 

 

 

'Main

 

 

'====

 

 

Do

 

 

 

 

 

Portb.1 = 1

 

 

 

 

 

If Muster = 1 Then

 

 

  Call Muster1

 

 

Elseif Muster = 2 Then

 

 

  Call Muster2

 

 

End If

 

 

 

 

 

Loop

 

 

 

 

 

End

 

 

 

 

 

'SUBs

 

 

'====

 

 

Sub Muster1

 

 

  Toggle Portf.0           'Gr�ne LED blinkt wenn Muster-1 Sub abgearbeitet 

wird

 

 

  Waitms 500

 

 

End Sub

 

 

 

 

 

Sub Muster2

 

 

  Toggle Porta.5         'Rote LED 

blinkt wenn Muster-1 Sub abgearbeitet wird

 

 

  Waitms 500

 

 

End Sub

 

 

 

 

 

'ISR

 

 

'===

 

 

Tastensensor:

 

 

Config Pind.6 = Input       'Port-D.6 auf Input schalten

 

 

 

 

 

If Pind.6 = 0 Then                                          

 

 

  Muster = 2

 

 

End If

 

 

 

 

 

Toggle Portb.3              'Blaue LED blinkt wenn ISR abgearbeitet wird

 

 

 

 

 

Config Pind.6 = Output      'Port-D.6 als Ausgang schalten 

 

 

Pind.6 = 1                                                  

 

 

 

 

 

Return

Anf�nger Probleme :-)

diggsn — Wed, 16 May 2012 11:15:10 GMT

Hallo,

ich m�chte mit einem Attiny13 eine kleine Routine starten.
Es soll ein Taster bet�tigt werden, der 30sec einen port 5V frei gibt.
Innerhalb der 30sec soll an einem Pin ein Eingangssignal von 5V ankommen, ist dies nicht der Fall soll das Programm sich resetten. Kommen die 5v an soll der Port solange 5V ausgeben bist am Eingangspin keine Spannung mehr anliegt und danach sich resetten.
Irgendwie fehlt mir dann der ansatzpunkt...

Code:

$regfile = "attiny13.dat"

$crystal = 1200000

$hwstack = 10

$swstack = 10



Config Portb.2 = Input         'Taster f�r Programmstart

Taster Alias Pinb.2   

Portb.2 = 1



Config Portb.1 = Input         '5V Signalempang f�r Freigabe

Freigabe Ailias Pinb.1

Portb.1 = 1



Config Portb.0 = Output             '5V Spannungsausgang f�r Relais 

Relais Alias Portb.0

Portb.0 = 0



Dim Zeit As Long 

Const Zeit_min = 1 

Const Zeit_ms = Zeit_min *30000           ' 30sec Freigabe 5V



If Taster  = 0 Then

Relais = 1

Waitms Zeit_min





???? und dann verlie�en sie Ihn





do 

loop

end

UART Verteilung beim Atxmega 128A1

dj1yr — Tue, 15 May 2012 09:45:58 GMT

Hallo,

Ich habe mir ein ein ATxmega Testboard aufgebaut, soweit l�uft auch alles, ich habe nur ein Verst�ndnissproblem mit der UART Verteilung,

also bei dem 128A1 ist ja die USARTC0/1 Pin C6/7 in Bascom normalerweise als COM1 deklariert, nun habe ich mir das Bsp aus dem 1mal1 mit dem internen Temperatursensor geschnappt, nur leider ging das nicht, nach ewigen Fehlersuchen wollte ich mal die USARTD0/1 -> Com2 testen um einen HW defekt auszuschliessen, und siehe da auf einmal funktioniert die USARTC0/1, also eigentlich die COM1.

Habe ich da was falsch verstanden, oder liegt der Fehler in der Bascomversion, ist �briges die 2.0.7.4

Code:

'$sim

$regfile = "xm128a1def.dat"

$crystal = 32000000

$hwstack = 64

$swstack = 40

$framesize = 40

$baud = 9600



$lib "xmega.lib"

$external _xmegafix_clear

$external _xmegafix_rol_r1014

Config Osc = Enabled , 32mhzosc = Enabled

Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1



Const 85_grad_in_kelvin = 358.15                            ' 85�C + 273.15 =  358.15 K





Config Com2 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8

Open "COM2:" For Binary As #1



'setup the ADC-A converter for internal Temp Measurement

Config Adca = Single , Convmode = Unsigned , Resolution = 12bit , Dma = Off , Reference = Int1v , _

Event_mode = None , Prescaler = 512 , Tempref = Enabled , Ch0_gain = 1 , Ch0_inp = Internal , Mux0 = 0



Print #1 , "---------START internal TEMP--------------"



Dim Command As Byte



Dim Temp_ref_85_c As Word

Dim Tempsense0 As Byte At Temp_ref_85_c Overlay

Dim Tempsense1 As Byte At Temp_ref_85_c + 1 Overlay





Dim Offset As Byte



Dim X As Byte

Dim W As Word

Dim Mean As Word

Dim Kelvin_per_adc_step As Single

Dim Grad_celsius As Single



'Temperatur Reference Values from Production signature Row

'Value = Temp at 85�C and must be used for internal Temp Sensor calibration



Declare Sub Read_reference_temp_values()



Config Portf.4 = Output

Config Portf.5 = Output

Config Portf.6 = Output

Config Portf.7 = Output

Portf.4 = 1

Portf.5 = 1

Portf.6 = 1

Portf.7 = 1



'Config Portc.7 = Output

'Config Pinc.6 = Input



Waitms 100





Do

Call Read_reference_temp_values()                           'Read Temp Ref Values from Production Signature Row





Print #1 ,

Print #1 , "------------------------------------------"

Print #1 , "Tempsense0 = " ; Hex(tempsense0) ; " / " ; "Tempsense1 = " ; Hex(tempsense1)

Print #1 ,



Waitms 100

'For internal Measurements use Unsigned mode, 12 bit, Internal 1.00 V Reference.



'Ch0_inp = Internal --> Intern wie z.B. Temperatursensor, BANDGAP, Vcc/10 oder den DAC Output zur�cklesen

'Mux0 = 0  --> interner TEMPERATUR SENSOR

'Prescaler = 512 --> 32MHz/512 = 62,5KHz ADC Clock  (MAXIMUM f�r internal = 100KHz)



Print #1 , "Temp_ref_85_c bzw. bei 358K =  " ; Temp_ref_85_c ; "  und bei 0K (bei -273�C) = 0"



Kelvin_per_adc_step = 85_grad_in_kelvin / Temp_ref_85_c

Print #1 , "Kelvin_per_adc_step = " ; Kelvin_per_adc_step ; " per Step"



Print #1 ,



W = Getadc(adca , 0)                                        'One Dummy Measurement

Waitms 150

Print #1 ,



Print #1 , "--Internal Temperature--"





'#####################TEMPERATURE MEASUREMENT###################################

 Mean = 0                                                   'clear mean



 For X = 1 To 4

  W = Getadc(adca , 0)

  Waitms 50

  Mean = Mean + W                                           'Mean Value of the last 4 Measurements

  Waitms 100

 Next



  Mean = Mean / 4                                           'Mean Value of the last 4 Measurements

  Grad_celsius = W * Kelvin_per_adc_step

  Grad_celsius = Grad_celsius - 273.15

  Print #1 , "Temp = " ; W ; " in Grad C = " ; Fusing(grad_celsius , "##.#") ; " �C"





  Portf.4 = 0

  Portf.5 = 0

  Portf.6 = 0

  Portf.7 = 0



  Waitms 100

  Portf.4 = 1

  Portf.5 = 1

  Portf.6 = 1

  Portf.7 = 1



Loop





End                                                         'end program



'---------------SUB-------------------------------------------------------------



Sub Read_reference_temp_values()



 Offset = &H2E                                              ' Offset for Tempsense0

 Command = &H02                                             ' Command for READ SIGNATURE ROW



 !ldS  r16, {offset}                                        ' Load Offset to Register R16

 !ldS  r20, {Command}                                       ' Load NVM command to Register R20.

 !mov  ZL, r16                                              ' Load Offset into low byte of Z

 !clr  ZH                                                   ' Clear high byte of Z.

 !sts  NVM_CMD, r20                                         ' Load command now into NVM Command register.

 !lpm  r16, Z                                               ' Perform a LPM to read out byte to R16



 Command = &H00                                             ' Command to Clear NVM Command register



 !ldS  r20, {Command}                                       ' Clear NVM Command register

 !sts  NVM_CMD, r20

 !STS {Tempsense0}, R16







 '-----------------------------



 Offset = &H2F                                              ' Offset for Tempsense1

 Command = &H02                                             ' Command for READ SIGNATURE ROW



 !ldS  r16, {offset}                                        ' Load Offset to Register R16

 !ldS  r20, {Command}                                       ' Load NVM command to Register R20.

 !mov  ZL, r16                                              ' Load Offset into low byte of Z

 !clr  ZH                                                   ' Clear high byte of Z.

 !sts  NVM_CMD, r20                                         ' Load command now into NVM Command register.

 !lpm  r16, Z                                               ' Perform a LPM to read out byte to R16



 Command = &H00                                             ' Command to Clear NVM Command register



 !ldS  r20, {Command}                                       ' Clear NVM Command register

 !sts  NVM_CMD, r20

 !STS {Tempsense1}, R16



  Waitms 100



End Sub

mfg Ren�

Kommunikation zwischen Atmega8 und Atmega16

Devilstar — Mon, 14 May 2012 16:47:35 GMT

Hallo Leute,

ich probiere im Moment ein Text vom Atmega 8 am Atmega 16 zu schicken. Leider funktioniert das garnicht....
Erst mal meine Codes:

Atmega8

Code:

$regfile = "m8def.dat"

$crystal = 3686400

$baud = 4800



Dim Wort As String * 8



Wort = "Hallo"



Do

Print Wort

Loop

End

Atmega 16

Code:

$regfile = "m16def.dat"

$crystal = 1000000

$baud = 4800

Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.4 , Db6 = Portd.6 , _

Db7 = Portd.7 , E = Portc.0 , Rs = Portd.2

Config Lcd = 16 * 2

Cursor Off

Cls



Dim Wort As String * 8



Do

   Input Wort



   Locate 1 , 1

   Lcd Wort



   Locate 2 , 1

   Lcd "......."

Loop

End

Am PC Empfange ich die Sachen vom Atmega8 richtig. Auf den LCD-Display kann ich auch den Text ("Hallo") lesen, jedoch sind dort noch andere Zeichen drin.

Anscheint muss das Problem am Atmega 16 liegen. Es ist ein komplett neuer und deswegen habe ich die $crystal auf 1000000. Bei einer anderen $crystal z.B. 4000000, 8000000, 1600000 zeigt er garnichts an. Auch Die Baudrate habe ich schon ver�ndert. Ich wei� nicht, wo der Fehler liegt. Es w�re sch�n, wenn jemand helfen k�nnte.!

Getkbd

midifix — Sun, 13 May 2012 22:33:09 GMT

Hallo,

Ich m�chte gerne eine Tastermatrix abfragen. Nun gibt es im Netz Beispiele mit Widerst�nden und ohne ???

Auch in Dons 1x1 gibt's beide Varianten ???

Gru� midifix

Werte im Eeprom speichern

blutengel — Sun, 13 May 2012 21:43:51 GMT

Hi!

Hab da mal ein kleines Problem. M�chte eine DMX Adresse im int. Eeprom speichern. Habe die VAriable als Word deklariert das es ja bis zu 512 Kan�le geben kann. bis 255 geht auch alles, aber wenn es dar�ber hinaus geht vertauscht er beim schreiben beide Bytes. Wie kann ich ihna dazu bringen es anders herum zu speichern?

mfg

BLUTENGEL

Zeitdauer DIR("12345678.TXT") aufruf

Fileplayer — Sun, 13 May 2012 08:25:25 GMT

Hallo an alle !

Ich habe ein Problem mit AVR-DOS. Die Karte und alle Functionen (schreiben lesen usw.) gehen problemlos.
Aber ein einfacher Aufruf wie A$ = Dir("Info.DAT") dauert (auch reproduzierbar) 0,1 bis 0,3 Sekunden.
(8 Mhz ATMega128).
Nach meinen ermessen dauert das vielllll zu lange.

Hat irgend einer Info oder selbst schon mal gemessen wie lange das bei euch dauert ?

Bin Dankbar f�r jede Info.
Gruss G�nni (Fileplayer)

Portproblem

john — Sat, 12 May 2012 20:00:59 GMT

Hallo Ich schalte mit einem Amega32 einen Atmega16 Slave ( sp�ter 2 ) �ber TWI 20 Relais.
Alles funktionniert super bis auf die 2 Relais die an Port PD.0 RXD und PD.1 TXD liegen.
Wenn ich keine serielle Daten �bertrage d.h. Baud nicht konfiguriere, m�sste ich die beiden
Port's doch normal als Ausgamg nutzen k�nnen oder sehe ich das falsch ?
MfG und sch�nes WE John

Hardware SPI dogm128-6 bascom.

mirco99 — Sat, 12 May 2012 19:40:07 GMT

Halllo,
ich br�uchte mal eure Hilfe.
Das Dogm 128-6 kann man per Software SPI so ansteuern:

$lib "glcdeadogm128x6.lbx"
Config Graphlcd = 128 * 64eadogm , Cs1 = Porta.0 , A0 = Porta.2 , Si = Porta.4 , Sclk = Porta.3 , Rst = Porta.1
Cls
Setfont Font5x6

Wie kann ich es per Hardware SPI bim Atmega 168 ansteuern?

4 Pin werden ben�tigt

SI = Mosi
SCL= SCK
C1B= Chip select bei low aktiv. Pin selber aussuchen ? Pin fest auf Low anschliessen schlecht f�rs ISP Proggen.
A0 = Abfrage ob Kommando oder Daten. Pin selber aussuchen?

Wird die Syntax wie in der Bascom Hilfe vorgenommen?
Syntax for hardware SPI

CONFIG SPI|SPIHARD = HARD, INTERRUPT=ON|OFF, DATA_ORDER = LSB|MSB , MASTER = YES|NO , POLARITY = HIGH|LOW , PHASE = 0|1, CLOCKRATE = 4|16|64|128 , NOSS=1|0 , SPIIN=value

Hat jemand Erfahrungen gesammelt und k�nnte mir die richtige config mal posten?
Wie sieht es mit den Pins C1B und A0 aus bei Hardware SPI?

Vorteile gegen�ber der Software SPI L�sung sind wohl der kleinere Rechenaufwand und die schnellere Aktualisierung des Display�s.
SPI Clock kann bis 1/2 Taktfrequenz des AVR�s sein!

Vielen Dank f�r eure hilfreichen Antworten im Voraus.

MCP23S17 als Porterweiterer nutzen, paar Fragen

lwlbochum2011 — Sat, 12 May 2012 17:35:23 GMT

Hey,

ich wollte fragen, ist der MCP23S17 Als Baustein der zur I/O
Porterweiterung ansteuerbar �ber Bascom �hnlich wie die normalen Ports
des �Cs?

Also Portc.1 = Output?

Oder gibt es sowas nicht? Gut man m�sste den MCP23S17 erst einmal
verbinden und konfigurieren mit dem �C.

Michael

Wert an einem Portpin ohne den Befehl "SHIFTOUT" ausgeben

langerblitz — Sat, 12 May 2012 17:34:29 GMT

Hallo Gemeinde!

Ich bin momentan an dem "Projekt" dran, Werte auf 7-Segmentanzeigen anzuzeigen.
Zuvor habe ich lediglich ein zuverl�ssiges Programm zum Auswerten von Inkrementalgebern erfolgreich geschrieben.
Meine Schaltung sieht so aus, dass ich 3 dieser 7-Segment-Anzeigen habe, welche von 3 in Serie geschalteten Schieberegistern angesteuert werden.
Das funktioniert soweit alles.
Die Sache ist jetzt, dass ich einen Byte-Wert, also 0-255, schrittweise nacheinander an nur einem Portpin bin�r ausgeben m�chte.
Dieser Wert soll dann in das Schieberegister mit einem Takt eingeschrieben werden und dann an einer der 3 Anzeigen eine Zahl ausgeben.

Da ich nicht so gerne die fertigen Befehle von Bascom nutze und au�erdem auch etwas beim Programmieren f�r die Zukunft lernen m�chte, w�rde ich den Code daf�r, so weit es nur m�glich ist, selbst schreiben wollen.
Angeblich soll der Befehl "SHIFTOUT" daf�r wie gemacht sein, aber wie gesagt, es st�rt mich, blind Befehle zu nutzen, von denen ich nicht wei�, wie sie funktionieren.

Ist es in Bascom nicht irgendwie m�glich, die Koordinaten eines Bytes zu w�hlen?

So in etwa:

Portd.0 = X.3

Dabei w�re X die Bytevariable und 3 die Stelle bin�r gesehen.

Da ich noch eher zu dem Anf�ngern geh�re, was das Programmieren in Bascom angeht, habe ich leider keine andere Idee, wie man das umsetzen k�nnte.
Ich w�rde mich sehr freuen, wenn mir jemand bei diesem Problem weiterhelfen k�nnte.:)

MfG Sven