Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature currently requires accessing the site using the built-in Safari browser.
PARTE 7.2 DEL TUTORIAL , para inquietudes , sugerencias , criticas , rechazos ..... desde este foro
Device = 18F4550
Xtal = 20
'*****Aparametro ADC******
TRISA=%000001 '
ADCON1 = %10000010
Adin_Res 10
Adin_Tad FRC
Adin_Stime 50 '
Dim HAM_DEGER As Word
Dim VOLT As Float
'*****asignacion GLCD******
LCD_DTPort = PORTB
LCD_RSPin = PORTD.5
LCD_ENPin = PORTD.1
LCD_RWPin = PORTD.4
LCD_CS1Pin = PORTD.2
LCD_CS2Pin = PORTD.3
LCD_Type = GRAPHIC
Internal_Font = On
Font_Addr = 0
GLCD_EXTERNAL_PRINT = PPRINT
Input PORTA.0
Dim raw As Word
Dim v As Float
Print Cls
Loop:
raw=ADIn 0
Print At 1,1,"Raw:", Dec4 raw
v=(5/1023)* raw
v=v*1000
Print At 2,1, Dec1 v ,"mv"
v=v/10
Print At 2,9,"Tem:", Dec v ,"C"
DelayMS 2000
GoTo Loop
hola a todos los del foro, si alguien pudiera ayudarme, el problema que tengo es el siguiente: estoy ralizando transmision y recepcion de datos por usb con proton ide y visual basic 6.0, pero solo logro realizar el envio de datos del visual al pic o solamente del pic a la pc, pero no logro ambas al mismo tiempo.
Hola biker2k3,
Me parece que en las primeras páginas hay un proyecto de un barco rc que utiliza serin-serout pero con pic 16f877, funciona muy bien pues yo lo probé, te recomiendo que pruebes con otro pic para descartar que el problema fisico y sino, entonces coméntalo, recuerda también checar la ayuda de proton que trae muchos ejemplos.
Suerte.
que tal foro, bueno pues tengo una duda con respecto al manejo de botones, lo que quiero hacer es mostrar en leds del puerto b del pic16f887 los numeros bInarios del 0 a 255 cada que pulse un boton, pero mi problema es qu con pulsar el boton los numeros empiezan a cambiar rapidamente y si meto un delayms 500 y dejo pulsado en boton, cada medio segundo el led avanza.
lo que quiero es que cada que pulse el boton avanse un solo numero
Device = 16F887
XTAL=8
ALL_DIGITAL=1
'*********************************************
Symbol CONTADOR = PORTA.1
'*********************************************
Input PORTA.1
Output PORTB
Low PORTB
Dim X As Byte
'*********************************************
X=0
'*********************************************
INICIO:
If CONTADOR = 0 Then
delayms 500 'es lo que para mi no esta bien
Next X
PORTB=X
EndIf
Goto INICIO
ok claro que funciono, bueno hay algo que me parese interesante y que yo no sabia, cuando escribes:
If CONTADOR = 0 Then GoTo INICIO
1.-ya no es nesesario poner el endif abajo??
2.-y cuando escribes If CONTADOR = 0 Then GoTo INICIO solo ejecuta el goto inicio, es decir solo lo que esta a la derecha?