网站大量收购闲置独家精品文档,联系QQ:2885784924

程式设计实习__7.ppt

  1. 1、本文档共21页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
程式設計實習--7 Visual Basic 2005實習七 1.影像縮小放大程式解說 2.Visual Basic RS-232通訊使用 3.作業 影像縮放-1 影像縮放-2 影像縮放-3 影像縮放-4 1.螢幕座標與地圖座標的轉換 (1)螢幕座標的取得 (2)地圖座標轉換 2.影像的放大與縮小 PictureBox參數的更改與重繪 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通訊-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通訊-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通訊-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通訊-4 通訊交握的方式與意義 1.交握方式: (1)硬體交握—直接以腳位之電位通聯 (2)軟體交握—以資料的方式通聯 2.RS-232通訊流程 RS-232Port開啟與初始化 電腦與週邊交握 通知傳輸 資料接收完畢,通知結束傳輸並關閉通訊埠 溢位 否 是 Visual Basic RS-232通訊-5 Visual Basic通訊埠的操作 1.加入Serial Port控制項 2.設定各項參數 3.藉由Null Modem的方式,將第二與第三腳位短路,撰寫迴路通訊測試程式。 RS-232通訊介面程式內容--1 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

文档评论(0)

smdh + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档