mi primer programa en gcbasic (control motores cc robot)

por alejandro 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