Re: BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

2013-08-26T18:38:02+01:00

k_mirek napisał(a):

Tez kiedyś zaczynałem karierę w Bascom. No nie powiem szlo nawet dobrze. Po czasie stwierdziłem że czas na przesiadkę na C. Oj i tee moje walki z tym językiem. Książek przeróżnych chyba z 5, stron www setki i stwierdziłem ze wracam do punktu wyjścia czyli Bascom. Na szczęście w moje ręce wpadła niebieska książeczka wydawnictwa ATNEL (nie mylić z inną niebieską książką na temat j. C którą również posiadam) Pierwsze wrażenie ojj jakieś volatile, struktury, wskaźniki a do tego jeszcze własne biblioteki obsługi różnych modułów ??? omg! I teraz cenna uwaga dla czytających ten topic. Bajki piszę w ostatnim zdaniu. Wszystko świetnie wyjaśnione.W ogóle to teraz się zastanawiam dlaczego nie od razu C. A no dla tego że nie było odpowiedniej literatury czyli tego niebieskiego booka. Zachęcam wszystkich bascomowiczów na taką przesiadkę. Naprawdę warto.

I tu pojawia się problem bo Mi osobiście ciężko jest się przesiąść z bascoma na C. Nawet kupiłem sobie "niebieską" książkę przeczytałem połowę i mam mętlik w głowie...
Żałuje że od razu nie wziąłem się za C na bank było by mi teraz łatwiej

------------------------ [ Dodano po: 19 minutach ]

k_mirek napisał(a):

Statystyki: Napisane przez endurasek — 26 sie 2013, o 18:38

Re: BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

2013-02-02T15:33:11+01:00

Statystyki: Napisane przez k_mirek — 2 lut 2013, o 15:33

BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

2013-02-02T14:51:59+01:00

Postanowiłem jakoś uporządkować to wszystko dla potencjalnych Bascomowców
sam już się zresztą gubię w bascomie bo dawno go nie używałem -- siła ewolucji i został wyparty przez ARDUINO
do szybkiego sprawdzania koncepcji . Nie mniej warto to i owo sobie przypomnieć

Jedziemy:

Z wielu dziwnych zapytań wybór padła na 16 .... oto one

1. Jak deklarować zmienne?
2. Jak deklarować stałe?
3. Jak deklarować tablice?
4. Jak zrobić pętlę?
5. Jak deklarować i wywoływać podprogramy?
6. Jak sterować alfanumerycznym wyświetlaczem LCD?
7. Jak pisać warunki?
8. Jak zmienić nazwę zmiennych, stałych itp?
9. Jak wykonać pętle opóźnienia czasowego?
10. Jak obsługiwać przerwania?
11. Jak obsługiwać szynę I2C?
12. Jak wyeliminować drgania styków?
13. Co to jest wyświetlacz multipleksowy i jak nim sterować z poziomu Bascom'a?
14. Jak obsłużyć klawiaturę od PC'ta?
15. Jak zamienić liczbę na ciąg 01?
16. Jak obsłużyć impulsator?

------------------- ODPOWIEDZI ------------------------------

1. Jak deklarować zmienne?

DIM nazwa_zmiennej1 AS BIT - zakres zmiennej 0..1
DIM nazwa_zmiennej2 AS BYTE - zakres zmiennej 0..255
DIM nazwa_zmiennej3 AS WORD - zakres zmiennej
DIM nazwa_zmiennej4 AS INTEGER - zakres zmiennej -32767..32768
DIM nazwa_zmiennej5*10 AS STRING - zmienna tekstowa o długości w tym przypadku 10

2. Jak deklarować stałe?

CONST nazwa_stałej1 = &HF
CONST nazwa_stałej2 = -1000
CONST nazwa_stałej3 = 1.1
CONST nazwa_stałej4 = "tekst"

3. Jak deklarować tablice?

DIM nazwa_tablicy(ilość) AS rodzaj_zmiennej
nazwa_tablicy(5) = 146 'zapianie do 5 elementu tablicy liczby 146

