Hseropen 9600
'Función principal
main:
PORTB = 0x01 'puerto b como salidas menos rb0 como entrada(para pulsador de peatones, ¿no?)
Call retardo_seg(20)
'......
Goto main
End
'Función de retardo
Proc retardo_seg(segundos As Byte)
Dim i As Byte
For i = 1 To segundos Step 1
WaitMs 1000
Hserout "Llevo ", #i, " segundos."
Next i
End Proc
Muchas gracias, jeje. Umm, creo que es mas sencillo en c, jeje. Sólo una cosa, si no pones goto main ni end..¿no se repetiria continuamente en main?, quiero decir, mi código realmente está mal, pq falta donde puse ... un bucle infinito, tipo while(1) o for(;
o una cosa así, pero, en basic, por lo que veo lo has hecho con un goto, es por algo o pq has elegido ese salto y ya. Y lo de End, si no lo pones te salte en error el compilador??.
Una última cuentión, no puedes declarar i dentro del mismo bucle, quiero decir, en mi código, la variable sólo esta mientras dure el bucle (donde a sido creada, y al no ser global...) pero, en el tuyo por lo que veo va a estar durante toda la función, ¿no es así?, de esta manera estará más tiempo en memoría.
Umm, me han gustado cosillas, pero creo que le faltan cosas muy interesantes a basic, ¿no?.
Gracias a Todos, me ha funcionado de Maravilla.
Me alegro mucho, ya sabes, si necesitas cualquier cosa.
Salu2