Imports Microsoft.VisualBasic
Imports System

Private Function Erlang(ByVal m As Integer, ByVal n As Double) As Double Dim gh As Double Dim j As Integer gh = 1.0 For j = 1 To m gh = 1.0 + gh * j / n Next j Return (1.0 / gh)
End Function

Private Function calc_erlangB(ByVal m As Integer, ByVal n As Double, ByVal incr As Double) As Double Dim l As Double Dim a As Double l = 0.00 Do a = Erlang(m, l) If a > n Then l = l - incr Exit Do End If l = l + incr Loop Return l
End Function

Shared Function Main() As Integer Dim [off] As Single Dim d As Integer Dim l As Double Dim incr As Double = 0.01

Console.Write("++++++++++++++++++++++ ") Console.Write(ControlChars.Lf) Console.Write(" ERLANG-B CALC") Console.Write(ControlChars.Lf) Console.Write("++++++++++++++++++++++ ") Console.Write(ControlChars.Lf) Console.Write(ControlChars.Lf) Console.Write(" Calculating for offered load") Console.Write(ControlChars.Lf) Console.Write("----------------------------------") Console.Write(ControlChars.Lf) Console.Write(ControlChars.Lf) Console.Write("ENTER THE NUMBER OF CHANNELS : ") Console.Write(ControlChars.Lf) cin>> d Console.Write(ControlChars.Lf) Console.Write("Note: Probability should be between 0 and 1") Console.Write(ControlChars.Lf) Console.Write("---------------------------------------------") Console.Write(ControlChars.Lf) Console.Write(ControlChars.Lf) Console.Write("ENTER THE BLOCKING PROBABILITY : ") Console.Write(ControlChars.Lf) cin>> l [off] = calc_erlangB(d, l, incr) Console.Write(ControlChars.Lf)

Console.Write(" RESULTS : ") Console.Write(value) Console.Write(" Erlang ") Console.Write(ControlChars.Lf) Console.Write("TRAFFIC: {0:f3} Erlang", [off])

Console.Write(ControlChars.Lf) Console.Write(ControlChars.Lf)

system("PAUSE") Return 0
End Function