4. Jak zrobić pętlę?

DO 'początek pętli
... 'operacje i polecenia wykonywane w pętli
LOOP 'koniec pętli i powrót do początku

5. Jak deklarować i wywoływać podprogramy?

Na początku programu wpisujemy deklaracje o podprogramie:

DECLARE SUB nazwa_podprogramu(zmienna AS typ_zmiennej)

A następnie w programie piszemy, co konkretnie podprogram ma wykonywać. Robimy to w następujący sposób:

SUB nazwa_podprogramu(zmienna AS typ_zmiennej) 'początek podprogramu
... 'operacje i polecenia wykonywane w pętli
END SUB 'koniec podprogramu

Aby wywołać podprogram piszemy:

CALL nazwa_podprogramu(zmienna)

Oczywiście, jeśli w podprogramie nie będziemy wykonywać jakichkolwiek operacji na zmiennej podawanej w nawiasie, nie deklarujemy tego na początku, a przy wywoływaniu podprogramu pomijamy zmienną.

6. Jak sterować alfanumerycznym wyświetlaczem LCD?

W Bascomie sterowanie wyświetlaczy alfanumerycznych LCD jest banalnie proste. Wystarczy tylko poinformować kompilator, do których linii portu będzie on podłączony (OPTIONS/COMPILER/LCD) i zadeklarować na początku programu rodzaj podłączanego wyświetlacza:

CONFIG LCD=ilość_znaków*ilość_linii

gdzie ilość znaków i ilośćlinii może być następująca: 40*4, 40*2, 16*1, 16*1a, 16*2, 16*4, 16*4, 20*2, 20*4,40*4a
W przypadku problemów ze sterowaniem 16*1 lub 40*4 należy zamienić je na 16*1a lub 40*4a
Bascom pozwala na wykonywanie następujących operacji na wyświetlaczu:

LCD "TEKST" 'wyświetlenie napisu TEKST
LCD zmienna 'wyświetlenie zmiennej
LCD "tekst"; zmienna 'wyświetlenie w jednej linii napisu TEKST i wartości zmiennej
CLS 'kasowanie wyświetlacz
CURSOR ON/OFF, BLINK/NOBLINK 'operacje na kursorze
gdzie ON/OFF - włącz lub wyłącz kursor, BLINK/NOBLINK - włącz lub wyłącz miganie kursora, polecenia ta mogą działać oddzielnie, czyli możemy np. napisać:
CURSOR BLINK
LOCATE linia,pozycja_kursora 'ustawienie kursora na linii i pozycji
SHIFTCURSOR LEFT/RIGHT 'przesuwanie kursora w lewo lub wprawo
SHIFTLCD LEFT/RIGHT 'przesuwanie tekstu w lewo lub w prawo
DISPLAY ON/OFF 'włączenie lub wyłączenie wyświetlacza
UPPERLINE 'przejście kursora do wyższej linii
LOWERLINE 'przejście kursora do niższej linii
THIRDLINE 'przejście kursora do trzeciej linii
FOURTHLINE 'przejście kursora do czwartej linii
DEFLCDCHAR numer_banku , 31 , 17 , 17 , 17 , 17 , 17 , 31 , 0 ' deklarowanie własnego znaku np. polskich liter, gdzie numer_banku: 0..7. Aby stworzyć dowolny znak należy wybrać z menu TOOLS/LCD DESIGNER, a następnie narysować żądany znak. Bascom automatycznie wstawi polecenie DEFLCDCHAR do programu. My tylko musimy podać numer banku.

7. Jak pisać warunki?

