BASCOM_LCD

[HWSW Famulus]

Nekem ez megy...egy Mega128-ba betolva.
Van mas kod is  meg benne..?
Persze az LCD-n 19-ig szamol a feltetel miatt
a soroson meg a 20-at irja ki, ahogy kell...

Watchdog (beallitas) nem kavar valamit?
Anelkul sem jo nalad?

KJ

$regfile = "m128def.dat"
$crystal = 7372800

$baud = 9600
'------------------------------------------------------------------------------'
'LCD init
'------------------------------------------------------------------------------'
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = 
Porta.7 , E = Porta.2 , Rs = Porta.0
Config Lcd = 16 * 2

Dim Szamlalo As Byte
Dim Ckszamlalo As Byte

Cls : Cursor Off

Do
Szamlalo = Ckszamlalo
Reset Watchdog
Cls
Lcd "szamlalo"
Lowerline
Lcd Szamlalo
Waitms 100
Incr Ckszamlalo
Loop Until Ckszamlalo >= 20
Print Ckszamlalo
End

------------------------------------------------------------------------------------------------

> Valószínűleg egyszerű a magyarázat de nem nem találom a hibát!
> Szerintem logikus lenne,hogy elszámol 20-ig,majd le áll.
> A valóság,hogy csak 9-ig számol és leáll.
> Több módon is variáltam a programot,de nem akarja kiírni a
> változót,ha nagyobb mint 9.
> Ha 10-et,vagy nagyobb számmot akarok kíiratni,akkor az sem megy.
> BASCOM 1.11.7.7-ben fordítom.
> A szimulátorban sem megy, áramkörben sem.
>
> 'FÁJLNÉV:         proba.bas       2005-12-23
> $regfile = "m32def.dat"                                     'MEGA32
> $crystal = 4000000
> '---------------------------------------------------------
> Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 ,
> Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
> Config Lcd = 16 * 2
> Cursor On Blink                                             'kurzor
> bekapcsolva
> '---------------------------------
> Dim Szamlalo As Byte
> Dim Ckszamlalo As Byte
> '***********************************************
> Foprogram:
> Do
> Szamlalo = Ckszamlalo
> Reset Watchdog
> Cls
> Lcd "szamlalo"
> Lowerline
> Lcd Szamlalo
> Waitms 100
> Incr Ckszamlalo
> Loop Until Ckszamlalo >= 20
> Print Ckszamlalo
> End                                                         'end
> program
>
> Köszönettel: Otto
>
> -----------------------------------
>  Szponzorunk: http://tonerbolt.hu/