程式设计实习ppt课件

按一下以編輯母片標題樣式,按一下以編輯母片,第二層,第三層,第四層,第五層,*,*,*,程式設計實習-7,程式設計實習-7,1,Visual Basic 2005實習七,1.影像縮小放大程式解說,2.Visual Basic RS-232通訊使用,3.作業,Visual Basic 2005實習七1.影像縮小放大程式,2,影像縮放-1,影像縮放-1,3,影像縮放-2,影像縮放-2,4,影像縮放-3,影像縮放-3,5,影像縮放-4,1.螢幕座標與地圖座標的轉換,(1)螢幕座標的取得,(2)地圖座標轉換,2.影像的放大與縮小,PictureBox參數的更改與重繪,影像縮放-41.螢幕座標與地圖座標的轉換,6,Visual Basic RS-232通訊-1,1.電腦與週邊的通訊型式：,(1)並列式傳輸(Parallel Communication),(2)串列式傳輸(Serial Communication),1,2,3,4,5,6,7,8,1,2,3,4,5,6,7,8,並列式傳輸,設備1,設備2,1 2 3 4 5 6 7 8,串列式傳輸,設備1,設備2,Visual Basic RS-232通訊-11.電腦與週邊,7,Visual Basic RS-232通訊-2,1.大部分的通訊介面都是使用串列式通訊，USB也是屬於串列式通訊的一種。,2.現行工業用通訊介面有：,RS-232、RS-422與RS-485幾種。,RS-232的電壓準位是與GND比較，其餘兩種為雙線式，電壓準位為比較兩線的電壓差。,作業方式,抗雜訊能力,通訊距離,RS-232,雙工,弱,短,RS-422,雙工,強,長(可超過100公尺),RS-485,單工,強,長(可超過100公尺),Visual Basic RS-232通訊-21.大部分的通,8,Visual Basic RS-232通訊-3,1.大部分週邊提供RS-232的通訊介面，本節以RS-232通訊為主。,2.九Pins的RS-232的通訊腳位簡介：,腳位,功用,1,CD,2,RXD,3,TXD,4,DTR,5,GND,6,DSR,7,RTS,8,CTS,9,RI,RXD：接收資料腳位,TXD：傳送資料腳位,GND：地線腳位,Visual Basic RS-232通訊-31.大部分週邊,9,Visual Basic RS-232通訊-3,1.通訊參數：,(1)Baud Rate,(2)通訊傳送單位,(3)起始位元及停止位元,(4)同位元檢查,2.串列通訊字元資料格式：,起始位元+傳送字元+同位位元+停止位元,Ex.如果採用19200bps的傳輸速率，傳輸資料格式為一個起始位元，傳送字元為8個位元，不用同位元檢查，一個停止位元。此時每秒可以傳輸的資料個數為：,(1)每次傳輸的資料位元格式為：,1+8+0+1=10位元,(2)Baud Rate=19200 bits/second,=每秒最大傳輸資料個數為 19200/10=1920組,Visual Basic RS-232通訊-31.通訊參數：,10,Visual Basic RS-232通訊-4,通訊交握的方式與意義,1.交握方式:,(1)硬體交握直接以腳位之電位通聯,(2)軟體交握以資料的方式通聯,2.RS-232通訊流程,RS-232Port開啟與初始化,電腦與週邊交握,通知傳輸,資料接收完畢，通知結束傳輸並關閉通訊埠,溢位,否,是,Visual Basic RS-232通訊-4通訊交握的方式,11,Visual Basic RS-232通訊-5,Visual Basic通訊埠的操作,1.加入Serial Port控制項,2.設定各項參數,3.藉由Null Modem的方式，將第二與第三腳位短路，撰寫迴路通訊測試程式。,Visual Basic RS-232通訊-5Visual,12,RS-232通訊介面程式內容-1,RS-232通訊介面程式內容-1,13,RS-232通訊介面程式內容-2,Imports System.IO.Ports,Imports System.Text,Public Class Form1,Dim RS232 As SerialPort,Private Sub Form1_FormClosed(ByVal sender As Object,ByVal e As System.Windows.Forms.FormClosedEventArgs)Handles Me.FormClosed,If Not RS232 Is Nothing Then,If RS232.IsOpen Then,RS232.Close(),End If,End If,End Sub,Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load,Get a list of serial port names.,Dim ports As String()=SerialPort.GetPortNames(),Display each port name to the console.,Dim port As String,For Each port In ports,ComboBox1.Items.Add(port),Next port,End Sub,Private Sub ButtonOpenRS232_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles ButtonOpenRS232.Click,Dim mBaudRate As Integer,Dim mParity As Parity,Dim mDataBit As Integer,Dim mStopBit As StopBits,Dim mPortName As String,mPortName=ComboBox1.SelectedItem.ToString,mBaudRate=9600,mParity=Parity.None,mDataBit=8,mStopBit=StopBits.One,RS232=New SerialPort(mPortName,mBaudRate,mParity,mDataBit,mStopBit),RS232.Encoding=Encoding.Unicode,If Not RS232.IsOpen Then,RS232.Open(),ButtonSend.Enabled=True,ButtonReceive.Enabled=True,Else,MsgBox(,通訊埠已經被開啟,),End If,End Sub,RS-232通訊介面程式內容-2Imports Syste,14,RS-232通訊介面程式內容-3,Private Sub ButtonSend_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles ButtonSend.Click,RS232.Write(TextBoxSend.Text),End Sub,Private Sub ButtonReceive_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles ButtonReceive.Click,Dim InString As String,InString=,Try,RS232.ReadTimeout=1000,InString=RS232.ReadExisting(),If InString Is Nothing Then,Exit Sub,Else,TextBoxReceive.Text=InString,End If,Catch ex As Exception,MsgBox(,讀取錯誤,),End Try,End Sub,Private Sub ButtonCloseRS232_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles ButtonCloseRS232.Click,If RS232 Is Nothing OrElse Not RS232.IsOpen Then,MsgBox(,通訊埠尚未開啟,),Else,RS232.Close(),ButtonSend.Enabled=False,ButtonReceive.Enabled=False,End If,End Sub,End Class,RS-232通訊介面程式內容-3Private Sub B,15,RS-232通訊介面程式內容-4,RS-232通訊介面程式內容-4,16,RS-232通訊介面程式內容-5,RS-232通訊介面程式內容-5,17,RS-232通訊介面程式內容-6,RS-232通訊介面程式內容-6,18,RS-232通訊介面程式內容-7,RS-232通訊介面程式內容-7,19,作業,1.持續上星期作業，加入Zoom In,Zoom Out與Zoom All的功能,額外作業：,(1)撰寫透過RS-232與GPS通聯的程式，先將經緯度輸出。,(2)將GPS的座標轉成TM2的座標。,作業1.持續上星期作業，加入Zoom In,Zoom Ou,20,