elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [!] Liga interesante; Programando microcontroladores.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [!] Liga interesante; Programando microcontroladores.  (Leído 1,542 veces)
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.156


I'Love...!¡.


Ver Perfil WWW
[!] Liga interesante; Programando microcontroladores.
« en: 1 Marzo 2011, 08:07 am »

.
El compilador se llama Great Cow Basic y sirve para programar en los microchips.

* Es de codigo abierto.
* Free.
* Instalacion en Windows y Linux.
* Las variables tal y como son declaras, se ven reflejados en el codigo ASM final es decir no agrega nombres raros al codigo ASM final.

Manual es Español

http://gcbasic.sourceforge.net/index.html

Código
  1.  
  2. 'Led parpadeante
  3.  
  4. #chip 16F628A, 20      'modelo de pic y velocidad de reloj: 20 Mhz
  5.  
  6. #define led PORTB.1
  7.  
  8. Main:
  9.    TRISB=0
  10.    PORTB=0
  11.  
  12.    led = 1
  13.    wait 500 ms
  14.    led = 0
  15.    wait 500 ms
  16.  
  17. goto Main
  18.  
  19.  

Codigo ASM generado de manera limpia.

Código
  1.  
  2. ;Program compiled by Great Cow BASIC (0.9 13/9/2008)
  3. ;Need help? See the GCBASIC forums at http://sourceforge.net/forum/?group_id=169286,
  4. ;check the documentation or email w_cholmondeley@users.sourceforge.net.
  5.  
  6. ;********************************************************************************
  7.  
  8. ;Set up the assembler options (Chip type, clock source, other bits and pieces)
  9. LIST p=16F628A, r=DEC
  10. #include
  11. __CONFIG _HS_OSC & _WDT_OFF & _LVP_OFF & _MCLRE_OFF
  12.  
  13. ;********************************************************************************
  14.  
  15. ;Set aside memory locations for variables
  16. DELAYTEMP   equ    32
  17. DELAYTEMP2   equ    33
  18. RANDOMSEED   equ    34
  19. RANDOMSEED_H   equ    35
  20. SysWaitTempMS   equ    36
  21. SysWaitTempMS_H   equ    37
  22.  
  23. ;********************************************************************************
  24.  
  25. ;Jump to initialisation code when PIC is reset
  26.    ORG    0
  27.    call    INITSYS
  28.    goto    SystemInitialise
  29.  
  30. ;********************************************************************************
  31.  
  32. ;Interrupt vector
  33.    ORG    4
  34. ;Various initialisation routines, automatically called by GCBASIC
  35. SystemInitialise
  36.  
  37. ;********************************************************************************
  38.  
  39. ;Start of the main program
  40. MAIN
  41.    banksel    TRISB
  42.    clrf    TRISB
  43.    banksel    PORTB
  44.    clrf    PORTB
  45.    bsf    PORTB,1
  46.    movlw    244
  47.    movwf    SysWaitTempMS
  48.    movlw    1
  49.    movwf    SysWaitTempMS_H
  50.    call    Delay_MS
  51.    bcf    PORTB,1
  52.    movlw    244
  53.    movwf    SysWaitTempMS
  54.    movlw    1
  55.    movwf    SysWaitTempMS_H
  56.    call    Delay_MS
  57.    goto    MAIN
  58. BASPROGRAMEND
  59.    sleep
  60.    goto    $
  61.  
  62. ;********************************************************************************
  63. ;Subroutines included in program
  64. ;********************************************************************************
  65.  
  66. Delay_MS
  67.    incf    SysWaitTempMS_H, F
  68. DMS_START
  69.    movlw    10
  70.    movwf    DELAYTEMP2
  71. DMS_OUTER
  72.    movlw    166
  73.    movwf    DELAYTEMP
  74. DMS_INNER
  75.    decfsz    DELAYTEMP, F
  76.    goto    DMS_INNER
  77.    decfsz    DELAYTEMP2, F
  78.    goto    DMS_OUTER
  79.    decfsz    SysWaitTempMS, F
  80.    goto    DMS_START
  81.    decfsz    SysWaitTempMS_H, F
  82.    goto    DMS_START
  83.    return
  84.  
  85. ;********************************************************************************
  86.  
  87. INITSYS
  88.    movlw    7
  89.    movwf    CMCON
  90.    clrf    PORTA
  91.    clrf    PORTB
  92.    return
  93.  
  94. ;********************************************************************************
  95.  
  96. END
  97.  
  98.  

Dulces Lunas!¡.


« Última modificación: 1 Marzo 2011, 08:14 am por BlackZeroX▓▓▒▒░░ » En línea

The Dark Shadow is my passion.
extreme69

Desconectado Desconectado

Mensajes: 178


Be BlackHat but don't forget your principles.


Ver Perfil
Re: [!] Liga interesante; Programando microcontroladores.
« Respuesta #1 en: 1 Marzo 2011, 08:16 am »

Jeje, yo tenía buenas ideas para usar microcontroladores... quería hacer un sistema de riego con microcontroladores PIC y un horno solar que te avisara cuando la comida estaba lista  :xD

Usaba "PICBASIC" o algo así... fue hace años...

BlackZeroX vos que siempre me salvás con VB leete mi último thread please, el control mscomm no me está funcionando y ya no sé que hacer.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
microcontroladores
Electrónica
Sonic-X 5 2,124 Último mensaje 11 Febrero 2005, 04:49 am
por jairo12yo
microcontroladores pic18fxxxx
Electrónica
jairo12yo 3 2,703 Último mensaje 7 Marzo 2005, 09:08 am
por investigacion
MICROCONTROLADORES URGE
Electrónica
cracking 0 1,270 Último mensaje 14 Septiembre 2005, 16:56 pm
por cracking
microcontroladores y proyectos.
Electrónica
lu8emw 1 2,324 Último mensaje 4 Septiembre 2006, 23:05 pm
por logger02
[!] Liga interesante, haciendo un S.O. en lenguaje Basic.
Programación Visual Basic
BlackZeroX 7 2,455 Último mensaje 1 Marzo 2011, 08:03 am
por BlackZeroX
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines