xin
06.03.2005, 16:58
8-[ Hallo !
Kann jemand mir helfen?
Ich habe jetzt ein Marionette mit 8 Sensoren,die an C-Controller angeschlossen sind,gebaut,und an Director(Lingo) mit SerialXtra programmiren.Den Problem ist ,dass ich nicht wissen,wie ich den Name an Lingo Script definieren soll.
Im CCBASIC habe ich den Namen fuer Sensoren schon gegeben:
define sensor1 ad[1]
define sensor2 ad[2]
#loop
print sensor1
print "wert1"
print sensor2
print "wert2"
pause 25
goto loop
Im Lingo habe ich so geschrieben:
on exitFrame me
set theXtra to new( xtra "SerialXtra")
if objectP(theXtra) then
theXtra.OpenPort("COM1")
if theXtra.IsPortOpen() then
theXtra.WriteString("123456")
repeat while theXtra.CharsAvailable () = 0
end repeat
indata = theXtra.ReadString()--von hier bin ich nicht mehr sicher ob es richtig ist oder nicht...
put indata
if indata = 64 then
sensor = theXtra.readNumber()
if sensor = 1 then
puppetsound 1 "a"
soundPlayed=1
end if
if sensor = 2 then
puppetsound 1 "b"
soundPlayed=2
end if
if sensor = 0 then
soundPlayed = 0
puppetsound 1, 0
end if
end if
theXtra = 0
end if
end if
end
Gibt es jemand mit diesem Teil Erfahrungen hat?Ich brauche Hilfe°°°°°
THx
MFG
Xinchen
Kann jemand mir helfen?
Ich habe jetzt ein Marionette mit 8 Sensoren,die an C-Controller angeschlossen sind,gebaut,und an Director(Lingo) mit SerialXtra programmiren.Den Problem ist ,dass ich nicht wissen,wie ich den Name an Lingo Script definieren soll.
Im CCBASIC habe ich den Namen fuer Sensoren schon gegeben:
define sensor1 ad[1]
define sensor2 ad[2]
#loop
print sensor1
print "wert1"
print sensor2
print "wert2"
pause 25
goto loop
Im Lingo habe ich so geschrieben:
on exitFrame me
set theXtra to new( xtra "SerialXtra")
if objectP(theXtra) then
theXtra.OpenPort("COM1")
if theXtra.IsPortOpen() then
theXtra.WriteString("123456")
repeat while theXtra.CharsAvailable () = 0
end repeat
indata = theXtra.ReadString()--von hier bin ich nicht mehr sicher ob es richtig ist oder nicht...
put indata
if indata = 64 then
sensor = theXtra.readNumber()
if sensor = 1 then
puppetsound 1 "a"
soundPlayed=1
end if
if sensor = 2 then
puppetsound 1 "b"
soundPlayed=2
end if
if sensor = 0 then
soundPlayed = 0
puppetsound 1, 0
end if
end if
theXtra = 0
end if
end if
end
Gibt es jemand mit diesem Teil Erfahrungen hat?Ich brauche Hilfe°°°°°
THx
MFG
Xinchen