IF zdarzenie THEN
... 'to co ma się zdarzyć jeśli warunek będzie spełniony
ELSE
... 'to co ma się zdarzyć jeśli warunek nie będzie spełniony
END IF 'koniec warunku
Zdarzenie może mieć następującą postać:
zmienna = 0 'jeśli zmienna będzie równa zero
P1.0 = 1 'jeśli bit 0 portu P1 będzie równy jeden
PRZYKŁAD:
'Chcemy zliczać sekundy w pętli
DIM sekundy AS BYTE 'deklaracja zmiennej sekundy
DO 'początek pętli
INCR sekundy 'zwiększenie o 1 zmiennej sekundy
IF sekundy = 60 THEN 'jeśli sekundy = 60 to
sekundy = 0 'wyzeruj sekundy
END IF 'koniec warunku przepełnienia
LOOP 'zapętlenie - skok do DO
Pewnie się zastanawiasz co trzeba zrobić, aby zliczać jeszcze minuty, godziny, czy nawet dni. Odpowiedź jest bardzo prosta. W warunku przepełnienia (if sekundy =60 then) wpisujemy polecenia od INCR do END IF odwołując się do minut. Następnie w warunku przepełnienia minut wpisujemy to samo odnośnie godzin itd.

8. Jak zmienić nazwę zmiennych, stałych itp?

nowa_nazwa ALIAS stara_nazwa
To polecenie jest bardzo przydatne, gdyż możemy nazwać np. bity portów w zależności od funkcji jakie pełnią np. chcemy za pomocą P3.7 sterować buzzerem możemy więc zmienić nazwę P3.7 na BUZZER, a nastepnie odwoływać się do nowej nazwy. Wygląda to tak:
BUZZER ALIAS P3.7
RESET BUZZER 'wyzerowanie BUZZER, a właściwie P3.7
WAIT 1 'poczekaj 1 sekundę
SET BUZZER 'ustawienie 1 na P3.7

9. Jak wykonać pętle opóźnienia czasowego?

DELAY 'opóźnienie ok. 100us
WAITMS milisekundy 'opóżnienie w milisekundach 0..255
WAIT sekundy 'opóźnienie w sekundach

10. Jak obsługiwać przerwania?

ENABLE INT0 'zezwolenie na przerwanie z INT0, zamiast INT0 możemy wpisać: INT1, SERIAL, TIMER0, TIMER1,TIMER2, a nawet INT3, INT4, INT5, INT6, INT7, INT8 , CAN. Zależy to oczywiście od używanego mikroprocesora.
ON INT0 podprogram 'poinformowanie kompilatora, który podprogram ma być wywoływany przy przerwaniu
ENABLE INTERRUPTS 'odblokowanie układu przerwań
DIASBLE INT0 'wyłączenie przerwania

11. Jak obsługiwać szynę I2C?

Na początku musisz zadeklarować, które bity portu będą pełnić funkcje linii danych SDA i linii zegarowej SCL.
CONFIG SDA = P1.0
CONFIG SCL = P1.1
Potem w programie:
I2CSTART 'warunek startu szyny
I2CWBYTE zmienna, ACK/NOACK 'zapis zmiennej z potwierdzeniem (ACK) lub bez
I2CRBYTE zmienna, ACK/NOACK 'odczyt zmiennej z potwierdzeniem (ACK) lub bez
I2CSTOP 'warunek stopu szyny

12. Jak wyeliminować drgania styków?

Drgania styków można wyeliminować w dwojaki sposób:
- sprzętowo poprzez dodanie kondensatorów zwierających
- programowo: poprzez dwukrotne sprawdzanie stanu przycisku z odstępem czasu między nimi. Wygląda to tak:

IF P1.0 = 0 THEN 'jeśli P1.0 = 0 to
WAITMS 30 'poczekaj 30 milisekund
IF P1.0 = 0 THEN 'sprawdź po raz drugi, czy P1.0 = 0 i jeśli tak to
CALL podprogram 'wywołaj podprogram
END IF 'koniec drugiego warunku
END IF 'koniec pierwszego warunku

13. Co to jest wyświetlacz multipleksowy i jak nim sterować z poziomu Bascom'a?

