PIC BASIC del PIC Simulator IDE

[Fer_TACA]

Pues yo no aprecio el cambio, solo veo que va muy deprisa con la velocidad de simulacion: ultimate y ultra-fast, pero va igual de rapido con que sin el define.

F

[dogflu66]

Imagino que compilaste (con la tercera opción) el código después de cada cambio.

[Fer_TACA]

Efectivamente compile con la tercera opcion

Fermin

[RURE]

Hola grupo,  es mi primer post (perdonadme si hago algo mal), estoy trapicheando con el basic del pic simulator ide y tengo un problema, necesito escribir una variable Long en el Lcd y el comando Lcdout #, lo máximo que me deja poner es un Word, hay alguna manera de solucionarlo?, he intentado solucionarlo con Lcdout # x.HW, #.LW, pero me da (como es lógico) los valores Word independientes.

Gracias de antemano y Un Saludo.

[dogflu66]

Código

GeSHi (freebasic):
'***PARA SIMULACION, PIC16F877
'IMPRIMIR UNA VARIABLE LONG EN EL LCD
Define ADC_CLOCK = 3  'default value is 3
Define ADC_SAMPLEUS = 10  'default value is 20
Define LCD_BITS = 8  'allowed values are 4 and 8 - the number of data interface lines
Define LCD_DREG = PORTB
Define LCD_DBIT = 0  '0 or 4 for 4-bit interface, ignored for 8-bit interface
Define LCD_RSREG = PORTD
Define LCD_RSBIT = 1
Define LCD_EREG = PORTD
Define LCD_EBIT = 3
Define LCD_RWREG = PORTD  'set to 0 if not used, 0 is default
Define LCD_RWBIT = 2  'set to 0 if not used, 0 is default
Define LCD_COMMANDUS = 2000  'delay after LCDCMDOUT, default value is 5000
Define LCD_DATAUS = 50  'delay after LCDOUT, default value is 100
Define LCD_INITMS = 2  'delay used by LCDINIT, default value is 100
'the last three Define directives set the values suitable for simulation; they should be omitted for a real device
 
Dim a As Long
Dim aux_a As Long
Dim a1 As Byte
Dim a2 As Word
Dim a3 As Word
AllDigital
Lcdinit 1  'initialize LCD module; cursor is blinking
Lcdcmdout LcdClear
loop:
	a = 1234567890
 
	aux_a = a / 100000000
	a1 = aux_a
	aux_a = aux_a * 100000000
	a = a - aux_a
 
	aux_a = a / 10000
	a2 = aux_a
	aux_a = aux_a * 10000
 
	a3 = a - aux_a
 
	Lcdcmdout LcdLine2Home  'set cursor at the beginning of line 2
	Lcdout #a1, #a2, #a3  'formatted text for line 2
End  

Este es el único modo que tengo a mano, para algo más simple tendrás que buscar.

"a" contiene el numero para transformar.

Este número se divide en grupos de 4 cifras de derecha a izquierda, de esta forma
el número mayor será 9999.

Se declaran tres variables que contendrán las cifras a imprimir, a1 as byte, a2 as Word y a3 as Word.

Para extraer los dígitos del primer grupo se divide el numero que contiene "a" por una potencia de 10,
con tantos ceros como dígitos tienen los otros dos grupos .

Se pasa el valor a "a1".

Se resta a "a" los digitos extraidos añadiendo los ceros correspondientes y se carga "a" el valor pendiente.

Se repite la operación hasta quedarnos sin dígitos.

[RURE]

Gracias dogflu66 acabo de llegar a casa, mañana mismo lo probaré a ver que pasa.
Un saludo desde Albacete.

[RURE]

Hola otra vez, todo solucionado dogflu66, os explico el proyecto. Hay pululando por la red  el proyecto de un receptor basado en un sintonizador philips y un PIC18F4550 realizado por
Mario Sacco, como sólo lo necesito para la banda alta de VHF y en saltos de 50Khz, me propuse meterlo en un PIC16F628A. El código en basic me daba muchos errores y tuve que
remodelarlo al basic del Pic Simulator ide. Aquí os lo dejo, se aceptan criticas y sugerencias.
Un Saludo

Código

GeSHi (freebasic):
AllDigital  'Todos los puertos digitales
'---------- CONFIGURACION PINES LCD ----------
Define LCD_BITS = 4  'Bus de datos de 4 bits
Define LCD_DREG = PORTB  'Bus de datos puerto B
Define LCD_DBIT = 0  'Bus de datos, los 4 menos significativos
Define LCD_RSREG = PORTB  'Puerto del RS
Define LCD_RSBIT = 4  'Bit del RS
Define LCD_EREG = PORTB  'Puerto del E
Define LCD_EBIT = 5  'Bit del E
Define LCD_RWREG = PORTB  'Puerto del RW
Define LCD_RWBIT = 6  'Bit del RW
Define LCD_COMMANDUS = 100  'Tiempo de espera despues de un comand
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato
Define LCD_INITMS = 10  'Tiempo de espera despues de inicializar
 
'----------CONFIGURACION I2C----------
Symbol sda = PORTA.0  'bit conexien SDA
Symbol scl = PORTA.1  'bit conexien SCL
 
