SparkFun Electronics Forum

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