program wiesza sie po cls
: 20 wrz 2024, 19:53
Witam, mam niemałą zagwostkę... siedze już łądnych parę godzin, i nie widzę błędu.
Wystarczy, że odkomentuje cls to program nic nie wysyła na port com, po prostu program się wiesza nie wykonując print.
Wystarczy, że odkomentuje cls to program nic nie wysyła na port com, po prostu program się wiesza nie wykonując print.
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- $regfile = "m16def.dat" 'register file for ATmega328p
- $crystal = 16000000
- $baud=9600
- Dim Sekundy As Byte : Dim Minuty As Byte : Dim Godziny As Byte
- Dim Dzien As Byte : Dim Miesiac As Byte
- Dim Rok As Byte : Dim Dzien_tygodnia As Byte
- print "Godzina: " ; Godziny ; ":" ; Minuty ; ":" ; Sekundy
- Dim Pcf8574_lcd As Byte
- Pcf8574_lcd = 0x4E 'PCF8574 slave address. (&H40,&H42,&H44,&H46,&H48,&H4A,&H4C,&H4E)
- Dim Backlight As Byte : Backlight =1
- $lib "lcd_i2c_PCF8574.LIB" 'Incorporate the library of I2C LCD PCF8574 Adapter.
- Config Lcd = 20*4
- '------[For TWI]------------------
- $lib "i2c_twi.lib" 'Incorporate the hardware I2C/TWI library.
- Config Twi = 100000 'I2C bus clock = 100KHz
- Config Scl = Portc.1 'You must specify the SCL pin name.
- Config Sda = Portc.0 'You must specify the SDA pin name.
- I2cinit 'Initialize the SCL and SDA lines of the I2C bus.
- '-------------------------------
- print "dupa"
- 'Cls
- 'Lcd "Godzina: " ; Godziny ; ":" ; Minuty ; ":" ; Sekundy
- print "Godzina: " ; Godziny ; ":" ; Minuty ; ":" ; Sekundy
- 'Lowerline
- 'Lcd "Data: " ; Dzien ; "-" ; Miesiac ; "-" ; Rok ; " : " ; Dzien_tygodnia
- do
- nop
- loop