Hi all
If somebody want detect gold with minipuls must programmed ATMEGA8 with
this program (but LCD don't work and only can use HP or SP)
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Timer , Prescale = 1
Stop Timer1
Config Portb = Output
Config Portd = Output
Portb.1 = 0
Portd.6 = 0
Portd.7 = 0
Dim A As Word
Startline1:
Start Timer1
A = 0
Portb.1 = 1
Do
A = A + 1
Loop Until A = 27
Portb.1 = 0
A = 0
Do
A = A + 1
Loop Until A = 4
A = 0
Portd.6 = 1
Do
A = A + 1
Loop Until A = 12
A = 0
Portd.6 = 0
Do
A = A + 1
Loop Until A = 53
A = 0
Portd.7 = 1
Do
A = A + 1
Loop Until A = 12
A = 0
Portd.7 = 0
Do
A = A + 1
Loop Until A = 158
Stop Timer1
Goto Startline1
If somebody want detect gold with minipuls must programmed ATMEGA8 with
this program (but LCD don't work and only can use HP or SP)
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Timer , Prescale = 1
Stop Timer1
Config Portb = Output
Config Portd = Output
Portb.1 = 0
Portd.6 = 0
Portd.7 = 0
Dim A As Word
Startline1:
Start Timer1
A = 0
Portb.1 = 1
Do
A = A + 1
Loop Until A = 27
Portb.1 = 0
A = 0
Do
A = A + 1
Loop Until A = 4
A = 0
Portd.6 = 1
Do
A = A + 1
Loop Until A = 12
A = 0
Portd.6 = 0
Do
A = A + 1
Loop Until A = 53
A = 0
Portd.7 = 1
Do
A = A + 1
Loop Until A = 12
A = 0
Portd.7 = 0
Do
A = A + 1
Loop Until A = 158
Stop Timer1
Goto Startline1
Comment