Solved Arduino in windows device manager

Projects General Guidance
1

When i connect arduino nano to my computer it appears as a modem and i can communicate with it through anu software that uses AT commands like vb6
But uni arduino does not. Appear as a modem and I cannot access it the same way
Is that normal or did i do something wrong

2

Arduino USB typically emulates a dumb COM port, not a full modem. If you want it to act like a modem you can do so in software, by trapping "AT" and the following command on the Serial port. But only very few AT commands can be emulated due to missing phone hardware - which commands would you like to send?

3

All i want is to communicate with it through vb6 comm port
Receive data and send data
Vb6 does not see it as a comm port
Thank you

4

So here is a link to PLX-DAQ version 2 - now with 64 bit support! (and further new features) - Interfacing w/ Software on the Computer - Arduino Forum, where the fellow has created a way for the Arduino to send data to an Excel spread sheet. You can view his code, in Excel, to see how he does the thing and then use the thing in your VB thing.

5

Thank you problem solved
From the device manager advanced settings
I changed the port number the arduino used from 18 to 2
And thus the short sighted vb saw it
Thank you

6

The COM port number can change after every reconnect or reboot. You may have to program a COM port scanner, in order to find the right port number. When multiple Arduinos are connected, each one gets its individual (random) port number.

7

Hi,

I'm using VB5 to send record selection pulses into my Jukebox through an Uno:

Main Form (in part):

Private Sub txtCom_Change()
  On Error GoTo ErrSub
  myErr = "ComChange1"
  
  If frmCom.Com1.PortOpen = True Then
    frmCom.Com1.PortOpen = False
    myPortOpen = "no"
  End If
  
  myErr = "ComChange2"
  myComPort = Val(txtCom.Text)
  frmCom.Com1.CommPort = myComPort
  frmCom.Com1.Settings = "9600,N,8,1"
  frmCom.Com1.InputLen = 1
  frmCom.Com1.RThreshold = 1
  frmCom.Com1.SThreshold = 1
  frmCom.Com1.RTSEnable = True
  
  myErr = "ComChange3"

  frmCom.Com1.PortOpen = True
  myPortOpen = "yes"

Exit Sub

ErrSub:
  ErrCode = Err
  ErrDesc = Err.Description
  Call frmError.Error_Handler
  'Resume Next
End Sub

Output Form (in part):

Public Sub Form_activate()
  On Error GoTo ErrSub
  myErr = "Com_Activate"
  
  lstInput.Clear
  Text1.Text = ""
  
  If myPortOpen <> "yes" Then
    Com1.CommPort = myComPort
    Com1.Settings = "9600,N,8,1"
    Com1.InputLen = 1
    Com1.RThreshold = 1
    Com1.SThreshold = 1
    Com1.RTSEnable = True
  
    Com1.PortOpen = True
    myPortOpen = "yes"

  End If

Various Similar Output Sub Rotines:

Public Sub Output1()                    'send 'Init'
  On Error GoTo ErrSub
  myErr = "ComOut1-1"
  
  Text1.Text = ""
  
  'start 8 second abort timer?
  Timer1.Interval = 8000                'Time in 'millisecs
  Timer1.Enabled = True                 'start timer
  
  myErr = "ComOut1-2"
  mySub = 1

  xfer1 = "<1, 0, 0, 0>"
  
  lstInput.AddItem xfer1
  
  Com1.Output = xfer1

Exit Sub

I've often taken VB6 code and modified it to run in my VB5 so I guess you should be able to get this working in your VB6?

Peter