;***************************************
;transmisor 16f84a con potenciometro *
;***************************************
include "modedefs.bas"
trisb=0
portb=0
pos var byte
dim1 var portb.1
mainloop:
Pot porta.0,127,pos
pos = pos / 2 + 100
serout dim1,T2400,[6,6,"ok",#pos]
Goto mainloop
End'*******************************************************
'receptor 16f84a serie *
'*******************************************************
include "modedefs.bas"
trisa=1
porta=1
trisb=0
portb=0
pos var byte 'aquí guardamos el valor de la posición
dimin var porta.0
dim var portb.0
pulsout servo,150
principal:
serin dimin,T2400,100,reset,#pos 'función serin en porta.0
pos = pos
pulsout dim,pos
serout portb.1,T2400,[6,6,"ok",#pos]
goto principal
reset:
pulsout dim,150 ; aquí sera el punto medio de iluminación
goto principal
además quisiera saber sí puedo enviar la información de varios potenciometros al mismo receptor y como lo puedo hacer como seria la reforma del código emisor y como seria la reforma del código receptor pues me gustaría controlar tambien por ejemplo las cortinas y el ventilador; les agradezco de antemanoPROGRAMA CONTADOR DE PULSOS DE UN MEDIDOR DE FLUJO
DEFINE LCD_BITS 4
Define LCD_DREG PORTC
Define LCD_DBIT 4
Define LCD_RWREG PORTD
Define LCD_RWBIT 6
Define LCD_RSREG PORTD
Define LCD_RSBIT 5
Define LCD_EREG PORTD
Define LCD_EBIT 7
DEFINE ADC_BITS 8
define OSC 4
define ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 30
;TRISD = %00000000
TRISB = %01001111
TRISA = 255
ADCON1 = 2
caubaj var byte
caumini var byte
volt var byte
oxbajo var byte
x var byte
dato var word
;pulsos var byte
datoE var byte
datoS var byte
botsubir var portb.1
botbajar var portb.2
enter var portb.3
led var portd.3
alerta var PORTD.2
Qnormal var PORTD.0
Qbaja var PORTD.1
sensor1 var portb.6
frec var byte
bandera var bit
frec = 10
eeprom 0,[5,10,1,90] ;contenido inicial de la EEPROM
inicio: ;3 parpadeos del led indica que funciona
for x =1 to 3
HIGH led
pause 200
low led
pause 200
next
READ 0, caubaj ;lee la EEPROM 0 y lo guarda en tempbaj
READ 1, caumini ;lee la EEPROM 1 y lo guarda en tempalt
read 2, volt
read 3, oxbajo
medir:
pwm PORTC.2,FREC,100
low led
bandera = 0
count PORTC.1,125,dato
adcin 1, datoE
adcin 2, datoS
Lcdout $fe, 1 ,"Q.mi Q.lt/m Q.ma"
dato = dato*2
datoE = datoE/2
datoS = datoS/2
Lcdout $fe,$c6,DEC dato
Lcdout $fe,$c0,DEC caubaj
Lcdout $fe,$cc,DEC caumini
lcdout $fe,$d5,dec oxbajo,"%"
lcdout $fe,$9f,"V"
lcdout $fe,$90,"Oent":lcdout $fe,$95,"Oref":lcdout $fe,$9a,"Osal"
lcdout $fe,$d0,DEc datoE,"%":Lcdout $fe,$da,dec datoS,"%"
lcdout $fe,$de,dec volt
if sensor1 = 1 then medir
for x = 1 to 3
if enter = 0 then grabar1a
pause 10
next
if botsubir = 0 then SUBIR
if botbajar = 0 then BAJAR
if datoS < Oxbajo then high alerta
if datoS > oxbajo then low alerta
if caubaj > dato then disminuir
if caumini > dato > caubaj then mantener
goto medir
aviso:
high led
goto medir
mantener:
low Qbaja: high Qnormal
if frec > (volt*10) then medir
if bandera = 1 then medir
high led
bandera = 1
frec = frec + 10
goto medir
disminuir:
low Qnormal: high Qbaja
if botsubir = 0 then SUBIR
if frec < (volt*7) then medir
if bandera = 1 then medir
high led
bandera = 1
frec = frec - 10
goto medir
SUBIR:
if frec > 249 then aviso
if bandera = 1 then medir
high led
bandera = 1
frec = frec+10
goto medir
BAJAR:
if frec < 11 then aviso
if bandera = 1 then medir
high led
bandera = 1
frec = frec - 10
goto medir
grabar1a:
gosub soltar
grabar1:
Lcdout $fe, 1 ,"Programar Q."
lcdout $fe,$c0,"bajo= ",dec caubaj ,"lt/m"
pause 100
if botbajar = 0 then restar1
if botsubir = 0 then sumar1
if enter = 0 then grabarA
goto grabar1
restar1:
gosub soltar ;programa antirrebote de tecla
if caubaj < 1 then grabar1
caubaj = caubaj - 1
goto grabar1
sumar1:
gosub soltar
if caubaj > 24 then grabar1
caubaj = caubaj + 1
goto grabar1
grabarA:
gosub soltar
write 0, caubaj ;escribir en la dirección 0 de la EEPROM
grabar2:
Lcdout $fe, 1 ,"Programar Q."
lcdout $fe,$c0,"alto= ",dec caumini ,"lt/m"
pause 100
if botbajar = 0 then restar2
if botsubir = 0 then sumar2
if enter = 0 then grabarB
goto grabar2
restar2:
gosub soltar
if caumini < 5 then grabar2
caumini = caumini - 1
goto grabar2
sumar2:
gosub soltar
if caumini > 24 then grabar2
caumini = caumini + 1
goto grabar2
grabarB:
gosub soltar
write 1, caumini ;escribir en la dirección 1 de la EEPROM
grabar3:
Lcdout $fe, 1 ,"Programar Volt."
lcdout $fe,$c0,"Volt= ",dec vOLT ,"V"
pause 100
if botbajar = 0 then restar3
if botsubir = 0 then sumar3
if enter = 0 then grabarC
goto grabar3
restar3:
gosub soltar ;programa antirrebote de tecla
if Volt < 1 then grabar3
Volt = Volt - 1
goto grabar3
sumar3:
gosub soltar
if Volt > 23 then grabar3
Volt = Volt + 1
goto grabar3
grabarC:
gosub soltar
write 2,Volt
grabar4:
Lcdout $fe, 1 ,"Programar O."
lcdout $fe,$c0,"O.bajo= ",dec oxbajo,"%"
pause 100
if botbajar = 0 then restar4
if botsubir = 0 then sumar4
if enter = 0 then grabarD
goto grabar4
restar4:
gosub soltar ;programa antirrebote de tecla
if oxbajo < 1 then grabar4
oxbajo = oxbajo - 1
goto grabar4
sumar4:
gosub soltar
if oxbajo > 99 then grabar4
oxbajo = oxbajo + 1
goto grabar4
grabarD:
gosub soltar
write 3,oxbajo
goto inicio
soltar: ;programa antirrebote de tecla
high led
pause 150
low led
soltar2:
if botbajar = 0 then soltar2
if botsubir = 0 then soltar2
if enter = 0 then soltar2
pause 100
return
end
;*****************************************************
; NOTAS COMPLEMENTARIAS:
; PARTIENDO DE LA BASE PARA UN DAC R-C, TENEMOS QUE:
;Variable nivel PWM - nivel = (Vout * 255) / V.Fuente
;para 1100mV nivel = 55
;para 1000mV nivel = 50
;para 900mV nivel = 45
;para 800mV nivel = 40
;para 700mV nivel = 35
;para 600mV nivel = 30
;para 500mV nivel = 25
;para 400mV nivel = 20
;para 300mV nivel = 15
;para 200mV nivel = 10
;para 100mV nivel = 5
;******************************************************
'PICBASIC PRO program to demonstrate using Timer1 gate in single-pulse mode to capture single pulse event times.
' Description : PICBASIC PRO program to demonstrate using Timer1 gate
' in single-pulse mode to capture single pulse event times.
Device = 16F877A
Xtal = 20
All_Digital true
'Declaration for LCD
Declare LCD_Type = 0 ;LCD is Alpha
Declare LCD_DTPin = PORTD.4 ;LCD data line starting port.pin
Declare LCD_ENPin = PORTD.1 ;LCD EN line
Declare LCD_RSPin = PORTD.0 ;LCD RS line
Declare LCD_Interface = 4 ;LCD 4 line interface
Declare LCD_Lines = 2
Dim Pval As Word ' Holds pulse time from Timer1
GoSub Init ' Hardware initialization routine
'Clear
mainloop:
PORTB.4 = 1 ' Toggle RB4 on Timer1 gate pin high
PORTB.4 = 0 ' Toggle Timer1 gate pin low to stop Timer1
Pval.LowByte = TMR1L ' Read Timer1 value
Pval.HighByte = TMR1H
Print At 2,1, "pulsos",Dec Pval
' GoSub Reset1 ' Clear Timer1 count & reset T1 gate
DelayMS 500
GoTo mainloop ' Do it forever
Reset1:
TMR1H = 0
TMR1L = 0
Return
Init:
TRISC.0=1
TRISB = %00100000 ' RB5 = input for T1 gate, RB4 = output to gate
PORTB = 0 ' Hold T1 gate low at start
T1CON = %00000011 ' Timer1 on, incremento por tocki
Return
End
Aquí adjunto un proyecto con lo que deseas hacer.
hola a todos, les cuento que ando haciendo un dimmer para la sala de TV a control remoto y tengo estos 2 códigos:
para el transmisor el código es:
Código:;*************************************** ;transmisor 16f84a con potenciometro * ;*************************************** include "modedefs.bas" trisb=0 portb=0 pos var byte dim1 var portb.1 mainloop: Pot porta.0,127,pos pos = pos / 2 + 100 serout dim1,T2400,[6,6,"ok",#pos] Goto mainloop End
y para el receptor el código es:
la verdad son códigos creados por el compañero D@rio pero con algunas reformas pero no me quieren funcionar, a ver sí me pueden ayudar y les encuentran los erroresCódigo:'******************************************************* 'receptor 16f84a serie * '******************************************************* include "modedefs.bas" trisa=1 porta=1 trisb=0 portb=0 pos var byte 'aquí guardamos el valor de la posición dimin var porta.0 dim var portb.0 pulsout servo,150 principal: serin dimin,T2400,100,reset,#pos 'función serin en porta.0 pos = pos pulsout dim,pos serout portb.1,T2400,[6,6,"ok",#pos] goto principal reset: pulsout dim,150 ; aquí sera el punto medio de iluminación goto principal
Hola Rey