Wyświetlacz multipleksowy to taki, w którym wykorzystuje się bezwładność ludzkiego oka sterując w jednej chwili tylko jednym znakiem na wyświetlaczu. Poprzez szybkie włączanie i wyłączanie kolejnych znaków uzyskuje się efekt świecenia wszystkich znaków.W przypadku wyświetlaczy LED robi się to w następujący sposób: każdy segment jednej cyfry łączymy z takim samym segmentem drugiej cyfry itd. W przypadku techniki mikroprocesorowej będą to najczęściej katody, gdyż wydajność prądowa portu jest dla "0" logicznego. Połączone segmenty łączy się z wybranymi bitami portu. Anody wyświetlaczy muszą być załączane z drugiego portu np. P3 poprzez tranzystory PNP. Sterowanie odbywa się w następujący sposób przy założeniu, że na początku wszystkie wyświetlacze są wyłączone:

- ustaw na porcie P1 to co ma być wyświetlone na pierwszym pojedyńczym wyświetlaczu,
- włącz pierwszy wyświetlacz,
- poczekaj chwilę
- wyłącz pierwszy wyświetlacz
- ustaw na porcie P1 to co ma być wyświetlone na drugim pojedyńczym wyświetlaczu,
- włącz drugi wyświetlacz,
- poczekaj chwilę,
- wyłącz drugi wyświetlacz
- ...
- skocz do początku

Przykładowy program:
[syntax=basic4gl]
DIM tablica_znakow( 9 ) AS BYTE 'deklaracja tablicy znaków
tablica_znakow(0) = 192 'deklaracja wartości
tablica_znakow(1) = 249 'podano liczby dla następującego podłączenia: P1.0-segment a, P1.1-b, P1.2-c, P1.3-d itd
tablica_znakow(2) = 164
tablica_znakow(3) = 176
tablica_znakow(4) = 153
tablica_znakow(5) = 146
tablica_znakow(6) = 130
tablica_znakow(7) = 248
tablica_znakow(8) = 128
tablica_znakow(9) = 144
wys1 ALIAS P3.4 'zmiana nazwy bitu P3.4, który będzie sterował wyswietlaczem nr. 1
wys2 ALIAS P3.5 'dzięki temu nie musimy pamiętać gdzie będą podłączone poszczególne wyświetlacze
wys3 ALIAS P3.7
DO 'początek pętli
P1 = tablica_znakow ( 1 ) 'wysłanie znaku 1 na port P1
RESET wys1 'włączenie pierwszego wyświetlacza
WAITMS 10 'pętla opóźnienia czasowego
SET wys1 'wyłączenie pierwszego wyświetlacza
P1 = tablica_znakow ( 5 ) 'wysłanie znaku 5 na port P1 - w tym przypadku dla drugiego wyświetlacza
RESET wys2
WAITMS 10
SET wys2
P1 = tablica_znakow ( 9 )
RESET wys3
WAITMS 10
SET wys3
LOOP 'powrót do początku pętli
[/syntax]

14. Jak obsłużyć klawiaturę od PC'ta?

[syntax=basic4gl]
' Program: ATPCKBD.BAS
' Author: Dusko Djuricin
' E-mail: djdusko@eunet.yu
'
' This program demonstrates how to interface AT PC keyboard to 8031 microcontrollers family.
' Program was originally written and tested for ATMEL 89C2051. For keyboard interfacing it
' uses only two I/O lines with two pull up resistors. At the output, through serial channel,
' it sends ASCII code of pressed key. Other used I/O lines are not necessary.
' Complete description of PC keyboard operation, could be found at the following address:
'
' http://www.geocities.com/SiliconValley/ ... ybrd.htm#1
'
Dim B1 As Byte , B2 As Byte , N As Byte , Status As Byte , Key As Byte
Dim Caps As Bit , Caps_lock As Bit , Ctrl As Bit , Alt As Bit , Tmp As Bit
Dim Temp As String * 1

Declare Sub Tx_byte(b1 As Byte)
Declare Sub Rx_byte
Declare Sub Kbd_status

