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