Wiertarka do pcb z posuwem

[Jacek]

Pan Bartek dziękuję za prezent na Mikołaja jak tylko poprawie mechanikę podnoszenia dyszy ssącej bo źle wymyśliłem to zaraz będę próbował.
pozdrawiam Jacek.

[Jacek]

Kompilator wywala mi błędy ale mam wszystko dopisane jak napisałeś Bartek

Clipboard02.jpg

patrzyłem w innych programach jak mam "Select Case" i mam podobnie zrobione, błąd 1 w linii 222 nieznane stwierdzenie, w błąd 35 linii 223 oczekiwane 3 parametry i błąd 350 w linii 223 przerwanie wymaga powrotu - ale jest return możesz wyjaśnić co jest nie tak.
pozdrawiam Jacek

[niveasoft]

Moim zdaniem nie widzi tych stały i zmiennej Czynnosc. Dopisałes to?
Kolejność też jest ważna jak Ty wszystkie suby pakujesz do osobnych plików. To troche przerost formy. Rozumiem jakis zbiór komend dla silnika ale żeby kazdy sub miał plik...

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1.     Const Speed_max = 250
2.     Const Speed_min = 10
3.     Const Rozpedzanie = 1
4.     Const Zwalnianie = 2
5.     Dim Czynnosc As Byte

[Jacek]

