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) 接收數(shù)據(jù) 在編寫基于串口的計(jì)算機(jī)工業(yè)測(cè)控時(shí)，通常需要由下位機(jī)向PC機(jī)發(fā)送數(shù)據(jù)以使PC機(jī)了解系統(tǒng)的測(cè)試數(shù)據(jù)或下位機(jī)的運(yùn)行狀態(tài)，并進(jìn)而控制下位機(jī)的行為。利用Spcomm串口控件接收下位機(jī)發(fā)送的數(shù)據(jù)信息的示例代碼如下： //事件驅(qū)動(dòng)方式接收數(shù)據(jù)程序 procedure TForm1.CommlReceiveData(Sender:Tobject Buffer:Pointer bufferLength:Word) var receivedata:array of byte begin sleep(100) //等待100ms，保證接收到所有數(shù)據(jù) move(buffef ,receivedata,bufferlength) //將接收緩存區(qū)中的數(shù)據(jù)轉(zhuǎn)移到數(shù)組中 …… end (5) 關(guān)閉串口 在系統(tǒng)開發(fā)中，應(yīng)注意在不使用串口時(shí)應(yīng)及時(shí)關(guān)閉串口，釋放系統(tǒng)資源，否則可能會(huì)影響系統(tǒng)的其它應(yīng)用。關(guān)閉串口的代碼如下： procedure TForm1.FormClose ( Sender TObj ect:var Action:TCIoseAction ) begin comml.StopComm end
標(biāo)簽： commflg procedure senddata integer
上傳時(shí)間： 2014-01-26
上傳用戶：懶龍1988
I was trying to develope a programme to make a slide show of all the pictures of a folder using vb.net. I have spent lot of time in net for searching this but all in vain, I didn t get a simple programme to solve the same and lastly I gave myself a try for the same and developed the code, I have used there a folderbrowserdialogue and a timer with a picture box control and in coding I have used IO name spaces to get the pathe and folder info here is the code. Enjoy Subhankar
標(biāo)簽： programme develope pictures trying
上傳時(shí)間： 2017-04-24
上傳用戶：a3318966
課程設(shè)計(jì)： 1.求出在一個(gè)n×n的棋盤上，放置n個(gè)不能互相捕捉的國際象棋“皇后”的所有布局。 2.設(shè)計(jì)一個(gè)利用哈夫曼算法的編碼和譯碼系統(tǒng)，重復(fù)地顯示并處理以下項(xiàng)目，直到選擇退出為止。 【基本要求】 1) 將權(quán)值數(shù)據(jù)存放在數(shù)據(jù)文件(文件名為data.txt，位于執(zhí)行程序的當(dāng)前目錄中) 2) 分別采用動(dòng)態(tài)和靜態(tài)存儲(chǔ)結(jié)構(gòu) 3) 初始化：鍵盤輸入字符集大小n、n個(gè)字符和n個(gè)權(quán)值，建立哈夫曼樹； 4) 編碼：利用建好的哈夫曼樹生成哈夫曼編碼； 5) 輸出編碼； 6) 設(shè)字符集及頻度如下表： 字符 空格 A B C D E F G H I J K L M 頻度 186 64 13 22 32 103 21 15 47 57 1 5 32 20 字符 N O P Q R S T U V W X Y Z 頻度 57 63 15 1 48 51 80 23 8 18 1 16 1
標(biāo)簽：
上傳時(shí)間： 2017-04-24
上傳用戶：zhyiroy
題目大意： 經(jīng)典的漢諾塔 n個(gè)盤編號(hào)，從小到大 1..n 問：移動(dòng)的序列中第k步移的是哪個(gè)盤
標(biāo)簽： 漢
上傳時(shí)間： 2014-07-23
上傳用戶：zmy123
需對(duì)容量為c 的背包進(jìn)行裝載。從n 個(gè)物品中選取裝入背包的物品，每件物品i 的重量為wi ，價(jià)值為pi 。對(duì)于可行的背包裝載，背包中物品的總重量不能超過背包的容量，最佳裝載是指所裝入的物品價(jià)值最高。
標(biāo)簽： 容量
上傳時(shí)間： 2013-12-01
上傳用戶：iswlkje
此控件有五十四張牌，包括了大小王。能夠處\r\n理的事件有單擊和雙擊。如果你在使用中覺\r\n得有什么不足之處，請(qǐng)通知我。","54張牌的撲克控件1.0
標(biāo)簽： 控件
上傳時(shí)間： 2013-12-20
上傳用戶：a673761058
K均值算法： 給定類的個(gè)數(shù)K，將N個(gè)對(duì)象分到K個(gè)類中去， 使得類內(nèi)對(duì)象之間的相似性最大，而類之間的相似性最小
標(biāo)簽： K均值算法
上傳時(shí)間： 2014-01-05
上傳用戶：wangyi39
//初始化 initscr() //獲得屏幕尺寸 getmaxyx(stdscr, h, w) //畫背景 for(i=0 i<h i++) for(j=0 j<w j++){ mvaddch(i, j, ACS_CKBOARD) } refresh() //建立窗口 pad = newpad(80, 128) for(i=0 i<80 i++){ char line[128] sprintf(line, "This line in pad is numbered d\n", i) mvwprintw(pad, i, 0, line) } //刷新屏幕 refresh() prefresh(pad, 0, 1, 5, 10, 20, 45) for(i=0 i<50 i++){ prefresh(pad, i+1, 1, 5, 10, 20, 45) usleep(30000) } //等待按鍵 getch()
標(biāo)簽： getmaxyx initscr stdscr for
上傳時(shí)間： 2014-08-30
上傳用戶：龍飛艇
生成Trick文件工具 1.Open command line 2.input tricktest Usage: TrickTest -f -o -i -f source mpeg2 file to trick -o trick output directory -i output file id -m max coding error, default 0 -b max bitrate for trick generate, default 0 mean no limit -s trick buffer block size, must be n*188 -l log file, default c:\tricktest.log example: tricktest -f 黑鷹行動(dòng).mpg -o c:\temp -i A -m 1000 -b 3750000 soure file: 黑鷹行動(dòng).mpg output directory: c:\temp filename: 000000A,000000A.ff,000000A.fr,000000A.vvx max coding error: 1000 trick generation speed: 3750000 bps a
標(biāo)簽： TrickTest tricktest command source
上傳時(shí)間： 2014-01-23
上傳用戶：水口鴻勝電器
設(shè)有由n個(gè)不相同的整數(shù)組成的數(shù)列，記為: a(1)、a(2)、……、a(n)且a(i)<>a(j) (i<>j) 例如3，18，7，14，10，12，23，41，16，24。 若存在i1<i2<i3< … < ie 且有a(i1)<a(i2)< … <a(ie)則稱為長(zhǎng)度為e的不下降序列。如上例中3，18，23，24就是一個(gè)長(zhǎng)度為4的不下降序列，同時(shí)也有3，7，10，12，16，24長(zhǎng)度為6的不下降序列。程序要求，當(dāng)原數(shù)列給出之后，求出最長(zhǎng)的不下降序列。
上傳時(shí)間： 2013-12-14
上傳用戶：tonyshao
蟲蟲下載站版權(quán)所有 京ICP備2021023401號(hào)-1
