Proyectos simples en PIC Simulator IDE

[sn4k32k6]

Hola comunidad!  Acabo de modificar el Post para que valla quedando indexado. Voy a ir subiendo todas las ideas que veo en Internet, entre informacion y otras cosas me hayan ayudado ami a avanzar en todo lo que refiere a Pic en Simulator ide. Vi algunos dados electronicos, que estaban hechos con 7 leds (simulando la forma de un dado),  y como el famoso "Led Cube", pero en todos lados lo vi hecho con Arduino(a pesar de eso la idea está y eso es lo que nos sirve). He visto tambien el control de Displays de 7 seg (1 display, 2 y hasta 4 o a lo sumo 5) y en mas de una oportunidad he preguntado para el control de 40 displays de 7 seg y me han dicho que es poco probable con un solo Pic, pero le he encontrado la vuelta. SI SE PUEDE! , solo necesitan saber que quieren, entender cuales son las Limitaciones con las que se van a encontrar(Pines, Memoria de Flash) y en base a eso...a programar XD.

Pd: este post es meramente instructivo, pensando en las personas que recien ingresan en el mundo de los microcontroladores con leves conocimientos en Basic
Pd2: yo tambien soy aprendiz
Cualquier critica constructiva es bien recibida


Indice:


1 - Dado para Juego de Rol, Con Selector de Dados (4/6/8/10/12/20/99)

2 - Cube Led 3x3x3 con 16F84A, con la poca memoria Flash y los pines, intentare hacerle 6 rutinas de movimiento (Proximamente)












Cuando tenga tiempo voy a ir subiendo los demas. saludos!

[sn4k32k6]

1 - Dado de Rol

Pic: 16F876A

Es muy facil y utiliza un solo pulsador para todo. Haciendo pulsaciones, te muestra un aleatorio entre 1 y 20 (el predeterminado cuando inicializa) y si mantienes apretado por 3 segundos, ingresa al "modo" opcion, es muy facil darse cuenta porque los displays haran una intermitencia, y les mostrara los valores disponibles (4 -6-10-12-20-99). Para seleccionarlo, basta con esperar en el elegido por unos 5 segundos, y vuelve al modo "Tira dado"

Subo la imagen hecha en Isis del schema, y el codigo hecho en PSI.

Código

GeSHi (freebasic):
Dim t2_ms As Word
Dim t2_ms_contar As Word
Dim t1_ms As Word
Dim t1_ms_contar As Word
Dim n_rand As Byte
Dim i As Byte
Dim d_var As Byte
Dim d_set(7) As Byte
Dim un As Byte
Dim de As Byte
Dim d_varu As Byte
Dim d_vard As Byte
AllDigital
t1_ms = 0
t1_ms_contar = 2000  'milisegundos a contar
t2_ms = 0
t2_ms_contar = 500 'base para intermitencia
TMR0 = 0
TRISA = %000010
TRISB = 0
TRISC = 0
PORTB = 0
PORTC = 0
 
 
d_var = 20  'predeterminado 20
d_set(0) = 4
d_set(1) = 6
d_set(2) = 8
d_set(3) = 10
d_set(4) = 12
d_set(5) = 20
d_set(6) = 99
 
OPTION_REG.T0CS = 0
OPTION_REG.PSA = 0
OPTION_REG.PS0 = 1
OPTION_REG.PS1 = 0
OPTION_REG.PS2 = 0
INTCON.TMR0IF = 0
INTCON.TMR0IE = 1
INTCON.PEIE = 1
Enable
Goto main
opcion:
	i = 0
	While t1_ms < 3000
		d_var = d_set(i)
		If d_var < 10 Then
			d_varu = d_var
			d_vard = 10
		Else
			d_varu = d_var - (d_var / 10) * 10
			d_vard = d_var / 10
		Endif
		Select Case t2_ms
		Case <= 300  'uso la base de t2 para generar la intermitencia en Opciones
			Call display(d_varu, d_vard)
		Case < 600  '600
			Call display(11, 11)
		Case Else
			t2_ms = 0
		EndSelect
		If PORTA.1 = 1 Then
			While PORTA.1 = 1
			Select Case t2_ms
			Case <= 300  '300
				Call display(d_varu, d_vard)
			Case < 600  '600
				Call display(11, 11)
			Case Else
				t2_ms = 0
			EndSelect
			Wend
			i = i + 1
			If i = 7 Then i = 0
			t1_ms = 0
		Endif
	Wend