'---------- VARIABLES----------
Dim bb As Byte  'Byte para enviar al sintonizador (VHF en banda alta)
Dim adbw As Byte  'Byte de direccien del sintonizador
Dim cb As Byte  'Byte de control del sintonizador (pasos de 50 Khz)
Symbol mas = PORTA.2  'Bit para subir frecuencia y memorias
Symbol menos = PORTA.3  'Bit para bajar frecuencia y memorias
Symbol mem = PORTA.4  'Bit para memorizar
Symbol conmu = PORTA.5  'Bit para conmutar entre oscilador y memorias
Dim modo As Bit  'Variable para commutar entre oscilador y memoria
Dim divider As Word  'Frecuencia a cargar en el oscilador local del sintonizador
Dim frec As Long  'Frecuencia que se muestra en el LCD
Dim aux_frec As Long  'Variables auxiliares
Dim frec1 As Byte  'para calcular la frecuencia
Dim frec2 As Word  'Gracias a dogflu66, el Lcdout #, no admite un Long
Dim memo As Byte  'Variable para cargar el numero de memoria
 
'----------CONFIGURACION DE INICIO----------
bb = 2  'VHF en banda alta
adbw = 194  'Dirección del sintonizador
cb = 200  'Pasos de 50Khz
Read 126, divider.HB  'He cogido  los dos ultimos bytes de la memoria
Read 127, divider.LB  'del micro para guardar frecuencia
memo = 1  'Comienzo en 1
modo = 0  'Comienzo en oscilador
'----------INICIO DEL PROGRAMA----------
Lcdinit  'inicializa el lcd sin cursor
inicio:
If conmu = 1 Then Toggle modo  'Si se pulsa conmuto entre oscilador y memoria
If modo = 0 Then  'Si esta a cero
Goto oscilador  'Voy a oscilador
Else  'si no
Goto memoria  'voy a memoria
Endif
 
'---------- MODO OSCILADOR ----------
oscilador:
Lcdcmdout LcdLine2Pos(13)
Lcdout " VFO"  'Muestro en LCD que estoy en modo oscilador
If mem = 1 Then Gosub guardar  'Si se pulsa mem guardo en memoria la frecuencia
If mas = 1 Then divider = divider + 1  'Si se pulsa subo frecuencia
If divider > 8248 Then divider = 3580  'Si llego a tope vuelvo al principio
If menos = 1 Then divider = divider - 1  'Si se pulsa bajamos la frecuencia
If divider < 3580 Then divider = 8248  'Si llego al primcipio salto al final
Write 126, divider.HB  'Guardo la frecuencia en los dos
Write 127, divider.LB  'ultimos bytes de la ram
Gosub sintonizador  'Mando la frecuencia frecuencia al sintonizador
Gosub display  'La muestro en el LCD
Goto inicio  'Comienzo de nuevo
 
'---------- MODO MEMORIA ----------
memoria:
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:  "  'Limpio el numero de memoria
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Y lo muestro
If mas = 1 Then memo = memo + 1  'Si se pulsa subo memoria
If memo > 62 Then memo = 1  'Si  llega a tope vuelvo al principio
If menos = 1 Then memo = memo - 1  'Si se pulsa bajo memoria
If memo < 1 Then memo = 62  'Si llega al principio vuelvo al final
If mem = 0 Then Goto memoria  'Si no se pulsa se queda titilando
memo = memo * 2  'Calculo la posicion
memo = memo - 1  'de la memoria ram
Read memo, divider.HB  'Leo el primer byte
memo = memo + 1  'calculo posicion del segundo byte
Read memo, divider.LB  'Lo leo
memo = memo / 2  'Dejo el numero de memoria como estaba
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Muestro numero de memoria
Gosub sintonizador  'Mando frecuencia obtenida al sintonizador
Gosub display  'La muestro en el LCD
Goto inicio  'Comienzo de nuevo
End                                               
 
'---------- RUTINA PARA MOSTRAR FREUCENCIA ----------
display:
Lcdcmdout LcdLine1Home
Lcdout "FRECUENCIA"
frec = divider * 50  'Conseguimos la frecuencia multiplicando por el salto
frec = frec - 42500  'en Khz y restando la frecuencia intermedia
aux_frec = frec / 10000  'Aqui es donde interviene dogflu66
frec1 = aux_frec  'muchas gracias, como solo necesitaba 6 digitos
aux_frec = aux_frec * 10000  'he recortado un poco el codigo
frec2 = frec - aux_frec
Lcdcmdout LcdLine2Home
Lcdout #frec1, #frec2, "Khz"  'Muestro la frecuencia en el LCD
Return                                            
 
'---------- RUTINA PARA GUARDAR MEMORIA ----------
guardar:
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:  "  'Limpio el numero de la memoria
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Lo muestro
If mas = 1 Then memo = memo + 1  'Si pulsamos sube memoria
If memo > 62 Then memo = 1  'Si llego a tope paso a 1
If menos = 1 Then memo = memo - 1  'Si pulsamos bsja memoria
If memo < 1 Then memo = 62  'Si retrocedo paso a la ultima
If mem = 0 Then Goto guardar  'Titila si no pulsamos guardar
memo = memo * 2  'Calculo la posicion
memo = memo - 1  'en la memoria ram
Write memo, divider.HB  'Escribo el primer byte
memo = memo + 1  'Calculo posicion del segundo byte
Write memo, divider.LB  'lo escribo
memo = memo / 2  'Dejo el numero como estaba
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Muestro numero de memoria en el LCD
Return                                            
 
'---------- RUTINA PARA ENVIAR FRECUENCIA A SINTONIZADOR----------
sintonizador:
I2CPrepare sda, scl  'Preparamos el bus I2C
I2CStart  'Lo abrimos
I2CSend adbw  'Mandamos direccion del sintonizador
I2CSend divider.HB  'Mandamos el primer byte de frecuencia
I2CSend divider.LB  'Mandamos el segundo byte
I2CSend cb  'Mandamos byte de control
I2CSend bb  'Mandamos Banda
I2CStop  'Cerramos bus
Return                     

