[Source] Frag die magische Miesmuschel

[rVs14]

Hey,
Ist grade aus Langeweile entstanden.
Aufwand: 2 Minuten
Source:

Spoiler:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rndv As Integer
        Dim upperbound As Integer

        Dim lowerbound As Integer
        If TextBox1.Text.Contains("?") Then
            upperbound = "1"
            lowerbound = "0"


            rndv = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
            If rndv = "1" Then
                MsgBox("Ja")
            Else
                MsgBox("Nein")
            End If
        Else
            MsgBox("Das ist keine Frage")

        End If
        If TextBox1.Text = "" Then
            MsgBox("Gib eine Frage ein")

        End If



    End Sub

End Class 

Programm zum downloaden:
Gibts hier
Viel Spaß

[ExeL]

Virustotal ?

[Bossgen]

Virustotal ?

Wozu, du hast doch den Source.

Aber hier, extra für dich.

https://www.virustotal.com/file/2bbc...is/1333449143/

[rVs14]

Genau, du hast doch den Source?
So, ich werde jetzt mal ein paar Sounds hinzufügen.