Help with Caller ID app please

Targets macOS
21

So, I need to put all tht code immediately following 'DeviceListUpdater.RunMode = Timer.RunModes.Multiple 'turn it on"

I will try that tomorrow.
I have: Baud 57600 was previously 9600
Bits is set to 8 Data bits
Parity None
Stop Bit One
Are those OK?

Thanks.

Lennox

22

All that code is in the correct place, you just have to write some of it to the device.

Your SerialConnection settings should match the settings on your modem.

23

I cannot try it now, I will try it tomorrow.
Thanks.
Lennox

24

Tried it and still getting “Ring”, no caller ID.

This is the modem specifications:
Modem

• V.92 (upto 56 kbps download, 48 kbps upload)
• V.90 (upto 56 kbps download, 38 kbps upload)
• V.34 (4.8 Kbps to 33.6 Kbps)
• V.32 bis (4.8 Kbps to 14.4 Kbps)
• V.23 (75 bps to 1.2 Kbps)
• V.22 bis (50 bps to 2.4 Kbps)
• V.21. Bell 103 / Bell 212
Automode
• V.44/V. 42bis/MNP 5 datacompression
• V.42/MNP2-4 error correction
• V.59 Diagnostic
• Hayes AT Command set
• TIES escape code
• Quick Connect (V .92)

This is the SerialConnection1 Settings:
Screenshot 2023-11-08 at 8.13.41 AM

This is my ConnectButton Pressed code:

If Me.Caption = "Disconnect" Then // Disconnect from the serial device
  SerialConnection1.Close
  Me.Caption = "Connect"
  DevicesPopupMenu.Enabled = True
  DeviceListUpdater.RunMode = Timer.RunModes.Multiple 'turn it on
  
Else // Connect to the serial device
  // Set the serial device to the index of the one chosen in the popup menu
  SerialConnection1.Device = SerialDevice.At(DevicesPopupMenu.SelectedRowIndex)
  
  // https://forum.xojo.com/t/desktop-phone-dialer/42175/6
  // Initialization string depends from the modem brand/model and it's generally one of the following.
  // Try them in order until you get an OK answer. ERROR answer means is not a valid command
  dim initString as string = "AT&FE0S0=0S6=2S7=10S8=2S9=255S29=70"
  initString = initString + chr(13)
  
  Try
    SerialConnection1.Connect
    DevicesPopupMenu.Enabled = False
    DeviceListUpdater.RunMode = Timer.RunModes.Off
    Me.Caption = "Disconnect"
    msgbox "Connected"
    
    // Initialization string depends from the modem brand/model and it's generally one of the following.
    // Try them in order until you get an OK answer. ERROR answer means is not a valid command
    Dim TheRightOne as string
    TheRightOne = "#CID=1"
    'TheRightOne = "+VCID=1"
    'TheRightOne = "%CCID=1"
    'TheRightOne = "#CC1"
    'TheRightOne = "*ID1"
    'TheRightOne = "+FCLASS=8;+VCID=1"
    'TheRightOne = "#CLS=8#CID=1"
    'TheRightOne = "+CLIP="
    
    // enable Caller ID reporting
    dim cidONCmd as string
    cidONCmd = "AT&FE1S0=0" + TheRightOne + endofLine.Macintosh
    msgbox cidONCmd
    
    '// disable Caller ID reporting
    'cidONCmd = "AT&FE1S0=0" + TheRightOne +"0" + endofLine.Macintosh
    
  Catch error As IOException
    System.Beep
    MessageBox("The selected serial device could not be opened.")
  End Try
  
End If

Just getting “Ring”, no Caller ID info. Any suggestions?

Thanks.

Lennox

25

I still don’t see you using SerialConnection1.Write(initString) and/or SerialConnection1.Write(cidONCmd)

26

Thanks AlbertoD,

Modified as you recommended

// Try them in order until you get an OK answer. ERROR answer means is not a valid command
dim initString as string = "AT&FE0S0=0S6=2S7=10S8=2S9=255S29=70"
initString = initString + chr(13)
SerialConnection1.Write(initString)

Got this:
Screenshot 2023-11-08 at 9.13.39 AM

So I will try TheRightOne in order until I get the valid command.

also modified
// enable Caller ID reporting
dim cidONCmd as string
cidONCmd = “AT&FE1S0=0” + TheRightOne + endofLine.Macintosh
SerialConnection1.Write(cidONCmd)
msgbox cidONCmd

Thanks again.

Lennox

27

ThanksAlbertoD and all who assisted,
I finally got it working
TheRightOne = “+VCID=1”

Screenshot 2023-11-08 at 9.22.39 AM

Thanks everyone again.

Lennox

3 Likes