Pdta: He quitado todos los waitms para la simulación

[dogflu66]

Hola RURE, me es difícil seguir la secuencia de tu programa ya que no cumple con una estructura tradicional de programación. No veo clara la rutina principal donde se reparten las tareas.
Usas los saltos tipo "goto" que son muy difíciles de seguir. De todas formas es aconsejable partir de un programa simplificado dando órdenes sencillas al integrado hasta estar seguros de que responde bien.

[RURE]

Hola dogflu66, como ya dije soy un pequeño aficionado a esto, la secuencia del programa es esta:

- Iniciamos chequeando el pulsador de cambio entre modo oscilador y modo memoria.
- Si estamos en modo oscilador, chequeamos los pulsadores de subir, bajar o memorizar, guardamos la frecuencia en los dos últimos bytes de la ram (sólo para cuando conectemos el receptor volver a la última frecuencia que estuvimos), la mandamos al sintonizador, la mostramos y volvemos al inicio.
- Si estamos en modo memoria chequeamos los pulsadores de subir y bajar, recuperamos la frecuencia de la ram (previamente guardada con la rutina guardar), la mandamos al sintonizador, la mostramos y volvemos al inicio.

eso es todo.

Código:

AllDigital  'Todos los puertos digitales
'---------- CONFIGURACION PINES LCD ----------
Define LCD_BITS = 4  'Bus de datos de 4 bits
Define LCD_DREG = PORTB  'Bus de datos puerto B
Define LCD_DBIT = 0  'Bus de datos, los 4 menos significativos
Define LCD_RSREG = PORTB  'Puerto del RS
Define LCD_RSBIT = 4  'Bit del RS
Define LCD_EREG = PORTB  'Puerto del E
Define LCD_EBIT = 5  'Bit del E
Define LCD_RWREG = PORTB  'Puerto del RW
Define LCD_RWBIT = 6  'Bit del RW
Define LCD_COMMANDUS = 100  'Tiempo de espera despues de un comand
Define LCD_DATAUS = 50  'Tiempo de espera despues de enviar un dato
Define LCD_INITMS = 10  'Tiempo de espera despues de inicializar

'----------CONFIGURACION I2C----------
Symbol sda = PORTA.0  'bit conexien SDA
Symbol scl = PORTA.1  'bit conexien SCL

'---------- VARIABLES----------
Dim bb As Byte  'Byte para enviar al sintonizador (VHF en banda alta)
Dim adbw As Byte  'Byte de direccien del sintonizador
Dim cb As Byte  'Byte de control del sintonizador (pasos de 50 Khz)
Symbol mas = PORTA.2  'Bit para subir frecuencia y memorias
Symbol menos = PORTA.3  'Bit para bajar frecuencia y memorias
Symbol mem = PORTA.4  'Bit para memorizar
Symbol conmu = PORTA.5  'Bit para conmutar entre oscilador y memorias
Dim modo As Bit  'Variable para conmutar entre oscilador y memoria
Dim divider As Word  'Frecuencia a cargar en el oscilador local del sintonizador
Dim frec As Long  'Frecuencia que se muestra en el LCD
Dim aux_frec As Long  'Variables auxiliares
Dim frec1 As Word  'para calcular la frecuencia
Dim frec2 As Word  'Gracias a dogflu66, el Lcdout #, no admite un Long
Dim memo As Byte  'Variable para cargar el numero de memoria

'----------CONFIGURACION DE INICIO----------
bb = 2  'VHF en banda alta
adbw = 194  'Dirección del sintonizador
cb = 200  'Pasos de 50Khz
Read 126, divider.HB  'He cogido  los dos ultimos bytes de la memoria
Read 127, divider.LB  'del micro para guardar frecuencia
memo = 1  'Comienzo en 1
modo = 0  'Comienzo en oscilador
Lcdinit  'inicializa el lcd sin cursor

'----------INICIO DEL PROGRAMA----------
inicio:
If conmu = 1 Then Toggle modo  'Si se pulsa conmuto entre oscilador y memoria
If modo = 0 Then  'Si esta a cero
Goto oscilador  'Voy a oscilador
Else  'si no
Goto memoria  'voy a memoria
Endif

'---------- MODO OSCILADOR ----------
oscilador:
Lcdcmdout LcdLine2Pos(13)
Lcdout " VFO"  'Muestro en LCD que estoy en modo oscilador
If mem = 1 Then Gosub guardar  'Si se pulsa mem guardo en memoria la frecuencia
If mas = 1 Then divider = divider + 1  'Si se pulsa subo frecuencia
If divider > 8248 Then divider = 3580  'Si llego a tope vuelvo al principio
If menos = 1 Then divider = divider - 1  'Si se pulsa bajamos la frecuencia
If divider < 3580 Then divider = 8248  'Si llego al primcipio salto al final
Write 126, divider.HB  'Guardo la frecuencia en los dos
Write 127, divider.LB  'ultimos bytes de la ram
Gosub sintonizador  'Mando la frecuencia al sintonizador
Gosub display  'La muestro en el LCD
Goto inicio  'Comienzo de nuevo