Kbd_data Alias P1.1 ' connected with 4K7 pull up resistor
Kbd_clk Alias P1.0 ' connected with 4K7 pull up resistor
Buzzer Alias P3.7 ' for details see BASCOM51 documentation
Res_sw Alias P3.5 ' optional output (see code)

Dim Frequency As Const 2048
Dim Duration As Const 50
Dim L_shift As Const &H12
Dim R_shift As Const &H59
Dim Ctrl_key As Const &H14
Dim Alt_key As Const &H11
Dim Caps_key As Const &H58
Dim Scroll_key As Const &H7E

Dim Flag As Bit
Dim Flaga As Bit

'---------------------------[Beginning of Program]-------------------------------
Config Lcd = 16 * 2
Cls
Lcd "kbrd test"
Wait 3
Cls
clr flag
clr flaga
Reset Kbd_clk ' disable the Keyboard

Waitms 100
Do
Tx_byte &HFF ' reset the Keyboard and wait
Rx_byte ' till the Keyboard answer with
If B1 = &HFA Then Exit Do ' acknowledge byte
If B1 = &HAA Then Exit Do ' or Power On Self Test OK code
Loop

'Print
'Print "*** AT PC Keyboard Interface ***"
'Print " author: Dusko Djuricin"
'Print " E-mail: djdusko@eunet.yu"
'Print "********************************"
'Print

' KBD LED: Status.0 - Scroll Lock, Status.1 - Num Lock, Status.2 - Caps Lock
Status = 2 ' initially Num Lock On
Kbd_status

Do
' KEY variable will hold ASCII value of pressed key
Key = 0 ' initial value
Rx_byte ' read scan code from PC keyboard into B1

Select Case B1
Case Ctrl_key:
Set Ctrl ' mark that CTRL key is pressed
B1 = 0
Case Alt_key:
Set Alt ' same as above but for ALT key ...
B1 = 0
Case L_shift:
Set Caps ' same as above but for Left SHIFT key ...
B1 = 0
Case R_shift:
Set Caps ' same as above but for Right SHIFT key ...
B1 = 0
Case &HE0: ' extended codes are not handled!
B1 = 0
Case &HF0: ' BREAK CODE is detected (key depressed)
Rx_byte ' read again to see which key is depressed
If B1 = L_shift Then ' and keep tracking flags...
Reset Caps
Elseif B1 = R_shift Then
Reset Caps
End If
If B1 = Ctrl_key Then
Reset Ctrl
Elseif B1 = Alt_key Then
Reset Alt
End If
B1 = 0
Case Caps_key: ' in a case of CAPS LOCK key
Caps_lock = Caps_lock Xor 1 ' there must be calculated status of it's LED
Status = Status Xor 4
Kbd_status ' and then we must send it to keyboard
B1 = 0
Case Scroll_key: ' I use combination of Ctrl + Alt + ScrLock
Tmp = Ctrl And Alt ' keys to generate reset signal...
If Tmp = 1 Then
Reset Res_sw ' ...for my host controller
Status = Status Xor 1 ' (Scroll Lock LED will lit and buzzer beeps)
Kbd_status
' Sound Buzzer , Duration , 512
' Waitms 100
' Sound Buzzer , Duration , 512
' Waitms 100
' Sound Buzzer , Duration , 512
' Waitms 100
Set Res_sw
Status = Status Xor 1 ' turn off Scroll Lock LED
Kbd_status
End If
B1 = 0
Case Else: ' handling of "printable" characters
If B1 > 131 Then ' this program handles only lower part
B1 = 0 ' of ASCII code table (with exception of
End If ' function keys - see lookup table)
If Caps = 1 Then
Key = Lookup(b1 , With_shift) ' one table is for SHIFT + key combination
Else
Key = Lookup(b1 , No_shift) ' and another is for key WITHOUT SHIFT
End If
If Caps_lock = 1 Then
If Caps = 0 Then ' if CAPS LOCK was ON and there is no
Temp = Chr(key) ' SHIFT + key combination, then convert
Temp = Ucase(temp) ' pressed key into upper case letter
Key = Asc(temp)
End If
End If
End Select

