none
如何將以下vb6.0程式轉成vb2010 RRS feed

  • 一般討論

  • 如何將以下vb6.0程式轉成vb2010

    Private Sub MSComm1_OnComm()
    ' 1 傳
    ' 2 收
    Select Case MSComm1.CommEvent
    Case comEvReceive
    as1$ = MSComm1.Input
    Text6.Text = Text6.Text & as1$
    Case 1
    Text1.Text = "F"
    End Select

    End Sub
    2013年1月30日 上午 07:06

所有回覆

  • Private Sub Command1_Click()

    If MSComm1.PortOpen = False Then MSComm1.PortOpen = True

    MSComm1.Output = Text2.Text

    End Sub

    如何將上述RS232程式轉換成VB2010

    2013年1月30日 上午 07:09
  • 您好,
    請參考 SerialPort.DataReceived 事件

    另外,Bill大仔有相關的說明,
    請參考:Serial port


    以上說明若有錯誤請指教,謝謝。
    亂馬客blog: http://www.dotblogs.com.tw/rainmaker/


    • 已編輯 亂馬客 2013年1月30日 上午 07:14
    2013年1月30日 上午 07:13
  • Imports System.IO.Ports

    Public ClassForm1

        Dim RS232 AsSerialPort

        Private SubButton1_Click(ByVal sender As System.Object, ByValAs System.EventArgs) HandlesButton1.Click

       Dim com As String = "com4"

       RS232 = New IO.Ports.SerialPort(com, 9600,Parity.None, 8, StopBits.One)

       RS232.Open()    '開啟通訊埠

       If NotRS232.IsOpen Then

       MsgBox("~~通訊埠尚未開啟~~", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)

       Else

       RS232.Close()

       End If

        End Sub

    End Class

    請問我改成這樣是哪裡錯誤了呢 無法執行
    2013年1月30日 上午 07:27
  • (1) 同樣的問題請勿重複開討論緒

    (2) 海角點部落 Serialport 系列 把這邊的文章重頭到尾研究一遍.

    (3) 發問時應該要把詳細的錯誤訊息或例外狀況提出, 不能執行聽起來太模糊, 你不會希望有人直接回答你: 我寫的就可以執行. 這樣的答案吧 ?

    張貼文章應注意事項及應提供資訊


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2013年1月30日 上午 07:32
    版主
  • 請問我寫的那程式執行時是要接RS232到電路板才行嗎??
    2013年1月30日 上午 07:39
  • 如果只是 Open Port , 那不需要. 只要那個 serial port 是存在的就可以

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。


    2013年1月30日 上午 07:43
    版主
  • 可是在執行時這行

    RS232 = New IO.Ports.SerialPort(com, 9600,Parity.None, 8, StopBits.One)

    出現紅底寫未設定物件變數或 With 區塊變數。

    2013年1月30日 上午 07:50
  •  Dim RS232 AsSerialPort   <--- 你的程式上 As 和 Serialport 就是連在一起的嗎 ?

    應該是 Dim RS232 As SerialPort 吧 ?


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2013年1月30日 上午 08:01
    版主
  • RS232.Open()出現紅底

    通訊埠 'com4' 不存在。

    這樣代表我電腦要有那個COM4才能讓程式執行??

    2013年1月30日 上午 08:16
  • 當然要有 COM4 存在才能開啟 COM4 啊.

    看來你的基礎需要加強, 去找以下這本書來看吧

    Visual Basic 2010 與自動化系統監控-RS232 串列通訊篇


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。


    2013年1月30日 上午 08:17
    版主
  • 那我目前沒有COM不就不能知道這段程式是否正確了==
    2013年1月30日 上午 08:18
  • 那我目前沒有COM不就不能知道這段程式是否正確了==

    去買一條 USB 轉 RS232 來用不就得了PCHome USB-RS232

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2013年1月30日 上午 08:21
    版主
  • 了解了~學校圖書館也有此書 要借來研究研究 謝謝
    2013年1月30日 上午 08:26
  • 在VB6中程式是用MSComm1.Output和MSComm1.Input那麼VB2010用的是什麼
    2013年1月30日 上午 08:58
  • 請問可以幫我解嗎

    2013年1月30日 上午 09:27
  • 給你的文章你看了嗎 ?

    而且你又把差不多的問題另開討論緒, 可以尊重一下版規嗎 ?


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2013年1月30日 上午 09:34
    版主
  • VB6.0的MSComm1.Output和MSComm1.Input 要轉換成ASCII ???
    2013年1月30日 上午 09:42
  • 還是這個不分他沒改都可以用的

    2013年1月30日 上午 11:12
  • 既然要用VB2010寫程式
    就改使用VB2010的方式
    老想著用VB6的方式 是行不通的


    以下為簽名檔,如果你愛拉椅子坐那就是你的問題。
    先查MSDN文件庫
    再用GOOGLE搜尋
    才到論壇來發問

    這是論壇不是技術支援中心
    沒有人得無償解答你的問題

    在標題或文章註明很急
    不會增加網友回覆速度

    2013年1月30日 下午 12:02
  • 先把相關書籍看懂,不用管 VB6 程式碼,只要看 SerialPort 怎樣用,裝置通訊協定為何即可。

    等你夠了解後,你就不會問現在的問題。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2013年1月30日 下午 12:11
  • 不要急著去寫程式阿,先去試試看程式怎麼操作...


    1.如何設定SerialPort參數

    2.開啟 COM PORT

    3.傳送資料

    4.接收資料

    5.跨執行緒

    5.再來看程式怎麼寫

    Bill大哥文章都有教學


    每天都在複製貼上,什麼時候才能自己寫出來~~哎.....

    2013年1月31日 上午 01:29
  •     Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
            ' 1 傳
            ' 2 收
            Select Case AxMSComm1.CommEvent
                Case comEvReceive
                    as1$ = AxMSComm1.Input
                    TextBox6.Text = TextBox6.Text & as1$
                Case 1
                    TextBox1.Text = "F"
            End Select
        End Sub

    請問在VB2010中沒有這個as1$~comEvReceive要用什麼代替??

    2013年1月31日 上午 04:12
  • $表示它是一個字串!

    a special suffix character on the variable name (# for Double, ! for Single, & for Long, % for Integer, $ for String, and @ for Currency)

    在.net 只要用字串變數即可!


    以上說明若有錯誤請指教,謝謝。
    亂馬客blog: http://www.dotblogs.com.tw/rainmaker/


    • 已編輯 亂馬客 2013年1月31日 上午 04:25
    2013年1月31日 上午 04:25
  • 那麼請問一下comEvReceive這個呢?
    2013年1月31日 上午 04:51
  • 我已經講第三次了, 同樣的類型問題, 請在原發問繼續, 再犯我就依版規砍文.

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2013年1月31日 上午 04:53
    版主
  •   是的

     Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
                  Dim as1$

            ' 1 傳
            ' 2 收
            Select Case AxMSComm1.CommEvent
                Case comEvReceive
                    as1$ = AxMSComm1.Input
                    TextBox6.Text = TextBox6.Text & as1$
                Case 1
                    TextBox1.Text = "F"
            End Select
        End Sub

    請問在VB2010中沒有這個comEvReceive要用什麼代替??

    2013年1月31日 上午 04:58
  • 把給的資料仔細看完就會懂了, 寫程式不是在翻譯, 不同的程式語言, 不同的 Framework 會有差異, 不是能夠一比一翻譯的.

    如果你把別人給你的建議都當耳邊風, 不如去外包網發包請別人幫你寫.


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2013年1月31日 上午 05:00
    版主
  • 已經告訴你了,不要看 VB6 程式碼。

    VB6 程式碼對 VBNET 是一個障礙。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2013年1月31日 上午 09:56