'---------- MODO MEMORIA ----------
memoria:
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:  "  'Muestro en LCD que estoy en modo Memoria
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Y  y el numero de memoria que voy a leer
If mas = 1 Then memo = memo + 1  'Si se pulsa subo memoria
If memo > 62 Then memo = 1  'Si  llega a tope vuelvo al principio
If menos = 1 Then memo = memo - 1  'Si se pulsa bajo memoria
If memo < 1 Then memo = 62  'Si llega al principio vuelvo al final
memo = memo * 2  'Calculo la posicion
memo = memo - 1  'de la memoria ram
Read memo, divider.HB  'Leo el primer byte
memo = memo + 1  'calculo posicion del segundo byte
Read memo, divider.LB  'Lo leo
memo = memo / 2  'Dejo el numero de memoria como estaba
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Muestro numero de memoria
Gosub sintonizador  'Mando frecuencia obtenida al sintonizador
Gosub display  'La muestro en el LCD
Goto inicio  'Comienzo de nuevo
End                                               

'---------- RUTINA PARA ENVIAR FRECUENCIA A SINTONIZADOR----------
sintonizador:
I2CPrepare sda, scl  'Preparamos el bus I2C
I2CStart  'Lo abrimos
I2CSend adbw  'Mandamos direccion del sintonizador
I2CSend divider.HB  'Mandamos el primer byte de frecuencia
I2CSend divider.LB  'Mandamos el segundo byte
I2CSend cb  'Mandamos byte de control
I2CSend bb  'Mandamos Banda
I2CStop  'Cerramos bus
Return                                           
                                           
'---------- RUTINA PARA MOSTRAR FRECUENCIA ----------
display:
Lcdcmdout LcdLine1Home
Lcdout "FRECUENCIA"
frec = divider * 50  'Multiplicamos divider por 50 para obtener la frecuencia
frec = frec - 38900  'Restamos el oscilador local
aux_frec = frec / 1000  'Dividimos frecuencia entre 1000 para obtener
frec1 = aux_frec  'los tres primeros digitos
aux_frec = aux_frec * 1000  'Restamos a frecuencia el valor obtenido
frec2 = frec - aux_frec  'para obtener los siguientes tres digitos
Lcdcmdout LcdLine2Home  'Mostramos el valor obtenido
Select Case frec2  'Esta secuencia es para poner los ceros que faltan
Case < 49  'en los tres ultimos digitos
Lcdout #frec1, "000", "khz"  'Si no lo hago asi, el LCD no muestra nada
Case < 99  'mas que un cero no los tres que se necesitan
Lcdout #frec1, "0", #frec2, "khz"
Case > 99
Lcdout #frec1, #frec2, "Khz"
EndSelect
Return                                           

'---------- RUTINA PARA GUARDAR MEMORIA ----------
guardar:
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:  "  'Limpio el numero de la memoria
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Lo muestro
If mas = 1 Then memo = memo + 1  'Si pulsamos sube memoria
If memo > 62 Then memo = 1  'Si llego a tope paso a 1
If menos = 1 Then memo = memo - 1  'Si pulsamos bsja memoria
If memo < 1 Then memo = 62  'Si retrocedo paso a la ultima
If mem = 0 Then Goto guardar  'Titila si no pulsamos guardar
memo = memo * 2  'Calculo la posicion
memo = memo - 1  'en la memoria ram
Write memo, divider.HB  'Escribo el primer byte
memo = memo + 1  'Calculo posicion del segundo byte
Write memo, divider.LB  'lo escribo
memo = memo / 2  'Dejo el numero como estaba
Lcdcmdout LcdLine2Pos(13)
Lcdout "M:" #memo  'Muestro numero de memoria en el LCD
Return                                           

He tenido que retocar la rutina para mostrar en el LCD, he hecho dos grupos de 3 ( sólo necesito 6 digitos ) y al mostrar el segundo grupo se comía los ceros.

[mat_pic]

Buenos dias... aqui un novato en estos temas. Me puse a estudiar los pics, y me embale con el PIC Simulator IDE.
Pude programar un 16F84, y anduvo todo bien.
Ahora he querido experimentar con un 12F629 y tengo problemas cuando lo quiero grabar. Me dice que hay un problema con el oscilador interno... etc.
Me podran dar una mano. Como debo configurar el Simulator, o el problema lo tengo con el programador??.

Muchas gracias

[ronsolo777]

Hmmmmm.
 al parecer programaste el micro y no registraste cual era el valor de calibracion del clock interno, que viene en los ultimos segmentos de la memoria de este.
por lo general es un valor de la forma 34xx.

antes de programar un micro 12F675/629 hay que leerlo para tener el valor de calibracion del clock interno a 4Mhz y anotarlo en algun lado.

para usar el valor de calibracion debes usar este cdgo que esta en el datasheet.

bsf STATUS, RP0 ;Bank 1
call 3FFh ;Get the cal value
movwf OSCCAL ;Calibrate
bcf STATUS, RP0 ;Bank 0

pd:lee el datasheet

Slds Hugo.

[dogflu66]

Por lo que describes es un aviso del software del programador. Como te indicó ronsolo777, es conveniente leer primero esos micros antes de programarlos para guardar el valor de calibración de casa, que esta en la ultima posición de la memoria de programa o también llamada flash. Te dejo un enlace donde puedes ver todo eso:

http://www.todopic.com.ar/foros/index.php?PHPSESSID=ccfe536794006c3ee590bdb13d6c188f&topic=24123.msg195746#msg195746

http://www.todopic.com.ar/foros/index.php?topic=24123.msg195749#msg195749

[dogflu66]

Dejo un programita con una función que extrae un bit o varios bits de una variable
o constante. Está comentado, así que lo dejo como está, para el que quiera jugar un rato
con él en el simulador del PSI o en la PIC EBasic para el que la tenga.

Código

