Dim Va As Single                                        'Voltage
Dim Va1 As Single                                     'Voltage1
Dim W1 As Word                                        'ADC Input and Channel specification
Const H1 = 0.0049                                     'Reference
Start Adc                                                     'Analogwandler starten

Enable Interrupts  
Enable Int0                                                 'Interrupt 0 freigeben
On Int0 Label2 Nosave                              'Verweis auf Interrup Rutine "Label2"

 Do                                                    'read RS-232 Input from PC
    If  Ischarwaiting() = 1 Then
        A = Inkey()
        Select Case  Inkey(chr)

                Case  47 : Gosub Dispmessage            'char 47 = " / "
                Case Else : mld = mld + Chr(a)

        End Select
    End If
 Loop
End

'Interrupt rutine for Analog Input
Label2:
   W1 = Getadc(0)                                        'Read first AD Channel
    Va = H1 * W1                                           'Voltage steps * ADC Input
    If Va > VA1  Or Va < Va1 Then
        Print "Uvor " ; Fusing( Va , "#.###"):   ‘transmit via serial port to the PC
        Va1 = Va
    End If
Return
 

If Va > Va1 Or Va < Va1 Then

If Va <> Va1 Then

Config Adc = Single , Prescaler = Auto

'--------------------------------------------------------------------------------
'name                     : 1wireSearch.bas
'micro                    : Mega168p
 'suited for demo          : No    Only due to code size which could be
'reduced by removing print commands!!!!!!!!
 'commercial addon needed  : no
'--------------------------------------------------------------------------------

$regfile = "m168pdef.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 100                                              ' default use 32 for the hardware stack
$swstack = 100                                              'default use 10 for the SW stack
$framesize = 100                                            'default use 40 for the frame space






Config Adc = Single , Prescaler = Auto , Reference = Avcc
'Now give power to the chip
Start Adc

'With STOP ADC, you can remove the power from the chip
'Stop Adc
Dim Buf(10) As String * 6
Dim I As Byte
Dim S As String * 5
Dim B As String * 1
Dim X As Integer
Dim M As Single
Dim Y As Word
Dim W As Word , Channel As Byte
Dim K As Byte
Dim L As Byte


Config Pinb.2 = Output                                      'LCD back light  on my board

' Config 1wire = Portc.4                                     'use this pin

Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Portb.0 , Rs = Portb.1

       I = 1
      Set Portb.2                                           'turn back light on

 Config Lcd = 16x2

 L = 0
Y = 512
'open channel for output
'Open "comd.2:9600,8,n,1" For Output As #1



'Now open a pin for input
'Open "comd.3:9600,8,n,1" For Input As #2
'since there is no relation between the input and output pin
'there is NO ECHO while keys are typed
'For I = 1 To 10
' Print #1 , "Number"
' Wait 1
'Next I
Cls
Locate 1 , 1
Lcd "line 1"
Locate 2 , 1
Lcd "line 2"


Do
  Channel = 0

 'W = Getadc(channel)
 For K = 1 To 8
     Channel = K - 1
     W = 0
     M = 0
   For I = 1 To 8                                           'This will add 16 ADC samples together
   W = W + Getadc(channel)
   Next I
   Shift W , Right , 3


     'Print "Channel " ; Channel ; " value " ; W
     Select Case W

     Case Is > 512
     X = W - 512
     M = X / 20
     B = "+"
     S = B + Fusing(m , "##.##")

     Buf(k) = S

     Case Is < 512
     X = 512 - W
     M = X / 20
     B = "-"
     S = B + Fusing(m , "##.##")

     Buf(k) = S

     End Select
     'Print #1 , B ; S

     'Print B ; S
 Next
   Wait 5

  Select Case L
    Case 0

     Cls
     Locate 1 , 1
     Lcd "1=" ; Buf(1) ; "  2=" ; Buf(2)
     Locate 2 , 1
     Lcd "3=" ; Buf(3) ; "  4=" ; Buf(4)
     Incr L

    Case Is > 0

     Cls
     Locate 1 , 1
     Lcd "5=" ; Buf(5) ; "  6=" ; Buf(6)
     Locate 2 , 1
     Lcd "7=" ; Buf(7) ; "  8=" ; Buf(8)

     L = 0
   Print
   For K = 1 To 8
     Print K ; ">" ; Buf(k) ; "   ";
   Next



  End Select


Loop
End

'The new M163 has options for the reference voltage
'For this chip you can use the additional param :
'Config Adc = Single , Prescaler = Auto, Reference = Internal
'The reference param may be :
'OFF      : AREF, internal reference turned off
'AVCC     : AVCC, with external capacitor at AREF pin
'INTERNAL : Internal 2.56 voltage reference with external capacitor ar AREF pin

'Using the additional param on chip that do not have the internal reference will have no effect.