Hello,
My name is tim, and ive got a little problem.
Ive made/modified this program with my teacher but he is not working the following 3 day’s.
The whole programm is ok, but i cant show it on my LCD (pthq21603v-LEDBLUE LCD)
can somebody help me with this? or give me some hints?
Thanks,
Tim
Dim Tell_l As Byte
Dim Tell_h As Byte
Dim Dispdat As Byte
Dim Pcdat As Byte
Config Lcd = 16 * 2
Do
!Temperatuur:
PUSH DPH 'Tel register high byte
PUSH DPL 'Tel register low byte
MOV DPTR,#0 'Tel register 0 maken
SETB P1.1 'Input mode
SETB P1.0 'Laad de condensator
!Meten:
INC DPTR
JNB P3.6,METEN 'Wacht op de omslag 2.5 volt
CLR P1.0 'Ontlaad de condensator
MOV {TELL_L},DPL 'Teller-laag in DPL
MOV {TELL_H},DPH 'Teller-hoog in DPH
POP DPL 'Tel register
POP DPH
Call Temp_aanw
RET
’ Omzetting Teller Naar Echte Temperatuur.
!Temp_aanw:
MOV DPTR,#TEMP_TABEL
’ Temp_of Om De Aanwijzing Bij 20 Graden De
’ Tabel Gelijk Te Krijgen Met De Werkelijke
’ Temperatuur.
’ Van Tell_l Worden De Linker 6 Bits Gebruikt
’ Van Tell_h Worden De Rechter 2 Bits Gebruikt
’ Om Samen De Aanwijsbyte Voor De Temp_tabel Te Vormen.
MOV A,{TELL_L}
ANL A,#11111100B
RR A
RR A
MOV B,A
MOV A,{TELL_H}
ANL A,#00000011B
RR A
RR A
ADD A,B
MOVC A,@A+DPTR 'Basis+Offset
MOV {DISPDAT},A 'Data voor het uC-display
’ Vanaf Hier Tot Ret Moet Programma Nog Geoptimaliseerd Worden
’ Drie Verschillende Bewerkingen:
’ Als Dispdat > 9 Wordt Pcdat Gelijk Aan Dispdat + 10h
’ Als Dispdat < 9 En > 0 Dan Wordt Dispdat 0bh Verminderd En Naar Pcdat.
’ Als Dispdat < 0 Dan Wordt Dispdat 0ah Verminderd , Van 0 Afgetrokken
’ En Naar Pcdat.
'Als Dispdat > 9 Wordt Pcdat Gelijk Aan Dispdat + 10h
MOV B,A
ANL A,#0F0H 'maak rechter nibble 0
CJNE A,#0B0H,GEEN_B
MOV A,B
SUBB A,#0A0H;B0H-10H
MOV {PCDAT},A
RET
'Als DISPAT < 0 Dan Wordt Dispdat 0ah Verminderd , Van 0 Afgetrokken
'En Naar Pcdat.
!Geen_b:
MOV A,B
ANL A,#0F0H ;maak rechter nibble 0
CJNE A,#0A0H,GEEN_A
MOV A,B
SUBB A,#0A0H
MOV B,A
MOV A,#0AH
SUBB A,B
MOV {PCDAT},A
RET
'Als Dispdat > 9 Wordt Pcdat Gelijk Aan Dispdat + 10h
!Geen_a:
MOV A,B
ADD A,#10H
MOV {PCDAT},A
RET
Loop
!Temp_tabel:
etcetcetc
End