GeSHi (vb):
Define CONF_WORD = 0x2f10
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8
'NOMBRE:16F88_PicEBasic_JugandoConBit_10
'MICRO: PIC16F88/8Mhz reloj interno
'Versión: 1.0, By COS, 2/10.
'Rutina que extrae el bit o bit´s seleccionados y consecutivos de una variable
'Uso del LCD con bus de datos a 4Bit y sin pin de RW
'************************************************************************************************
'-------------------------------------Puertos del LCD---------------------------------------------
Define LCD_BITS = 4  'indicamos que el bus de datos del LCD será de 4bit
Define LCD_DREG = PORTA  'el bus de datos será el puerto A
Define LCD_DBIT = 0  'el bus de datos serán los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB  'el bit de control RS será del puerto B
Define LCD_RSBIT = 7  'se usara el RB7 como RS
Define LCD_EREG = PORTB  'el bit de control E será del puerto B
Define LCD_EBIT = 6  'se usara el RB6 como E
Define LCD_COMMANDUS = 2000  'Tiempo de espera después de ejecutar un comando del LCD en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera después de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 5  '(50) 'Tiempo de espera después de inicializar el Display, solo se ejecuta una vez en mSeg., trucado para simulación
'------------------------------------------------------------------------------------------------------
Define SIMULATION_WAITMS_VALUE = 1  'suprime los tiempos de espera Waitms, solo activar esta línea en simulación
'------------------------------------Definición de puertos------------------------------------------
ANSEL = 0x00  'los pin I/O digitales (no analógicos)
OSCCON = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
CMCON = 0x07  'comparador a off
TRISA = 0x00  'Puerto A como salidas
TRISB = 0x00  'puerto B como salidas
'------------------------------------Inicio------------------------------------------------------------
Dim valor As Word
valor = %1100000000001101
Lcdinit  'inicializa el LCD sin cursor
WaitMs 500  'pausa para estabilizar
main:  'Inicio bucle principal
	Call getbit(%00001101, 0, 1)  'Extrae el bit 1
	Lcdcmdout LcdLine1Home  'Principio de línea 1
	Lcdout #getbit, " "  'Imprime en decimal
	Call getbit(valor, 15, 14)  'Extrae los bit´s 14 y 15
	Lcdcmdout LcdLine2Home  'Principio de línea dos
	Lcdout #getbit, " "  'Imprime bit en decimal
'Goto main
End                                               
'Extrae los bit indicados hasta 16bit
'numero = constante o variable a extraer los bits
'inibit = constante o variable que indica el límite del bit más significativo
'endbit = constante o variable que indica el bit menos significativo
'Para extraer un solo bit entonces inibit = endbit o inibit = 0.
Function getbit(numero As Word, inibit As Byte, endbit As Byte) As Word
	If inibit < endbit Then inibit = endbit  'Se asegura que inibit >= endbit
	inibit = 15 - inibit  'Numero de lugares a desplazar hacia la izquierda
	endbit = inibit + endbit  'Numero de lugares a desplazar a la derecha
	numero = ShiftLeft(numero, inibit)  'Elimina los bit de más peso
	getbit = ShiftRight(numero, endbit)  'Elimina los bit de menos peso
End Function                                      
 

[dogflu66]

Para el que quiera seguir experimentando con Bits, le dejo un programita que imprime en el LCD el valor de una variable o constante en binario.
La función para extraer los dígitos binarios es la misma que la del ejemplo anterior.

Código

GeSHi (vb):
Define CONF_WORD = 0x2f10
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8
'NOMBRE:16F88_PicEBasic_JugandoConBit_11
'MICRO: PIC16F88/8Mhz reloj interno
'Versión: 1.1, By COS, 2/10, 3/10, PSI v6.83
'Imprime por el lcd en formato binario
'Rutina que extrae el bit o bits seleccionados y consecutivos de una variable
'Uso del LCD con bus de datos a 4Bit y sin pin de RW
'************************************************************************************************
'-------------------------------------Puertos del LCD---------------------------------------------
Define LCD_BITS = 4  'indicamos que el bus de datos del LCD será de 4bit
Define LCD_DREG = PORTA  'el bus de datos será el puerto A
Define LCD_DBIT = 0  'el bus de datos serán los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB  'el bit de control RS será del puerto B
Define LCD_RSBIT = 7  'se usara el RB7 como RS
Define LCD_EREG = PORTB  'el bit de control E será del puerto B
Define LCD_EBIT = 6  'se usara el RB6 como E
Define LCD_COMMANDUS = 2000  'Tiempo de espera después de ejecutar un comando del LCD en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera después de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 5  '(50) 'Tiempo de espera después de inicializar el Display, solo se ejecuta una vez en mSeg., trucado para simulación
'------------------------------------------------------------------------------------------------------
Define SIMULATION_WAITMS_VALUE = 1  'suprime los tiempos de espera Waitms, solo activar esta línea en simulación
'------------------------------------Definición de puertos------------------------------------------
ANSEL = 0x00  'los pin I/O digitales (no analógicos)
OSCCON = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
CMCON = 0x07  'comparador a off
TRISA = 0x00  'Puerto A como salidas
TRISB = 0x00  'puerto B como salidas
'------------------------------------Inicio------------------------------------------------------------
Dim valor As Word
Dim n As Byte
valor = %1100000000001101
Lcdinit  'inicializa el LCD sin cursor
WaitMs 500  'pausa para estabilizar
main:  'Inicio bucle principal
	Lcdcmdout LcdLine1Home  'Principio de línea 1
	Lcdout #valor, " "  'Imprime en decimal
	Lcdcmdout LcdLine2Home  'Principio de línea dos, print bit
	For n = 15 To 0 Step -1  'Contador para seleccionar bit
		Call getbit(valor, 0, n)  'Extrae los bit n
		Lcdout #getbit  'Imprime bit
	Next n
