[Sammelthread] VB-Sprüche

Es gibt 112 Antworten in diesem Thema. Der letzte Beitrag () ist von SeriTools.

    VB.NET-Quellcode

    1. Dim Mann As New Sex
    2. Dim Frau As New Sex
    3. Dim Family(1) As People
    5. If (Mann + Frau) = True Then ReDim Family(Family.length + 1)


    VB.NET-Quellcode

    1. Dim Alk As New Drink(Yesterday)
    2. Dim Essen As Meal
    4. If Alk > 0.000003 Then
    5. Output(Essen)
    6. Else
    7. Do
    8. If Asperin = True Then Application.DoEvents()
    9. Until Date.Now > Date.Tomorrow
    10. End If

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Dodo“ ()

    VB.NET-Quellcode

    1. Dim Woman As New Object
    2. Dim Time As New Object
    3. Dim Money As New Object
    4. Dim Problems As New Object
    5. Dim Ergebnis As New Message
    7. 'To meet a woman you need time and money, therefore:
    8. Woman = Time * Money
    10. 'Time is money
    11. Money = Time
    13. 'so
    14. Woman = Money * Money
    16. 'Money is the root of all problems
    17. Problems = Math.Sqrt(Math.Pow(Money, 2)) 'Problems = Money
    19. 'A woman seems to be equal to problems
    20. Woman = Problems
    22. Ergebnis = Woman
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    VB.NET-Quellcode

    1. If My.Computer.OperatingSystem = "MacOS" Then
    2. My.Computer.RandomAccessMemory.Size = New Size(4, GB)
    3. ElseIf My.Computer.OperatingSystem = "Windows" Then
    4. BillGates.Eat.Portion.Size = New Size(1, GB)
    5. My.Computer.RandomAccessMemory.Size = New Size(3, GB)
    6. End If

    VB.NET-Quellcode

    1. For Each Lehrer As School.Teacher In Earth.Austria.Schools.Find("BG/BRG Mössinger").Teachers
    2. Lehrer.Kill()
    3. Next

    VB.NET-Quellcode

    1. Dim Children As New People(16)
    3. If Children.Favorite.Game = Game.CounterStrike Then
    4. Children.Amoklauf = New Randomize(0, 10^6)
    5. End If


    Vielleicht bischel Makaber aber das mti dem Lehrer hat mich irgendwie darauf gebracht!

    zwar kein "Spruch", aber trotzdem iwie witzig:

    VB.NET-Quellcode

    1. for i As integer = 0 To Windows.Lizenz.lenght
    2. Dim rnd As new random
    3. Dim Absturz As integer = 42
    4. If rnd.next(30, 50) = Absturz then
    5. if windows.version <= xp then
    6. Windows.Absturz(Windows.Absturz.Bluescreen)
    7. Elseif Windows.Version >= Vista then
    8. windows.Absturz(Windows.Absturz.Colorfull)
    9. Windows.doevents()
    10. next

    VB.NET-Quellcode

    1. Dim pc as new projectile
    2. Dim wand as new target
    3. If my.computer.status = bluescreen then
    4. me.throw(pc, wand)
    5. me.happy = false
    6. else
    7. me.happy = true
    8. End if


    lG TiMMy :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TiM_My“ ()

    Ich glaube eher du meinst das:

    VB.NET-Quellcode

    1. Dim pc as new projectile
    2. Dim wand as new target
    3. If my.computer.status = bluescreen then
    4. me.throw(pc, wand)
    5. me.happy = false
    6. else
    7. me.happy = true
    8. End if

    VB.NET-Quellcode

    1. Private Sub TelevisionChannel.changed (ByVal TVChannel as CurrentTVChannel)
    2. If IsLangweilig(Me.House.Objects.Television.CurrentFilm) = True Then
    3. Dim Film As New WatchingFilm
    4. Film.Exciting = New Exciting(5 / 5, Stars)
    5. Film.Length = Me.WishesForAGoodFilm.Length
    6. Me.House.Objects.Television.CurrentChannel = Film.Channel
    7. Else
    8. Me.House.Objects.Television.CurrentFilm.CreateANewEndWhichIsLongerToHaveFunForALongerTime()
    9. End If
    10. End Sub


    Is mir grad eingefallen... ist sinnlos, ich weiß :D

    Also das mit den Events üben wir aber nochmal wa?
    Ich denke mal so ergibt das mehr sinn:

    VB.NET-Quellcode

    1. Private Sub Television_ChannelChanged (ByVal CurrentChannel As Television.Channel) Handles Television.ChannelChanged
    2. If CurrentChannel = Television.MaxChannels Then
    3. Dim Movie As New Movie()
    4. Movie.Source = Environment.Shelf.DVDCollection.Random()
    5. Television.Input = "AV2"
    6. Dim Player As New DVDPlayer(Movie)
    7. Television.Connect = New Connect(Player)
    8. Player.Play()
    9. Else
    10. If IsBoring(CurrentChannel.Movie) Then
    11. Television.SwitchedChannel(CurrentChannel.Number + 1)
    12. End If
    13. End If
    14. End Sub


    So ergibt das viel mehr Sinn, zum einen wird das Event richtig gesetzt, zum anderen nimmst du Bezug auf den aktuellen Channel und wenn der Film auf dem aktuellen Channel langwielig ist wirst du ja erst weiter Schalten als gleich ein Film zu schauen.

Facebook