
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Also erstmal solltest Du Dein Programm zum Test auf einen Port verkĂźrzen, 1km Quelltext liest niemand gerne durch. Warum die Ports flackern, findest Du evtl. selbst heraus: Nach Deiner Kommentarzeile "' *** Port 3" wird z.B. Bitport3 3x direkt hintereinander auf evtl. verschiedene Zustände gesetzt. die Verarbeitung jeder dieser Kommandozeilen dĂźrfte nur einige Millisekunden dauern.. Mach es Dir klar, indem Du PAUSE-Befehle zwischen die Zeilen schreibst oder etwas ausgeben läĂt (print, Hyperterminal usw.) GruĂ Carsten > Brauche Hilfe bei der Programmierung!! Hatte eigentlich in Plus programmiert aber nach der Ăbersetzung in Basic flackern die Ports! Hat wer ne Idee?? Bin Neuling was das programmieren angeht! > M.f.g Swen > > DEFINE wordvar3 WORD[3] 'r/w > > DEFINE bytevar1 BYTE[1] 'r/w > DEFINE bytevar2 BYTE[2] 'r/w > DEFINE bytevar3 BYTE[3] 'r/w > DEFINE bytevar10 BYTE[10] 'r/w > > DEFINE bitvar17 BIT[17] 'r/w > DEFINE bitvar30 BIT[30] 'r/w > DEFINE bitvar31 BIT[31] 'r/w > DEFINE bitvar33 BIT[33] 'r/w > > DEFINE bitport1 PORT[1] 'w > DEFINE bitport2 PORT[2] 'w > DEFINE bitport3 PORT[3] 'w > DEFINE bitport4 PORT[4] 'w > DEFINE bitport5 PORT[5] 'r > > > bytevar1=0 > GOTO adr30 > #adr12 > bytevar3=bytevar2 > RETURN > > #adr17 > bytevar1=bytevar1+16 > PAUSE 5 > RETURN > > #adr30 > ' *** Port 3 > bitport3=(bytevar1=96) OR (bytevar1=144) OR (bytevar1=32) OR (bytevar1=80) OR (bytevar1=160) OR (bytevar1=176) OR (bytevar1=192) OR (bytevar1=224) > bitport3=(((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) OR (((bytevar3<=220) AND(bytevar3>=202)) AND bitvar33) OR (((bytevar3>=168) AND (bytevar3<=186)) AND bitvar33) OR (((bytevar3>=83) AND(bytevar3<=101)) AND bitvar33) > bitport3=(((bytevar3>=100) AND (bytevar3<=118)) AND bitvar33) OR (((bytevar3>=34) AND (bytevar3<=50)) AND bitvar33) OR (((bytevar3>=151) AND (bytevar3<=169)) AND bitvar33) OR (((bytevar3>=185) AND (bytevar3<=203)) AND bitvar33) > ' *** Port 1 > bitport1=((bytevar1=64) OR (bytevar1=112) OR (bytevar1=160) OR (bytevar1=192) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) OR (bytevar1=144) OR (bytevar1<=15) OR (bytevar1=208) OR (bytevar1=224)) > bitport1=(((bytevar3<=16) AND (bytevar3>=0)) AND bitvar33) OR (((bytevar3>=68) AND (bytevar3<=84)) AND bitvar33) OR (((bytevar3>=151) AND (bytevar3<=169)) AND bitvar33) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) > bitport1=(((bytevar3>=219) AND (bytevar3<=237)) AND bitvar33) OR (((bytevar3>=117) AND (bytevar3<=135)) AND bitvar33) OR (((bytevar3<=220) AND (bytevar3>=202)) AND bitvar33) OR (((bytevar3>=168) AND (bytevar3<=186)) AND bitvar33) > Bitport1=(((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) > ' *** Port 4 > bitport4=(bytevar1=112) OR (bytevar1=128) OR (bytevar1=96) OR (bytevar1=48) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) OR (bytevar1=176) OR (bytevar1=192) OR (bytevar1=208) OR (bytevar1=224) > bitport4=(((bytevar3>=51) AND (bytevar3<=67)) AND bitvar33) OR (((bytevar3>=219) AND (bytevar3<=237)) AND bitvar33) OR (((bytevar3>=100) AND (bytevar3<=118)) AND bitvar33) OR (((bytevar3>=117) AND (bytevar3<=135)) AND bitvar33) > bitport4=(((bytevar3<=220) AND (bytevar3>=202)) AND bitvar33) OR (((bytevar3>=185) AND (bytevar3<=203)) AND bitvar33) OR (((bytevar3>=134) AND (bytevar3<=152)) AND bitvar33) > ' *** Port 2 > bitport2=(bytevar1=176) OR (bytevar1=160) OR (bytevar1=208) OR (bytevar1=224) OR (bytevar1=16) OR (bytevar1=64) OR (bytevar1=128) OR (bytevar1=80) OR (((bytevar3>=83) AND (bytevar3<=101)) AND bitvar33) > bitport2=(((bytevar3>=134) AND (bytevar3<=152)) AND bitvar33) OR (((bytevar3>=68) AND (bytevar3<=84)) AND bitvar33) OR (((bytevar3>=17) AND (bytevar3<=33)) AND bitvar33) OR (((bytevar3>=168) AND (bytevar3<=186)) AND bitvar33) > bitport2=(((bytevar3>=219) AND (bytevar3<=237)) AND bitvar33) OR (((bytevar3>=185) AND (bytevar3<=203)) AND bitvar33) OR (((bytevar3<=255) AND (bytevar3>=236)) AND bitvar33) > ' *** Zufall setzten > bitvar33=(bytevar1>=225) AND (bytevar1<=255) > ' *** Zufall > wordvar3=(65368+wordvar3)+RAND > bytevar2=((((wordvar3 MOD 350)*1515)/6)+1110) MOD 255 > ' *** Zufall Zähler aufrufen > bytevar10=TIMER > bitvar17=bytevar10=0 > IF bitvar17 THEN GOSUB adr12 > ' *** Zähler > bitvar30=bitport5 > IF bitvar31>bitvar30 THEN GOSUB adr17 > bitvar30=bitvar31 > GOTO adr30 > END > |
| Antwort schreiben |