Device = 16F877   
   Config XT_OSC , WDT_OFF , PWRTE_ON , BODEN_OFF , LVP_OFF , CP_OFF , DEBUG_OFF
    Xtal 20
' ================================Íàñòðîéêà LCD ===============================================
                    
Declare LCD_Type=0         ' Òèï ÆÊÈ - áóêâåííî-öèôðîâîé   
Declare LCD_DTPin PORTB.4         ' Ïîðò äàííûõ ÆÊÈ   
Declare LCD_ENPin PORTB.3         ' Óïðàâëåíèå öåïüþ E   
Declare LCD_RSPin PORTB.2         ' Óïðàâëåíèå öåïüþ RS   
Declare LCD_Interface 4           ' 4-õ áèòíàÿ ðàçðÿäíîñòü øèíû äàííûõ    
Declare LCD_CommandUs 2000        ' Çàäåðæêà ïåðåä ïîñûëêîé êîìàíäû   
Declare LCD_DataUs 50             ' Çàäåðæêà ïåðåä ïîñûëêîé äàííûõ   
Declare LCD_Lines 2               ' Êîëè÷åñòâî ñòðîê ÆÊÈ   

TRISD = %00000000      
TRISB = %00000000
TRISC = %00001100
ADCON1 = %00000111
'pic 16F877
'PORTB.0 - äàò÷èê
   '-------------------------- Íà÷àëî -------------------------------------------
Dim imp As Byte      
Dim temp As Byte     
Dim hum As Byte      
Dim chksm As Byte   
Dim temp1 As Byte   
Dim hum1 As Byte     

Dim test As Byte     
Dim i As Byte                     
'-------------------------- Íàñòðîéêà TMR0 äëÿ ïðåðûâàíèé --------------------
OPTION_REG = %10001000
TMR0 = $00         ' Çíà÷åíèå ðåãèñòðà TMR0
                      
'-------------------------- Ãëàâíàÿ ïðîãðàììà -------------------------
   MainProgram:
    DelayMS 1000                        'ïðèâîäèì ñåíñîð â ðàáî÷åå ñîñòîÿíèå

loop:
chksm=0
TRISB.0 = 0                        'port b íà âûõîä
PORTB.0=1                          'âûñîêèé óðîâåíü íà äàò÷èê
DelayMS 50                         'íåìíîãî ïîäîæäåì
PORTB.0=0:DelayMS 18               'óñòàíîâèì íà  18ms íèñêèé óðîâåíü - çàïðîñ äàò÷èêà
PORTB.0=1:DelayUS 30               'óñòàíîâèì íà  30us âûñîêèé óðîâåíü - îñâîáîäèì øèíó
imp = PulsIn PORTB.0,1             'æäåì ïîêà âûñîêèé óðîâåíü
If imp > 130 Then GoTo loop1
If imp < 80 Then GoTo loop
'-------------------------------Ñ÷èòûâàíèå ïàðàìåòðîâ-------------------------
imp = 0
For i = 7 To 0 Step -1
imp = PulsIn PORTB.0,1               
If imp >70 Then
SetBit hum,i
Else
ClearBit hum,i
EndIf
Next i

For i = 7 To 0 Step -1
imp = PulsIn PORTB.0,1            
If imp >70 Then
SetBit hum1,i
Else
ClearBit hum1,i
EndIf
Next i

For i = 7 To 0 Step -1
imp = PulsIn PORTB.0,High            
If imp >70 Then
SetBit temp,i
Else
ClearBit temp,i
EndIf
Next i

For i = 7 To 0 Step -1
imp = PulsIn PORTB.0,High            
If imp >70 Then
SetBit temp1,i
Else
ClearBit temp1,i
EndIf
Next i

For i = 7 To 0 Step -1
imp = PulsIn PORTB.0,High           
If imp >70 Then
SetBit chksm,i
Else
ClearBit chksm,i
EndIf
Next i
   Print 1,1, #hum," %"
   Print 2,1, #temp," C"
DelayMS 3000                        
GoTo loop

loop1:

DelayMS 10
Print 1,1, "sensor not ready"       
GoTo loop                     
                            
                      
GoTo  MainProgram