SparkFun Forums 

Where electronics enthusiasts find answers.

Your source for all things Atmel.
By ratim
#36577
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]