If B1 <> 0 Then
' Sound Buzzer , Duration , Frequency ' beep
' Print Chr(key); ' and print pressed key
If Key = 27 Then
Cls
Set Flaga
End If
If Key = 13 Then
Flaga = 1
Flag = Not Flag
If Flag = 0 Then
Locate 1 , 1
Else
Locate 2 , 1
End If
End If

If Flaga = 0 Then
Lcd Chr(key)
Reset Flaga
End If
End If
Waitms 10 ' dummy delay ...
Loop

'-----------------------[Receive Byte from Keyboard]----------------------------

Sub Rx_byte
Set Kbd_clk ' enable Keyboard
mov {n},#0
jb Kbd_clk,*+0 ' wait CLK to become zero
' START bit
jnb Kbd_data,L_cont ' if START bit is zero continue
sjmp .L_error ' if not exit via error label
' DATA bits
!L_cont:
Incr N ' this is counter of received bits
acall zero2one
mov a,{b1} ' prepare buffer
mov c,Kbd_data ' read DATA bit
rrc a ' read it into the buffer
mov {b1},a ' store buffer value
mov a,{n}
cjne a,#8,L_cont ' if it isn't last bit repeat
' PARITY bit
acall zero2one
mov a,{b2} ' prepare buffer
mov c,Kbd_data ' read ODD PARITY bit
rrc a ' store it into the buffer
' STOP bit
acall zero2one
mov c,Kbd_data ' read STOP bit
rrc a ' store it into the buffer
rrc a ' now align bits to right...
rrc a
rrc a
rrc a
rrc a
rrc a
anl a,#3 ' extract valuable bits and
mov {b2},a ' store to buffer
' check STOP bit
anl a,#2
jz .L_error
' PARITY checking
mov a,{b1}
mov c,psw.0 ' this is EVEN PARITY
rlc a
anl a,#1
xch a,{b2}

anl a,#1
xrl a,{b2}
jz .L_error
sjmp .L_end
L_error: ' exit in case of an error
Waitms 1 ' wait end of transmission
mov a,#0
mov {b1},a
L_end:
Reset Kbd_clk ' stop the Keyboard
End Sub

'------------------------[Transmit Byte to Keyboard]----------------------------

Sub Tx_byte(b1 As Byte)
B2 = 8
Reset Kbd_clk ' break the Keyboard
Delay ' (safety reasons)
Delay
Delay
Delay
Delay
Delay
Reset Kbd_data ' request to send
Set Kbd_clk ' enable the Keyboard
' START BIT
acall zero2one
' DATA BITS
mov a,{b1}
!L_tx_data:
rrc a
mov Kbd_data,c
acall zero2one
djnz {b2},L_tx_data
' PARITY BIT
mov a,{b1} ' calculate parity bit
mov c,psw.0 ' this is Even parity
cpl c ' and Keyboard needs Odd parity
mov Kbd_data,c ' send parity bit
acall zero2one
' STOP BIT
Set Kbd_data ' send stop bit
acall zero2one
' KBD ACK BIT
acall zero2one
Reset Kbd_clk ' stop the keyboard
End Sub

'------------------[ASM Subroutine wait for falling edge]-----------------------

!zero2one:
jnb Kbd_clk,*+0 ' wait till CLK rise
jb Kbd_clk,*+0 ' now wait till CLK fall down
ret

'------------[Subroutine for sending LED status to the Keyboard]----------------

Sub Kbd_status:
Tx_byte &HED
Rx_byte
Tx_byte Status
Rx_byte
End Sub

