シリアルポートについて への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 学生  () 投稿日時 2008/4/2 03:45:00
>>2 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        MScomm.output = Chr(1) 
 
    End Sub 
 
これをVB2005にしたいんですけど 
 
教えてください
0
投稿者 学生  () 投稿日時 2008/3/31 04:49:00
>>1 
http://designer.mech.yzu.edu.tw/article/articles/technical/(2001-06-21)%20%E5%96%AE%E6%99%B6%E7%89%87%E5%AF%A6%E7%BF%92%EF%BC%8DVB%E8%88%87RS232%E4%B9%8B%E6%87%89%E7%94%A8.htm 
 
これがそのサイトです
0
投稿者 学生  () 投稿日時 2008/3/31 04:48:00
中国サイトで見つけたVB6のプログラムです 
これをVB2005に直したいんですけど上手くいきません 
 
圖8と書いてあるところです
0
投稿者 学生  () 投稿日時 2008/3/27 02:42:00


Public Class Form1 
    Dim WithEvents serialPort As New IO.Ports.SerialPort 
 
    Private Sub Form1_Load( _ 
       ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) _ 
       Handles MyBase.Load 
 
        For i As Integer = 0 To _ 
           My.Computer.Ports.SerialPortNames.Count - 1 
            cbbCOMPorts.Items.Add( _ 
               My.Computer.Ports.SerialPortNames(i)) 
        Next 
        btnDisconnect.Enabled = False 
    End Sub 
 
   
 
    Private Sub btnConnect_Click( _ 
       ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) _ 
       Handles btnConnect.Click 
        If serialPort.IsOpen Then 
            serialPort.Close() 
        End If 
        Try 
            With serialPort 
                .PortName = cbbCOMPorts.Text 
                .BaudRate = 96000 
                .Parity = IO.Ports.Parity.None 
                .DataBits = 8 
                .StopBits = IO.Ports.StopBits.One 
                ' .Encoding = System.Text.Encoding.Unicode 
            End With 
            serialPort.Open() 
 
            lblMessage.Text = cbbCOMPorts.Text & " connected." 
            btnConnect.Enabled = False 
            btnDisconnect.Enabled = True 
        Catch ex As Exception 
            MsgBox(ex.ToString) 
        End Try 
    End Sub 
 
コネクトの部分は完成しました 
後はradio buttonでdim as integer =1 
dim as integer =２ 
dim as integer =３ 
の方法で送ろうかと考えているんですけど、コネクトができても送れません 
どうしてでしょうか？ご教授お願いします
0