Use Basic4ppc to send serial data from a PDA to a BlueSMiRF Bluetooth module.


Well-Known Member
Licensed User
Longtime User
Nice work :)
Pity I don't have bluetooth on my device, I'm still struggling to get IR to work with a Microchip.

My personal opinion, not a pull down :sign0188:
The text on your web site is a bit big though.


B4X founder
Staff member
Licensed User
Longtime User
Looks great!
Two tips:
1. Users with WM6 devices should use the Serial2 library instead (no nead for any other dll).
2. Instead of all the Button??_Click subs you could do something like:
Sub App_Start
 For i = 3 to 75
   AddEvent("Button" & i,Click,"KeyPad")
End Sub
Sub KeyPad
 [SIZE=2][COLOR=black]serial.Output (sender.Text)
 label1.Text = strlabeltemp & sender.Text
End Sub


Active Member
Licensed User
Detecting bluetooth

Is there an effective way to determine if the phone the program is running on has bluetooth?

If I open a serial connection on say, port 8, is there an effective way to determine if the bluetooth module is responding?