main:
	Call display(10, 10)  'del 0 al 9 son numeros, el 10 es "-" y el 11 es vacio
	If PORTA.1 = 1 Then
		t1_ms = 0
		TMR0 = 0
		t1_ms_contar = 2000
		While RA1 = 1
			Call display(10, 10)
			If t1_ms = 2000 Then
				TMR0 = 0
				t1_ms = 0
				t1_ms_contar = 5000
				t2_ms = 0
				t2_ms_contar = 600
				While RA1 = 1
				Wend
				Goto opcion
			Endif
		
		Wend
		n_rand = TMR0 Mod d_var
		If n_rand = 0 And d_var = 99 Then n_rand = 0
		If n_rand = 0 And d_var <> 99 Then n_rand = 1
		Select Case n_rand  'select case para separar Unidad y Decena
		Case < 10
			un = n_rand
			de = 0
		Case Else
			un = n_rand - (n_rand / 10) * 10
			de = n_rand / 10
		EndSelect
		t1_ms = 0
		t1_ms_contar = 1000
		TMR0 = 0
		While t1_ms < 1000
			Call display(un, de)
		Wend
		
	Endif
Goto main
End                                               
Proc display(unidad As Byte, decena As Byte)
PORTB = LookUp(0x40, 0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x78, 0x00, 0x18, 0xbf, 0xff), unidad
PORTC = %01
WaitMs 5
PORTC = %11
WaitMs 2
PORTB = LookUp(0x40, 0x79, 0x24, 0x30, 0x19, 0x12, 0x02, 0x78, 0x00, 0x18, 0xbf, 0xff), decena
PORTC = %10
WaitMs 5
PORTC = %11
WaitMs 2
End Proc                                          
On Interrupt
	Save System
	If t1_ms < t1_ms_contar Then t1_ms = t1_ms + 1
	If t2_ms < t2_ms_contar Then t2_ms = t2_ms + 1
	TMR0 = 0
	INTCON.TMR0IF = 0
Resume                                            
 
 
 

[sn4k32k6]

2 - Cube Led 3x3x3

Pic: 16F84A

Este es un Cube led, en su version Chiquita. Se necesitan  27 leds, cada "piso" esta en catodo comun, y cada anodo conectado con el que esta debajo de el, teniendo asi 9 anodos, y 3 catodos a controlar(No voy a detallar como es el armado del "cubo" en si, ya que estoy enfocando el hilo con el Pic y la programacion, pueden hacerlas con las mismas patas de cada led). Para reducir un poco mas los pines (ya que asi suman 12 y no podriamos usar el 16F84A de una manera agil) agregamos un decodificador BCD to Decimal  [CD4028] (se pueden usar otros similares). Intente aprovechar la memoria al maximo ya que es muy chica, y me han salido 5 rutinas, si alguien aporta alguna que ocupe menos, se podrian agregar algunas mas.

