Drucker von einem CD-Leser (9 / 11 schritt)

Schritt 9: Basic-code

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 = 0 X 00
PORTA = 0 X 00
Dim Sleeptime als Byte
Dim Sleeppap als Byte
Dim Cambio als Bit
Dim Fila als Byte
Dim fila2 als Byte
Dim fila3 als Byte
Dim fila4 als Byte
Dim fila5 als Byte
Dim Bipo als Byte

BIPO = 1
Sleeppap = 2

Fila = 255
fila2 = 255
fila3 = 255
fila4 = 255
fila5 = 255

Cambio = True

Inicio:
Amerika:

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-Amerika

Ende

Ecribirletra:

Wenn fila5.7 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.6 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.5 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.4 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.3 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.2 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.1 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila5.0 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.7 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.6 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.5 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.4 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.3 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.2 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.1 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila4.0 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.7 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.6 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.5 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.4 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.3 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.2 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.1 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila3.0 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.7 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.6 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.5 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.4 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.3 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.2 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.1 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila2.0 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.7 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.6 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.5 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.4 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.3 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.2 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.1 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-moverhorizontal
Wenn fila.0 = True Then
GOSUB-bajarlapicera
ENDIF
GOSUB-volvertodo
GOSUB-avanzarmotor1
Rückkehr

Bajarlapicera:
motorpen1 = 1
motorpen2 = 0
WaitMs 102
motorpen1 = 0
motorpen2 = 1
WaitMs 102
motorpen1 = 0
motorpen2 = 0
WaitMs 102
Rückkehr

Moverhorizontal:
BIPO = Bipo + 1
Wenn Bipo = 5 dann 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
Rückkehr

Moverhorizontalatras:
BIPO = Bipo + 1
Wenn Bipo = 5 dann 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
Rückkehr

Volvertodo:
Dim y als Byte
Für y = 0 bis 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
Nächsten y
PORTB = 0
Rückkehr

avanzarmotor1:
Wenn Cambio = True Then
Cambio = False
Anderes
Cambio = True
ENDIF

Wenn 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
Anderes
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
Rückkehr

retrocedermotor1:
Wenn Cambio = True Then
Cambio = False
Anderes
Cambio = True
ENDIF
Wenn 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
Anderes
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
Rückkehr