mi primer programa en gcbasic (control motores cc robot)

Ir abajo

mi primer programa en gcbasic (control motores cc robot)

Mensaje por alejandro el Dom 15 Feb 2009 - 20:18

es simple este gcbasic.acostumbrado a programar con microcode studio plus....... Cool
estoy pasando los codigos desde mcs a gcbasic. lol!


agrego el codigo de test de control motores usado con un pic16f84a y un l293b como controller motores.
Código:

'******************************************************************

'*  Name    : Test_motores(gcbasic)                              *

'*  Author  : Alejandro Daniel Indulgenza                        *

'*  Notice  : Copyright (c) 2009                                  *

'*  Code    : free code                                          *

'*  Date    : 15/02/2009                                          *

'*  Version : 1.0                                                *

'*  Notes  :                                                    *

'******************************************************************
'****************** CONFIGURO EL PIC ******************************
#chip 16F84A,4

#config OSC=XT,_WDT_OFF,_PWRTE_ON,CP_OFF
'****************** CONFIGURO LOS ALIAS ***************************
#Define MOTORASX PortA.0 'Control Motor SX           

#Define MOTORBSX PortA.1 'Control Motor SX

#Define MOTORADX PortA.2 'Control Motor DX

#Define MOTORBDX PortA.3 'Control Motor DX
'****************** VARIABLES *************************************

#Define Tiempo 1 sec
'****************** CONFIGURO LAS PUERTAS *************************

DIR PORTA b'10000'

PORTA = b'0'
'DIR PORTB b'11111111'

'PORTB = b'0'
'****************** ESPERO ****************************************
WAIT Tiempo
'****************** INICIA EL CICLO *******************************

do
  'Stop
  SET MOTORASX OFF:SET MOTORBSX OFF    'motor SX stop

  SET MOTORADX OFF:SET MOTORBDX OFF    'motor DX stop
  WAIT Tiempo

  'Adelante
  SET MOTORASX OFF:SET MOTORBSX ON      'motor SX adelante

  SET MOTORADX ON:SET MOTORBDX OFF      'motor DX adelante

  WAIT Tiempo
  'Atras

  SET MOTORASX ON:SET MOTORBSX OFF      'motor SX atras

  SET MOTORADX OFF:SET MOTORBDX ON      'motor DX atras

  WAIT Tiempo
  'Derecha
  SET MOTORASX OFF:SET MOTORBSX OFF    'motor SX stop

  SET MOTORADX ON:SET MOTORBDX OFF      'motor DX adelante

  WAIT Tiempo
  'Izquierda
  SET MOTORASX OFF:SET MOTORBSX ON      'motor SX adelante

  SET MOTORADX OFF:SET MOTORBDX OFF      'motor DX stop

  WAIT Tiempo
  'RapidoDX:         

  SET MOTORASX ON:SET MOTORBSX OFF      'motor SX atras

  SET MOTORADX ON:SET MOTORBDX OFF      'motor DX adelante

  WAIT Tiempo

  'RapidoSX:       

  SET MOTORASX OFF:SET MOTORBSX ON      'motor SX atras

  SET MOTORADX OFF:SET MOTORBDX ON      'motor DX adelante

  WAIT Tiempo

loop

avatar
alejandro
Participante Activo
Participante Activo

Mensajes : 87
Fecha de inscripción : 12/02/2009

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.