Adjunto imagen del Esquema en Isis (la simulación en Proteus es muy pobre, les recomendaria que lo prueben directamente en la Protoboard, es mas directo y descarta muchas dudas.

Psi:

Código

GeSHi (freebasic):
AllDigital
Dim piso As Byte
Dim pos As Byte
Dim i As Byte
Dim ii As Byte
Dim salir As Byte
Dim t1_ms As Word
Dim t1_ms_contar As Word
t1_ms = 0
OPTION_REG.T0CS = 0
OPTION_REG.PSA = 0
OPTION_REG.PS0 = 0
OPTION_REG.PS1 = 1
OPTION_REG.PS2 = 0
INTCON.T0IF = 0
INTCON.T0IE = 1
Enable
TRISA = 0
TRISB = 0
PORTB = 0
PORTA = 0
main:
	Gosub plataformas
	Gosub giro_vertical
	Gosub barras_verticales
	Gosub espiral
	Gosub aleatorio
Goto main
End                                               
plataformas:
piso = 1
t1_ms = 0
t1_ms_contar = 1000
salir = 0
	While salir < 5
		t1_ms = 0
		While t1_ms < 200
			For i = 1 To 3
				For ii = 1 To 3
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 200
			For i = 1 To 3
				For ii = 4 To 6
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 200
			For i = 1 To 3
				For ii = 7 To 9
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 200
			For i = 1 To 3
				For ii = 3 To 9 Step 3
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 200
			For i = 1 To 3
				For ii = 2 To 8 Step 3
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 200
			For i = 1 To 3
				For ii = 1 To 7 Step 3
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		salir = salir + 1
	Wend
Return                                            
giro_vertical:
	piso = 2
	salir = 0
	t1_ms = 0
	t1_ms_contar = 1000
	While salir < 10
		While t1_ms < 150
			For i = 1 To 9
				Call mostrar(i, piso)
				WaitMs 1
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 150
			For i = 1 To 3
				Call mostrar(i, 3)
				WaitMs 1
			Next i
			For i = 4 To 6
				Call mostrar(i, 2)
				WaitMs 1
			Next i
			For i = 7 To 9
				Call mostrar(i, 1)
				WaitMs 1
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 150
			For i = 1 To 3
				For ii = 4 To 6
					Call mostrar(ii, i)
					WaitMs 1
				Next ii
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 150
			For i = 7 To 9
				Call mostrar(i, 3)
				WaitMs 1
			Next i
			For i = 4 To 6
				Call mostrar(i, 2)
				WaitMs 1
			Next i
			For i = 1 To 3
				Call mostrar(i, 1)
				WaitMs 1
			Next i
		Wend
		t1_ms = 0
		While t1_ms < 150
			For i = 1 To 9
				Call mostrar(i, piso)
				WaitMs 1
			Next i
		Wend
		salir = salir + 1
	Wend
Return                                            
barras_verticales:
pos = 1
piso = 1
While piso < 4
	Call mostrar(pos, piso)
	WaitMs 100
	pos = pos + 1
	If pos = 10 Then
		piso = piso + 1
		pos = 1
	Endif
Wend
Return                                            
aleatorio:
	i = 0
	While i < 100
		pos = (TMR0 Mod 9) + 1
		WaitUs 25
		piso = (TMR0 Mod 3) + 1
		WaitUs 25
		Call mostrar(pos, piso)
		WaitMs 50
		i = i + 1
	Wend
Return                                            
espiral:
	pos = 0
	piso = 1
	While piso < 4
		For i = 1 To 3
			pos = i
			Call mostrar(pos, piso)
			WaitMs 150
		Next i
		pos = 6
		Call mostrar(pos, piso)
		WaitMs 150
		For i = 9 To 7 Step -1
			pos = i
			Call mostrar(pos, piso)
			WaitMs 150
		Next i
		pos = 4
		Call mostrar(pos, piso)
		WaitMs 150
		piso = piso + 1
	Wend
	t1_ms = 0
	While t1_ms < 1000
		For i = 1 To 9
			Call mostrar(i, 3)
			WaitMs 1
		Next i
		Call mostrar(5, 2)
		WaitMs 1
		Call mostrar(5, 1)
		WaitMs 1
	Wend
 
Return                                            
Proc mostrar(posicion As Byte, nivel As Byte)
	PORTB = LookUp(%0000, %0001, %0010, %0011, %0100, %0101, %0110, %0111, %1000, %1001), posicion
	PORTA = LookUp(%111, %110, %101, %011), nivel
End Proc                                          
On Interrupt
	Save System
	If t1_ms < t1_ms_contar Then t1_ms = t1_ms + 1
	TMR0 = 130
	INTCON.T0IF = 0
Resume  

Fue muy divertido verlo funcionar xD. Animense!

[wolfman77]

Hola, como estas? tendras algun ejemplo basico con interrupciones? por ejemplo que haya 3 leds, uno parpadee y al pulsar un boton ese led se apague y comience a parpadear el siguiente?
gracias

Martin

[sn4k32k6]

Hola, como estas? tendras algun ejemplo basico con interrupciones? por ejemplo que haya 3 leds, uno parpadee y al pulsar un boton ese led se apague y comience a parpadear el siguiente?
gracias

Martin

Hola martin! hay muchos ejemplos de leds intermitentes en el foro, igualmetne te paso uno que acabo de hacer rapidito en el trabajo, probalo. Lo que pedis, lo hace perfectamente, yo lo haria con interrupciones para que no se pare el programa en el bucle del boton.

Código

GeSHi (freebasic):
AllDigital
TRISA = %00000001
TRISB = 0
Dim i As Byte
Dim accion As Byte
i = 1
accion = 1
main:
	If RA0 = 1 Then
		While RA0 = 1
		Wend
		i = i + 1
		If i = 4 Then i = 1
		PORTB = 0
	Endif
	Call led(i, accion)
	WaitMs 300
Goto main
End                                               
Proc led(i1 As Byte, acc As Byte)
If acc = 1 Then
	Select Case i1
		Case 1
			PORTB.0 = 1
		Case 2
			PORTB.1 = 1
		Case 3
			PORTB.2 = 1
	EndSelect
Else
	Select Case i1
		Case 1
			PORTB.0 = 0
		Case 2
			PORTB.1 = 0
		Case 3
			PORTB.2 = 0
	EndSelect
Endif
If accion = 0 Then
	accion = 1
Else
	accion = 0
Endif
	
End Proc
 

saludos!

[wolfman77]

Hola sn4k32k6
Gracias por el ejemplo, lamentablemente yo sin ejemplos no aprendo jajaja
voy a probar con el que subiste a ver que me sale, pero me viene al pelo

gracias!

[sn4k32k6]

Hola sn4k32k6
Gracias por el ejemplo, lamentablemente yo sin ejemplos no aprendo jajaja
voy a probar con el que subiste a ver que me sale, pero me viene al pelo

gracias!

De nada! después cuéntanos como vas avanzando. saludos!

[Fgabriel]

hola, quiseiera que me ayuden, tengo dos modulos de comunicación Rf Hm-tr y no se como configurarlos con el programa Pic Simulator Ide, lo que quiero hacer es controlar tres motores de forma inalambrica, con el modulo de transmision conectado a un pic 16f887 tener conectado pulsadores que van a controlar la direccion de giro de los motores y con el modulo de recepcion conectado a otro pic 16f887 hacer girar los motores con la ayuda de un puente H, les agradeceria bastante si pueden subir a la pagina un ejemplo de como seria la programacion de los modulos en pic simulator ide.
De antemano les agradezco por su ayuda

[sn4k32k6]

hola, quiseiera que me ayuden, tengo dos modulos de comunicación Rf Hm-tr y no se como configurarlos con el programa Pic Simulator Ide, lo que quiero hacer es controlar tres motores de forma inalambrica, con el modulo de transmision conectado a un pic 16f887 tener conectado pulsadores que van a controlar la direccion de giro de los motores y con el modulo de recepcion conectado a otro pic 16f887 hacer girar los motores con la ayuda de un puente H, les agradeceria bastante si pueden subir a la pagina un ejemplo de como seria la programacion de los modulos en pic simulator ide.
De antemano les agradezco por su ayuda

Hola amigo! este hilo esta hecho para proyectos simples, pero el buen DogFlu66 tiene ejemplos de RF en Simulator Ide, me parece que quizás ahí puedas encontrar algo que te ayude con tu proyecto. Hay que utilizar el buscador.

Te dejo el link directo

http://www.todopic.com.ar/foros/index.php?topic=14917.msg167492#msg167492