Ciao a tutti,

vorrei pilotare un HEF4094 cercando di usare meno token possibili. pensavo di usare la funzione FOR/NEXT per codificare convertire il numero in Binario e per pilotare il 4094.

'PPTEA fmr 4.2.4
PRAGMA EXTENDED4K_EEPROM
PRAGMA ADVANCED
SETIO=&H3002F

 CONSTANT rs_ck=6'clok
 CONSTANT rs_d=7'data
 CONSTANT stRobe_=8'strobe
:inizio

CCC++
BIT_TEST=CCC
VALORE=""
BIT_NUMERICO=128
FOR DIGIT=8 TO 1 STEP -1
BIT_PWM="0"
IF BIT_TEST>=BIT_NUMERICO THEN
BIT_PWM="1"
BIT_TEST=BIT_TEST-BIT_NUMERICO
ENDIF

VALORE=BIT_PWM&VALORE
BIT_NUMERICO=BIT_NUMERICO/2
NEXT DIGIT
IF CCC=128 THEN 
CLR CCC
WAITS 5
ENDIF
USBOUT=CCC&"  "&valore&CR_LF
FOR L=8 TO 1 STEP -1
BIT_COLONNA=MID(VALORE,L,1)
OUTBIT(RS_D)=BIT_COLONNA

OUTBIT(RS_CK)=1

OUTBIT(RS_CK)=0
NEXT L

OUTBIT(RS_D)=0

OUTBIT(STROBE_)=1

OUTBIT(STROBE_)=0

GOTO :inizio

abbi pazienza, vedo ora il post... fammi pensare...

IMHO, lo farei così:

 

PRAGMA ADVANCED
SETIO=&H3002F

CONSTANT RS_CK=6'clok
CONSTANT RS_D=7'data
CONSTANT STROBE=8'strobe

:MAIN_LOOP
	DECIMAL=15
	WHILE DECIMAL<256
		CALL HEF4094_OUT(DECIMAL)
		USBOUT=DECIMAL &" "&HEF4094_OUT & CR_LF	'ELIMINABILE
		DECIMAL++
	LOOP	
	GOTO :MAIN_LOOP


SUB HEF4094_OUT(DEC_VAL)
	HEF4094_OUT=""						'ELIMINABILE
	COUNT=0
	WHILE DEC_VAL>=1
		COUNT++
		BIN_VAL=DEC_VAL MOD 2
		OUTBIT(RS_D)=BIN_VAL
		OUTBIT(RS_CK)=1
		OUTBIT(RS_CK)=0
		IF BIN_VAL=1 THEN					'ELIMINABILE
			HEF4094_OUT=TRUE & HEF4094_OUT	'ELIMINABILE
		ELSE 'ELIMINABILE
			HEF4094_OUT=FALSE & HEF4094_OUT	'ELIMINABILE
		ENDIF 'ELIMINABILE
		DEC_VAL-=BIN_VAL
		DEC_VAL/=2
	LOOP
	OUTBIT(RS_D)=0
	FOR DEC_VAL=7 TO COUNT STEP -1
		OUTBIT(RS_CK)=1
		OUTBIT(RS_CK)=0
	HEF4094_OUT=FALSE & HEF4094_OUT			'ELIMINABILE
	NEXT DEC_VAL
	OUTBIT(STROBE)=1
	WAITMS=1
	OUTBIT(STROBE)=0
SUBEND

MarkoZaKKA, grazie

marpad

E di cosa?... è tutto da provare in hardware, vedi se funziona e facci sapere la teoria e la pratica sono cose diverse...