PIC Basic AND

AND คือเกตที่ให้สัญญาณขาออกเป็น 1 เมื่อสัญญาณขาเข้าทุกตัวเป็น 1 และจะให้สัญญาณขาออกเป็น 0 เมื่อสัญญาณขาเข้าตัวใดตัวหนึ่งเป็น 0 หรือเป็นส่วนเติมเต็มของเกต AND นั่นเอง สำหรับภาษา Basic จะใช้เครื่องหมาย & แทน AND

ตารางค่าความจริงของเกต AND เป็นดังนี้

A	B	A & B
0	0	0
0	1	0
1	0	0
1	1	1

ตัวอย่างโปรแกรม

‘****************************************************************
‘* Name : and.BAS
‘* Author : HS3UKA
‘* Notice : Copyright (c) 2013
‘* : All Rights Reserved
‘* Date : 1/2/2013
‘* Version : 1.0
‘* Notes : http://www.hs3uka.com
‘****************************************************************
include “modedefs.bas”
define OSC 10
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 1

TRISB=%00000000

H1 VAR BYTE
H2 VAR BYTE
H3 VAR BYTE

H1=%10101011
H2=%00001111

main:
H3 = H1 & H2
lcdout $fe,$1, “(“, DEC3 H1, “) “, BIN8 H1
lcdout $fe,$C0,” AND”
lcdout $fe,$90,”(“, DEC3 H2, “) “, BIN8 H2
lcdout $fe,$D0,”(“, DEC3 H3, “) “, BIN8 H3
Pause 50

GoTo main