'---------------------[Scan Code to ASCII conversion table]---------------------
' Here are two lookup tables, one for handling ordinary keys and other for
' handling combination of SHIFT + key. I gave (under block remark) same tables
' written as strings, so matching with ASCII codes could be easier.
'
' Note that function keys (F1 to F12) are coded as one byte. F1 is coded as 129,
' F2 gives 130, F3 gives 131 and so on. This was OK for my application and it is
' because of simplicity.
'
' Gray keys are not handled (INS, DEL, HOME, ARROWS etc)! These keys returns ASCII
' value of appropriate key on numeric keypad (HOME will give 7, END gives 1, etc).
'
' Pressing of Num Lock key have no effects. Num Lock LED is always ON and serves
' as indicator that controller is turned on (if the keyboard is connected).
'
' Keyboard mapping is for ordinary 101 keys keyboard (standard US layout).
'
No_shift:
'(
Data ""
Data "F9" , "" , "F5" , "F3" , "F1" , "F2" , "F12" , "" , "F10" , "F8"
Data "F6" , "F4" , "TAB" , "`" , "" , "" , "LAlt" , "LSh" , "" , "LCtr" , "q"
Data "1" , "" , "" , "" , "z" , "s" , "a" , "w" , "2" , ""
Data "" , "c" , "x" , "d" , "e" , "4" , "3" , "" , "" , " "
Data "v" , "f" , "t" , "r" , "5" , "" , "" , "n" , "b" , "h"
Data "g" , "y" , "6" , "" , "" , "" , "m" , "j" , "u" , "7"
Data "8" , "" , "" , "," , "k" , "i" , "o" , "0" , "9" , ""
Data "" , "." , "/" , "l" , ";" , "p" , "-" , "" , "" , ""
Data "'" , "" , "[" , "=" , "" , "" , "Caps" , "RSht" , "Enter" , "]"
Data "" , "\" , "" , "" , "" , "" , "" , "" , "" , ""
Data "BkSp" , "" , "" , "1" , "" , "4" , "7" , "" , "" , ""
Data "0" , "." , "2" , "5" , "6" , "8" , "ESC" , "NumLck" , "F11" , "+"
Data "3" , "-" , "*" , "9" , "ScrLck" , "" , "" , "" , "" , "F7"
')
Data 0
Data 137 , 0 , 133 , 131 , 129 , 130 , 140 , 0 , 138 , 136
Data 134 , 132 , 9 , 96 , 0 , 0 , 0 , 0 , 0 , 0 , 113
Data 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0
Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32
Data 118 , 102 , 116 , 114 , 53 , 0 , 0 , 110 , 98 , 104
Data 103 , 121 , 54 , 0 , 0 , 0 , 109 , 106 , 117 , 55
Data 56 , 0 , 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0
Data 0 , 46 , 47 , 108 , 59 , 112 , 45 , 0 , 0 , 0
Data 39 , 0 , 91 , 61 , 0 , 0 , 0 , 0 , 13 , 93
Data 0 , 92 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 46 , 50 , 53 , 54 , 56 , 27 , 0 , 139 , 43
Data 51 , 45 , 42 , 57 , 0 , 0 , 0 , 0 , 0 , 135

