Zitat Zitat von michiE
thx =)

Code:
VB-code rechnerseitig:

i = ne andere variable mit irgendnem wert zwischen 0 und 255 
MSComm1.Output = Chr(i)
@Die Hard : genau die Version hab ich ... 2.01, gekauft hab ich die cc Anfang 2005

mfg
Michi
Ärgerlich, aber nicht schlimm. Guck hier:
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIII
'II WORKAROUND BUG "INPUT" (ser. Schnittstelle) by DIE HARD 09-04 I
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIII
' BETRIFFT BETRIEBSSYSTEM VERSION 2.01
'--------------------------------------------------------------------
' Die M 2.0 hat in diesem Teil des Betriebssystems einen Fehler
' Das Unterprogramm INPUTEMULATION übernimmt diese Funktion.
'---------------------------------------------------------------------


Define WERT word[1]
define INBYTE byte[4]



Wert=0
#loop
'input wert
gosub INPUTEMULATION 'ERSATZ FÜR INPUT
pause 50
Print "Ausgabewert"
Print wert
Goto loop


'-----------------------------------------------------------------
'---- UNTERPROGRAMM ZUM ERSATZ DER FUNKTION INPUT ---
'-----------------------------------------------------------------
#INPUTEMULATION
#INLOOP
get INBYTE
if INBYTE=&H2D then wert=-1 else WERT=1
if INBYTE=&H2D then get INBYTE
WERT=(INBYTE and &H0F)*WERT
#INLOOP2
get INBYTE:if INBYTE= &H0D then return
INBYTE=INBYTE and &H0F
if WERT<0 then WERT=WERT*10-INBYTE else WERT=WERT*10+INBYTE
goto INLOOP2