'Goto main
End                                               
'Extrae los bit indicados hasta 16bit
'numero = constante o variable a extraer los dígitos
'inibit = constante o variable que indica el límite del bit más significativo
'endbit = constante o variable que indica el bit menos significativo
'Para extraer un solo bit entonces inibit = endbit o inibit = 0.
Function getbit(numero As Word, inibit As Byte, endbit As Byte) As Word
	If inibit < endbit Then inibit = endbit  'Se asegura que inibit >= endbit
	inibit = 15 - inibit  'Numero de lugares a desplazar hacia la izquierda
	endbit = inibit + endbit  'Numero de lugares a desplazar a la derecha
	numero = ShiftLeft(numero, inibit)  'Elimina los bit de más peso
	getbit = ShiftRight(numero, endbit)  'Elimina los bit de menos peso
End Function                                      
 

[dogflu66]

CODIGO BCD, decimal codificado en binario:

Ahora dejo una función que nos permite extraer los dígitos de forma individual de un número, ya sea para representarlos en display de 7segmentos, o poder programar un dispositivo de temperatura o reloj calendario. Si alguien tiene algún algoritmo más simplificado y quiere postearlo, lo cambio en la rutina.

Código

GeSHi (freebasic):
Define CONF_WORD = 0x2f10
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8
'NOMBRE:16F88_PicEBasic_JugandoConBit_12
'MICRO: PIC16F88/8Mhz reloj interno
'Versión: 1.2, By COS, 2/10, 3/10, PSI v6.83
'Codigo BCD, decimal codificado en binario
'************************************************************************************************
'-------------------------------------Puertos del LCD---------------------------------------------
Define LCD_BITS = 4  'indicamos que el bus de datos del LCD será de 4bit
Define LCD_DREG = PORTA  'el bus de datos será el puerto A
Define LCD_DBIT = 0  'el bus de datos serán los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB  'el bit de control RS será del puerto B
Define LCD_RSBIT = 7  'se usara el RB7 como RS
Define LCD_EREG = PORTB  'el bit de control E será del puerto B
Define LCD_EBIT = 6  'se usara el RB6 como E
Define LCD_COMMANDUS = 2000  'Tiempo de espera después de ejecutar un comando del LCD en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera después de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 5  '(50) 'Tiempo de espera después de inicializar el Display, solo se ejecuta una vez en mSeg., trucado para simulación
'------------------------------------------------------------------------------------------------------
Define SIMULATION_WAITMS_VALUE = 1  'suprime los tiempos de espera Waitms, solo activar esta línea en simulación
'------------------------------------Definición de puertos------------------------------------------
ANSEL = 0x00  'los pin I/O digitales (no analógicos)
OSCCON = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
CMCON = 0x07  'comparador a off
TRISA = 0x00  'Puerto A como salidas
TRISB = 0x00  'puerto B como salidas
'------------------------------------Inicio------------------------------------------------------------
Dim valor As Word
Dim n As Byte
valor = 3210
Lcdinit  'inicializa el LCD sin cursor
WaitMs 500  'pausa para estabilizar
main:  'Inicio bucle principal
	Lcdcmdout LcdLine1Home  'Principio de línea 1
	Lcdout #valor, " "  'Imprime en decimal
	Lcdcmdout LcdLine2Home  'Principio de línea dos, print digito
	For n = 3 To 0 Step -1  'Contador para seleccionar digito
		Call getbcd(valor, n)  'Extrae digito n
		Lcdout #getbcd, "_"  'Imprime digito
	Next n
'Goto main
End                                               
'Codigo BCD, decimal codificado en binario
'Extrae el digito indicado, hasta 4 digitos
'numero = Cifra a descomponer
'digito = Digito a extraer de 0 a 3
Function getbcd(numero As Word, digito As Byte) As Byte
	'Descompone el numero a mostrar en digitos
	If digito = 3 Then getbcd = numero / 1000  'Calculo unidades de millar
	If digito = 2 Then getbcd = (numero - ((numero / 1000) * 1000)) / 100  'calculo centenas
	If digito = 1 Then getbcd = (numero - ((numero / 100) * 100)) / 10  'calculo decenas
	If digito = 0 Then getbcd = numero - ((numero / 10) * 10)  'Calculo unidades
End Function                                      

[chenteb]

Saludos y felicidades por este hilo en atencion especial a dogflu66 por su apoyo y conocimientos, quiero unirme al aprendizaje de este lenguaje y a usar este simulador pero no he podido bajar la placa entrenadora podrian postear de nuevo el archivo para bajar, las ligas estan vencidas, podrian enviarmelo a mi correo chenteb@gmail.com o publicar el vinculo, gracias y por aqui andaremos

Edito para publicar el archivo que me han compartido, lo hago con la intencion de ayudar a los nuevos estudiantes de este interesante hilo, gracias a todos por sus aportes por aqui nos leeremos, aca les dejo la liga PIC Ebasic V 1.4 gracias dogflu66.

[dogflu66]

Y ahora dejo el programa que hace la función contraria al anterior.

Pasar dígitos a una única cifra en decimal:

Código

