Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Prog Probleme Kategorie: Programmierung Basic (von Swen - 1.02.2006 22:28)

Swen nutzt:  Micro

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

Bisherige Antworten:

Re: Prog Probleme (von Carsten - 2.02.2006 10:14)