'w wersji
vga6f dodano obsługę wyświetlacza ethernetowego
'KOMPILOWANE W BASCOM 2.0.7.6
'PROGRAMOWANIE PRZEZ UART 2 (ZASTOSOWAĆ
KROSOWANIE RS232)
'Fusebits:
'$PROG &HFF,&HFD,&H59,&HFF' generated.
Take care that the chip supports all fuse bytes.
'-----------------------------------------------------------------------------
' --- Definicje związane z kartą VGA ---
'$sim
' Definicje adresów rejestrów karty VGA
Const
Vga_addr_wr_lo =
&H80
' adres kursora/generatora znaków LSB dla zapisu
(tylko zapis)
Const
Vga_addr_wr_hi =
&H90
' adres kursora/generatora znaków MSB dla zapisu
(tylko zapis)
Const
Vga_addr_rd_lo =
&HA0
' adres kursora/generatora znaków LSB dla odczytu
(tylko zapis)
Const
Vga_addr_rd_hi =
&HB0
' adres kursora/generatora znaków MSB dla odczytu
(tylko zapis)
Const
Vga_data_wr =
&HC0
' dana do zapisu (tylko zapis)
Const
Vga_data_rd =
&H40
' dana do odczytu (tylko odczyt)
Const
Vga_control =
&HD0
' konfiguracja karty (tylko zapis)
' drfinicja bitów konfiguracujnych
(rejestr VGA_CONTROL)
Const
Ctrl_chg0 =
&H01
' numer generatora znaków dla VM=0
Const
Ctrl_chg1 =
&H02
'
Const
Ctrl_pnr =
&H04
' numer strony video
Const
Ctrl_cen =
&H08
' załączenie kursora
Const Ctrl_ct
=
&H10
' rodzaj kursora
Const
Ctrl_ven =
&H20
' załączenie video
Const Ctrl_vm
=
&H40
' tryb video
Const
Ctrl_lcen =
&H80
' załączenie podwójnego kursora
' definicja adresów pamięci RAM karty VGA
Const
Vpage0_addr =
&H0000
' adres początku 0 strony pamięci Video
Const
Vpage1_addr =
&H2000
' adres początku 1 strony pamięci Video
Const
Chargen0_addr =
&H4000
' adres początku 0 genertora znaków
Const
Chargen1_addr =
&H5000
' adres początku 1 genertora znaków
Const
Chargen2_addr =
&H6000
' adres początku 2 genertora znaków
Const
Chargen3_addr =
&H7000
' adres początku 3 genertora znaków
Const
Vpage_size = 2400
' rozmiar strony graficznej 80*30
' definicja bitów konfiguracyjnych
atrybutu znaków
' kolory znaków
Const Black
=
&H00
Const Red
=
&H01
Const Green
=
&H02
Const Blue
=
&H04
Const Yellow
=(red
+ Green)
Const Magenta
=(red
+ Blue)
Const Cyan
=(green
+ Blue)
Const White
=(red
+ Green
+ Blue)
' kolory tła
Const
Bg_black =
&H00
Const Bg_red
=
&H08
Const
Bg_green =
&H10
Const Bg_blue
=
&H20
Const
Bg_yellow =(red
+ Green)
Const
Bg_magneta =(red
+ Blue)
Const Bg_cyan
=(green
+ Blue)
Const
Bg_white =(red
+ Green
+ Blue)
Const
Blinking =
&H40
Const
Underline =
&H80
Const
Vga_mode =(ctrl_ven)
' aktualny tryb pracy karty VGA
' UWAGA: kolory na czarnym tle
Const Color1
=(green
+ Bg_black)
' kolor wyświetlania czasu
Const Color2
=(blue
+ Bg_black)
' kolor wyświetlania daty
Const Color3
=(yellow
+ Bg_black)
' kolor wyświetlania dnia tygodnia
Const
Color_prg =(red
+ Bg_black)
' kolor wyświetlanie w trybie
programowania
'definicje znaków
Const
Znak_spacja = 0
Const
Znak_minus = 1
Const Znak_0
= 2
Const Znak_1
= 3
Const Znak_2
= 4
Const Znak_3
= 5
Const Znak_4
= 6
Const Znak_5
= 7
Const Znak_6
= 8
Const Znak_7
= 9
Const Znak_8
= 10
Const Znak_9
= 11
Const
Znak_dwukropek = 12
Const
Znak_rownosci = 13
Const Znak_aa
= 14
Const Znak_bb
= 15
Const Znak_cc
= 16
Const Znak_dd
= 17
Const Znak_ee
= 18
Const Znak_ff
= 19
Const Znak_gg
= 20
Const Znak_hh
= 21
Const Znak_ii
= 22
Const Znak_jj
= 23
Const Znak_kk
= 24
Const Znak_ll
= 25
Const Znak_mm
= 26
Const Znak_nn
= 27
Const Znak_oo
= 28
Const Znak_pp
= 29
Const Znak_qq
= 30
Const Znak_rr
= 31
Const Znak_ss
= 32
Const Znak_tt
= 33
Const Znak_uu
= 34
Const Znak_vv
= 35
Const Znak_ww
= 36
Const Znak_xx
= 37
Const Znak_yy
= 38
Const Znak_zz
= 39
Const Znak_a
= 40
Const Znak_b
= 41
Const Znak_c
= 42
Const Znak_d
= 43
Const Znak_e
= 44
Const Znak_f
= 45
Const Znak_g
= 46
Const Znak_h
= 47
Const Znak_i
= 48
Const Znak_j
= 49
Const Znak_k
= 50
Const Znak_l
= 51
Const Znak_m
= 52
Const Znak_n
= 53
Const Znak_o
= 54
Const Znak_p
= 55
Const Znak_q
= 56
Const Znak_r
= 57
Const Znak_s
= 58
Const Znak_t
= 59
Const Znak_u
= 60
Const Znak_v
= 61
Const Znak_w
= 62
Const Znak_x
= 63
Const Znak_y
= 64
Const Znak_z
= 65
Const
Znak_stopien_celsj =
66
Const
Znak_lewa_gorna_ramka =
67 'lewa górna strona ramki |~ 67
Const
Znak_prawa_gorna_ramka =
68 'prawa górna strona ramki ~| 68
Const
Znak_lewa_dolna_ramka =
69 'lewa dolna strona ramki |_ 69
Const
Znak_prawa_dolna_ramka =
70 'prawa dolna strona ramki _| 70
Const
Znak_lewa_pionowa_ramka =
71 'lewa pionowa strona ramki | 71
Const
Znak_prawa_pionowa_ramka =
72 'prawa pionowa strona ramki | 72
Const
Znak_kreska_pozioma =
73 ' (myślnik przez 8 pkt) -- 73
Const
Znak_pelny = 74
'znak pełny czyli kółko pełne 74
Const
Znak_ukosnik = 75
Const
Znak_kreska_pozioma_dol =
76 ' (myślnik przez 8 pkt dołem) __ 76
Const
Znak_kreska_pozioma_gora =
77 ' (myślnik przez 8 pkt górą) ~~ 77
' deklaracje procedur obsługi karty VGA
Declare
Function
Vga_receive()
As
Byte
Declare
Sub
Vga_transmit(byvalbregaddr
As
Byte
,
Byval Bdata
As
Byte)
Declare
Sub
Vga_put_char(byval
Bchar As
Byte
,
Byval Battr
As
Byte)
Declare
Sub
Vga_write_addr_set(byval
Wdata As
Word)
Declare
Sub
Vga_read_addr_set(wdata
As
Word)
Declare
Sub
#$A
(byval
Bpagenr As
Byte)
Declare
Sub
Vga_chargen_init(byval
Bchargennr As
Byte
,
Byval Bcharstart
As
Byte
,
Byval Bcharend
As
Byte
, Wchardef
As
Word)
Declare
Function
Make_addr(byval
Bcurx As
Byte
,
Byval Bcury
As
Byte)
As
Word
'------------------------------------------------------------------------------
'******************************************************************************
' GŁÓWNA CZĘŚĆ PROGRAMU
'******************************************************************************
'------------------------------------------------------------------------------
$regfile
=
"m644pdef.dat"
' procesor ATMega16
$crystal
= 5529600
' Kwarc lub wew. oscylator 8MHz
$hwstack
= 64
$swstack
= 64
$framesize
= 64
$baud
= 38400
' Konfiguracja portu SPI (MISO,MOSI,SCK,CS)
oraz
' dodatkowych linii RESET, SLEEP
Spi_cs Alias
Portb.4
Spi_reset Alias
Portb.2
Spi_sleep Alias
Portb.3
Spi_miso Alias
Pinb.6
Config Spi_cs
=
Output
Config
Spi_reset =
Output
Config
Spi_sleep =
Output
Config Spi
= Hard
, Interrupt
=
Off
,
Data Order
= Msb
, Master
= Yes
, Polarity
=
Low
, Phase
= 0
, Clockrate
= 4
, Noss
= 1
'komunikacja z wyśw. ethernetowym na
serial 1 - tylko wysyłanie danych
Config Com2
= 19200
, Synchrone
= 0
, Parity
= None
, Stopbits
= 1
, Databits
= 8
, Clockpol
= 0
Config
Serialout1 =
Buffered , Size
= 130
Open
"com2:"
For
Binary
As
#2
Config
Serialin = Buffered
, Size
= 44
, Bytematch
= 10
'bytematch=10 po odebraniu znaku CR skocz do
podprogramu "Serial0charmatch"
Config
Input
= Crlf
,
Echo
= Cr
Ddrd.0
= 0
Portd.0
= 1
Enable
Interrupts
Ddrd.7
= 1
:
Portd.7
= 1
: Led
Alias
Portd.7
Led = 1
Declare
Sub
Wyswietlanie_na_tv
Declare
Function
Przypisanie(byval
Tp11 As
Byte)
As
Byte
Declare
Sub
Rysuj_ramke
Declare
Sub
Wyswietlanie_duza_godzina(byval
Xx As
Byte
,
Byval Yy
As
Byte
,
Byval Znaczek
As
Byte)
Declare
Sub
Wyswietlanie_smieci
Declare
Sub
Przelicz_dzien_wywozu
Dim Wlabel
As
Word
' zmienna pomocnicza
Dim
Pozycja_kursora As
Word
Dim Ii
As
Byte
Dim Kolorek
As
Byte
Dim Pomocc
As
Byte
, Odebrano
As
Bit
Dim
Dzien_tygodnia As
Byte
, _hour
As
Byte
, _min
As
Byte
, _day
As
Byte
, _month
As
Byte
, _year
As
Byte
, Month_old
As
Byte
'-----------------------------------------------
'ZMIENNE DLA RS232
Dim Bufor
As
Byte
Dim Names
As
String
* 1
Dim
Ilosc_znakow_w_buforze_odb_rs232 As
Word
Dim Tp
As
Byte
, Tb
As
Byte
, Tbg
As
Byte
Dim Ts
As
Byte
, Tsd
As
Byte
, Tz
As
Byte
Dim Tp1
As
Byte
, Tp2
As
Byte
, Tzujemna
As
Bit
, Status_zaworow
As
Bit
, Status_bojlera
As
Bit
, Tp3
As
Byte
Dim
Czas_wlaczenia_podlogowki As
Byte
, Tzad
As
Byte
, Tryb_pracy_pieca
As
Byte
Dim Tgar
As
Byte
, Twa
As
Byte
, Tsyp
As
Byte
, Tdz
As
Byte
' Zainicjowanie portu SPI
Spi_cs = 0
Spi_reset = 0
' Reset aktywny
Spi_sleep = 0
' Sleep nieaktywny
Spiinit
' Zakończenie sygnału RESET dla karty VGA
Spi_reset = 1
'Gosub Serial0charmatch
' Zainicjowanie 0 generatora znaków (33
znaki)
Wlabel =
Loadlabel(font0_8_16)
'przypisanie do etykiety wlabel tabeli z
fontami
Call
Vga_chargen_init(0
, 0
, 120
, Wlabel)
'wpisanie 76 fontów do pamięci vga (zerowy
generator znaków)
' Zainicjowanie 0 strony pamięci Video
Call
#$A
(0)
' Załączenie karty, kusor wyłączony, video
załączone
' tryb z miganiem i podświetleniem
Call
Vga_transmit(vga_control
, Vga_mode)
' --- Główna petla programu ---
Call
#$A
(0)
'Tp = 51 : Ts = 22 : Tsd = 26 : Tb = 15 :
Tbg = 45 : Tz = 12 : Dzien_tygodnia = 5
'_hour = 12 : _min = 43 : _day = 10 :
_month = 5 : _year = 12 : Tryb_pracy_pieca = 1 : Tzad = 47
Pozycja_kursora =
Make_addr(7
, 20)
'wyznaczenie pozycji kursora (x,y)
Odebrano = 1
: Led
= 0
: Month_old
= 4
: _month
= 5
Call
Rysuj_ramke
Call
Wyswietlanie_smieci
Do
Call
Wyswietlanie_na_tv
If Month_old
< _month
Then
Call
Wyswietlanie_smieci
End
If
Month_old = _month
'przepisanie miesiąca do
month_old-potrzebne do wyświetlania śmieci (jednokrotna zmiana wyświetlania po
zmianie miesiąca)
Loop
End
Sub
Wyswietlanie_na_tv
If Odebrano
= 0
Then
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze odb.
rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odb
Names =
Inkey()
: Bufor
=
Asc(names)
'odczytaj znak i przekształć na
odpowiadający mu kod
If Bufor
= 65
Then
'jeśli pierwszy odebrany znak to 'A' czyli odczyt
Tp
For Ii
= 1
To 5
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(2
, 1)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_p
, Pomocc)
'wyświetl p
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
If
Ilosc_znakow_w_buforze_odb_rs232 >
8 Then
'jeśli Tp jest trzycyfrowa wtedy
Names =
Inkey()
: Bufor
=
Val(names)
: Tp1
= Przypisanie(bufor)
: Tp
= Bufor
* 100
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Bufor
= Bufor
* 10
: Tp
= Tp
+ Bufor
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tp
= Bufor
+ Tp
Else
'a jeśli dwucyfrowa wtedy pacnij tak
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tp
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tp
= Tp
+ Bufor
End
If
' Troznicowa = Tzad - Tp
If Tp
< 55
Then
'jeśli temp pieca mniejsza niż 55 stopni
Pomocc = Yellow
Else
Pomocc = White
If Tp
> 74
Then Pomocc
= Red
+ Blinking
End
If
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
If Tp1
= Znak_spacja
Then
'jeśli temperatura jest dwucyfrowa
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(1)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb dwucyfrowo
Else
Tp1 = Tp1
-2
: Tp2
= Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(1)
;
Spc(3)
; Tp1
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
End
If
If Bufor
= 66
Then
'jeśli pierwszy odebrany znak to 'B' czyli odczyt
Tb
For Ii
= 1
To 5
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(14
, 1)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_b
, Pomocc)
'wyświetl p
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
If
Ilosc_znakow_w_buforze_odb_rs232 >
8 Then
'jeśli Tp jest trzycyfrowa wtedy
Names =
Inkey()
: Bufor
=
Val(names)
: Tp1
= Przypisanie(bufor)
: Tb
= Bufor
* 100
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Bufor
= Bufor
* 10
: Tb
= Tb
+ Bufor
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tb
= Bufor
+ Tb
' Tp1 = Tp1 -2 : Tp2 = Tp2 -2 : Tp3 = Tp3
-2 'zmieniamy, żeby było zgodne z faktycznymi danymi (w tablicy dane są
przesunięte o 2)
' Print # 2 , Chr(2) ; Spc(3) ; Tp1 ; Tp2
; Tp3 ; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
Else
'a jeśli dwucyfrowa wtedy pacnij tak
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tb
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tb
= Tb
+ Bufor
' Tp2 = Tp2 -2 : Tp3 = Tp3 -2 'zmieniamy,
żeby było zgodne z faktycznymi danymi (w tablicy dane są przesunięte o 2)
' Print # 2 , Chr(2) ; Spc(4) ; Tp2 ; Tp3
; Chr(94) ; Chr(67) ; 'wyświetl Tb dwucyfrowo
End
If
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
If Tp1
= Znak_spacja
Then
'jeśli temperatura jest dwucyfrowa
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(2)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb dwucyfrowo
Else
Tp1 = Tp1
-2
: Tp2
= Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(2)
;
Spc(3)
; Tp1
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
End
If
If Bufor
= 67
Then
'jeśli pierwszy odebrany znak to 'C' czyli odczyt
Tbg
For Ii
= 1
To 6
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(27
, 1)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_b
, Pomocc)
'wyświetl p
Call
Vga_put_char(znak_g
, Pomocc)
'wyświetl g
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
If
Ilosc_znakow_w_buforze_odb_rs232 >
9 Then
'jeśli Tp jest trzycyfrowa wtedy
Names =
Inkey()
: Bufor
=
Val(names)
: Tp1
= Przypisanie(bufor)
: Tbg
= Bufor
* 100
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Bufor
= Bufor
* 10
: Tbg
= Tbg
+ Bufor
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tbg
= Bufor
+ Tbg
' Tp1 = Tp1 -2 : Tp2 = Tp2 -2 : Tp3 = Tp3
-2 'zmieniamy, żeby było zgodne z faktycznymi danymi (w tablicy dane są
przesunięte o 2)
' Print # 2 , Chr(3) ; Spc(3) ; Tp1 ; Tp2
; Tp3 ; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
Else
'a jeśli dwucyfrowa wtedy pacnij tak
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tbg
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tbg
= Tbg
+ Bufor
' Tp2 = Tp2 -2 : Tp3 = Tp3 -2 'zmieniamy,
żeby było zgodne z faktycznymi danymi (w tablicy dane są przesunięte o 2)
' Print # 2 , Chr(3) ; Spc(4) ; Tp2 ; Tp3
; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
End
If
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
If Tp1
= Znak_spacja
Then
'jeśli temperatura jest dwucyfrowa
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(3)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb dwucyfrowo
Else
Tp1 = Tp1
-2
: Tp2
= Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(3)
;
Spc(3)
; Tp1
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
End
If
If Bufor
= 68
Then
'jeśli pierwszy odebrany znak to 'D' czyli Tz=0
stopni
For Ii
= 1
To 5
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(2
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_z
, Pomocc)
'wyświetl z
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
: Tp2
= Znak_spacja
: Tp3
= Znak_0
: Tz
= 0
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Print
# 2
,
Chr(0)
;
Spc(5)
;
"0"
;
Chr(94)
;
Chr(67)
;
End
If
If Bufor
= 69
Then
'jeśli pierwszy odebrany znak to 'E' czyli Tz < 0
For Ii
= 1
To 6
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(2
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_z
, Pomocc)
'wyświetl z
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
If
Ilosc_znakow_w_buforze_odb_rs232 >
6 Then
'jeśli Tz jest dwucyfrowa wtedy
Tp1 = Znak_minus
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tz
= Bufor
* 10
': Tz = Tz + Bufor
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tz
= Bufor
+ Tz
' Tp2 = Tp2 -2 : Tp3 = Tp3 -2 'zmieniamy,
żeby było zgodne z faktycznymi danymi (w tablicy dane są przesunięte o 2)
' Print # 2 , Chr(0) ; Spc(3) ; "-" ; Tp2
; Tp3 ; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
Else
'a jeśli jednocyfrowa przelicz tak
Tp1 = Znak_spacja
: Tp2
= Znak_minus
'przypisanie spacji na pozycji nr 1 i minusa na
poz. nr 2
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tz
= Bufor
' Tp2 = Tp2 -2 : Tp3 = Tp3 -2 'zmieniamy,
żeby było zgodne z faktycznymi danymi (w tablicy dane są przesunięte o 2)
' Print # 2 , Chr(0) ; Spc(4) ; "-" ; Tp3
; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
End
If
Pomocc = Magenta
'dla ujemnych temp kolor magenta
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
If Tp1
= Znak_spacja
Then
'jeśli temperatura jest dwucyfrowa
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(0)
;
Spc(4)
;
"-"
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb dwucyfrowo
Else
Tp1 = Tp1
-2
: Tp2
= Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(0)
;
Spc(3)
;
"-"
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb jednocyfrowo
End
If
End
If
If Bufor
= 70
Then
'jeśli pierwszy odebrany znak to 'F' czyli Tz>0
For Ii
= 1
To 6
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(2
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_z
, Pomocc)
'wyświetl z
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
If
Ilosc_znakow_w_buforze_odb_rs232 >
6 Then
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tz
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tz
= Tz
+ Bufor
' Tp2 = Tp2 -2 : Tp3 = Tp3 -2 'zmieniamy,
żeby było zgodne z faktycznymi danymi (w tablicy dane są przesunięte o 2)
' Print # 2 , Chr(0) ; Spc(4) ; Tp2 ; Tp3
; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
Else
Tp2 = Znak_spacja
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tz
= Bufor
' Tp3 = Tp3 - 2 'zmieniamy, żeby było
zgodne z faktycznymi danymi (w tablicy dane są przesunięte o 2)
' Print # 2 , Chr(0) ; Spc(5) ; Tp3 ;
Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
End
If
If Tz
> 28
Then Pomocc
= Red
'jeśli temp zewn > 28 stopni wyświetlanie temp na
czerwono
If Tz
< 10
Or Tz
= 0
Then Tp2
= Znak_spacja
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
If Tp2
= Znak_spacja
Then
'jeśli temperatura jest dwucyfrowa
Tp3 = Tp3
- 2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(0)
;
Spc(5)
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb jednocyfrowo
Else
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(0)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb dwucyfrowo
End
If
End
If
If Bufor
= 71
Then
'jeśli pierwszy odebrany znak to 'G' czyli odczyt
Ts
For Ii
= 1
To 5
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(14
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_s
, Pomocc)
'wyświetl s
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Ts
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Ts
= Ts
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(4)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 72
Then
'jeśli pierwszy odebrany znak to 'H' czyli odczyt
Tsd
For Ii
= 1
To 6
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(27
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_s
, Pomocc)
'wyświetl s
Call
Vga_put_char(znak_d
, Pomocc)
'wyświetl d
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tsd
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tsd
= Tsd
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(5)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 110
Then
'jeśli pierwszy odebrany znak to 'n' czyli odczyt
Temp u dzieci
For Ii
= 1
To 6
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(40
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_d
, Pomocc)
'wyświetl d
Call
Vga_put_char(znak_z
, Pomocc)
'wyświetl z
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tdz
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tdz
= Tdz
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(6)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 111
Then
'jeśli pierwszy odebrany znak to 'o' czyli odczyt
Twarsztacik
For Ii
= 1
To 7
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(40
, 1)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_w
, Pomocc)
'wyświetl w
Call
Vga_put_char(znak_a
, Pomocc)
'wyświetl a
Call
Vga_put_char(znak_r
, Pomocc)
'wyświetl r
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Twa
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Twa
= Twa
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(9)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 112
Then
'jeśli pierwszy odebrany znak to 'p' czyli odczyt
Tsypialnia
For Ii
= 1
To 7
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(53
, 3)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_s
, Pomocc)
'wyświetl s
Call
Vga_put_char(znak_y
, Pomocc)
'wyświetl y
Call
Vga_put_char(znak_p
, Pomocc)
'wyświetl p
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tsyp
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tsyp
= Tsyp
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(7)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 113
Then
'jeśli pierwszy odebrany znak to 'q' czyli odczyt
Tgaraż
For Ii
= 1
To 7
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(53
, 1)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_g
, Pomocc)
'wyświetl g
Call
Vga_put_char(znak_a
, Pomocc)
'wyświetl a
Call
Vga_put_char(znak_r
, Pomocc)
'wyświetl r
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tgar
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tgar
= Tgar
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(8)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 114
Then
'jeśli pierwszy odebrany znak to 'q' czyli odczyt
Tkomin
For Ii
= 1
To 7
Names =
Inkey()
': Waitms 2 'żeby minęły niepotrzebne
znaki
Next Ii
Ilosc_znakow_w_buforze_odb_rs232 =
Bufspace(1)
'ilość wolnego miejsca w buforze
odbiorczym rs232
Ilosc_znakow_w_buforze_odb_rs232 =
44 -
Ilosc_znakow_w_buforze_odb_rs232 'ilość
znaków w buforze odbiorczym
Pozycja_kursora =
Make_addr(66
, 1)
'wyznaczenie pozycji kursora (x,y)
Call
Vga_write_addr_set(pozycja_kursora)
Pomocc = White
Call
Vga_put_char(znak_tt
, Pomocc)
'wyświetl T
Call
Vga_put_char(znak_k
, Pomocc)
'wyświetl k
Call
Vga_put_char(znak_o
, Pomocc)
'wyświetl o
Call
Vga_put_char(znak_m
, Pomocc)
'wyświetl m
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wyświetl =
' Call Vga_put_char(znak_spacja , Pomocc)
'wyświetl spację
Tp1 = Znak_spacja
'przypisanie spacji na pozycji nr 1
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Tgar
= Bufor
* 10
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tgar
= Tgar
+ Bufor
Call
Vga_put_char(tp1
, Pomocc)
:
Call Vga_put_char(tp2
, Pomocc)
:
Call Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
'wyświetl stopien celsjusza
Call
Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
:
Call Vga_put_char(znak_spacja
, Pomocc)
Tp2 = Tp2
-2
: Tp3
= Tp3
-2
'zmieniamy, żeby było zgodne z faktycznymi danymi
(w tablicy dane są przesunięte o 2)
Print
# 2
,
Chr(10)
;
Spc(4)
; Tp2
; Tp3
;
Chr(94)
;
Chr(67)
;
'wyświetl Tb trzycyfrowo
End
If
If Bufor
= 73
Then
'jeśli pierwszy odebrany znak to 'I' czyli odczyt
STATUSU ZAWORÓW (zamknięte)
Pozycja_kursora =
Make_addr(58
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
+ Black
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
For Ii
= 1
To 4
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie pełnego znaku
Next Ii
Pozycja_kursora =
Make_addr(71
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Red
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
If Bufor
= 74
Then
'jeśli pierwszy odebrany znak to 'J' czyli odczyt
STATUSU ZAWORÓW (otwarte)
Pozycja_kursora =
Make_addr(58
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Red
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
Pozycja_kursora =
Make_addr(71
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
+ Black
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
For Ii
= 1
To 4
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
If Bufor
= 75
Then
'jeśli pierwszy odebrany znak to 'K' czyli odczyt
STATUSU BOJLERA (włączony)
Pozycja_kursora =
Make_addr(32
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Red
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
If Bufor
= 76
Then
'jeśli pierwszy odebrany znak to 'L' czyli odczyt
STATUSU BOJLERA (wyłączony)
Pozycja_kursora =
Make_addr(32
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Black
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
If Bufor
= 77
Then
'jeśli pierwszy odebrany znak to 'M' czyli odczyt
CZASU WŁĄCZENIA OGRZEW. PODŁOG.
Pozycja_kursora =
Make_addr(2
, 13)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Call
Vga_put_char(znak_oo
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_l
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_spacja
, Pomocc)
For Ii
= 1
To 31
Names =
Inkey()
Next Ii
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
:
Czas_wlaczenia_podlogowki =
Bufor +
Czas_wlaczenia_podlogowki
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_m
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_ukosnik
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
End
If
If Bufor
= 78
Then
'jeśli pierwszy odebrany znak to 'N' czyli odczyt
CZASU WŁĄCZENIA OGRZEW. PODŁOG.
Pozycja_kursora =
Make_addr(2
, 13)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Call
Vga_put_char(znak_oo
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_l
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_spacja
, Pomocc)
For Ii
= 1
To 31
Names =
Inkey()
Next Ii
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Bufor
= Bufor
* 10
: Czas_wlaczenia_podlogowki
= Bufor
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
:
Czas_wlaczenia_podlogowki =
Bufor +
Czas_wlaczenia_podlogowki
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_m
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_ukosnik
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
End
If
If Bufor
= 82
Then
'jeśli pierwszy odebrany znak to 'R' czyli odczyt
USTAWIONEJ TEMP PIECA
Pozycja_kursora =
Make_addr(2
, 14)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia USTAWIONEJ TEMP PIECA
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Call
Vga_put_char(znak_uu
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_s
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_m
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małej litery
For Ii
= 1
To 19
Names =
Inkey()
Next Ii
Names =
Inkey()
: Bufor
=
Val(names)
: Tp2
= Przypisanie(bufor)
: Bufor
= Bufor
* 10
: Tzad
= Bufor
Names =
Inkey()
: Bufor
=
Val(names)
: Tp3
= Przypisanie(bufor)
: Tzad
= Bufor
+ Tzad
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_stopien_celsj
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
End
If
If Bufor
= 83
Then
'jeśli pierwszy odebrany znak to 'S' czyli odczyt
CZASU PRACY BOJLERA
Pozycja_kursora =
Make_addr(2
, 15)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU PRACY BOJLERA
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Call
Vga_put_char(znak_cc
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_s
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_y
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_b
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_j
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_l
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_dd
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
For Ii
= 1
To 15
'po piętnastu znakach odczyt dnia
Names =
Inkey()
Next Ii
Names =
Inkey()
: Bufor
=
Val(names)
: Tp1
= Przypisanie(bufor)
Names =
Inkey()
: Bufor
=
Asc(names)
If Bufor
= 109
Then
'jeśli odczytany znak ma wartość 109 czyli jest
to 'm'
Call
Vga_put_char(tp1
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Else
Bufor =
Val(names)
: Tp2
= Przypisanie(bufor)
Names =
Inkey()
: Bufor
=
Asc(names)
If Bufor
= 109
Then
'jeśli odczytany kolejny znak to m wtedy
Call
Vga_put_char(tp1
, Pomocc)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Else
Bufor =
Val(names)
: Tp3
= Przypisanie(bufor)
: Names
=
Inkey()
Call
Vga_put_char(tp1
, Pomocc)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
End
If
End
If
For Ii
= 1
To 12
'po kolejnych 12 znakach odczyt czasu pracy w
nocy
Names =
Inkey()
Next Ii
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_nn
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_rownosci
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
Names =
Inkey()
: Bufor
=
Val(names)
: Tp1
= Przypisanie(bufor)
Names =
Inkey()
: Bufor
=
Asc(names)
If Bufor
= 109
Then
'jeśli odczytany znak ma wartość 109 czyli jest
to 'm'
Call
Vga_put_char(tp1
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Else
Bufor =
Val(names)
: Tp2
= Przypisanie(bufor)
Names =
Inkey()
: Bufor
=
Asc(names)
If Bufor
= 109
Then
'jeśli odczytany kolejny znak to m wtedy
Call
Vga_put_char(tp1
, Pomocc)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Else
Bufor =
Val(names)
: Tp3
= Przypisanie(bufor)
: Names
=
Inkey()
Call
Vga_put_char(tp1
, Pomocc)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
End
If
End
If
End
If
If Bufor
= 97
Then
'jeśli odczytany znak to 'a' czyli czytamy
GODZINĘ < 10
Names =
Inkey()
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: Tp3
= Przypisanie(tp3)
: Tp2
= Znak_spacja
: _hour
= Tp3
Call
Wyswietlanie_duza_godzina(60
, 21
, Bufor)
'WYŚWIETLANIE DUŻEJ GODZINY
Call
Wyswietlanie_duza_godzina(55
, 21
, 11)
'WYŚWIETLANIE DUŻEJ GODZINY
Call
Wyswietlanie_duza_godzina(65
, 21
, 10)
'WYŚWIETLANIE Dwukropka
' Pozycja_kursora = Make_addr(46 , 29)
'wyznaczenie pozycji kursora (y,x) dla wyświetlenia CZASU I DATY
' Call Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
' Pomocc = Magenta 'określenie atrybutu
znaku (kolor, podkreślenie, miganie itp) - kolor biały
' Call Vga_put_char(tp2 , Pomocc)
' Call Vga_put_char(tp3 , Pomocc)
' Call Vga_put_char(znak_dwukropek ,
Pomocc)
End
If
If Bufor
= 98
Then
'jeśli odczytany znak to 'b' czyli czytamy
GODZINĘ > 9
Names =
Inkey()
Names =
Inkey()
: Bufor
=
Val(names)
Tp2 = Bufor
: _hour
= Tp2
* 10
: Tp2
= Przypisanie(tp2)
Call
Wyswietlanie_duza_godzina(55
, 21
, Bufor)
'WYŚWIETLANIE DUŻEJ GODZINY
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: _hour
= _hour
+ Tp3
: Tp3
= Przypisanie(tp3)
Call
Wyswietlanie_duza_godzina(60
, 21
, Bufor)
' Pomocc = Magenta 'określenie atrybutu
znaku (kolor, podkreślenie, miganie itp) - kolor biały
' Pozycja_kursora = Make_addr(46 , 29)
'wyznaczenie pozycji kursora (y,x) dla wyświetlenia CZASU I DATY
' Call Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
' Call Vga_put_char(tp2 , Pomocc)
' Call Vga_put_char(tp3 , Pomocc)
' Call Vga_put_char(znak_dwukropek ,
Pomocc)
Call
Wyswietlanie_duza_godzina(65
, 21
, 10)
'WYŚWIETLANIE DUŻEJ GODZINY - DWUKROPEK
End
If
If Bufor
= 99
Then
'jeśli odczytany znak to 'c' czyli czytamy MINUTY
< 10
Names =
Inkey()
: Names
=
Inkey()
'czytamy spację i zbędne zero
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: Tp3
= Przypisanie(tp3)
: Tp2
= Znak_0
: _min
= Tp3
Call
Wyswietlanie_duza_godzina(70
, 21
, 0)
'WYŚWIETLANIE DUŻEJ GODZINY - MINUTY=0
gdyż _min<10
Call
Wyswietlanie_duza_godzina(75
, 21
, Bufor)
'WYŚWIETLANIE DUŻEJ GODZINY - MINUTY
' Pozycja_kursora = Make_addr(49 , 29)
'wyznaczenie pozycji kursora (y,x) dla wyświetlenia CZASU I DATY
' Call Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
' Pomocc = Magenta 'określenie atrybutu
znaku (kolor, podkreślenie, miganie itp) - kolor biały
' Call Vga_put_char(tp2 , Pomocc)
' Call Vga_put_char(tp3 , Pomocc)
' Call Vga_put_char(znak_spacja , Pomocc)
End
If
If Bufor
= 100
Then
'jeśli odczytany znak to 'd' czyli czytamy MINUTY
> 9
Names =
Inkey()
Names =
Inkey()
: Bufor
=
Val(names)
Tp2 = Bufor
: _min
= Tp2
* 10
: Tp2
= Przypisanie(tp2)
Call
Wyswietlanie_duza_godzina(70
, 21
, Bufor)
'WYŚWIETLANIE DUŻEJ GODZINY - MINUTY
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: _min
= _min
+ Tp3
: Tp3
= Przypisanie(tp3)
Call
Wyswietlanie_duza_godzina(75
, 21
, Bufor)
'WYŚWIETLANIE DUŻEJ GODZINY - MINUTY
' Pozycja_kursora = Make_addr(49 , 29)
'wyznaczenie pozycji kursora (y,x) dla wyświetlenia CZASU I DATY
' Call Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
' Pomocc = Magenta 'określenie atrybutu
znaku (kolor, podkreślenie, miganie itp) - kolor biały
' Call Vga_put_char(tp2 , Pomocc)
' Call Vga_put_char(tp3 , Pomocc)
' Call Vga_put_char(znak_spacja , Pomocc)
' Call Vga_put_char(znak_spacja , Pomocc)
' Call Vga_put_char(znak_spacja , Pomocc)
' Call Vga_put_char(znak_spacja , Pomocc)
End
If
If Bufor
= 101
Then
'jeśli odczytany znak to 'e' czyli czytamy dzień
jednocyfrowy
Names =
Inkey()
: Names
=
Inkey()
'czytamy spację i zbędne zero
Pozycja_kursora =
Make_addr(54
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU I DATY
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Magenta
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: Tp3
= Przypisanie(tp3)
: Tp2
= Znak_0
: _day
= Tp3
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_dwukropek
, Pomocc)
End
If
If Bufor
= 102
Then
'jeśli odczytany znak to 'f' czyli czytamy dzień
dwucyfrowy
Names =
Inkey()
'czytamy spację
Pozycja_kursora =
Make_addr(54
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU I DATY
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Magenta
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Names =
Inkey()
: Bufor
=
Val(names)
Tp2 = Bufor
: _day
= Tp2
* 10
: Tp2
= Przypisanie(tp2)
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: _day
= _day
+ Tp3
: Tp3
= Przypisanie(tp3)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_dwukropek
, Pomocc)
End
If
If Bufor
= 103
Then
'jeśli odczytany znak to 'g' czyli czytamy
miesiąc < 10
Names =
Inkey()
: Names
=
Inkey()
'czytamy spację i zbędne zero
Pozycja_kursora =
Make_addr(57
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU I DATY
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Magenta
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Names =
Inkey()
: Bufor
=
Val(names)
'czytamy wartość
Tp3 = Bufor
: Tp3
= Przypisanie(tp3)
: Tp2
= Znak_0
: _month
= Bufor
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_dwukropek
, Pomocc)
End
If
If Bufor
= 104
Then
'jeśli odczytany znak to 'h' czyli czytamy
miesiąc > 9
Names =
Inkey()
Pozycja_kursora =
Make_addr(57
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU I DATY
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Magenta
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Names =
Inkey()
: Bufor
=
Val(names)
Tp2 = Bufor
: _month
= Tp2
* 10
: Tp2
= Przypisanie(tp2)
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: _month
= _month
+ Tp3
: Tp3
= Przypisanie(tp3)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_dwukropek
, Pomocc)
End
If
If Bufor
= 105
Then
'jeśli odczytany znak to 'i' czyli czytamy ROK <
10
Names =
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
Pozycja_kursora =
Make_addr(60
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU I DATY
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Magenta
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: Tp3
= Przypisanie(tp3)
: Tp2
= Znak_0
: _year
= Tp3
Call
Vga_put_char(znak_2
, Pomocc)
Call
Vga_put_char(znak_0
, Pomocc)
Call
Vga_put_char(znak_0
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Names =
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
Dzien_tygodnia =
Val(names)
End
If
If Bufor
= 106
Then
'jeśli odczytany znak to 'j' czyli czytamy ROK >
9 i dzień tygodnia (1 poniedziałek)
Names =
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
Pozycja_kursora =
Make_addr(60
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU I DATY
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Magenta
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Names =
Inkey()
: Bufor
=
Val(names)
Tp2 = Bufor
: _year
= Tp2
* 10
: Tp2
= Przypisanie(tp2)
Names =
Inkey()
: Bufor
=
Val(names)
Tp3 = Bufor
: _year
= _year
+ Tp3
: Tp3
= Przypisanie(tp3)
Call
Vga_put_char(znak_2
, Pomocc)
Call
Vga_put_char(znak_0
, Pomocc)
Call
Vga_put_char(tp2
, Pomocc)
Call
Vga_put_char(tp3
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Names =
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
: Names
=
Inkey()
Dzien_tygodnia =
Val(names)
Select
Case Dzien_tygodnia
Case 1
:
Call
Vga_put_char(znak_p
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_d
, Pomocc)
Call
Vga_put_char(znak_z
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_l
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_k
, Pomocc)
Case 2
:
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_w
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_r
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_k
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Case 3
:
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_s
, Pomocc)
Call
Vga_put_char(znak_r
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_d
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Case 4
:
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_c
, Pomocc)
Call
Vga_put_char(znak_z
, Pomocc)
Call
Vga_put_char(znak_w
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_r
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_k
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Case 5
:
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_p
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_k
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Case 6
:
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_s
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_b
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Case 7
:
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_d
, Pomocc)
Call
Vga_put_char(znak_z
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_l
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
End
Select
End
If
If Bufor
= 107
Then
'jeśli pierwszy odebrany znak to 'k' czyli odczyt
STATUSU POMPY CO
Names =
Inkey()
: Names
=
Inkey()
: Bufor
=
Val(names)
Pozycja_kursora =
Make_addr(6
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU POMPY CO
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Red
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
If Bufor
= 0
Then
'jesli pompka co jest wyłączona
For Ii
= 1
To 4
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie pełnego znaku
Next Ii
Else
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
End
If
If Bufor
= 108
Then
'jeśli pierwszy odebrany znak to 'l' czyli odczyt
STATUSU WENTYLATORA NADMUCHU
Names =
Inkey()
: Names
=
Inkey()
: Bufor
=
Val(names)
Pozycja_kursora =
Make_addr(19
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU WENTYLATORA
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Red
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
If Bufor
= 0
Then
'jesli pompka co jest wyłączona
For Ii
= 1
To 4
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie pełnego znaku
Next Ii
Else
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
End
If
If Bufor
= 109
Then
'jeśli pierwszy odebrany znak to 'm' czyli odczyt
STATUSU POMPY PODLOGOWKI
Names =
Inkey()
: Names
=
Inkey()
: Bufor
=
Val(names)
Pozycja_kursora =
Make_addr(45
, 10)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU POMPY PODLOGOWKI
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Red
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor żółty
If Bufor
= 0
Then
'jesli pompka co jest wyłączona
For Ii
= 1
To 4
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
Next Ii
Else
For Ii
= 1
To 4
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie pełnego znaku
Next Ii
End
If
End
If
If Bufor
= 120
Then
'jeśli znak to "x" wtedy
Call
#$A
(0)
'czyść ekran tv
Pozycja_kursora =
Make_addr(7
, 20)
'wyznaczenie pozycji kursora (x,y)
Call
Rysuj_ramke
Call
Wyswietlanie_smieci
End
If
Clear
Serialin : Odebrano
= 1
End
If
End
Sub
'(
Sub Wyswietlacz_ethernet
Tp = Przypisanie(tp)
Tp1 = Tp1 -2 : Tp2 = Tp2 -2 : Tp3 = Tp3 -2
'zmieniamy, żeby było zgodne z faktycznymi danymi (w tablicy dane są przesunięte
o 2)
Print # 2 , Chr(1) ; Spc(3) ; Tp1 ; Tp2 ;
Tp3 ; Chr(94) ; Chr(67) ; 'wyświetl Tb trzycyfrowo
End Sub
Function Przeliczenie(byval Temp_tymcz As
Byte) As Byte '
Temp_tymcz
End Function
')
'12345678901234567890123456789012345678901234567890123456789012345678901234567890
'|------------------------------------------------------------------------------|6
'| Pompa | Wentylator | Bojler | Pompa |
Zawory | Zawory |7
'| CO | nadmuchu | załączony | podłogówki
| otwarte | zamknięte |8
'|------------------------------------------------------------------------------|9
'| **** | **** | **** | **** | **** | ****
|10
'|------------------------------------------------------------------------------|11
'12345678901234567890123456789012345678901234567890123456789012345678901234567890
' |-------------------------------|
' | Tp | Tb | Tbg | Tz | Ts | Tsd |
' |-------------------------------|
' | 32 | 48 | 57 | 19 | 21 | 23 |
' |-------------------------------|
Sub
Rysuj_ramke
Pomocc = Blue
: Pozycja_kursora
= Make_addr(1
, 5)
:
Call
Vga_write_addr_set(pozycja_kursora)
'zacznij rysować niebieską ramkę w 6
wierszu od 2 znaku do 78
Call
Vga_put_char(znak_prawa_gorna_ramka
, Pomocc)
'narysuj lewy górny narożnik
For Bufor
= 1
To 6
'6 razy narysuj ~~~~~~~| czyli okienka
For Ii
= 1
To 12
'12 znaków górnych ~~~~
Call
Vga_put_char(znak_kreska_pozioma_gora
, Pomocc)
Next Ii
Call
Vga_put_char(znak_lewa_gorna_ramka
, Pomocc)
'jako 13 znak to prawa górna ramka ~| i
potem znowu można kontynuować rysowanie górnej części
Next Bufor
Pozycja_kursora =
Make_addr(1
, 6)
:
Call
Vga_write_addr_set(pozycja_kursora)
'ustaw kursor w kolejnej linijce
Call
Vga_put_char(znak_prawa_pionowa_ramka
, Pomocc)
'narysuj lewą pionową część ramki
Bufor = 14
For Ii
= 1
To 6
'zostało 6 pionowych do narysowania
Pozycja_kursora =
Make_addr(bufor
, 6)
'przeskocz do kolejnej kolumny
Bufor = Bufor
+ 13
'przerwa między kolumnami to 13 znaków
Call
Vga_write_addr_set(pozycja_kursora)
Call
Vga_put_char(znak_lewa_pionowa_ramka
, Pomocc)
'i rysuj prawą pionowa kreskę
Next Ii
Pozycja_kursora =
Make_addr(1
, 7)
:
Call
Vga_write_addr_set(pozycja_kursora)
'ustaw kursor w kolejnej linijce
Call
Vga_put_char(znak_prawa_pionowa_ramka
, Pomocc)
'narysuj lewą pionową część ramki
Bufor = 14
For Ii
= 1
To 6
'zostało 6 pionowych do narysowania
Pozycja_kursora =
Make_addr(bufor
, 7)
'przeskocz do kolejnej kolumny
Bufor = Bufor
+ 13
'przerwa między kolumnami to 13 znaków
Call
Vga_write_addr_set(pozycja_kursora)
Call
Vga_put_char(znak_lewa_pionowa_ramka
, Pomocc)
'i rysuj prawą pionowa kreskę
Next Ii
Pomocc = Blue
: Pozycja_kursora
= Make_addr(1
, 8)
:
Call
Vga_write_addr_set(pozycja_kursora)
'zacznij rysować niebieską ramkę w 6
wierszu od 2 znaku do 78
Call
Vga_put_char(znak_prawa_dolna_ramka
, Pomocc)
'narysuj lewy dolny narożnik
For Bufor
= 1
To 6
'6 razy narysuj _____| czyli okienka
For Ii
= 1
To 12
'12 znaków dolnych ______
Call
Vga_put_char(znak_kreska_pozioma_dol
, Pomocc)
Next Ii
Call
Vga_put_char(znak_lewa_dolna_ramka
, Pomocc)
'jako 13 znak to prawa górna ramka _| i
potem znowu można kontynuować rysowanie górnej części
Next Bufor
Pomocc = Blue
: Pozycja_kursora
= Make_addr(1
, 9)
:
Call
Vga_write_addr_set(pozycja_kursora)
'zacznij rysować niebieską ramkę w 6
wierszu od 2 znaku do 78
Call
Vga_put_char(znak_prawa_pionowa_ramka
, Pomocc)
'narysuj
Bufor = 14
For Ii
= 1
To 6
'zostało 6 pionowych do narysowania
Pozycja_kursora =
Make_addr(bufor
, 9)
'przeskocz do kolejnej kolumny
Bufor = Bufor
+ 13
'przerwa między kolumnami to 13 znaków
Call
Vga_write_addr_set(pozycja_kursora)
Call
Vga_put_char(znak_lewa_pionowa_ramka
, Pomocc)
'i rysuj prawą pionowa kreskę
Next Ii
Pomocc = Blue
: Pozycja_kursora
= Make_addr(1
, 10)
:
Call
Vga_write_addr_set(pozycja_kursora)
'zacznij rysować niebieską ramkę w 6
wierszu od 2 znaku do 78
Call
Vga_put_char(znak_prawa_pionowa_ramka
, Pomocc)
'narysuj
Bufor = 14
For Ii
= 1
To 6
'zostało 6 pionowych do narysowania
Pozycja_kursora =
Make_addr(bufor
, 10)
'przeskocz do kolejnej kolumny
Bufor = Bufor
+ 13
'przerwa między kolumnami to 13 znaków
Call
Vga_write_addr_set(pozycja_kursora)
Call
Vga_put_char(znak_lewa_pionowa_ramka
, Pomocc)
'i rysuj prawą pionowa kreskę
Next Ii
Pomocc = Blue
: Pozycja_kursora
= Make_addr(1
, 11)
:
Call
Vga_write_addr_set(pozycja_kursora)
'zacznij rysować niebieską ramkę w 6
wierszu od 2 znaku do 78
Call
Vga_put_char(znak_prawa_dolna_ramka
, Pomocc)
'narysuj lewy dolny narożnik
For Bufor
= 1
To 6
'6 razy narysuj _____| czyli okienka
For Ii
= 1
To 12
'12 znaków dolnych ______
Call
Vga_put_char(znak_kreska_pozioma_dol
, Pomocc)
Next Ii
Call
Vga_put_char(znak_lewa_dolna_ramka
, Pomocc)
'jako 13 znak to prawa górna ramka _| i
potem znowu można kontynuować rysowanie górnej części
Next Bufor
Pozycja_kursora =
Make_addr(5
, 6)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU POMPY CO
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = White
'określenie atrybutu znaku (kolor,
podkreślenie, miganie itp) - kolor biały
Call
Vga_put_char(znak_pp
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_m
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Pozycja_kursora =
Make_addr(6
, 7)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_cc
, Pomocc)
'wypisanie dużej litery C
Call
Vga_put_char(znak_oo
, Pomocc)
'wypisanie małej litery O
Pozycja_kursora =
Make_addr(16
, 6)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU WENTYLATORA NADMUCHU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_ww
, Pomocc)
'wypisanie dużej litery W
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery e
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery n
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małęj litery t
Call
Vga_put_char(znak_y
, Pomocc)
'wypisanie małej litery y
Call
Vga_put_char(znak_l
, Pomocc)
'wypisanie małej litery l
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małęj litery t
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery o
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery r
Pozycja_kursora =
Make_addr(17
, 7)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie dużej litery n
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie małej litery d
Call
Vga_put_char(znak_m
, Pomocc)
'wypisanie małęj litery m
Call
Vga_put_char(znak_u
, Pomocc)
'wypisanie małej litery u
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery c
Call
Vga_put_char(znak_h
, Pomocc)
'wypisanie małej litery h
Call
Vga_put_char(znak_u
, Pomocc)
'wypisanie małęj litery u
Pozycja_kursora =
Make_addr(31
, 6)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU BOJLERA
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_bb
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_j
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_l
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery y
Pozycja_kursora =
Make_addr(30
, 7)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU BOJLERA
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_l
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_c
, Pomocc)
Call
Vga_put_char(znak_z
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_y
, Pomocc)
Pozycja_kursora =
Make_addr(44
, 6)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU POMPY PODŁOGÓWKI
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_pp
, Pomocc)
'wypisanie dużej litery W
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery e
Call
Vga_put_char(znak_m
, Pomocc)
'wypisanie małej litery n
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małęj litery t
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery y
Pozycja_kursora =
Make_addr(42
, 7)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie dużej litery n
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie małej litery d
Call
Vga_put_char(znak_l
, Pomocc)
'wypisanie małęj litery m
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery u
Call
Vga_put_char(znak_g
, Pomocc)
'wypisanie małej litery c
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery h
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małęj litery u
Call
Vga_put_char(znak_k
, Pomocc)
'wypisanie małej litery l
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery a
Pozycja_kursora =
Make_addr(57
, 6)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_zz
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_y
, Pomocc)
'wypisanie małej litery y
Pozycja_kursora =
Make_addr(57
, 7)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_w
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_r
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Pozycja_kursora =
Make_addr(70
, 6)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_zz
, Pomocc)
'wypisanie dużej litery z
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery a
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery w
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małęj litery o
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery r
Call
Vga_put_char(znak_y
, Pomocc)
'wypisanie małej litery y
Pozycja_kursora =
Make_addr(69
, 7)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia STATUSU ZAWORÓW
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Call
Vga_put_char(znak_z
, Pomocc)
Call
Vga_put_char(znak_a
, Pomocc)
Call
Vga_put_char(znak_m
, Pomocc)
Call
Vga_put_char(znak_k
, Pomocc)
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
End
Sub
Sub
Wyswietlanie_duza_godzina(byval
Xx As
Byte
,
Byval Yy
As
Byte
,
Byval Znaczek
As
Byte)
Local
Wyswietlana1 As
Byte
, Jj
As
Byte
Pomocc = Green
Pozycja_kursora =
Make_addr(xx
, Yy)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia dużej cyfry
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Select
Case Znaczek
'przypisanie odpowiedniej tablicy w zalezności od
tego, co wyświetlamy
Case 0
:
Restore
Duza_czcionka_0
Case 1
:
Restore
Duza_czcionka_1
Case 2
:
Restore
Duza_czcionka_2
Case 3
:
Restore
Duza_czcionka_3
Case 4
:
Restore
Duza_czcionka_4
Case 5
:
Restore
Duza_czcionka_5
Case 6
:
Restore
Duza_czcionka_6
Case 7
:
Restore
Duza_czcionka_7
Case 8
:
Restore
Duza_czcionka_8
Case 9
:
Restore
Duza_czcionka_9
Case 10
:
Restore
Duza_czcionka_dwukropek
Case 11
:
Restore
Duza_czcionka_spacja
End
Select
For Jj
= 0
To 6
'powtórz 7 razy (dla każdego wiersza)
Read Bufor
'przeczytaj pierwszy znak
For Ii
= 0
To 4
'powtórz 5 razy aby zapisać każdą komórkę w danym
wierszu
Pozycja_kursora =
Make_addr(xx
, Yy)
'wyznaczenie pozycji kursora (y,x)
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If Bufor.ii
= 1
Then
'jeżeli ma być znaczek
Call
Vga_put_char(znak_pelny
, Pomocc)
'wypisanie znaczka na danej pozycji
Else
'jeżeli ma być puste pole
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie spacji
End
If
Incr Xx
'przejdź do kolejnej kolumny
Next Ii
Xx = Xx
-5
:
Incr Yy
'po wyświetleniu pierwszego wiersza przejdź do
następnej linii
Next Jj
End
Sub
Function
Przypisanie(byval
Tp11 As
Byte)
As
Byte
'
Select
Case Tp11
Case 0
: Przypisanie
= 2
Case 1
: Przypisanie
= 3
Case 2
: Przypisanie
= 4
Case 3
: Przypisanie
= 5
Case 4
: Przypisanie
= 6
Case 5
: Przypisanie
= 7
Case 6
: Przypisanie
= 8
Case 7
: Przypisanie
= 9
Case 8
: Przypisanie
= 10
Case 9
: Przypisanie
= 11
End
Select
End
Function
Sub
Wyswietlanie_smieci
Pozycja_kursora =
Make_addr(2
, 16)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia CZASU PRACY BOJLERA
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Green
+ Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Call
Vga_put_char(znak_dd
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_nn
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_ii
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_ww
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_yy
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_ww
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_oo
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_zz
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_uu
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_ss
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_mm
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_ii
, Pomocc)
'wypisanie spacji
Call
Vga_put_char(znak_ee
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_cc
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_ii
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_spacja
, Pomocc)
'wypisanie małęj litery
Pozycja_kursora =
Make_addr(2
, 17)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w STYCZNIU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 1
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_ss
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_y
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_n
, Pomocc)
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 1
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 2
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 3
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 18)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w LUTYM
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 2
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 2
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_ll
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_u
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_y
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 4
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 5
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 6
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 19)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w MARCU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 3
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 3
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_mm
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 7
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 8
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 9
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 20)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w KWIETNIU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 4
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 4
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_kk
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 10
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 11
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 12
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 21)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w MAJU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 5
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 5
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_mm
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_j
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 13
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 14
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 15
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 22)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w CZERWCU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 6
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 6
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_cc
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_w
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 16
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 17
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 18
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 23)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w LIPCU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 7
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 7
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_ll
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_c
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 19
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 20
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 21
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 24)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w SIERPNIU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 8
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 8
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_ss
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 22
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 23
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 24
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 25)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU we WRZESNIU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 9
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 9
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_ww
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_s
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 25
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 26
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 27
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 26)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w PAZDZIERNIKU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 10
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 10
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_pp
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_k
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 28
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 29
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 30
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 27)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w LISTOPADZIE
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 11
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 11
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_ll
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_s
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_t
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_o
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_p
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_a
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 31
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 32
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 33
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 28)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNIA WYWOZU w GRUDNIU
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
If _month
= 12
Then
Pomocc = Red
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Else
Pomocc = White
End
If
' Readeeprom Bufor , 12
' Call Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_gg
, Pomocc)
'wypisanie dużej litery
Call
Vga_put_char(znak_r
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_u
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_d
, Pomocc)
'wypisanie małęj litery
Call
Vga_put_char(znak_z
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_i
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_e
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_n
, Pomocc)
'wypisanie małej litery
Call
Vga_put_char(znak_dwukropek
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 34
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 35
Pomocc = Green
:
Call
Przelicz_dzien_wywozu 'wyświetl na zielono
segregowane
Call
Vga_put_char(znak_spacja
, Pomocc)
Readeeprom
Bufor , 36
Pomocc = Blue
:
Call
Przelicz_dzien_wywozu 'wyświetl na
niebiesko zmieszane odpady
Call
Vga_put_char(znak_spacja
, Pomocc)
Pozycja_kursora =
Make_addr(2
, 29)
'wyznaczenie pozycji kursora (y,x) dla
wyświetlenia DNI WYWOZU WIELKOGABARYTOWYCH
Call
Vga_write_addr_set(pozycja_kursora)
'zapisanie pozycji kursora
Pomocc = Blue
+ Green
'określenie atrybutu znaku (kolor, podkreślenie,
miganie itp) - kolor biały
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_bb
, Pomocc)
Call
Vga_put_char(znak_ii
, Pomocc)
Call
Vga_put_char(znak_oo
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_w
, Pomocc)
Call
Vga_put_char(znak_e
, Pomocc)
Call
Vga_put_char(znak_spacja
, Pomocc)
Call
Vga_put_char(znak_w
, Pomocc)
Call
Vga_put_char(znak_t
, Pomocc)
Call
Vga_put_char(znak_o
, Pomocc)
Call
Vga_put_char(znak_r
, Pomocc)
Call
Vga_put_char(znak_k
, Pomocc)
Call
Vga_put_char(znak_i
, Pomocc)
End
Sub
Sub
Przelicz_dzien_wywozu
Call
Vga_put_char(znak_spacja
, Pomocc)
If Bufor
< 10
Then
Call
Vga_put_char(znak_spacja
, Pomocc)
Bufor = Przypisanie(bufor)
Call
Vga_put_char(bufor
, Pomocc)
Else
Tp1 = Bufor
\ 10
: Tp1
= Przypisanie(tp1)
Call
Vga_put_char(tp1
, Pomocc)
Tp1 = Bufor
Mod 10
: Tp1
= Przypisanie(tp1)
Call
Vga_put_char(tp1
, Pomocc)
End
If
' Call Vga_put_char(znak_spacja , Pomocc)
End
Sub
'******************************************************************************
' VGA
'******************************************************************************
'------------------------------------------------------------------------------
' Zapis rejestru karty VGA
' Wej: bRegAdrr - adres rejestru
' bData - dana do zapisu
Sub
Vga_transmit(byval
Bregaddr As
Byte
,
Byval Bdata
As
Byte)
Spi_cs = 1
Spiout
Bregaddr , 1
Spiout Bdata
, 1
Spi_cs = 0
Bitwait
Spi_miso ,
Reset
' oczekiwanie na koniec cyklu odczytu
' karta sygnalizuje gotowość poprzez
wystawienie '0' na linii MISO
End
Sub
'------------------------------------------------------------------------------
' Odczyt rejestru karty VGA
' Możliwy jest odczyt tylko jednego
rejestru VGA_DATA_RD
' Wej:
' Wyj: odczytana dana
Function
Vga_receive()
As
Byte
Local Bdata
As
Byte
Bdata = Vga_data_rd
Spi_cs = 1
Spiout Bdata
, 1
Spiin Bdata
, 1
Spi_cs = 0
Bitwait
Spi_miso ,
Reset
' oczekiwanie na koniec cyklu odczytu
' karta sygnalizuje gotowość poprzez
wystawienie '0' na linii MISO
Vga_receive = Bdata
End
Function
'------------------------------------------------------------------------------
' Wyświetlenie znaku na aktualnej pozycji
kursora.
' Wej: bChar - kod znaku
' bAttr - atrybut znaku
Sub
Vga_put_char(byval
Bchar As
Byte
,
Byval Battr
As
Byte)
Local Baddr
As
Byte
Call
Vga_transmit(vga_data_wr
, Bchar)
Call
Vga_transmit(vga_data_wr
, Battr)
End
Sub
'------------------------------------------------------------------------------
' Zapis adresu do pary rejestrów VGA
ADDR_WR
' Wej: wData - adres
Sub
Vga_write_addr_set(byval
Wdata As
Word)
Local Bdata
As
Byte
Bdata =
Low(wdata)
Call
Vga_transmit(vga_addr_wr_lo
, Bdata)
Bdata =
High(wdata)
Call
Vga_transmit(vga_addr_wr_hi
, Bdata)
End
Sub
'------------------------------------------------------------------------------
' Zapis adresu do pary rejestrów
VGA_ADDR_RD
' Wej: wData - adres
Sub
Vga_read_addr_set(wdata
As
Word)
Local Bdata
As
Byte
Bdata =
Low(wdata)
Call
Vga_transmit(vga_addr_rd_lo
, Bdata)
Bdata =
High(wdata)
Call
Vga_transmit(vga_addr_rd_hi
, Bdata)
End
Sub
'------------------------------------------------------------------------------
' Kasowanie pamięci obrazu.
' Kasowanie polega na wypełnieniu strony
"spacjami".
' Wej: bPageNr - numer strony Video
Sub
#$A
(byval
Bpagenr As
Byte)
Local
Wcounter As
Word
Local Waddr
As
Word
Local Battr
As
Byte
, Bchar
As
Byte
Wcounter =
Vpage_size ' rozmiar strony pamięci
' ustawienie adresu na początek strony
If Bpagenr
= 0
Then
Waddr = Vpage0_addr
Else
Waddr = Vpage1_addr
End
If
Call
Vga_write_addr_set(waddr)
Battr = White
+ Black
Bchar =
&H00
Do
Call
Vga_put_char(bchar
, Battr)
Wcounter = Wcounter
- 1
Loop
Until Wcounter
= 0
End
Sub
'------------------------------------------------------------------------------
' Zainicjowanie pamięci generatora znaków
' Wej: bCharGenNr - numer generatora
' bCharStart - numer pierwszego
definiowanego znaku (0-255)
' bCharEnd - numer ostatniego
definiowanego znaku (0-255)
' pCharDef - wskaźnik na dane opisujace
wygląd znaków
Sub
Vga_chargen_init(byval
Bchargennr As
Byte
,
Byval Bcharstart
As
Byte
,
Byval Bcharend
As
Byte
, Wchardef
As
Word)
Local Waddr
As
Word
Local
Wcounter As
Word
Local Wtemp
As
Word
Local Bdata
As
Byte
If Bcharstart
> Bcharend
Then
' test poprawności parametrów
Exit
Sub
End
If
Select
Case Bchargennr
' wyznaczenie adresu początku pamięci
Case 0
: Waddr
= Chargen0_addr
' dla wybranego generatora znaków
Case 1
: Waddr
= Chargen1_addr
Case 2
: Waddr
= Chargen2_addr
Case 3
: Waddr
= Chargen3_addr
Case
Else
:
Exit
Sub
End
Select
' wyznaczenie adresu pierwszego
zedfiniowanego znaku
Wtemp = Bcharstart
* 16
Waddr = Waddr
+ Wtemp
Call
Vga_write_addr_set(waddr)
'wyznaczenie ilości bajtów do przesłania
(16 bajtów na znak)
Wcounter = Bcharend
- Bcharstart
Wcounter = Wcounter
+ 1
Wcounter = Wcounter
* 16
Do
' pobranie definicji z tablicy
Bdata =
Cpeek(wchardef)
Wchardef = Wchardef
+ 1
' przepisanie definicji znaków do pamięci
karty
Call
Vga_transmit(vga_data_wr
, Bdata)
Wcounter = Wcounter
- 1
Loop
Until Wcounter
= 0
End
Sub
' Funkcja wyznaczająca adres znaku na
podstawie pozycji kursora
' (Dla 0 strony pamięci Video)
Function
Make_addr(byval
Bcurx As
Byte
,
Byval Bcury
As
Byte)
As
Word
Local Wtemp1
As
Word
Local Wtemp2
As
Word
Wtemp1 = Bcury
Wtemp1 = Wtemp1
* 256
Wtemp2 = Bcurx
* 2
Make_addr = Wtemp1
+ Wtemp2
End
Function
Serial0charmatch:
Odebrano = 0
Return
Tablica_ascii:
Return
'definicja czcionki stworzoenj w GLCD
FontName. Czcionka to Monospac821_BT8x13 z windowsa
Font0_8_16:
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 32 - PUSTKA (SPACJA)
'Data &H00 , &H10 , &H10 , &H10 , &H10 ,
&H10 , &H10 , &H00 , &H18 , &H18 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 33
'Data &H00 , &H28 , &H28 , &H28 , &H28 ,
&H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 34
'Data &H00 , &H16 , &H14 , &H7E , &H24 ,
&H24 , &H7E , &H28 , &H48 , &H48 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 35
'Data &H10 , &H3C , &H52 , &H50 , &H50 ,
&H3C , &H12 , &H52 , &H52 , &H3C , &H10 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 36
'Data &H00 , &H60 , &H90 , &H90 , &H66 ,
&H18 , &H6C , &H92 , &H12 , &H0C , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 37
'Data &H00 , &H18 , &H24 , &H24 , &H18 ,
&H2A , &H46 , &H46 , &H46 , &H3B , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 38
'Data &H00 , &H10 , &H10 , &H10 , &H10 ,
&H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 39
'Data &H00 , &H04 , &H08 , &H08 , &H10 ,
&H10 , &H10 , &H10 , &H10 , &H08 , &H08 , &H04 , &H00 , &H00 , &H00 , &H00 '
Code for char num 40
'Data &H00 , &H20 , &H10 , &H10 , &H08 ,
&H08 , &H08 , &H08 , &H08 , &H10 , &H10 , &H20 , &H00 , &H00 , &H00 , &H00 '
Code for char num 41
'Data &H00 , &H10 , &H7C , &H38 , &H28 ,
&H28 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 42
'Data &H00 , &H00 , &H10 , &H10 , &H10 ,
&HFE , &H10 , &H10 , &H10 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 43
'Data &H00 , &H00 , &H00 , &H00 , &H00 ,
&H00 , &H00 , &H00 , &H18 , &H18 , &H08 , &H10 , &H00 , &H00 , &H00 , &H00 '
Code for char num 44
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 45 ---- - (minus bądź
myślnik)
'Data &H00 , &H00 , &H00 , &H00 , &H00 ,
&H00 , &H00 , &H00 , &H18 , &H18 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 46
'Data &H00 , &H04 , &H04 , &H08 , &H08 ,
&H08 , &H10 , &H10 , &H10 , &H20 , &H20 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 47
Data
&H00
,
&H3C
,
&H24
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H24
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 48 ---- 0
Data
&H00
,
&H08
,
&H08
,
&H38
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 49 ---- 1
Data
&H00
,
&H3C
,
&H62
,
&H42
,
&H02
,
&H0C
,
&H18
,
&H20
,
&H40
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 50 ---- 2
Data
&H00
,
&H3C
,
&H62
,
&H42
,
&H02
,
&H1C
,
&H02
,
&H42
,
&H62
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 51 ---- 3
Data
&H00
,
&H04
,
&H0C
,
&H14
,
&H14
,
&H24
,
&H44
,
&H7E
,
&H04
,
&H04
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 52 ---- 4
Data
&H00
,
&H3C
,
&H20
,
&H40
,
&H7C
,
&H46
,
&H02
,
&H02
,
&H46
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 53 ---- 5
Data
&H00
,
&H1C
,
&H22
,
&H40
,
&H7C
,
&H66
,
&H42
,
&H42
,
&H26
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 54 ---- 6
Data
&H00
,
&H7E
,
&H06
,
&H04
,
&H08
,
&H18
,
&H10
,
&H10
,
&H30
,
&H30
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 55 ---- 7
Data
&H00
,
&H3C
,
&H42
,
&H42
,
&H42
,
&H3C
,
&H42
,
&H42
,
&H42
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 56 ---- 8
Data
&H00
,
&H3C
,
&H64
,
&H42
,
&H42
,
&H66
,
&H3E
,
&H02
,
&H44
,
&H38
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 57 ---- 9
Data
&H00
,
&H00
,
&H00
,
&H18
,
&H18
,
&H00
,
&H00
,
&H00
,
&H18
,
&H18
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 58 ---- : (dwukropek)
'Data &H00 , &H00 , &H00 , &H18 , &H18 ,
&H00 , &H00 , &H00 , &H18 , &H18 , &H08 , &H10 , &H00 , &H00 , &H00 , &H00 '
Code for char num 59
'Data &H00 , &H00 , &H00 , &H02 , &H0C ,
&H70 , &H60 , &H1C , &H02 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 60
Data
&H00
,
&H00
,
&H00
,
&H7E
,
&H00
,
&H00
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 61 ---- =
'Data &H00 , &H00 , &H00 , &H40 , &H30 ,
&H0E , &H06 , &H38 , &H40 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 62
'Data &H00 , &H3C , &H62 , &H42 , &H06 ,
&H1C , &H10 , &H00 , &H18 , &H18 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 63
'Data &H00 , &H3C , &H22 , &H42 , &H5E ,
&H52 , &H52 , &H5F , &H20 , &H38 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 64
Data
&H00
,
&H18
,
&H18
,
&H2C
,
&H24
,
&H24
,
&H7E
,
&H42
,
&H42
,
&H81
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 65 ---- A
Data
&H00
,
&H7C
,
&H42
,
&H42
,
&H42
,
&H7C
,
&H42
,
&H42
,
&H42
,
&H7C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 66 ---- B
Data
&H00
,
&H1C
,
&H22
,
&H41
,
&H40
,
&H40
,
&H40
,
&H41
,
&H22
,
&H1C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 67 ---- C
Data
&H00
,
&H7C
,
&H44
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H44
,
&H7C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 68 ---- D
Data
&H00
,
&H7E
,
&H40
,
&H40
,
&H40
,
&H7C
,
&H40
,
&H40
,
&H40
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 69 ---- E
Data
&H00
,
&H7E
,
&H40
,
&H40
,
&H40
,
&H7C
,
&H40
,
&H40
,
&H40
,
&H40
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 70 ---- F
Data
&H00
,
&H1C
,
&H22
,
&H41
,
&H40
,
&H47
,
&H41
,
&H41
,
&H23
,
&H1D
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 71 ---- G
Data
&H00
,
&H42
,
&H42
,
&H42
,
&H42
,
&H7E
,
&H42
,
&H42
,
&H42
,
&H42
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 72 ---- H
Data
&H00
,
&H7C
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H7C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 73 ---- I
Data
&H00
,
&H04
,
&H04
,
&H04
,
&H04
,
&H04
,
&H84
,
&H84
,
&HC4
,
&H78
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 74 ---- J
Data
&H00
,
&H43
,
&H44
,
&H48
,
&H50
,
&H78
,
&H48
,
&H44
,
&H46
,
&H43
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 75 ---- K
Data
&H00
,
&H40
,
&H40
,
&H40
,
&H40
,
&H40
,
&H40
,
&H40
,
&H40
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 76 ---- L
Data
&H00
,
&H63
,
&H63
,
&H63
,
&H65
,
&H55
,
&H55
,
&H55
,
&H59
,
&H49
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 77 ---- M
Data
&H00
,
&H62
,
&H62
,
&H72
,
&H52
,
&H5A
,
&H4A
,
&H4E
,
&H46
,
&H46
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 78 ---- N
Data
&H00
,
&H1C
,
&H22
,
&H41
,
&H41
,
&H41
,
&H41
,
&H41
,
&H22
,
&H1C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 79 ---- O
Data
&H00
,
&H7C
,
&H42
,
&H42
,
&H42
,
&H7C
,
&H40
,
&H40
,
&H40
,
&H40
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 80 ---- P
Data
&H00
,
&H1C
,
&H22
,
&H41
,
&H41
,
&H41
,
&H41
,
&H45
,
&H22
,
&H1F
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 81 ---- Q
Data
&H00
,
&H7C
,
&H42
,
&H42
,
&H42
,
&H7C
,
&H42
,
&H42
,
&H42
,
&H42
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 82 ---- R
Data
&H00
,
&H3C
,
&H46
,
&H42
,
&H60
,
&H3C
,
&H06
,
&H42
,
&H62
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 83 ---- S
Data
&H00
,
&HFE
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 84 ---- T
Data
&H00
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H66
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 85 ---- U
Data
&H00
,
&HC1
,
&H43
,
&H62
,
&H22
,
&H26
,
&H34
,
&H14
,
&H14
,
&H08
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 86 ---- V
Data
&H00
,
&H91
,
&HF3
,
&H72
,
&H6A
,
&H6A
,
&H6A
,
&H6A
,
&H2C
,
&H24
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 87 ---- W
Data
&H00
,
&HC6
,
&H44
,
&H28
,
&H38
,
&H10
,
&H28
,
&H28
,
&H44
,
&HC6
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 88 ---- X
Data
&H00
,
&HC6
,
&H44
,
&H6C
,
&H28
,
&H30
,
&H10
,
&H10
,
&H10
,
&H10
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 89 ---- Y
Data
&H00
,
&H7E
,
&H06
,
&H04
,
&H08
,
&H18
,
&H10
,
&H20
,
&H60
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 90 ---- Z
'Data &H00 , &H1C , &H10 , &H10 , &H10 ,
&H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H1C , &H00 , &H00 , &H00 , &H00 '
Code for char num 91
'Data &H00 , &H20 , &H20 , &H10 , &H10 ,
&H10 , &H08 , &H08 , &H08 , &H04 , &H04 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 92
'Data &H00 , &H38 , &H08 , &H08 , &H08 ,
&H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H38 , &H00 , &H00 , &H00 , &H00 '
Code for char num 93
'Data &H00 , &H08 , &H14 , &H22 , &H00 ,
&H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 94
'Data &H00 , &H00 , &H00 , &H00 , &H00 ,
&H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HFF , &H00 , &H00 , &H00 '
Code for char num 95
'Data &H30 , &H08 , &H00 , &H00 , &H00 ,
&H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 96
Data
&H00
,
&H00
,
&H00
,
&H38
,
&H44
,
&H04
,
&H3C
,
&H44
,
&H44
,
&H3E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 97 ---- a
Data
&H00
,
&H40
,
&H40
,
&H5C
,
&H66
,
&H42
,
&H42
,
&H42
,
&H66
,
&H5C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 98 ---- b
Data
&H00
,
&H00
,
&H00
,
&H3C
,
&H62
,
&H40
,
&H40
,
&H40
,
&H62
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 99 ---- c
Data
&H00
,
&H02
,
&H02
,
&H3A
,
&H66
,
&H42
,
&H42
,
&H42
,
&H66
,
&H3A
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 100 ---- d
Data
&H00
,
&H00
,
&H00
,
&H3C
,
&H66
,
&H42
,
&H7E
,
&H40
,
&H62
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 101 ---- e
Data
&H00
,
&H1E
,
&H10
,
&H7E
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 102 ---- f
Data
&H00
,
&H00
,
&H00
,
&H3A
,
&H66
,
&H42
,
&H42
,
&H42
,
&H66
,
&H3A
,
&H02
,
&H42
,
&H3C
,
&H00
,
&H00
,
&H00
' Code for char num 103 ---- g
Data
&H00
,
&H40
,
&H40
,
&H58
,
&H64
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 104 ---- h
Data
&H00
,
&H08
,
&H00
,
&H38
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H3E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 105 ---- i
Data
&H00
,
&H08
,
&H00
,
&H38
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H38
,
&H00
,
&H00
,
&H00
' Code for char num 106 ---- j
Data
&H00
,
&H40
,
&H40
,
&H46
,
&H48
,
&H50
,
&H78
,
&H48
,
&H44
,
&H46
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 107 ---- k
Data
&H00
,
&H18
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H08
,
&H3E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 108 ---- l
Data
&H00
,
&H00
,
&H00
,
&H7F
,
&H49
,
&H49
,
&H49
,
&H49
,
&H49
,
&H49
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 109 ---- m
Data
&H00
,
&H00
,
&H00
,
&H58
,
&H64
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 110 ---- n
Data
&H00
,
&H00
,
&H00
,
&H3C
,
&H66
,
&H42
,
&H42
,
&H42
,
&H66
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 111 ---- o
Data
&H00
,
&H00
,
&H00
,
&H5C
,
&H66
,
&H42
,
&H42
,
&H42
,
&H66
,
&H5C
,
&H40
,
&H40
,
&H40
,
&H00
,
&H00
,
&H00
' Code for char num 112 ---- p
Data
&H00
,
&H00
,
&H00
,
&H3A
,
&H66
,
&H42
,
&H42
,
&H42
,
&H66
,
&H3A
,
&H02
,
&H02
,
&H02
,
&H00
,
&H00
,
&H00
' Code for char num 113 ---- q
Data
&H00
,
&H00
,
&H00
,
&H2C
,
&H32
,
&H20
,
&H20
,
&H20
,
&H20
,
&H20
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 114 ---- r
Data
&H00
,
&H00
,
&H00
,
&H38
,
&H44
,
&H40
,
&H38
,
&H04
,
&H44
,
&H38
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 115 ---- s
Data
&H00
,
&H10
,
&H10
,
&H7E
,
&H10
,
&H10
,
&H10
,
&H10
,
&H10
,
&H0E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 116 ---- t
Data
&H00
,
&H00
,
&H00
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H4C
,
&H34
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 117 ---- u
Data
&H00
,
&H00
,
&H00
,
&H63
,
&H22
,
&H22
,
&H36
,
&H14
,
&H14
,
&H08
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 118 ---- v
Data
&H00
,
&H00
,
&H00
,
&H92
,
&HF6
,
&H74
,
&H74
,
&H74
,
&H78
,
&H28
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 119 ---- w
Data
&H00
,
&H00
,
&H00
,
&H66
,
&H24
,
&H18
,
&H18
,
&H18
,
&H24
,
&H66
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 120 ---- x
Data
&H00
,
&H00
,
&H00
,
&H42
,
&H66
,
&H24
,
&H24
,
&H3C
,
&H18
,
&H18
,
&H18
,
&H10
,
&H70
,
&H00
,
&H00
,
&H00
' Code for char num 121 ---- y
Data
&H00
,
&H00
,
&H00
,
&H7E
,
&H04
,
&H08
,
&H18
,
&H30
,
&H20
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 122 ---- z
'Data &H00 , &H0E , &H08 , &H08 , &H08 ,
&H08 , &H30 , &H08 , &H08 , &H08 , &H08 , &H08 , &H0E , &H00 , &H00 , &H00 '
Code for char num 123
'Data &H10 , &H10 , &H10 , &H10 , &H10 ,
&H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00 , &H00 , &H00 '
Code for char num 124
'Data &H00 , &H38 , &H08 , &H08 , &H08 ,
&H08 , &H06 , &H08 , &H08 , &H08 , &H08 , &H08 , &H38 , &H00 , &H00 , &H00 '
Code for char num 125
'Data &H00 , &H00 , &H00 , &H00 , &H00 ,
&H32 , &H4C , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '
Code for char num 126
Data
&H60
,
&H90
,
&H90
,
&H60
,
&H06
,
&H09
,
&H10
,
&H10
,
&H10
,
&H09
,
&H06
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 127 ---- stopień C
Data
&HFF
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
' lewa górna strona ramki |~ 67
Data
&HFF
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
' prawa górna strona ramki ~| 68
Data
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&HFF
' lewa dolna strona ramki |_ 69
Data
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&HFF
' prawa dolna strona ramki _| 70
Data
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
,
&H01
' lewa pionowa strona ramki | 71
Data
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
,
&H80
' prawa pionowa strona ramki | 72
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&HFF
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' --(myślnik przez 8 pkt środkiem) 73
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H3C
,
&H7E
,
&H7E
,
&H7E
,
&H7E
,
&H3C
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' ZNAK PEŁNY kółko pełne 74
'Data &H01 , &H01 , &H01 , &H01 , &H01 ,
&H01 , &H01 , &Hff , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 ' |-
'Data &Hff , &H08 , &H08 , &H08 , &H08 ,
&H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 ' ~|~
'Data &H08 , &H08 , &H08 , &H08 , &H08 ,
&H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &Hff ' _|_
'Data &H08 , &H08 , &H08 , &H08 , &H08 ,
&H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 ' |
przez środek
'Data &H08 , &H08 , &H08 , &H08 , &H08 ,
&H08 , &H08 , &Hff , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 , &H08 ' +
Data
&H00
,
&H40
,
&H20
,
&H20
,
&H10
,
&H08
,
&H08
,
&H04
,
&H04
,
&H04
,
&H02
,
&H02
,
&H00
,
&H00
,
&H00
,
&H00
' / 75
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&HFF
' __(myślnik przez 8 pkt dołem) 76
Data
&HFF
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' ~~(myślnik przez 8 pkt górą) 77
'1 LINIJKA TO 1/4 LEWEJ STRONY ZNAKU
DUŻEGO
Data
&HE0
,
&H10
,
&H08
,
&HC4
,
&H44
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
' Code for char num 48 0 lewa górna 78
Data
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H24
,
&H44
,
&HC4
,
&H08
,
&H30
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 48 0 lewa dolna 79
Data
&H00
,
&H00
,
&H00
,
&HC0
,
&H70
,
&H1C
,
&H04
,
&H04
,
&HFC
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 49 1 lewa górna 79
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 49 1 lewa dolna 80
Data
&HE0
,
&H18
,
&H0C
,
&H84
,
&H42
,
&H22
,
&H22
,
&H22
,
&H3E
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H80
,
&H40
' Code for char num 50 2 81
Data
&H20
,
&H10
,
&H10
,
&H08
,
&H84
,
&H84
,
&H44
,
&H22
,
&HE2
,
&H02
,
&H02
,
&HFE
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 50 2 82
Data
&HE0
,
&H18
,
&H04
,
&HC4
,
&H62
,
&H22
,
&H22
,
&H3E
,
&H00
,
&H00
,
&H00
,
&HC0
,
&H40
,
&H40
,
&HC0
,
&H00
' Code for char num 51 3 83
Data
&H00
,
&H00
,
&H3E
,
&H22
,
&H22
,
&H22
,
&H22
,
&H44
,
&H84
,
&H08
,
&H18
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 51 3 84
Data
&H00
,
&H00
,
&H80
,
&H80
,
&H40
,
&H40
,
&H20
,
&H20
,
&H10
,
&H90
,
&H88
,
&H48
,
&H44
,
&H24
,
&H26
,
&H12
' Code for char num 52 4 85
Data
&H12
,
&H09
,
&HF9
,
&H01
,
&H01
,
&HFF
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 52 4 86
Data
&HFE
,
&H02
,
&H02
,
&HF2
,
&H12
,
&H11
,
&H11
,
&H11
,
&HD1
,
&H31
,
&H11
,
&HC1
,
&H31
,
&H1F
,
&H00
,
&H00
' Code for char num 53 5 87
Data
&H00
,
&H00
,
&H00
,
&H1F
,
&H11
,
&H11
,
&H31
,
&H23
,
&HC2
,
&H06
,
&H1C
,
&HF0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 53 5 88
Data
&HE0
,
&H30
,
&H08
,
&H84
,
&H44
,
&H64
,
&H22
,
&H22
,
&H22
,
&HA2
,
&HE2
,
&H22
,
&H92
,
&H42
,
&H22
,
&H22
' Code for char num 54 6 89
Data
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H24
,
&H44
,
&H84
,
&H08
,
&H30
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 54 6 90
Data
&HFE
,
&H02
,
&H02
,
&HFE
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H80
,
&H80
,
&H80
' Code for char num 55 7 91
Data
&H80
,
&H40
,
&H40
,
&H40
,
&H40
,
&H40
,
&H40
,
&H20
,
&H20
,
&H20
,
&H20
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 55 7 92 ' Code for char num
55 7
Data
&HC0
,
&H30
,
&H08
,
&H88
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H48
,
&H98
,
&H30
,
&H50
,
&H8C
,
&H44
' Code for char num 56 8 93
Data
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H46
,
&HC4
,
&H0C
,
&H18
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 56 8 94 ' Code for char num
56 8
Data
&HE0
,
&H18
,
&H08
,
&H84
,
&H44
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H46
,
&H84
' Code for char num 57 9 95
Data
&H0C
,
&H18
,
&HF0
,
&H00
,
&H00
,
&H00
,
&H3C
,
&H64
,
&HC4
,
&H0C
,
&H18
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 57 9 96
Data
&H00
,
&H00
,
&H00
,
&H00
,
&HE0
,
&HE0
,
&H60
,
&H60
,
&HE0
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 58 : 97
Data
&H00
,
&H00
,
&HE0
,
&HE0
,
&H60
,
&H60
,
&HE0
,
&HE0
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 58 : 98
'1 LINIJK TO 1/4 PRAWEJ STRONY ZNAKU
DUŻEGO
Data
&H0F
,
&H18
,
&H20
,
&H47
,
&H44
,
&HC8
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
' Code for char num 48 0 prawa górna 99
Data
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&HC8
,
&H44
,
&H43
,
&H20
,
&H18
,
&H0F
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 48 0 prawa dolna 100
Data
&H7E
,
&H42
,
&H42
,
&H41
,
&H40
,
&H40
,
&H40
,
&H40
,
&H43
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
' Code for char num 49 1 101
Data
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H42
,
&H7E
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 49 1 102
Data
&H0F
,
&H30
,
&H60
,
&H43
,
&H84
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H44
,
&H44
,
&H42
,
&H21
,
&H10
,
&H18
' Code for char num 50 2 103
Data
&H0C
,
&H04
,
&H02
,
&H01
,
&H00
,
&H00
,
&H00
,
&H00
,
&HFF
,
&H80
,
&H80
,
&HFF
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 50 2 104
Data
&H07
,
&H18
,
&H30
,
&H23
,
&H46
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H22
,
&H21
,
&H10
,
&H38
,
&H43
,
&H44
' Code for char num 51 3 105
Data
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H44
,
&H43
,
&H20
,
&H18
,
&H0F
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 51 3 106
Data
&H3F
,
&H21
,
&H20
,
&H20
,
&H22
,
&H22
,
&H22
,
&H23
,
&H23
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
' Code for char num 52 4 107
Data
&H22
,
&H22
,
&HE3
,
&H80
,
&H80
,
&HE3
,
&H22
,
&H22
,
&H22
,
&H22
,
&H22
,
&H3E
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 52 4 108
Data
&H7F
,
&H40
,
&H40
,
&H7F
,
&H00
,
&H00
,
&H00
,
&H00
,
&H0F
,
&H18
,
&H20
,
&H43
,
&H46
,
&H84
,
&H88
,
&H88
' Code for char num 53 5 109
Data
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H44
,
&H44
,
&H63
,
&H20
,
&H18
,
&H07
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 53 5 110
Data
&H0F
,
&H10
,
&H20
,
&H47
,
&H4C
,
&H78
,
&H00
,
&H00
,
&H00
,
&H0F
,
&H30
,
&H60
,
&H43
,
&H84
,
&H88
,
&H88
' Code for char num 54 6 111
Data
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H44
,
&H43
,
&H20
,
&H10
,
&H0F
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 54 6 112
Data
&HFF
,
&H80
,
&H80
,
&H8F
,
&H44
,
&H44
,
&H44
,
&H22
,
&H22
,
&H32
,
&H11
,
&H11
,
&H11
,
&H08
,
&H08
,
&H08
' Code for char num 55 7 113
Data
&H08
,
&H04
,
&H04
,
&H04
,
&H04
,
&H04
,
&H06
,
&H02
,
&H02
,
&H02
,
&H02
,
&H03
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 55 7 114
Data
&H07
,
&H18
,
&H20
,
&H23
,
&H46
,
&H44
,
&H44
,
&H44
,
&H44
,
&H44
,
&H26
,
&H33
,
&H18
,
&H1C
,
&H63
,
&H44
' Code for char num 56 8 115
Data
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&HC4
,
&H43
,
&H60
,
&H30
,
&H0F
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 56 8 116
Data
&H0F
,
&H18
,
&H20
,
&H43
,
&H44
,
&H48
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H88
,
&H84
,
&H83
' Code for char num 57 9 117
Data
&H88
,
&H8C
,
&H8B
,
&H88
,
&H88
,
&H88
,
&H4C
,
&H44
,
&H43
,
&H20
,
&H18
,
&H0F
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 57 9 118
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H07
,
&H07
,
&H06
,
&H06
,
&H07
,
&H07
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 58 : 119
Data
&H00
,
&H00
,
&H07
,
&H07
,
&H06
,
&H06
,
&H07
,
&H07
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' Code for char num 58 : 120
'wyznaczanie dużych znakow
'Duza_czcionka_myslnik:
'Data &H00 , &H00 , &H00 , &H0E , &H00 ,
&H00 , &H00 ' Code for char num 45 - jest ok
Duza_czcionka_spacja:
Data
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
,
&H00
' spacja jest ok
Duza_czcionka_0:
'Data &H0E , &H11 , &H13 , &H15 , &H19 ,
&H11 , &H0E ' Code for char num 48 0 jest ok
Data
&H06
,
&H09
,
&H09
,
&H09
,
&H09
,
&H09
,
&H06
'Microsoft_Sans_Serif 5x7 rozmiar windowsowski 7
Duza_czcionka_1:
'Data &H0C , &H14 , &H04 , &H04 , &H04 ,
&H04 , &H0E ' Code for char num 49 1
Data
&H04
,
&H06
,
&H04
,
&H04
,
&H04
,
&H04
,
&H04
Duza_czcionka_2:
'Data &H0E , &H11 , &H01 , &H02 , &H04 ,
&H08 , &H1F ' Code for char num 50 2
Data
&H06
,
&H09
,
&H08
,
&H04
,
&H02
,
&H01
,
&H0F
Duza_czcionka_3:
'Data &H1F , &H02 , &H04 , &H02 , &H01 ,
&H11 , &H0E ' Code for char num 51 3
Data
&H06
,
&H09
,
&H08
,
&H04
,
&H08
,
&H09
,
&H06
Duza_czcionka_4:
'Data &H02 , &H06 , &H0A , &H12 , &H1F ,
&H02 , &H02 ' Code for char num 52 4
Data
&H08
,
&H0C
,
&H0A
,
&H09
,
&H1F
,
&H08
,
&H08
Duza_czcionka_5:
'Data &H0E , &H10 , &H10 , &H1E , &H01 ,
&H01 , &H1E ' Code for char num 53 5
Data
&H0F
,
&H01
,
&H07
,
&H08
,
&H08
,
&H09
,
&H06
Duza_czcionka_6:
'Data &H06 , &H08 , &H10 , &H1E , &H11 ,
&H11 , &H0E ' Code for char num 54 6
Data
&H06
,
&H09
,
&H01
,
&H07
,
&H09
,
&H09
,
&H06
Duza_czcionka_7:
'Data &H1F , &H01 , &H02 , &H04 , &H08 ,
&H10 , &H10 ' Code for char num 55 7
Data
&H0F
,
&H08
,
&H04
,
&H04
,
&H04
,
&H02
,
&H02
Duza_czcionka_8:
'Data &H0E , &H11 , &H11 , &H0E , &H11 ,
&H11 , &H0E ' Code for char num 56 8
Data
&H06
,
&H09
,
&H09
,
&H06
,
&H09
,
&H09
,
&H06
Duza_czcionka_9:
'Data &H0E , &H11 , &H11 , &H1E , &H10 ,
&H10 , &H0E ' Code for char num 57 9 jest ok
Data
&H06
,
&H09
,
&H09
,
&H0E
,
&H08
,
&H09
,
&H06
Duza_czcionka_dwukropek:
Data
&H00
,
&H04
,
&H04
,
&H00
,
&H04
,
&H04
,
&H00
' Code for char num 58 :
$eeprom
'dane do zapisania w eepromie (kod ) -
zaktualizowane na 2014 rok
Data 0
, 10
, 15
, 24
, 14
, 19
, 28
, 14
, 19
, 28
, 11
, 16
, 25
, 9
, 21
, 23
, 13
, 18
, 27
, 11
, 16
, 25
, 8
, 20
, 22
, 12
, 17
, 26
, 10
, 15
, 24
, 14
, 19
, 28
, 12
, 17
,
29