第一篇：VB實現(xiàn)PC與歐姆龍PLC通訊的串口編程
Private Sub Form_Load()
Dim i As Integer'OPEN COM1
If ComTrue(1)= 0 Then
If ComOpen(1, 38400, 7, 1, 1, “sjh”)= 1 Then 'MsgBox(“已注冊”)'sjh為你的注冊賬號Call SetDelayNum(64)
End If
End If
jisu
jisu1
jisu2
End Sub
第二篇：VB中串口通訊的實現(xiàn)
VB中串口通訊的實現(xiàn).txt VB中串口通訊的實現(xiàn)
------------------
一、概述
串口通訊作為一種古老而又靈活的通訊方式，被廣泛地應(yīng)用于PC間的通訊以及PC和單片機之間的通訊之中。提到串口通訊的編程，人們往往立刻想到C、匯編等對系統(tǒng)底層操作支持較好的編程語言以及大串繁瑣的代碼。
實際上，只要我們借助相關(guān)ActiveX控件的幫助，即使是在底層操作一向不被人看好的VB中，一樣能夠?qū)崿F(xiàn)串口通 訊，甚至其實現(xiàn)方法和C、匯編相比，要更加快捷方便。下面，筆者就介紹一下在VB中實現(xiàn)串口通訊的方法。
在Visual Basic中有一個名為Microsoft Communication Control（簡稱MSComm）的通訊控件。我們只要通 過對此控件的屬性和事件進行相應(yīng)編程操作，就可以輕松地實現(xiàn)串口通訊。下面，筆者就簡要地介紹一下
MSComm控件的使用方法。
二、MSComm控件的主要屬性、事件
1、MSComm的屬性
由于MSComm控件屬性很多，在此筆者僅介紹與實現(xiàn)串口通訊密切相關(guān)的核心屬性。
Commport：設(shè)置通訊所占用的串口號。如設(shè)成1（默認(rèn)值），表示對Com1進行操作。
Setting：對串口通訊的相關(guān)參數(shù)。包括串口通訊的比特率，奇偶校驗，數(shù)據(jù)位長度、停止位等。其默認(rèn)值 是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校驗，8位數(shù)據(jù)位，1個停止位。
Portopen：設(shè)置串口狀態(tài)，值為True時打開串口，值為False時關(guān)閉串口。
Input：從輸入寄存器讀取數(shù)據(jù)，返回值為從串口讀取的數(shù)據(jù)內(nèi)容，同時輸入寄存器將被清空。
Ouput：發(fā)送數(shù)據(jù)到輸出寄存器。
InBufferCount：設(shè)置輸入寄存器所存儲的字符數(shù)，當(dāng)將其值設(shè)為0時，則輸入寄存器將被清空。
InputMode：設(shè)置從輸入寄存器中讀取數(shù)據(jù)的形式。若值為0，則表示以文本形式讀??；值為1，則表示以 二進制形式讀取。
OutBufferCount：設(shè)置輸出寄存器所存儲的字符數(shù)，當(dāng)將其值設(shè)為0時，則輸出寄存器將被清空。
RThreshold：設(shè)置在MSComm控件設(shè)置CommEvent屬性為comEvReceive并產(chǎn)生OnComm事件之前要接受的字符 數(shù)。
CommEvent屬性：返回最近的通訊事件或錯誤。通過對它具體屬性值的查詢，我們就可以獲得通訊事件和通 訊錯誤的完整信息。當(dāng)其值是comEvReceive時表示接收到數(shù)據(jù)。
2、MSComm的事件
除了公共事件之外，MSComm只有一個OnComm事件。當(dāng)CommEvent屬性值變化時將發(fā)生OnComm事件，指示發(fā)生 一個通訊事件或錯誤。當(dāng)我們設(shè)置Rtheshold屬性值為0時，將使得捕獲comEvReceive事件無效。
三、串口通訊編程實例
在完成了對MSComm控件的簡要介紹之后，筆者就以實際程序為例，介紹一下串口通訊的具體實現(xiàn)方法。
1、PC機間的串口通訊
（1）、實現(xiàn)方法：
A、新建一個窗體，在上面放兩個Text控件、兩個CommandButton控件和兩個Label控件（如圖1.bmp所示）。
具體見下表：
控件類型 名稱 Caption屬性 作用
-----------------
Text Text1-------輸入所要發(fā)送的信息
Text Text2-------顯示接收到的信息
CommandButton Command1 發(fā) 送---------CommandButton Command2 退 出---------
Label Label1 發(fā)送的數(shù)據(jù) 提示
Label Label2 接收的數(shù)據(jù) 提示
B、在控件工具箱中的空白處點擊鼠標(biāo)右鍵，在彈出的菜單中選擇“部件”，在彈出的窗口中的控件列表中 找到“Microsoft Comm Control”，將其選中，在點擊“應(yīng)用”、“關(guān)閉”，在控件工具欄中就會出現(xiàn)一個電 話的小圖標(biāo)。
C、用串口線將兩臺電腦連接起來。您可以使用Com1對Com1的對應(yīng)連接，也可以使用Com1和Com2的交叉連接。
本程序使用的是Com1對Com1的連接。
D、輸入以下代碼：
Private Sub Command1_Click()
'...發(fā)送數(shù)據(jù)
MSComm1.OutBufferCount = 0 '...清空輸出寄存器
MSComm1.Output = Text1.Text '...發(fā)送數(shù)據(jù)
End Sub
Private Sub Command2_Click()
'...退出
Unload Me
End Sub
Private Sub Form_Load()
'...初始化
MSComm1.CommPort = 1 '...使用Com1口
MSComm1.Settings = “9600,n,8,1” '...設(shè)置通訊參數(shù)
MSComm1.PortOpen = True '...打開串口
End Sub
Private Sub Mscomm1_Oncomm()
'...通訊事件發(fā)生
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件發(fā)生
Text2.Text = MSComm1.Input '...接受顯示數(shù)據(jù)
MSComm1.InBufferCount = 0 '...清空輸入寄存器
End Select
End Sub
2、PC機與單片機之間的通訊
PC機與單片機之間的通訊被廣泛的用于工業(yè)、醫(yī)療測控等領(lǐng)域之中。在應(yīng)用中，我們通常將單片機作為“感 受器”和“效應(yīng)器”，負(fù)責(zé)數(shù)據(jù)采集、響應(yīng)計算機發(fā)出的指令對電路進行控制，有時也進行一些簡單的運算，最后再將執(zhí)行數(shù)據(jù)反饋給計算機處理。本程序?qū)崿F(xiàn)在PC機上輸入一個0-255之間的整數(shù)，將此數(shù)據(jù)發(fā)送到單片 機，單片機接收到數(shù)據(jù)后，將數(shù)據(jù)在顯示管上顯示，再將此數(shù)除以2，將得數(shù)返回給PC機。（運行效果如圖 3.BMP所示）其實現(xiàn)方法如下：
A、同PC機間通訊的實現(xiàn)方法A-B。
B、連接電腦和單片機。注意！由于PC機端的RS232電平與單片機端TTL的并不不匹配，故應(yīng)注意電平轉(zhuǎn)換。
C、在VB中輸入以下代碼：
Private Sub Mscomm1_Oncomm()
'...通訊事件發(fā)生
Dim indata As Variant
Dim bte(0)As Byte
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件發(fā)生
indata = MSComm1.Input
'...注意！要通過MSComm控件發(fā)送或接收二進制數(shù)據(jù)必須用Variant類型的變量對二進
'...制Byte類型的變量進行轉(zhuǎn)換！
bte(0)= AscB(indata)
Text2.Text = bte(0)
MSComm1.InBufferCount = 0 '...清空輸入寄存器
End Select
End Sub
Private Sub Command1_Click()
'...發(fā)送數(shù)據(jù)
Dim Num As Integer
Dim outbte(0)As Byte
Num = Val(Text1.Text)
outbte(0)= CByte(Num)
MSComm1.OutBufferCount = 0 '...清空輸出寄存器
MSComm1.Output = outbte(0)'...發(fā)送數(shù)據(jù)
End Sub
Private Sub Command2_Click()
'...退出
Unload Me
End Sub
Private Sub Form_Load()
'...初始化
MSComm1.CommPort = 1 '...使用Com1口
MSComm1.Settings = “9600,n,8,1” '...設(shè)置通訊參數(shù)
MSComm1.PortOpen = True '...打開串口
End Sub
D、單片機工作方式置于1，比特率設(shè)為9600bit/s。在單片機上，我們只得使用匯編語言編寫，并且調(diào)用中 斷實現(xiàn)對串口數(shù)據(jù)的收發(fā)工作。源代碼如下：
PUSH PSW ；將程序狀態(tài)字壓入堆棧
PUSH ACC ；將累加器壓入堆棧
CLR EA ；關(guān)閉系統(tǒng)中斷
CLR RI ；清除中斷標(biāo)志位
MOV A,SBUF ；從接收寄存器中讀取數(shù)據(jù)
MOV 70H,A ；分解數(shù)據(jù)百、十、個位并顯示
MOV B,#100
DIV AB
MOV 52H,A ；分解百位，送入存儲器52H
MOV A,B
MOV B,#10
DIV AB
MOV 51H,A ；分解十位，送入存儲器51H
MOV 50H,B ；分解個位，送入存儲器50H MOV A,70H
MOV B,#2
DIV AB;將接受的數(shù)據(jù)除以2
MOV SBUF,A ；將得數(shù)發(fā)送到輸出寄存器
ACALL DL1 ；延時保證數(shù)據(jù)完整發(fā)送
ACALL DL1
CLR RI ；清除中斷標(biāo)志位
SETB EA ；打開系統(tǒng)中斷
POP ACC;累加器出棧
POP PSW ；程序狀態(tài)字出棧
RETI ；中斷程序返回
3、編程環(huán)境
以上程序在Windows 2000 Professional，Visual Basic 6.0企業(yè)版，AT89C52型單片機下調(diào)試通過。
四、總結(jié)
從以上程序可以看出，在VB中利用MSComm控件，可以快速開發(fā)出串口通訊程序，從而大大提高編程效率。
演講稿
尊敬的老師們，同學(xué)們下午好：
我是來自10級經(jīng)濟學(xué)（2）班的學(xué)習(xí)委，我叫張盼盼，很榮幸有這次機會和大家一起交流擔(dān)任學(xué)習(xí)委員這一職務(wù)的經(jīng)驗。
轉(zhuǎn)眼間大學(xué)生活已經(jīng)過了一年多，在這一年多的時間里，我一直擔(dān)任著學(xué)習(xí)委員這一職務(wù)?；赝@一年多，自己走過的路，留下的或深或淺的足跡，不僅充滿了歡愉，也充滿了淡淡的苦澀。一年多的工作，讓我學(xué)到了很多很多，下面將自己的工作經(jīng)驗和大家一起分享。
學(xué)習(xí)委員是班上的一個重要職位，在我當(dāng)初當(dāng)上它的時候，我就在想一定不要辜負(fù)老師及同學(xué)們我的信任和支持，一定要把工作做好。要認(rèn)真負(fù)責(zé)，態(tài)度踏實，要有一定的組織，領(lǐng)導(dǎo)，執(zhí)行能力，并且做事情要公平，公正，公開，積極落實學(xué)校學(xué)院的具體工作。作為一名合格的學(xué)習(xí)委員，要收集學(xué)生對老師的意見和老師的教學(xué)動態(tài)。在很多情況下，老師無法和那么多學(xué)生直接打交道，很多老師也無暇顧及那么多的學(xué)生，特別是大家剛進入大學(xué)，很多人一時還不適應(yīng)老師的教學(xué)模式。學(xué)習(xí)委員是老師與學(xué)生之間溝通的一個橋梁，學(xué)習(xí)委員要及時地向老師提出同學(xué)們的建議和疑問，熟悉老師對學(xué)生的基本要求。再次，學(xué)習(xí)委員在學(xué)習(xí)上要做好模范帶頭作用，要有優(yōu)異的成績，當(dāng)同學(xué)們向我提出問題時，基本上給同學(xué)一個正確的回復(fù)。
總之，在一學(xué)年的工作之中，我懂得如何落實各項工作，如何和班委有效地分工合作，如何和同學(xué)溝通交流并且提高大家的學(xué)習(xí)積極性。當(dāng)然，我的工作還存在著很多不足之處。比日：有的時候得不到同學(xué)們的響應(yīng)，同學(xué)們不積極主動支持我的工作；在收集同學(xué)們對自己工作意見方面做得不夠，有些事情做錯了，沒有周圍同學(xué)的提醒，自己也沒有發(fā)覺等等。最嚴(yán)重的一次是，我沒有把英語四六級報名的時間，地點通知到位，導(dǎo)致我們班有4名同學(xué)錯過報名的時間。這次事使我懂得了做事要腳踏實地，不能馬虎。
在這次的交流會中，我希望大家可以從中吸取一些好的經(jīng)驗，帶動本班級的學(xué)習(xí)風(fēng)氣，同時也相信大家在大學(xué)畢業(yè)后找到好的工作。謝謝大家！
第三篇：三菱PLC與PC上位機VB通訊
三菱PLC通訊
三菱PLC與PC上位機VB通訊
三菱PLC：FX1N + FX1N-232-BD
FX2N + FX2N-232-BD 計算機：Windows XP中文企業(yè)版 + Visual Basic 6.0中文企業(yè)版
Windows 98中文版 + Visual Basic 6.0 中文企業(yè)版
兩者之間連接使用的是FX-232CAB-1電纜線（2-3，3-2，4-6（8），5-5）
一．三菱PLC的設(shè)置
三菱FX PLC在進行計算機鏈接（專用協(xié)議）和無協(xié)議通訊（RS指令）時均須對通訊格式（D8120）進行設(shè)定。其中包含有波特率、數(shù)據(jù)長度、奇偶校驗、停止位和協(xié)議格式等。在修改了D8120的設(shè)置后，確保關(guān)掉PLC的電源，然后再打開。
此外，對于采用RS485形式1:N計算機鏈接的還必須對站點號（D8121）進行設(shè)定。設(shè)定的范圍從00H到0FH（即0到15）。在這里對D8120采用下述設(shè)置： b15 b0 0110 1000 1000 1110 6 8 8 E 即數(shù)據(jù)長度為7位，偶校驗，2位停止位，波特率為9600bps，無標(biāo)題符和終結(jié)符，采用計算機鏈接(RS-232C)，自動添加和校驗碼，采用專用協(xié)議格式1。同時設(shè)定站號為0。具體設(shè)定如下所示：
FX PLC進行計算機鏈接時可用的專用協(xié)議有兩種：格式1和格式4。兩種格式的差別在于是否在每一個塊上添加了CR + LF，其中添加了CR + LF的是格式4。在這里采用格式1。
二．上位機程序的編制
這里采用Microsoft公司的Visual Basic 6.0中文企業(yè)版編制上位機程序。Visual Basic中提供了一個名為MSComm的通信控件便于設(shè)計串行通信的程序。MSComm控件的主要屬性有： 1． CommPort屬性
CommPort屬性用于指定所要使用的串行端口的號碼。雖然Windows操作系統(tǒng)可以容納最多256個串行通信端口，不過Visual Basic的MSComm控件則僅限于16個端口。2． Settings屬性
Settings屬性用于設(shè)置初始化參數(shù)。以字符串的形式設(shè)置波特率、奇偶校驗、數(shù)據(jù)位、停止位等4個參數(shù)。其格式為“BBBB,P,D,S”，其中BBBB表示波特率，P表示奇偶校驗位檢查方式，D表示數(shù)據(jù)位數(shù)，S表示停止位數(shù)。一般情況下，歐美儀器習(xí)慣使用“9600,n,8,1”當(dāng)成設(shè)置值；而日本儀器則習(xí)慣使用“9600,e,7,2”作為設(shè)置值。Settings設(shè)置完成之后，所傳輸及接受的字符串便以此設(shè)置為準(zhǔn)，使用RS-232通信的雙方，Settings必須完全一樣，彼此才能順利地通信，否則雙方將無法正確接收到彼此所傳輸?shù)男盘?。所以，該屬性的設(shè)置必須和三菱PLC中D8120的相關(guān)設(shè)置保持一致。在這里，統(tǒng)一采用“9600,e,7,2”的設(shè)定。
三菱PLC通訊
3． PortOpen屬性
PortOpen屬性用于設(shè)置通信連接端口的狀態(tài)。在使用串行端口之前必須先將要使用的串行端口打開。在上位機程序中應(yīng)進行如下設(shè)定: Private Sub Form_Load()'窗體載入事件 MSComm1.CommPort = 1 '選擇端口號 MSComm1.Settings = “9600,e,7,2” '設(shè)置端口屬性 MSComm1.PortOpen = True '打開端口 End Sub 4． Output屬性
MSComm控件的Output屬性提供了發(fā)送的功能，當(dāng)從計算機向可編程控制器寫入數(shù)據(jù)或從可編程控制器讀取數(shù)據(jù)時，上位機應(yīng)當(dāng)先發(fā)出以下格式（格式1）的指令字符串： ENQ 站號 PC號 命令 消息等待時間 字符區(qū)域A 和校驗代碼
其中站號為在D8121中的設(shè)定值，這里是：00，PC號對于FX系列為：FF。
因為ENQ，ACK，NAK等通信控制字符是不可見字符，所以先用Chr函數(shù)對其進行賦值： ENQ=Chr（5）ACK=Chr（6）NAK=Chr（&H15）然后在上位機程序中寫入以下代碼即可發(fā)出指令：
MSComm1.Output=ENQ &“00FF<命令><消息等待時間><字符區(qū)域A><和校驗代碼>” 5． Input屬性
與Output屬性相反，Input屬性提供了接收數(shù)據(jù)的功能。它將對方傳到輸入緩沖區(qū)中的數(shù)據(jù)讀進程序中，并清除緩沖區(qū)中已被讀取的數(shù)據(jù)。
a.如果是從計算機向可編程控制器寫入數(shù)據(jù)時，接收到從可編程控制器返回的應(yīng)該是以下格式的字符串：
ACK 站號 PC號
或者
NAK 站號 PC號 錯誤代碼
前一種表示可編程控制器已經(jīng)正確接收到從計算機發(fā)來的指令，后一種表示可編程控制器未正確接收到從計算機發(fā)來的指令。
b.如果是從計算機向可編程控制器讀取數(shù)據(jù)時，接收到從可編程控制器返回的應(yīng)該是以下格式的字符串：
STX 站號 PC號 字符區(qū)域B ETX 和校驗代碼 或者 NAK 站號 PC號 錯誤代碼
如果要連續(xù)讀取數(shù)據(jù)可以利用Timer控件。將Output和Input放在Timer控件的Timer事件中即可。程序會以Timer控件的Interval屬性中設(shè)置的間隔去發(fā)送指令和接收數(shù)據(jù)。對于MSComm控件的其他一些屬性使用VB的默認(rèn)值即可。
在串行通信傳輸?shù)膽?yīng)用中，經(jīng)常使用的Visual Basic中的字符串處理函數(shù)如下： Chr函數(shù)：返回含有特定ANSI或DBCS字符碼的字符串。Asc函數(shù)：返回字符串第一個字符的ANSI或DBCS字符碼。
Len函數(shù)：返回以字符數(shù)為單位的字符串長度。
Mid函數(shù)：取得字符串中特定數(shù)量的字符，可指定開始獲取的位置和長度。Left函數(shù)：取得字符串的左邊固定字符數(shù)的字符串。
Right函數(shù)：取得字符串的右邊固定字符數(shù)的字符串。
Val函數(shù)：把字符串轉(zhuǎn)換為數(shù)值，可以將8進制或16進制的字符串轉(zhuǎn)換為10進制。Hex函數(shù)：返回以十六進制數(shù)值表示的字符串。
三菱PLC通訊
RS指令應(yīng)用一
三菱PLC與計算機利用RS指令進行通訊（通訊手冊9-14例）三菱PLC：FX1N + FX1N-232-BD 計算機：Windows XP中文企業(yè)版 + Visual Basic 6.0中文企業(yè)版
Windows 98中文版 + Visual Basic 6.0中文企業(yè)版
兩者之間連接使用的是FX-232CAB-1電纜線（2-3，3-2，4-6（8），5-5）
一．三菱PLC的設(shè)置
三菱FX PLC在進行計算機鏈接（專用協(xié)議）和無協(xié)議通訊（RS指令）時均須對通訊格式（D8120）進行設(shè)定。其中包含有波特率、數(shù)據(jù)長度、奇偶校驗、停止位和協(xié)議格式等。在修改了D8120的設(shè)置后，確保關(guān)掉PLC的電源，然后再打開。在這里對D8120采用下述設(shè)置： b15 b0 0000 0100 1000 1111 0 4 8 F 即數(shù)據(jù)長度為8位，偶校驗，2位停止位，波特率為9600bps，無標(biāo)題符和終結(jié)符，沒有添加和校驗碼，采用無協(xié)議。PLC程序如下：
二．上位機程序的編制
完整程序代碼及注釋如下：
Private Sub cmd1_Click()
'發(fā)送按鈕
lbl1.Caption = “" If txt1.Text = ”“ Then
'若發(fā)送數(shù)據(jù)欄中未鍵入指令則提示鍵入指令 lbl1.Caption = ”Please input data“ Else MSComm1.Output = txt1.Text
'發(fā)送指令 Timer1.Enabled = True
'觸發(fā)延時接收 End If
三菱PLC通訊
End Sub Private Sub Form_Load()
'窗體載入事件 MSComm1.CommPort = 1
'選擇端口號 MSComm1.Settings = ”9600,e,8,2“ '設(shè)置端口屬性 MSComm1.PortOpen = True
'打開端口 End Sub
Private Sub Timer1_Timer()
'延時500ms接收 NAK = Chr(&H15)If MSComm1.InBufferCount > 0 Then txt2.Text = ”“ a = MSComm1.Input txt2.Text = a
'在接收數(shù)據(jù)欄中顯示接收到的數(shù)據(jù) Else lbl1.Caption = ”No response" End If Timer1.Enabled = False End Sub
三菱PLC通訊
RS指令應(yīng)用二
三菱PLC與儀表之間通訊
三菱PLC：FX1N + FX1N-232-BD 儀表（稱重器）
兩者之間連線該儀表僅提供3線式的簡化RS-232C口，即只有：RXD，TXD和GND，于是采用2-3，3-2，5-5的三線接法。
1． 對D8120進行設(shè)置并使其與儀表中的設(shè)置一致，對其中的控制線設(shè)置成使用無硬件握手方式，即（b12,b11,b10）=（0,0,0）。根據(jù)儀表說明書上對通訊的要求，設(shè)置如下：
b15
b0 0000 0000 1000 0110
0 0 8 6 2． 根據(jù)儀表說明書所述，該種儀表有兩種工作方式：連續(xù)發(fā)送和指令狀態(tài)。這里設(shè)置成指令狀態(tài)，即儀表根據(jù)發(fā)來的指令返回相應(yīng)的數(shù)據(jù)。在此使用READ指令，根據(jù)指令協(xié)議，輸入的指令必須以
注：發(fā)送數(shù)據(jù)點數(shù)和接收數(shù)據(jù)點數(shù)必須按指令協(xié)議進行設(shè)置，否則通訊不能正常進行。PLC程序如下：
三菱PLC通訊
參考資料
1．三菱FX通訊用戶手冊(RS-232C,RS485)2．《Visual Basic與RS-232串行通信控制（最新版）》清華大學(xué)出版社
第四篇：《VB編程實現(xiàn)文字閃爍》教案
《VB編程實現(xiàn)文字閃爍》教案
授課課題：VB編程實現(xiàn)文字閃爍 授課時間： 授課地點： 授課班級： 授 課 人： 教學(xué)目的：
一、認(rèn)知目標(biāo)
1、理解文字閃爍程序的設(shè)計思想和設(shè)計方法
2、理解Ｓｅｌｅｃｔ ｃａｓｅ語句構(gòu)造多分支程序的方法和實現(xiàn)的技巧
3、理解RGB（）函數(shù)和RND（）函數(shù)配合，動態(tài)隨機生成顏色的方法
二、技能目標(biāo)
1、熟練使用VB中的Ｌａｂｅｌ控件構(gòu)造程序界面
2、熟練使用格式工具對控件進行排列設(shè)置
3、熟練使用編程工具對程序代碼進行編寫和簡單的調(diào)試
三、情感目標(biāo)
1、培養(yǎng)學(xué)生的自學(xué)能力、自主創(chuàng)意、分析解決問題的能力
2、培養(yǎng)學(xué)生的團隊合作精神，互相協(xié)作完成任務(wù)的能力
教學(xué)重點：
1、熟練使用VB中的Ｌａｂｅｌ控件構(gòu)造程序界面
2、理解文字閃爍程序的設(shè)計思想和設(shè)計方法
3、理解Ｓｅｌｅｃｔ ｃａｓｅ語句構(gòu)造多分支程序的方法和實現(xiàn)的技巧
教學(xué)難點：
1、理解文字閃爍程序的設(shè)計思想和設(shè)計方法
2、理解Ｓｅｌｅｃｔ ｃａｓｅ語句構(gòu)造多分支程序的方法和實現(xiàn)的技巧
教學(xué)方法：直觀演示法、案例教學(xué)法、分層教學(xué)法和興趣激勵法 教學(xué)用具：VB開發(fā)工具、VB程序案例、多媒體演示系統(tǒng)
學(xué)情分析：高二的學(xué)生上課紀(jì)律較好，比較能夠配合教師進行教學(xué)；通過大半學(xué)期的VB學(xué)習(xí)，對項目教學(xué)法也已經(jīng)比較熟悉；但大部分學(xué)生由于基礎(chǔ)知識和學(xué)習(xí)方法的限制，學(xué)習(xí)還比較死板，學(xué)習(xí)方法還只停留在教師教學(xué)生學(xué)的層面上；學(xué)生也不太主動通過摸索、調(diào)試自己解決問題。所以本課準(zhǔn)備先講后練，步步引導(dǎo)，并協(xié)調(diào)好學(xué)生自主學(xué)習(xí)和教師輔助學(xué)習(xí)的關(guān)系，提高學(xué)生的主觀能動性。
教學(xué)過程：
【引入】演示原來講解過的文字變色的例子和今天要講解的文字閃爍的例子；提問學(xué)生：這兩個案例有什么不同?？梢哉{(diào)節(jié)閃爍的時間，讓學(xué)生仔細(xì)觀察。
【預(yù)測】學(xué)生通過觀察大部分都能過發(fā)現(xiàn)兩個實例的區(qū)別。（5分鐘）【演示】開始新課，教師先演示Ｌａｂｅｌ控件排列文字的方法。
【預(yù)測】學(xué)生可能有疑問，為什么８個漢字要用８個Ｌａｂｅｌ控件呢，這個問題教師主動提出來，學(xué)生可以思考以后馬上解答，也可以設(shè)計完程序以后解答?！局v解】教師講解核心代碼和代碼設(shè)計思想。該過程是學(xué)習(xí)程序構(gòu)造算法的關(guān)鍵，教師有目的地進行引導(dǎo)講解。該過程以教師講為主，根據(jù)學(xué)情進行難度適中的提問，力求讓大部分學(xué)生理解程序的基本設(shè)計思路。（10分鐘）
【預(yù)測】大部分學(xué)生應(yīng)該能初步理解程序的設(shè)計思路。在學(xué)生自己練習(xí)時讓學(xué)生自己再去體會。
【摸索】學(xué)生開始進行設(shè)計，也可以在設(shè)計過程中進行簡單的學(xué)生之間的交流和討論。
【巡視】教師巡視，視學(xué)生的設(shè)計情況決定是否終止摸索而再次進行教師統(tǒng)一講解教學(xué)。
【預(yù)測】由于學(xué)生有實習(xí)計劃和程序代碼，大部分學(xué)生都應(yīng)該能夠進行設(shè)計，但學(xué)．．生對程序的理解可能要困難的多。提高程序設(shè)計的方法只有兩條：多閱讀別．．．．．．．．．．．．．．人的優(yōu)秀程序；自己大膽嘗試程序設(shè)計。
【建議】成績比較優(yōu)秀的學(xué)生應(yīng)該能夠完成任務(wù)，有部分學(xué)生在設(shè)計時回出現(xiàn)教學(xué)前教師不可預(yù)見的錯誤，如果大部分學(xué)生完成任務(wù)順利而教學(xué)時間充足，應(yīng)該把學(xué)生中常見的錯誤和完成好的實例進行展示講解。教師應(yīng)該走到學(xué)生中去輔助教學(xué)。
【練習(xí)】盡量能讓學(xué)生在教師小節(jié)前做完設(shè)計。
【建議】該過程是學(xué)生提升技能，形成能力的關(guān)鍵，應(yīng)要求學(xué)生人人動手，努力設(shè)計。（25分鐘）
教學(xué)評價：
【小節(jié)】學(xué)生應(yīng)上傳作品和上繳實訓(xùn)報告，教師應(yīng)結(jié)合學(xué)生作品對本節(jié)內(nèi)容進行總結(jié)。
【預(yù)測】有部分學(xué)生在設(shè)計時會出現(xiàn)教學(xué)前教師不可預(yù)見的錯誤，如果大部分學(xué)生完成任務(wù)順利而教學(xué)時間充足，應(yīng)該把學(xué)生中常見的錯誤和完成好的實例進行展示講解。教師應(yīng)該走到學(xué)生中去輔助教學(xué)。
【作業(yè)】文字閃爍程序的修改版——跳躍文字閃爍（5分鐘）
第五篇：對編寫單片機與歐姆龍PLC串口通信遇到問題做一些小結(jié)
對編寫單片機與歐姆龍PLC串口通信遇到問題做一些小結(jié)
2011-07-15 11:28:31|分類：|標(biāo)簽： |字號大中小 訂閱
1,程序發(fā)的數(shù)據(jù)包太多了，并且數(shù)據(jù)包的定義是RAM的，很容易造成單片機的RAM不夠，因為單片機默認(rèn)的RAM是128個字節(jié)，不過可以擴展高的128個字節(jié)，范圍在80H-FFH,定義是這樣定義的，char idata
XX[]:
如果這樣不夠的話就只能在想辦法來解決這個問題，找一些規(guī)律啊，或是改成查表的形式，定義成code 類
型：uchar code XX[]:
2.程序中的要對一些數(shù)據(jù)進行掉電保存，我這里用到了單片機內(nèi)部自帶的EEROM，在編寫程序中也遇到
一些問題，只能保存一個數(shù)據(jù)，后面：后面調(diào)了一下程序：發(fā)現(xiàn)一個問題，就是每個對數(shù)據(jù)進行更新的話，都要對你定義的所以地址的內(nèi)
容進行，然后在寫入，單對某個地址的話就是不行，：
//=======================對保存的四個數(shù)據(jù)位進行清除扇區(qū)
Sector_Erase(add1);
Sector_Erase(add2);
Sector_Erase(add3);
Sector_Erase(add4);
_nop_();_nop_();_nop_();//===小延時一下
//=====================寫入要保存的數(shù)據(jù)位,也是一次要保存好4個數(shù)據(jù)，不能單一進行了，不然就
會只能保存一個數(shù)據(jù)
Byte_Program(add1,key_count);
Byte_Program(add2,(char)CLAMP_flag);
Byte_Program(add3,(char)CONV_flag);
Byte_Program(add4,(char)MODE_flag);
3,我這里的PLC用的通信協(xié)議是：9600BPSN 7 2
也就是：一個起啟位，7個數(shù)據(jù)位，兩個停止位，無校驗的形式；
這個我在單片機中用的通信協(xié)議是：9600BPSN 8 1
也就是：一個起啟位，8個數(shù)據(jù)位，一個停止位，無校驗的形式；
這些兩個協(xié)議就不對了，哪就要去兼容了，根據(jù)數(shù)據(jù)的原理，我們只在發(fā)的數(shù)據(jù)的最高位是1（也就是一
個停止位）就可以兼容這種PLC的通信協(xié)議的形式了：
點擊咨詢 