Witam
Po raz pierwszy zabrałem się za sterowanie wyświetlaczem 7 segmentowym.
Mam pewien problem jak zamienić liczby np. wartość temperatury 20.5°C na 3 liczby typu byte i umieścić je na wyświetlaczu ?.
W moim programie mam podane 3 zmienne C1, C2, C3, które udaje mi się wyświetlić. Nie wiem tylko jak zapalić kropkę lub zgasić 0 z 1-wszego wyświetlacza.
Program wygląda tak:
Poprawiłem tytuł -
https://www.elektroda.pl/rtvforum/topic1015361.html [c_p]
Po raz pierwszy zabrałem się za sterowanie wyświetlaczem 7 segmentowym.
Mam pewien problem jak zamienić liczby np. wartość temperatury 20.5°C na 3 liczby typu byte i umieścić je na wyświetlaczu ?.
W moim programie mam podane 3 zmienne C1, C2, C3, które udaje mi się wyświetlić. Nie wiem tylko jak zapalić kropkę lub zgasić 0 z 1-wszego wyświetlacza.
Program wygląda tak:
Code:
$regfile = "m8def.dat"
$crystal = 1000000
Declare Sub Wyswietlanie
Dim Cyfra As Integer
Dim C1 As Byte
Dim C2 As Byte
Dim C3 As Byte
Config Portd = Output
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
C1 = 1
C2 = 2
C3 = 4
Do
'*************Wyswietlanie****************
Cyfra = C1
Gosub Wyswietlanie
Set Portb.0
Waitms 30
Reset Portb.0
Cyfra = C2
Gosub Wyswietlanie
Set Portb.1
Waitms 30
Reset Portb.1
Cyfra = C3
Gosub Wyswietlanie
Set Portb.2
Waitms 30
Reset Portb.2
Loop
'*************************** Wyświetlanie *********************************
Sub Wyswietlanie:
Portd = Lookup(cyfra , Segmenty )
End Sub
Segmenty:
Data &B11000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001 ,
Data &B10010010 , &B10000010 , &B11111000 , &B10000000 , &B10010000 ,
Poprawiłem tytuł -
https://www.elektroda.pl/rtvforum/topic1015361.html [c_p]