Comenzando con Mikrobasic

[kds]

ok TRISB=%00000001 vdd??

muchas gracias, bueno ahora te cuento para que lo cuiero,

una migo tiene un auto(un renault 12 en buenas condiciones) y quiere ponerle retardo de luces, es decir cuando saque la llave se queden prendidos los faros por un tiempo (solo si traia las luces prendidas)

la ignicion es el boton y el led va a ser un transistor y va a un relevador.

como me aconsejan hacerle para ponerle luces automaticas? con un LDR, pero tendria que usar un convertidor analogico a digital? tengo entendido que algunos pic ya lo traen.

llevo como 6 dias con el mikrobasi y el isis, aun no se mucho
les pido si chequen mi diagrama y que tengo mal, no prende el relay.

[BLACKPIC]

hola:
bueno amigo ya que quieres ver la simulacion en el proteus para ver si anda tu proyecto te recomiendo que busque ese mismo relay que esta en el circuito que te puse para que veas que si funciona algo sencillo pero espero que sea de ayuda.... busca ese mismo relay en la libreria del proteus. el que usaste no tiene animacion dentro del programa si no que funciona para el pcb del ares por eso es que no te anda en el run de tu circuito....

espero haverte ayudado con lo poco que puedo y se hasta a hora...

[kds]

oye gracias no sabia eso de que unos no tenian animacion.
si me sirvio

[aitopes]

Hola KDS!

¿Solamente quieres hacer lo de las luces? Me parece que seria posible lograr una "luz de cortesia" que permanezca encendida un tiempo "T" despues de apagar el motor sin necesidad de un microcontrolador...

Por supuesto, el uso de un PIC te permitiria hacer otras cosas, como una luz de stop que destelle o cosas que puedas agregar mas tarde.
Saludos!

[kds]

eso pense primero, con un 555 .

pero despues surgieron otras ideas. ademas pienso que se veria mejor asi; quitas la llave, se quedan prendidas 15seg y se apaga 1seg y se prende y se apagan en 1 seg.
un ultimo destello. y pienso ponerle algomas pero nose.

te refieres a esto?
http://www.pablin.com.ar/electron/circuito/auto/tempoluz/index.htm

[aitopes]

Exacto! Algo similar a eso costaria menos, pero claro, te limita mucho mas.

Saludos!

[Nocturno]

No estoy seguro que cueste mucho menos, ¿habéis visto los precios de los 10F?

[aitopes]

nop....por que mi Basic no los contempla 

¿Sera que me tengo que pasar a CCS nomas? Hace casi un año que ando a los amagues.

¡Que fiaca me da! 

PD: "Fiaca" = pereza.

[Nocturno]

Pues salta ya, perezoso. Tú mismo viste de primera mano cómo una solución con 10F resultó ser mucho más económica, sencilla y potente que otra igual con operacionales.

[kds]

pues este es mi codigo, si alguien tiene alguna idea digame!! bueno recuerden que llevo como 10 dias con esto del basic.

Código: [Seleccionar]

program luces

MAIN:
 TRISB=%00000101
 portb=0

while (true)

if PORTB.0 = 1 then

    if PORTB.2=1 then
    PORTB.1=1
    DELAY_MS(1000)
    else
     PORTB.1=0
    end if
   
  else
    PORTB.1=0

  end if
 
  wend

END.

[kds]

como puedo hacer para enviar una señal (parpadear un led) continuamente e independientemente de los demas procesos, es decir quiero que parpade el led todo el tiempo y al mismo tiempo se ejecute el programa?

no se me courre como , ya que si pongo una linea esta se ejecuta a su tiempo y no todo el tiempo.

[navaismo]

Usando el Hardware serie o pwm del pic o cun su timer

[kds]

Hola yo de nuevo, llevo ya rato intentando un buen codigo, hace mucho que no programaba.


Bueno, el codigo pasado no me gustaba por que si se va manejando y se prenden yapagan las luces despues tambien hay un retardo, y eso puede ser peligroso, como sea no me gustaba. Asi que este es el codigo, uso el portb.4 y 5 para los leds esos van a un transistor y luego a un rele, uso 2 por que son 2 faros. y pues el switch de la llave y el swtich de luces.

Código: [Seleccionar]

program luces

MAIN:
 TRISB=%00000011
 portb=0
 'portb.0 llave  AND  (PORT.1=1)
 'portb.1 swtich
 'portb.4  luz izq.
 'portb.5  luz der.
while (true)

    if (PORTB.0=1) then

       if (PORTB.1=1) then
          PORTB.4=1
          PORTB.5=1
       end if
       
       if (PORTB.1=0) then
          PORTB.4=0
          PORTB.5=0
       end if


    else
        if (PORTB.0=0) then
       
             if (PORTB.1=1) then
                 if (PORTB.4=1) AND (PORTB.5=1) then
                     delay_ms(3000)
                     PORTB.4=0
                     PORTB.5=0
                     delay_ms(300)
                     PORTB.4=1
                     PORTB.5=1
                     delay_ms(500)
                     PORTB.4=0
                     PORTB.5=0
                  else
                      PORTB.4=0
                      PORTB.5=0
                  end if
                 
             end if

             if (PORTB.1=0) then
                PORTB.4=0
                PORTB.5=0
             end if
    end if
end if
   
wend
END.


la verdad me parecen muchas lineas!!!, no se si hay una manera mas facil de hacer lo mismo.

una duda mas, si me lo permiten, si quiero convertir el voltaje de la "llave" y del switch para mandar una señal digital (5v)  (esto para las entradas) es con un rele? o como?


bueno gracias, salu2 desde México.

[Carli]

Hola compañeros, tengo un lcd 20x4 y no puedo imprimir en las lineas superiores, solamente lo hace en las 2 inferiores, cuando le agrego el 3 y 4 renglon no imprime nada, les paso el codigo para ver que me falta.

Lcd_Config(PORTB,0,1,2,3,PORTB,5,6,4)
  Lcd_Cmd(LCD_CURSOR_OFF)
  Lcd_Cmd(LCD_CLEAR)
  Lcd_out(1,4,"Prototipo 2")
  Lcd_out(2,4,"Version 1.0")
  Lcd_out(3,4,"Prototipo 2")
  Lcd_out(4,4,"Version 1.0")

Lleva algún comando que no conozco.   

Desde ya muchas gracias.

[Carli]

Holaaaaaaaaa 

Despúes de romperme el o-t-, me vuelvo a contestar solo!!!!!!!!!

Lcd_Config(PORTB,0,1,2,3,PORTB,5,6,4)
  Lcd_Cmd(LCD_CURSOR_OFF)
  Lcd_Cmd(LCD_CLEAR)
  Lcd_First_Row = 0
  Lcd_Second_Row = 0
  Lcd_Third_Row = 0
  Lcd_Fourth_Row = 0
  Lcd_out(1,4,"Prototipo 2")
  Lcd_out(2,4,"Version 1.0")
  Lcd_out(3,4,"125")
  Lcd_out(4,4,"1.0")

Sera que pregunto boludeses, o somos pocos los que usamos MKB.

Saludos.....

Carlitos.