Define CONF_WORD = 0x3f70 AllDigital 'Todos los pines del PORTA como E/S TRISA = 0x00 TRISB = 0x00 'Configuro el PORTB completo como salida. Symbol motorpen1 = PORTA.0 Symbol motorpen2 = PORTA.1 Symbol motora1 = PORTB.0 Symbol motora2 = PORTB.1 Symbol motorb1 = PORTB.2 Symbol motorb2 = PORTB.3 Symbol bobina1 = PORTB.4 Symbol bobina2 = PORTB.5 Symbol bobina3 = PORTB.6 Symbol bobina4 = PORTB.7 PORTB = 0x00 PORTA = 0x00 Dim sleeptime As Byte Dim sleeppap As Byte Dim cambio As Bit Dim fila As Byte Dim fila2 As Byte Dim fila3 As Byte Dim fila4 As Byte Dim fila5 As Byte Dim bipo As Byte bipo = 1 sleeppap = 2 fila = 255 fila2 = 255 fila3 = 255 fila4 = 255 fila5 = 255 cambio = True inicio: botones: Gosub avanzarmotor1 Gosub avanzarmotor1 Gosub ecribirletra Gosub ecribirletra fila = 0 fila2 = 0 fila3 = 0 fila4 = 0 fila5 = 0 Gosub ecribirletra Gosub ecribirletra 'aca empieza el codigo 'aca termina el codigo fila = 0 fila2 = 0 fila3 = 0 fila4 = 0 Goto botones End ecribirletra: If fila5.7 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.6 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.5 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.4 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.3 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.2 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.1 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila5.0 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.7 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.6 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.5 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.4 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.3 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.2 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.1 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila4.0 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.7 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.6 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.5 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.4 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.3 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.2 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.1 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila3.0 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.7 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.6 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.5 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.4 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.3 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.2 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.1 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila2.0 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.7 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.6 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.5 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.4 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.3 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.2 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.1 = True Then Gosub bajarlapicera Endif Gosub moverhorizontal If fila.0 = True Then Gosub bajarlapicera Endif Gosub volvertodo Gosub avanzarmotor1 Return bajarlapicera: motorpen1 = 1 motorpen2 = 0 WaitMs 102 motorpen1 = 0 motorpen2 = 1 WaitMs 102 motorpen1 = 0 motorpen2 = 0 WaitMs 102 Return moverhorizontal: bipo = bipo + 1 If bipo = 5 Then bipo = 1 PORTB = 0 motora1 = 1 motorb1 = 1 WaitMs sleeppap PORTB = 0 motora1 = 1 motorb2 = 1 WaitMs sleeppap PORTB = 0 motora2 = 1 motorb2 = 1 WaitMs sleeppap PORTB = 0 motora2 = 1 motorb1 = 1 WaitMs sleeppap PORTB = 0 Return moverhorizontalatras: bipo = bipo + 1 If bipo = 5 Then bipo = 1 PORTB = 0 motora2 = 1 motorb1 = 1 WaitMs 6 PORTB = 0 motora2 = 1 motorb2 = 1 WaitMs 6 PORTB = 0 motora1 = 1 motorb2 = 1 WaitMs 6 PORTB = 0 motora1 = 1 motorb1 = 1 WaitMs 6 PORTB = 0 Return volvertodo: Dim y As Byte For y = 0 To 41 motora2 = 1 motorb1 = 1 WaitMs sleeppap PORTB = 0 motora2 = 1 motorb2 = 1 WaitMs sleeppap PORTB = 0 motora1 = 1 motorb2 = 1 WaitMs sleeppap PORTB = 0 motora1 = 1 motorb1 = 1 WaitMs sleeppap PORTB = 0 Next y PORTB = 0 Return avanzarmotor1: If cambio = True Then cambio = False Else cambio = True Endif If cambio = True Then PORTB = 0 bobina1 = 1 WaitMs sleeptime PORTB = 0 bobina1 = 1 bobina2 = 1 WaitMs sleeptime PORTB = 0 bobina2 = 1 WaitMs sleeptime PORTB = 0 bobina2 = 1 bobina3 = 1 WaitMs sleeptime PORTB = 0 Else PORTB = 0 bobina3 = 1 WaitMs sleeptime PORTB = 0 bobina3 = 1 bobina4 = 1 WaitMs sleeptime PORTB = 0 bobina4 = 1 WaitMs sleeptime PORTB = 0 bobina4 = 1 bobina1 = 1 WaitMs sleeptime PORTB = 0 Endif Return retrocedermotor1: If cambio = True Then cambio = False Else cambio = True Endif If cambio = True Then PORTB = 0 bobina4 = 1 WaitMs sleeptime PORTB = 0 bobina3 = 1 bobina4 = 1 WaitMs sleeptime PORTB = 0 bobina3 = 1 WaitMs sleeptime PORTB = 0 bobina2 = 1 bobina3 = 1 WaitMs sleeptime PORTB = 0 Else PORTB = 0 bobina2 = 1 WaitMs sleeptime PORTB = 0 bobina2 = 1 bobina1 = 1 WaitMs sleeptime PORTB = 0 bobina1 = 1 WaitMs sleeptime PORTB = 0 bobina4 = 1 bobina1 = 1 WaitMs sleeptime PORTB = 0 Endif Return