Witam tak Bartku mam wszystko jak napisałeś

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. '****************************************************************
2. $regfile = "m328pdef.dat"
3. $crystal = 16000000
4. $hwstack = 64
5. $swstack = 64
6. $framesize = 128
7. $baud = 115200
8. $eepleave
9. Config Submode = New
10. '****************************************************************
11. 'KONFIGURACJA PORTU COM
12. Config Com1 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
13. Config Serialin = Buffered , Size = 128
14. Config Serialout = Buffered , Size = 128
15. Enable Serial
16. '****************************************************************
17.  'Debug Off
18. Debug On
19. '****************************************************************
20. $include "Subs\Blink_.inc"
21. $include "Subs\Display_.inc"
22. $include "Subs\Hold_stepper.inc"
23. $include "Subs\Left_stepper.inc"
24. $include "Subs\Right_stepper.inc"
25. '$include "Subs\LCD_ST7920_seriell_declare.inc"
26. '$include "Subs\LCD_ST7920_seriell_sub.inc"
27. '****************************************************************
28.     'KONFIGURACJA TIMER'ÓW
29. Config Timer0 = Timer , Prescale = 8
30. On Timer0 Przer_timer0
31. Enable Timer0
32. Config Timer1 = Timer , Prescale = 8
33. On Timer1 Przer_timer1
34. Enable Timer1
35. Config Timer2 = Timer , Prescale = 8
36. On Timer2 Step_
37. Enable Timer2
38.     'Config Timer1 = Pwm , Pwm = 8 , Compare_a_pwm = Clear_up , Compare_b_pwm = Clear_down , Prescale = 1
39. 'Config Timer2 = Pwm , Compare_a_pwm = Clear_up , Compare_b_pwm = Clear_up , Prescale = 1024
40. 'Enable Timer2
41. 'On Timer2 Step_
42. 'Config Timer2 = Pwm , Compare_a = Toggle , Compare_b = Toggle , Prescale = 8
43. 'Enable Timer2
44. '****************************************************************
45. Enable Interrupts
46. '****************************************************************
47.  '   *** PINY  ****
48.  '   LCD ST9720      ATMEGA        LCD 12864ZW-10 ESD4K
49.  '   RS  (4)   -      PORTD.7                 SPI ---> SS
50.  '   R/W (5)   -      PORTB.0               SPI --->  MOSI
51.  '   EN  (6)   -      PORTB.1                SPI ---> SCK
52.  '   PBS (15) -GROUND                          GND
53.  '   RST (17)  -    reset processor           RESET
54. '****************************************************************
55.     'KONFIGURACJA PORTÓW
56. Config portb.0 = Output : portb.0 = 1                                           'Laser ON/OFF
57. Config Portb.1 = output : portb.1 = 1                                           'Light ON/OFF                           '
58. Config portb.2 = Output : portb.2 = 1                                           'PWM Spindle Motor
59. Config Portb.3 = Output : portb.3 = 1                                           'Dir Spindle Motor
60. Config Portb.4 = Input : pinb.4 = 1                                             'Encoder  Sw
61. Config Portb.5 = Output : Portb.5 = 0                                           'LED_LIVE
62. Config portd.2 = Output : portd.2 = 1                                           'Dir Stepper Motor
63. Config portd.3 = Output : portd.3 = 1                                           'Step Stepper Motor
64. Config portd.4 = Output : portd.4 = 1                                           'Enable Spindle Motor
65. Config portd.5 = Output : portd.5 = 1                                           'Enable Stepper Motor
66. Config portd.6 = Input : pind.6 = 1                                             'Sw start
67. Config Portc.0 = Input : pinc.0 = 1                                             'Sw up
68. Config portc.1 = Input : pinc.1 = 1                                             'Sw down
69. Config portc.2 = Input : pinc.2 = 1                                             'Encoder A
70. Config portc.3 = Input : pinc.3 = 1                                             'Encoder B
71.  
72.  
73.  
74. '****************************************************************
75.     'ALIASY PORTÓW
76. PWM_spindle Alias Portb.2                                                       'PWM Spindle Motor
77. Dir_spindle Alias portb.3                                                       'Dir Spindle Motor
78. Sw_enc Alias pinb.4                                                             'Encoder  Sw
79. Led_live Alias Portb.5                                                          'LED shows that the microcontroller did not hang
80. Dir_stepper Alias portd.2                                                       'Dir Stepper Motor
81. Step_stepper Alias portd.3                                                      'Step Stepper Motor
82. Ena_spindle Alias portd.4                                                       'Enable Spindle Motor
83. Ena_stepper Alias portd.5                                                       'EnableStepper Motor
84. Sw_start Alias pind.6                                                           'cycle start button
85. Sw_up Alias pinc.0                                                              'upper limit switch
86. Sw_down Alias pinc.1                                                            'lower limit switch
87. A_enc Alias pinc.2                                                              'channel A encoder
88. B_enc alias pinc.3                                                              'channel B encoder
89. Laser Alias Portc.4                                                             'Laser ON/OFF
90. Light Alias Portc.5                                                             'Light ON/OFF
91. '****************************************************************
92.     'ZMIENNE   CZASU
93. Dim Timer_tikx10 As Byte                                                        'variable counting timer overflow
94. Dim Timertikx100 As Byte
95. Dim Timertikx200 As Byte
96. Dim Timer_tik_flag As Byte
97. Flaga10ms Alias Timer_tik_flag.0
98. Flaga100ms Alias Timer_tik_flag.1
99. Flaga500ms Alias Timer_tik_flag.2
100. Flaga1s Alias Timer_tik_flag.3
101. Flaga2s Alias Timer_tik_flag.4
102. Flaga2_5s Alias Timer_tik_flag.5
103.     'zostaly jeszce trzy wolne flagi
104.     ' a uzylem tylko jednego bajtu
105.     ' Paweł - pikczu
106. Dim Timer0_tik_flag As Byte
107. Flaga4ms Alias Timer0_tik_flag.6
108. '****************************************************************
109. 'STAŁE
110. Const Speed_max = 250
111. Const Speed_min = 10
112. Const Rozpedzanie = 1
113. Const Zwalnianie = 2
114. '****************************************************************
115. 'ZMIENNE
116. Dim Enc_help As Byte
117. Dim Sw_enc_help As Byte
118. Dim Stepper_speed As Dword
119. Dim Stepper_speed_old As Dword
120. Dim Spindle_speed As Byte
121. Dim Czynnosc As Byte
122. '****************************************************************
123.  
124. Waitms 500
125. '****************************************************************
126. 'USTAWIENIA POCZATKOWE   'INITIAL SETTINGS
127. 'Stepper_speed = 0
128. '****************************************************************
129.     'PĘTLA GŁÓWNA   'MAIN LOOP
130. '****************************************************************
131. Do
132. '****************************************************************
133.    If Timer_tikx10 >= 10 Then                                                   'jesli uplynelo 100ms to
134.       Flaga100ms = 1                                                            'ustaw flage uplynelo 100ms
135.       Incr Timertikx100
136.       Timer_tikx10 = 0                                                          ''zeruj liczenie
137.    End If
138.    If Timertikx100 >= 10 Then                                                   'jesli uplynela sekunda
139.       Flaga1s = 1                                                               'ustaw flage sekundy
140.       Incr Timertikx200
141.       Timertikx100 = 0                                                          'zeruj liczenie
142.    End If
143.    If Timertikx200 >= 2 Then
144.       Flaga2s = 1
145.       Timertikx200 = 0
146.    End If
147.    If Flaga10ms = 1 Then
148.       Flaga10ms = 0
149.    End If
150.    If Flaga100ms = 1 Then                                                       'co 100ms
151.       Flaga100ms = 0                                                            'wyzeruj Flaga100ms
152.    End If
153.    If Flaga1s = 1 Then                                                          'co 1 sekundę
154.       Call Blink_
155.       If Sw_up = 0 Then
156.          Print "WRZECIONO U GORY"                                               'SPINDLE AT THE TOP
157.       End If
158.       If Sw_down = 0 Then
159.          Print "WRZECIONO NA DOLE"                                              'SPINDLE AT THE BOTTOM
160.       End If
161.       If Sw_start = 0 Then
162.          Print "START CYKLU"                                                    'CYCLE START
163.       End If
164.       'Call Display_
165.       Flaga1s = 0
166.    End If
167.    If Flaga2s = 1 Then                                                          'co2s
168.       Flaga2s = 0
169.    End If
170. '****************************************************************
171.    If Sw_up = 0 Then
172.       Call Hold_stepper
173.    End If
174.    If Sw_start = 0 Then
175.       Call Left_stepper
176.   ' Else
177.    '   Call Right_stepper
178.    End If
179.    If Sw_down = 0 Then
180.       Call Right_stepper
181.    End If
182. '****************************************************************
183.  
184. '****************************************************************
185.  
186. '****************************************************************
187. Loop
188. '****************************************************************
189. End
190. '****************************************************************
191.     'PODPROGRAM PRZERWAŃ TIMER1
192. Przer_timer1:
193.    Timer1 = 45536                                                               'wstawienie do Timer1 wartości 45536
194.    Incr Timer_tikx10
195.    If Timer_tikx10 = 1 Then
196.       Set Flaga10ms
197.    End If
198. Return
199. '****************************************************************
200.     'PODPROGRAM PRZERWAŃ TIMER0
201. Przer_timer0:
202.    Timer0 = 156                                                                 'wstawienie do Timer0 wartości 6
203.    Incr Timer0_tik_flag
204.    If Timer0_tik_flag = 1 Then
205.       Set Flaga4ms
206.    End If
207. Return
208. '****************************************************************
209. Step_:
210.     Select Case Czynnosc                                                        'Action
211.       Case Rozpedzanie:                                                         'Speeding up
212.          If Stepper_speed < Speed_max Then Incr Stepper_speed
213.       Case Zwalnianie:                                                          'Releasing
214.          If Stepper_speed > Speed_min Then Decr Stepper_speed
215.     End Select
216.    Timer2 = Stepper_speed
217.    Toggle Step_stepper
218. Return
219. '****************************************************************

