Kaminfeuer

[UMueller]

Hallo,

bei Durchsicht von http://www.ftcommunity.de/ftComputingFi ... linker.jpg fiel mir der "Blinker mit Komfort" wieder ins Auge :



das hat mich zum super kurzem VB2008 Programm Kaminfeuer inspiriert :

Code: Alles auswählen

Imports FishFace40

Module KaminFeuer
  Sub Main()
    Dim ft As New FishFace()
    Dim rnd As New Random()
    ft.OpenInterface(IFTypen.ftROBO_first_USB, 0)
    Console.WriteLine("--- Bei der Arbeit, Abbruch ESC-Taste ---")

    Do
      ft.SetMotors(rnd.Next(0, 15))
      ft.Pause(rnd.Next(50, 150))
    Loop Until ft.Finish()

    ft.CloseInterface()
  End Sub
End Module

Vier gelbe Lampen an O1 - O4 eines Robo Interfaces in klaren Rohren knistern - besonders wenn man die ZimmerBeleuchtung reduziert - so richtig romantisch vor sich hin. Das Kernprogramm besteht dabei nur aus der Do-Schleife mit dem SetMotors und der Pause.

Gruß Ulrich Müller