Elektromagnetische foto Wobbler (8 / 9 stap)

Stap 8: Programmeren.

Het programma voor deze gadget is zeer eenvoudig, maar het bepalen van de parameters is heel erg een geval van trial and error. Ik geven u niet exacte parameters voor de timing zoals het van de mijne verschillen zal. Het kostte me ongeveer 30 minuten om te raken van de juiste plek.

Schreef ik mijn code in Bascom.

$regfile = "attiny45.dat"
$crystal = 8000000

Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.3 = Input
Config Portb.4 = Input

Dim W As Integer

Config Adc = Single, Prescaler = Auto
Start Adc

Op Int0 knop ' Reedswitch
Int0 inschakelen
Inschakelen Interrupts

Portb.1 = 0
Portb.0 = 0

Doen
W = Getadc(2) ' ingesteld van de LED's
Als W > 400 vervolgens
Portb.0 = 0
Anders
Portb.0 = 1
End If
Loop

Knop:
Portb.1 = 1 ' drijft de spoel
Waitms 125
Portb.1 = 0
Waitms 125
Terugkeer
Einde