dziwnie że kompilator nie widzi stałych w innych programach stałe mam do komunikacji mikrokontrolera i to działa.
pozdrawiam Jacek.

[niveasoft]

Mi się to kompiluje ALE DOPIERO jak poprawiłem składnie.

Ostatnio była podobna akcja na Forum MCS i tam pokazywałem, że jak się kod skądś przekleja to czesto wkradają się niewidoczne znaki czyli błędy.
LINK
Jak nie wiadomo o co chodzi to należy kod otworzyć w Notepad++ i poszukać niewidocznych znaków i je usunąć.
U Ciebie tego było dużo co widac na screenach (Notepad++ zaznacza takie rzeczy na czerwono).
Po wyczyszczeniu masz projekt który sie kompiluje.

[Jacek]

Kurczaki o tym nie pomyślałem że tak może się dziać po skopiowaniu z przeglądarki dzięki,
Notepad++ mam kiedyś Paweł pikczu mi podpowiedział że łatwo nim porównywać kody.
dzięki Bartek.
pozdrawiam Jacek.

[niveasoft]

To wszystko z doświadczenia ale dziwnie sie potem słucha/czyta "stary lis" ahahahahahaha "
Powinno gdzies być zdefiniowane "doświadczony lis" ahahahahaha

[Jacek]

Włączyłem tą opcję na stałe i teraz w razie kopiowania z innych źródeł będzie widać jeszcze raz dzięki.
pozdrawiam Jacek.

[Jacek]

Witam na wstępie chcę podziękować Bartkowi wiertarka zaczęła żyć https://www.youtube.com/watch?v=Ix6G-es0KuI
musiałem zmienić system unoszenia dyszy bo pierwotny pomysł nie zdał egzaminu.
pozdrawiam Jacek.

[Jacek]

Witam - mały update https://www.youtube.com/watch?v=g37LFzBqkqE
pozdrawiam Jacek.