Public Function GetRandBit() As Integer
    Do
      Volatile.Write(Value1, 0)
      ReleaseToProvideBit.WaitOne()
      ReleaseToStartThreads.Release()
      ReleaseToProvideBit.WaitOne()
      ReleaseToProvideBit.Release()
      Dim Res = Volatile.Read(Value1)
      Console.WriteLine("GetRandBit {0} {1}", Date.Now.ToString("yyyy_MM_dd HH_mm_ss"), Res)
      If Res > 3 Then Return Res And 1
    Loop
  End Function

    static void Init()
    {
        ReleaseToStartThreads.WaitOne();
        new Thread(() => Inc(Sem1, Sem2, ref Value1)) { Name = "Worker-1" }.Start();
        new Thread(() => Inc(Sem2, Sem1, ref Value2)) { Name = "Worker-2" }.Start();
    }

new Thread(() => Inc(Sem1, Sem2, ref Value1)) { Name = "Worker-1" }.Start();

GetRandBit 2016_01_31 22_57_06 7677
1

The thread 'Worker-1' (0x1fe8) has exited with code 0 (0x0).
The thread 'Worker-2' (0x13ac) has exited with code 0 (0x0).

Do
  ReleaseToStartThreads.WaitOne() ' оба потока тут
  ReleaseToStartThreads.Release()

    If Res > 3 Then Return Res And 1 Else Skipped += 1

  Sub Main()
    Init()

    For Q = 0 To 2365 - 1
      Console.Write(GetRandBit())
    Next

    Console.WriteLine()
    Console.WriteLine(Skipped)
  End Sub

    static int resg3 = 0;
    static int resle3 = 0;
    static int total0 = 0, total1 = 0;
    static List<int> bits = new List<int>();

            var Res = Volatile.Read(ref Value1);
            if (Res > 3) resg3++; else resle3++;
            //Console.WriteLine("GetRandBit {0} {1}", DateTime.Now.ToString("yyyy_MM_dd HH_mm_ss"), Res);
            if (Res > 3) return Res & 1;

    static void Main(string[] args)
    {
        var sw = Stopwatch.StartNew();
        Init();
        do
        {
            var bit = GetRandBit();
            bits.Add(bit);
            if (bit == 0) total0++; else total1++;
            Console.Write(bit);
        }
        while (!Console.KeyAvailable);
        sw.Stop();

        Console.WriteLine("Result: total 0s {0}, 1s {1}, Res > 3 {2} times, Res <= 3 {3} times", total0, total1, resg3, resle3);
        Console.WriteLine("Generated {0} bits in {1} seconds, ave {2} bits/s", bits.Count, sw.Elapsed.TotalSeconds, bits.Count / sw.Ela…