GeSHi (qbasic):
Define CONF_WORD = 0x2f10
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8
'NOMBRE:16F88_PicEBasic_JugandoConBit_13
'MICRO: PIC16F88/8Mhz reloj interno
'Versión: 1.3, By COS, 2/10, 3/10, PSI v6.83
'Codigo BCD a cifra decimal
'************************************************************************************************
'-------------------------------------Puertos del LCD---------------------------------------------
Define LCD_BITS = 4  'indicamos que el bus de datos del LCD será de 4bit
Define LCD_DREG = PORTA  'el bus de datos será el puerto A
Define LCD_DBIT = 0  'el bus de datos serán los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB  'el bit de control RS será del puerto B
Define LCD_RSBIT = 7  'se usara el RB7 como RS
Define LCD_EREG = PORTB  'el bit de control E será del puerto B
Define LCD_EBIT = 6  'se usara el RB6 como E
Define LCD_COMMANDUS = 2000  'Tiempo de espera después de ejecutar un comando del LCD en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera después de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 5  '(50) 'Tiempo de espera después de inicializar el Display, solo se ejecuta una vez en mSeg., trucado para simulación
'------------------------------------------------------------------------------------------------------
Define SIMULATION_WAITMS_VALUE = 1  'suprime los tiempos de espera Waitms, solo activar esta línea en simulación
'------------------------------------Definición de puertos------------------------------------------
ANSEL = 0x00  'los pin I/O digitales (no analógicos)
OSCCON = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
CMCON = 0x07  'comparador a off
TRISA = 0x00  'Puerto A como salidas
TRISB = 0x00  'puerto B como salidas
'------------------------------------Inicio------------------------------------------------------------
Lcdinit  'inicializa el LCD sin cursor
WaitMs 500  'pausa para estabilizar
main:  'Inicio bucle principal
	CALL getdecimal(3, 2, 1, 0)  'Pasa los numeros a una cifra decimal
	Lcdcmdout LcdLine1Home  'Principio de línea 1
	Lcdout "3 2 1 0 = ", #getdecimal  'Imprime en decimal
'Goto main
END                                               
'Include "_FunctionGetDecimal.bas"
'Versión: 1.0, By COS, 3/10, PSI v6.83
'Codigo BCD a cifra decimal
'getdecimal = Cifra decimal
'dig_3 al 0 = Digitos BCD
FUNCTION getdecimal(dig_3 AS Byte, dig_2 AS Byte, dig_1 AS Byte, dig_0 AS Byte) AS Word
	'Compone los digitos en una decimal
	getdecimal = dig_3 * 1000  'Calculo unidades de millar
	getdecimal = getdecimal + (dig_2 * 100)  'Calculo centenas
	getdecimal = getdecimal + (dig_1 * 10)  'Calculo decenas
	getdecimal = getdecimal + dig_0  'Calculo unidades
END FUNCTION

[dogflu66]

Siguiendo con la línea de funciones básicas, dejo otra para hacer lecturas de ADC de una forma más cómoda en nuestros programas. Se trata de una estructura tipo Function, que tiene que ser inicializada al principio del programa. Mediante una llamada a la misma para que quede configurado el modulo ADC:

'Include "_FunctionGetADC.bas"
'Pic16F88 o compatibles
'Lee entradas analogicas, 8bit y 10bit
'r_pin = Selecciona el canal
's_pin = Selecciona el canal por defecto
'Si r_pin <> s_pin = Fuerza cambio de canales
'init.0 = 1, establece con figuracion basica a 10 bit
'init.0 = 1 & init.1 = 1, establece configurcion basica a 8 bit
'init.2 = 1, selecciona nuevo canal de entrada
'init.3 = 1, habilita nueva lectura al salir
'Si el ADC esta configurado a 8Bit el valor esta en getadc.HB
'Optimizada para 8Mhz.
'En el programa mediante el reg. ANSEL seleccionaremos que pin seran digitales (I/O) y o analogicos
'La función tiene que ser inicializada llamandola una vez antes de usarla

Hay que prestar especial atención al bit de configuración de rutina (ini.3=1), este hace que se genere una nueva lectura casa vez que salimos de la función acelerando notablemente la rutina, esta opción solo es útil si tenemos que leer un pin determinado repetidas veces, si cambiamos de canal o pin de entrada de forma continua se pierde la ventaja, ya que al hacer esto tenemos que cambiar la configuración del modulo tambien de forma continua y, esto hace que el modulo no responda hasta estabilizarse con la nueva configuración entre 5 a 10uSeg. Este efecto se puede observar perfectamente en la simulación.

Código

