public class CircleMenuCanvas extends Canvas implements Runnable{
double pi = Math.PI
public final int MENURIGHT = 1
public final int MENULEFT = 0
Image menuImage[] = new Image[6]
int []jiaodu = {330,30,90,150,210,270}
String menuName[] = {"新游戲","繼續游戲","游戲設置","高分榜","游戲幫助","退出游戲"}
int x = getWidth()/2
int y = getHeight()/2
int count = 0
int local
int index = 0
Font f
boolean running = FALSE
/**
* 構造方法
*
*/
The Bit Array structure provides a compacted arrays of Booleans, with one bit for each Boolean value. A 0 [1] bit corresponds to the Boolean value FALSE [true], respectively. We can look at a stream of bytes as a stream of bits each byte contains 8 bits, so any n bytes hold n*8 bits. And the operation to manipulate this stream or bits array is so easy, jut read or change the bits state or make any Boolean operation on the whole bits array, like 鈥楢ND鈥? 鈥極R鈥? or 鈥榅OR鈥?
Use a one-dimensional array of primitive type boolean to represent the seating chart of the
plane. Initialize all the elements of the array to FALSE to indicate that all the seats are
empty. As each seat is assigned, set the corresponding elements of the array to true to
indicate that the seat is no longer available.
procedure senddata
var
i:integer commflg : Boolean
begin
commflg:=true
for i:=1 to 8 do
begin
if not fcomm comml writecommdata(sendbutter,i) then
begin
Commflg=FALSE
break
end
end
end
(4) 接收數據
在編寫基于串口的計算機工業測控時，通常需要由下位機向PC機發送數據以使PC機了解系統的測試數據或下位機的運行狀態，并進而控制下位機的行為。利用Spcomm串口控件接收下位機發送的數據信息的示例代碼如下：
//事件驅動方式接收數據程序
procedure TForm1.CommlReceiveData(Sender:Tobject Buffer:Pointer bufferLength:Word)
var
receivedata:array of byte
begin
sleep(100) //等待100ms，保證接收到所有數據
move(buffef ,receivedata,bufferlength)
//將接收緩存區中的數據轉移到數組中
……
end
(5) 關閉串口
在系統開發中，應注意在不使用串口時應及時關閉串口，釋放系統資源，否則可能會影響系統的其它應用。關閉串口的代碼如下：
procedure TForm1.FormClose ( Sender TObj ect:var Action:TCIoseAction )
begin
comml.StopComm
end
cppcheck is a static C/C++ code analyzer that checks for memory leaks, mismatching allocation-deallocation, buffer overrun, and many more problems. Its goal is to produce no FALSE positives.