With_shift:
'(
Data ""
Data "F9" , "" , "F5" , "F3" , "F1" , "F2" , "F12" , "" , "F10" , "F8"
Data "F6" , "F4" , "TAB" , "~" , "" , "" , "LAlt" , "LSh" , "" , "LCtr" , "Q"
Data "!" , "" , "" , "" , "Z" , "S" , "A" , "W" , "@" , ""
Data "" , "C" , "X" , "D" , "E" , "$" , "#" , "" , "" , " "
Data "V" , "F" , "T" , "R" , "%" , "" , "" , "N" , "B" , "H"
Data "G" , "Y" , "^" , "" , "" , "" , "M" , "J" , "U" , "&"
Data "*" , "" , "" , "<" , "K" , "I" , "O" , ")" , "(" , ""
Data "" , ">" , "?" , "L" , ":" , "P" , "_" , "" , "" , ""
Data 34 , 0 , "" , "{" , "+" , "" , "" , "Caps" , "RSht" , "Enter" , "}"
Data "" , "|" , "" , "" , "" , "" , "" , "" , "" , ""
Data "BkSp" , "" , "" , "1" , "" , "4" , "7" , "" , "" , ""
Data "0" , "." , "2" , "5" , "6" , "8" , "ESC" , "NumLck" , "F11" , "+"
Data "3" , "-" , "*" , "9" , "ScrLck" , "" , "" , "" , "" , "F7"
')
Data 0
Data 137 , 0 , 133 , 131 , 129 , 130 , 140 , 0 , 138 , 136
Data 134 , 132 , 9 , 126 , 0 , 0 , 0 , 0 , 0 , 0 , 81
Data 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 64 , 0
Data 0 , 67 , 88 , 68 , 69 , 36 , 35 , 0 , 0 , 32
Data 86 , 70 , 84 , 82 , 37 , 0 , 0 , 78 , 66 , 72
Data 71 , 89 , 94 , 0 , 0 , 0 , 77 , 74 , 85 , 38
Data 42 , 0 , 0 , 60 , 75 , 73 , 79 , 41 , 40 , 0
Data 0 , 62 , 63 , 76 , 58 , 80 , 95 , 0 , 0 , 0
Data 34 , 0 , 123 , 43 , 0 , 0 , 0 , 0 , 13 , 125
Data 0 , 124 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 46 , 50 , 53 , 54 , 56 , 27 , 0 , 139 , 43
Data 51 , 45 , 42 , 57 , 0 , 0 , 0 , 0 , 0 , 135

'-----------------------------[End of Program]----------------------------------

[/syntax]

15. Jak zamienić liczbę na ciąg 01?

Nazwa_zmiennej.numer_bitu = 1 'ustawienie bitu o numerze = numer_bitu.
Print Nazwa_zmiennej.numer_bitu 'wysłanie po RS' bitu o numerze = numer_bitu.
Gdzie numer_bitu liczymy od 0 (najmniej znaczący bit).

PRZYKŁAD:

Chcemy wyświetlić na wyświetlaczu LCD 8 bitów liczby
[syntax=basic4gl]
Dim Liczba as Byte
Dim i as byte

Config lcd=16*1
Cls

for i = 7 downto 0
lcd liczba.i
next

end
Jeśli chcemy wykonać jakieś działania w zależności od wartości poszczególnych bitów to robimy to tak:
for i = 7 downto 0
if liczba.i = 1 then
...
else
...
next
[/syntax]

Jeśli dla wartości poszczególnych bitów będziemy wykonywać inne czynności to musimy jeszcze dodać warunki na wartość zmiennej i. Można to zrobić za pomocą IF bądź CASE. Jest to najlepszy sposób na definiowanie ustawień w naszym urządzeniu. Jeśli np bit 5 zmiennej ustawienia ma wartość 1 to znaczy, że np budzik jest włączony.

16. Jak obsłużyć impulsator?

Przykład z listy dyskusyjnej bascoma

[syntax=basic4gl]
'
' byte var.
'
Dim Attuale As Byte
Dim Preced As Byte
Dim Cntr As Byte ' licznik dla Encodera
'
' Alias
'
Ph_A Alias P1.0 'fase A
Ph_B Alias P1.1 'fase B

Print "Encoder TEST"
Cntr = 0
Attuale = P1 And 3
Preced = Attuale
Do
While Preced = Attuale
Attuale = P1 And 3 'solo P1.1 e P1.0
Wend
Rotate Preced , Left 'allinea fase A con fase B
Preced = Preced XOR Attuale 'valuta se CW o CCW
Preced = Preced AND 2 'solo bit Preced.1
If Preced = 0 Then
decr Cntr 'indietro
else
incr Cntr 'avanti
end if
Preced = Attuale 'aggiorna stato
Print Cntr 'display counter
loop

[/syntax]

Może się to komyś przyda ....

Statystyki: Napisane przez SunRiver — 2 lut 2013, o 14:51

ATNEL tech-forum

Re: BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

Re: BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

Re: BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

Re: BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI

BASCOM --- NAJPOPULARNIEJSZE PYTANIA i ODPOWIEDZI