GeSHi (freebasic):
Define CONF_WORD = 0x2f10
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8
'NOMBRE:16F88_PicEBasic_FunctionGetADC_14
'MICRO: PIC16F88/8Mhz reloj interno
'Versión: 1.4, By COS, 2/10, 3/10, PSI v6.83
'Rutina lectura del modulo ADC
'************************************************************************************************
'-------------------------------------Puertos del LCD---------------------------------------------
Define LCD_BITS = 4  'indicamos que el bus de datos del LCD será de 4bit
Define LCD_DREG = PORTA  'el bus de datos será el puerto A
Define LCD_DBIT = 0  'el bus de datos serán los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB  'el bit de control RS será del puerto B
Define LCD_RSBIT = 7  'se usara el RB7 como RS
Define LCD_EREG = PORTB  'el bit de control E será del puerto B
Define LCD_EBIT = 6  'se usara el RB6 como E
Define LCD_COMMANDUS = 2000  'Tiempo de espera después de ejecutar un comando del LCD en uSeg.
Define LCD_DATAUS = 50  'Tiempo de espera después de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 5  '(50) 'Tiempo de espera después de inicializar el Display, trucado para simulación
'------------------------------------------------------------------------------------------------------
Define SIMULATION_WAITMS_VALUE = 1  'suprime los tiempos de espera Waitms, solo activar esta línea en simulación
'------------------------------------Definición de puertos------------------------------------------
ANSEL = %00010000  'Selecciona modo de trabajo de los pin, bit=0 digitales y bit=1 analógicos
OSCCON = 0x7e  'set intrc To 8mhz, se usara reloj interno a 8Mhz
CMCON = 0x07  'comparador a off
TRISA = 0xff  'Puerto A como entradas
TRISB = 0xff  'puerto B como entradas
TRISB.3 = 0  'RB3 como salida
TRISA.7 = 0  'RA7 como salida
TRISB.0 = 0  'RB0 como salida
'TRISA.4 = 1  'como entrada (RA4, adc)
'TRISA.6 = 1  'como entrada (RA6, tecla S1)
'TRISA.5 = 1  'como entrada (RA5, tecla S2)
PORTB.3 = 1  'luz lcd a on (RB3)
PORTA.7 = 1  'led amarillo a off
PORTB.0 = 1  'led verde a off
'------------------------------------Inicio------------------------------------------------------------
Lcdinit  'inicializa el LCD sin cursor
WaitMs 500  'pausa para estabilizar
'/* Iniciliza la funcion getadc a 10Bit con el canal 4, que es el
'del potenciometro de la EBasic y activa un lectura al salir de la funcion*/
Call getadc(4, 4, %1101)
main:  'Inicio bucle principal
	'Hace una lectura del canal por defecto y activa una lectura al salir
	Call getadc(0, 0, %1000)
	Lcdcmdout LcdLine1Home  'Principio de línea 1
	Lcdout "ADC=", #getadc, "       "  'Imprime en decimal
Goto main
End                                               
'Include "_FunctionGetADC.bas"
'Pic16F88 o compatibles
'Lee entradas analogicas, 8bit y 10bit
'r_pin = Selecciona el canal
's_pin = Selecciona el canal por defecto
'Si r_pin <> s_pin = Fuerza cambio de canales
'init.0 = 1, establece con figuracion basica a 10 bit
'init.0 = 1 & init.1 = 1, establece configurcion basica a 8 bit
'init.2 = 1, selecciona nuevo canal de entrada
'init.3 = 1, habilita nueva lectura al salir
'Si el ADC esta configurado a 8Bit el valor esta en v_bat.HB
'Optimizada para 8Mhz.
'En el programa mediante el reg. ANSEL seleccionaremos que pins seran digitales (I/O) y o analogicos
'La función tiene que ser inicializada llamandola una vez antes de usarla
Function getadc(r_pin As Byte, s_pin As Byte, ini As Byte) As Word
	If ini.0 = 1 Then
		ADCON0 = %01000001  'Fosc/16 a 8Mhz (ADCON1.ADCS2=1) =2uSeg (min 1.6uSeg), CH AN0, switching
		ADCON1 = %11000000  'volt. ref.(AVdd/AVss), selec. de escala division clock/16 ADCON1.ADCS2=1, ADC a ON
		If ini.1 = 1 Then ADCON1.ADFM = 0  'Activa lectura 8bit del ADC
	Endif
	If r_pin <> s_pin Or ini.2 = 1 Then  'Se establece el nuevo canal de lectura
		ADCON0 = ADCON0 And %11000111  'Selecciona channel AN0
		If r_pin = 1 Then ADCON0.3 = 1  'Selecciona channel AN1
		If r_pin = 2 Then ADCON0.4 = 1  'Selecciona channel AN2
		If r_pin = 3 Then  'Selecciona channel AN3
			ADCON0.3 = 1
			ADCON0.4 = 1
		Endif
		If r_pin = 4 Then ADCON0.5 = 1  'Selecciona channel AN4
	Endif
 
	If ini.0 = 1 Or ini.2 = 1 Then WaitUs 10  'Tiempo estabilización despues de configuración
 
	If ini.3 = 0 Or ini.0 = 1 Or ini.2 = 1 Then ADCON0.GO = 1  'Activa una lectura en el ADC
	While ADCON0.GO = 1  'Espera que termine la lectura del módulo ADC
	Wend
 
	getadc.HB = ADRESH  'Carga el valor mas significativo del registro del ADC
	getadc.LB = ADRESL  'Carga el valor menos significativo del registro del ADC
 
	If ini.3 = 1 Then ADCON0.GO = 1  'Genera una lectura al salir
 
	'/* Selecciona el canal por defecto, de esta forma en la proxima lectura
	'nos ahorramos los 10useg. de estabilizacion del modulo * /
	If r_pin <> s_pin Then ADCON0 = ADCON0 And %11000111  'Selecciona channel AN0
	If s_pin = 1 And r_pin <> s_pin Then ADCON0.3 = 1  'Selecciona channel AN1
	If s_pin = 2 And r_pin <> s_pin Then ADCON0.4 = 1  'Selecciona channel AN2
	If s_pin = 3 And r_pin <> s_pin Then  'Selecciona channel AN3
		ADCON0.3 = 1
		ADCON0.4 = 1
	Endif
	If s_pin = 4 And r_pin <> s_pin Then ADCON0.5 = 1  'Selecciona channel AN4
End Function  

[Fer_TACA]

Gracias dogflu por la cantidad de aportesque estas realizando.

Estoy siguiendo muy atento todo lo que publicas para mejorar mi basic.
Permiteme una pregunta
¿Los ultimos codigos están actualizados en el indice del primer post?

fermin

[dogflu66]

Hola Fermín, el trabajo no me lo ha permitido y el poco tiempo libre del que dispongo lo empleo en publicar estas funciones básicas. Desde luego que más adelante actualizare el índice del hilo.