Παρατίθεται ο κώδικας σε Bascom που τρέχει ο μΕ ATMEGA16 για το αυτόματο τρύπημα πλακετών.
'servo
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Portd.6 = Output
Config Portd.7 = Output
Config Porta.3 = Input
Config Porta.4 = Input
Config Porta.5 = Input
Config Portd.0 = Input
Config Portd.2 = Input
Dim I As Integer
Dim Neutral_position As Integer
Dim Drill_start As Integer
Dim Drill_end As Integer
Dim Drill_speed As Integer
Dim Drill_speed_temp As Single
Dim Temp1 As Single
Dim Temp As Integer
Dim Drill_start_rom As Eram Integer At 14 , Drill_end_rom As Eram Integer At 16 , Drill_speed_rom As Eram Integer At 18
On Int0 Neutral
Config Int0 = Falling
Portd.7 = 1
Waitms 200
Neutral_position = 250
Drill_start = Drill_start_rom
Drill_end = Drill_end_rom
Drill_speed = Drill_speed_rom
Enable Interrupts
Enable Int0
Portd.6 = 0
Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Waitms 500
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Wait 500
Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Wait 500
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Wait 500
If Pina.5 = 1 Then
Porta.0 = 1
Wait 1
While Pina.5 = 0
If Pina.4 = 1 Then
Drill_start = Drill_start + 1
End If
If Pina.3 = 1 Then
Drill_start = Drill_start - 1
End If
If Drill_start < 375 Then
Drill_start = 375
End If
If Drill_start > 500 Then
Drill_start = 500
End If
Pulseout Portd , 6 , Drill_start
Waitms 18
Wend
Drill_start_rom = Drill_start
Porta.0 = 0
Wait 1
End If
If Pina.5 = 1 Then
Porta.1 = 1
Wait 1
While Pina.5 = 0
If Pina.4 = 1 Then
Drill_end = Drill_end + 1
End If
If Pina.3 = 1 Then
Drill_end = Drill_end - 1
End If
If Drill_end < 380 Then
Drill_end = 380
End If
If Drill_end > 510 Then
Drill_end = 510
End If
Pulseout Portd , 6 , Drill_end
Waitms 18
Wend
Drill_end_rom = Drill_end
Porta.1 = 0
Wait 1
End If
If Pina.5 = 1 Then
Porta.2 = 1
Wait 1
Temp1 = Drill_start
While Pina.5 = 0
If Pina.4 = 1 Then
Drill_speed = Drill_speed + 1
End If
If Pina.3 = 1 Then
Drill_speed = Drill_speed - 1
End If
If Drill_speed < 1 Then
Drill_speed = 0
End If
If Drill_speed > 100 Then
Drill_speed = 100
End If
Drill_speed_temp = Drill_speed / 40
Temp1 = Temp1 + Drill_speed_temp
Temp = Round(temp1)
Pulseout Portd , 6 , Temp
If Temp > Drill_end Then
Temp = Drill_start
Temp1 = Temp
End If
Waitms 18
Wend
Drill_speed_rom = Drill_speed
Wait 1
Porta.2 = 0
End If
Begin:
Do
Portd.6 = 0
While Pind.0 = 0
Pulseout Portd , 6 , Drill_start
Waitms 18
Wend
Temp1 = Drill_start
Portd.6 = 0
Do
Drill_speed_temp = Drill_speed / 40
Temp1 = Temp1 + Drill_speed_temp
Temp = Round(temp1)
Pulseout Portd , 6 , Temp
Waitms 17
Loop Until Temp > Drill_end
Loop
End
Neutral:
Disable Interrupts
Disable Int0
Portd.6 = 0
I = 0
Do
Pulseout Portd , 6 , Neutral_position
Waitms 18
I = I + 1
Loop Until I = 50
Portd.7 = 0
Wait 5
Return
Η pulseout εντολή δημιουργεί τους παλμούς που οδηγούν το servo. Η υπορουτίνα neutral είναι υπεύθυνη για την απομάκρυνση του τρυπανιού από την επιφάνεια όταν μετακινηθεί ο διακόπτης σε θέση Off.
73 de SV1IXP
