「実行時エラー ’8002’ポート番号が不正です」を修正するには？ (ID:114518)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>「\MSDXM.OCXを読み込めません」と言うエラーが出てきました。
これに関しては修正プログラムをインストールしたら解決したみたいです。
>「実行時エラー'8002’ポート番号が不正です」というエラーメッセージに関してはまだ出ます。
*.logファイルと言うのはフォームについてのテキストドキュメントでいいのですか？？
ちなみにデバックすると以下のコードを使うのですが、

Private Sub Command2_Click()
MSComm1.Output = "mod 3" & Chr(13) & Chr(10)
End Sub

Private Sub Command3_Click()
MSComm1.Output = "mod 5" & Chr(13) & Chr(10)
End Sub

Private Sub Command4_Click()
MSComm1.Output = "mod 0" & Chr(13) & Chr(10)
End Sub

Private Sub Command5_Click()
MSComm1.Output = "mod 4" & Chr(13) & Chr(10)
End Sub

Private Sub Command6_Click()
   a = InputBox("ID番号を入れてください")
   MSComm1.Output = "sch 300" & a & "" & Chr(13) & Chr(5)
End Sub
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    File1.Pattern = Combo1.Text
End Sub
Private Sub drive1_change()
    Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
     F = File1.Path
If Right(F, 1) = "\" Then F = Left(F, 2)
MediaPlayer1.FileName = F & "\" & File1.FileName
MediaPlayer1.Play
    MSComm1.Output = "mod 0" & Chr(13) & Chr(10)
    Form2.Visible = True
End Sub
Private Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm1.InputLen = 1
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True                  ←ここでエラーとなります
    Timer1.Interval = 300
    Text1.Text = ""
    Combo1.AddItem "*.avi"
    Combo1.AddItem "*.*"
    Combo1.Text = "*.avi"
    Combo1.AddItem "*.mpg"
    Combo1.AddItem "*.*"
    Combo1.Text = "*.mpg"
    Me.Move 0, 0
End Sub
Private Sub MediaPlayer1_OpenStateChange(ByVal oldstate As Long, ByVal newstate As Long)
    Form2.Visible = True
    Form1.Visible = True
End Sub
Private Sub command1_click()
    q(0) = Time
    MediaPlayer1.Play
    MSComm1.Output = "mod 0" & Chr(13) & Chr(10)
    Form2.Visible = True
End Sub
Private Sub MSComm1_OnComm()
Do While buf <> Chr(10)
buf = MSComm1.Input
xbuf = xbuf & buf
Loop
'Debug.Print xbuf
Select Case Left(xbuf, 3)
Case "STA"
 STA (xbuf)
 End Select
End Sub
Private Sub Timer1_Timer()
MSComm1.Output = "STA?" & Chr(13) & Chr(10)
End Sub
Private Sub STA(buf)
Select Case Mid(buf, 5, 1)
Case "0"
 Text1.Text = "FWD"
Case "3"
 Text1.Text = "STOP"
Case "4"
 Text1.Text = "FF"
Case "5"
 Text1.Text = "REW"
 End Select
End Sub
Private Sub form_unload(cancel As Integer)
MSComm1.Output = "mod 3" & Chr(13) & Chr(10)
MSComm1.PortOpen = False
End Sub

度々お手数をおかけ致しますが宜しくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る