DFRobot Bluno Boards

void __fastcall TfmMain::wclBluetoothManagerPinRequest(
    TObject *Sender, const TwclBluetoothRadio *Radio,
    const __int64 Address, String& Pin)
{
    Pin = "0000";
}

void __fastcall TfmMain::btConnectClick(TObject *Sender)
{
    TListItem* Item = lvDevices->Selected;
    wclGattClient->ForceNotifications =
        cbForceIndications->Checked;
    int Res = wclGattClient->Connect(
        (TwclBluetoothRadio*)Item->Data);
    // Check Res for errors...
}

void __fastcall TfmMain::btSubscribeClick(TObject *Sender)
{
    TwclGattCharacteristic Characteristic =
        FCharacteristics[lvCharacteristics->Selected->Index];
    wclGattClient->Subscribe(Characteristic);
}

void Manager_OnPinRequest(Object Sender,
    wclBluetoothRadio Radio, Int64 Address, out String Pin)
{
    Pin = "0000";
}

private void btConnect_Click(Object sender, EventArgs e)
{
    ListViewItem Item = lvDevices.SelectedItems[0];
    Client.ForceNotifications = cbForceIndications.Checked;
    Int32 Res = Client.Connect((wclBluetoothRadio)Item.Tag);
    // Check Res for errors...
}

private void btSubscribe_Click(Object sender, EventArgs e)
{
    wclGattCharacteristic Characteristic =
        FCharacteristics[
            lvCharacteristics.SelectedItems[0].Index];
    Client.Subscribe(Characteristic);
}

Private Sub Manager_OnPinRequest(ByVal Sender As Object,
      ByVal Radio As wclBluetooth.wclBluetoothRadio,
      ByVal Address As Long, ByRef Pin As String)
      Handles Manager.OnPinRequest
  Pin = "0000"
End Sub

Private Sub btConnect_Click(ByVal sender As System.Object,
      ByVal e As System.EventArgs) Handles btConnect.Click
  Dim Item As ListViewItem = lvDevices.SelectedItems(0)
  Client.ForceNotifications = cbForceIndications.Checked
  Dim Res As Int32 = Client.Connect(
      CType(Item.Tag, wclBluetoothRadio))
  ' Check Res for errors...
End Sub

Private Sub btSubscribe_Click(ByVal sender As System.Object,
      ByVal e As System.EventArgs) Handles btSubscribe.Click
  Dim Characteristic As wclGattCharacteristic =
      FCharacteristics(
          lvCharacteristics.SelectedItems(0).Index)
  Client.Subscribe(Characteristic)
End Sub

void CGattClientDlg::wclBluetoothManagerPinRequest(
    void* Sender, CwclBluetoothRadio* const Radio,
    const __int64 Address, tstring& Pin)
{
    Pin = _T("0000");
}

// Connect button click
void CGattClientDlg::OnBnClickedButtonConnect()
{
    int Item = lvDevices.GetNextSelectedItem(Pos);
    wclGattClient.ForceNotifications =
        (cbForceIndications.GetCheck() != FALSE);
    int Res = wclGattClient.Connect(
        (CwclBluetoothRadio*)lvDevices.GetItemData(Item));
    // Check Res for errors...
}

void CGattClientDlg::OnBnClickedButtonSubscribe()
{
    wclGattCharacteristics::iterator it =
        FCharacteristics.begin();
    std::advance(it,
        lvCharacteristics.GetNextSelectedItem(Pos));
    wclGattCharacteristic Characteristic = (*it);
    wclGattClient.Subscribe(Characteristic);
}