Mirley - Elektronika i Programowanie

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 40
$framesize = 40
$baud = 19200
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.4 = Output
Config Portc.2 = Output
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portd.0 , Db7 = Portd.1 , E = Portc.3 , Rs = Portc.1
Config Lcd = 16 * 1a
Cursor Off
Cls
Lcd "test"
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portc.2 = 0
 
Config Timer1 = Timer , Prescale = 1 , Capture Edge = Rising , Noise Cancel = 1
Config Aci = On , Compare = On , Trigger = Rising
 
On Icp1 Oncapture
Enable Icp1
 
On Int0 Ontaster
Config Int0 = Falling
Enable Int0
 
Enable Interrupts
 
Dim Licznik As Word
Dim Icr_neu As Word
Dim Icr_alt As Word
Dim Czasf As Long
Dim Czestotliwosc As Word
Dim A(16) As Word
Dim Sumaf As Word
Dim Dodaj As Integer
Dim Durchschnitt As Word
Dim Grenzeo As Word
Dim Grenzeu As Word
Dim Ton As String * 1
Dim Tonalt As String * 1
Dim Folge As String * 15
Dim Timeout As Word
 
 
 
'Portd.3 = 0
'Portd.2 = 0
Main:
 
Portd.3 = 1
 
 
Waitms 1
Czasf = 8000000 / Icr_neu
Icr_neu = 0
Czestotliwosc = Czasf
 
Incr Timeout
If Timeout > 150 Then
  Folge = ""
  Tonalt = ""
  Timeout = 0
End If
 
A(16) = A(15)
A(15) = A(14)
A(14) = A(13)
A(13) = A(12)
A(12) = A(11)
A(11) = A(10)
A(10) = A(9)
A(9) = A(8)
A(8) = A(7)
A(7) = A(6)
A(6) = A(5)
A(5) = A(4)
A(4) = A(3)
A(3) = A(2)
A(2) = A(1)
A(1) = Czestotliwosc
 
Sumaf = 0
For Dodaj = 1 To 16
  Sumaf = Sumaf + A(dodaj)
Next
 
Durchschnitt = Sumaf / 16
Grenzeo = A(1) + 10
Grenzeu = A(1) - 10
 
If Durchschnitt > Grenzeu And Durchschnitt < Grenzeo Then
 
  Select Case Durchschnitt
Case 970 To 990 : Ton = "0"
Case 1187 To 1207 : Ton = "1"
Case 1436 To 1456 : Ton = "2"
Case 1785 To 1805 : Ton = "3"
Case 2090 To 2110 : Ton = "4"
    Case Else : Goto Main
  End Select
 
Else : Goto Main
End If
 
If Ton = Tonalt Then Goto Main
Tonalt = Ton
 
Folge = Folge + Ton
Timeout = 0
 
 
If Len(folge) >1 Then
Print, Folge
Cls
Lcd Folge
 
End If
Goto Main
 
 
 
Ontaster:
Portd.3 = 1
 
 
 
Return
 
 
Oncapture:
  Licznik = Timer1
  Icr_neu = Licznik - Icr_alt
  Icr_alt = Licznik
  Portd.3 = 0
 
 
Return