Option Explict

Private Sub Bop1_Received(ByVal lpszIPAddress As String, ByVal lPortNumber As Long)
  Bop1.DefProc
End Sub

Private Sub Command1_Click()
  Bop1.Configure "", -1
End Sub

Private Sub Invoke_Click()
  If Invoke.Value = 1 Then
    Bop1.InvokeAlarm 30000, -1
  Else
    Bop1.InvokeAlarm 30000, 0
  End If
End Sub

Private Sub Placed_Click()
  Bop1.VIDValue(40) = CarrierID.Text
  If Placed.Value = 1 Then
    Bop1.InvokeEvent 200
  Else
    Bop1.InvokeEvent 201
  End If
End Sub

例えば以下のようなメッセージを作成することを考えてみます。

S1F3W
<L
  <U4 5> * Control State
  <U4 17> * Process State
>.

これをbopやswingを用いて記述すると、以下のようになります。

msg.SetList(
  "S1F3W"
  "<L"
  "<U 4>"   // Control State
  "<U 17>"  // Process State
  ">"
  );

某社製品では以下のようになります。これでは何が書いてあるのかさっぱり分からず、 プログラムを「読解」しなければなりません。 このような状況だと容易にバグが発生します。 言うまでもありませんが、ソースコードが簡潔であれば開発期間を短縮でき、バグも減ります。

unsigned long lParamU4;
  Emesg.stream = 1;
  Emesg.length = sizeof(EMsgBuffer);
  Emesg.buffer = EMsgBuffer;
  SdrItemInitO( &Emesg );

  // Select Equipment Status Req
  if ( SdrItemOutput( &Emesg, S2_L, NULL, (SDRLENGTH)2 ) < 0 )
    return false;

  ParamU4 = 5; // SV : 5 Control state
  if ( SdrItemOutput( &Emesg, S2_U4, &ParamU4, (SDRLENGTH)1 ) < 0 )
    return false;

  ParamU4 = 17; // SV : 17 Process state
  if ( SdrItemOutput( &Emesg, S2_U4, &ParamU4, (SDRLENGTH)1 ) < 0 )
    return false;

  SdrRequest(SdrIdEqp, &Emesg, &Etkx);
  UpdateEqpSECS();
    return true;