WILLIAMXXX
Terugkerende gebruiker
- Lid geworden
- 29 nov 2006
- Berichten
- 1.246
Ok, zo als je wilt zien... Het is echt mogelijk hier wat stukjes code:
Hopelijk is dit overtuigend genoeg?!
Code:
Private Sub Btn_Proberen_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.aantalkeren = Conversions.ToString(CDbl((Conversions.ToDouble(Me.aantalkeren) + 1)))
If (Conversions.ToDouble(Me.aantalkeren) = 3) Then
Interaction.MsgBox("Brute force is verboden!", MsgBoxStyle.OkOnly, Nothing)
Me.Close
End If
If (Me.Txt_getal.Text = "1738678429674678165872618675864378269263569627796435967295643826579") Then
Interaction.MsgBox("Correct!", MsgBoxStyle.OkOnly, Nothing)
Interaction.MsgBox("Zeg het goede getal tegen mij op het forum en ik ben overtuigd. (1738678429674678165872618675864378269263569627796435967295643826579)", MsgBoxStyle.OkOnly, Nothing)
Me.Close
Else
Interaction.MsgBox("Incorrect!", MsgBoxStyle.OkOnly, Nothing)
End If
Me.Txt_getal.Text = ""
End Sub
Code:
<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.Txt_getal = New TextBox
Me.Btn_Proberen = New Button
Me.SuspendLayout
Dim point As New Point(13, 13)
Me.Txt_getal.Location = point
Me.Txt_getal.Name = "Txt_getal"
Dim size As New Size(&H395, 20)
Me.Txt_getal.Size = size
Me.Txt_getal.TabIndex = 0
point = New Point(13, 40)
Me.Btn_Proberen.Location = point
Me.Btn_Proberen.Name = "Btn_Proberen"
size = New Size(&H395, &H3A)
Me.Btn_Proberen.Size = size
Me.Btn_Proberen.TabIndex = 1
Me.Btn_Proberen.Text = "Button1"
Me.Btn_Proberen.UseVisualStyleBackColor = True
Dim ef As New SizeF(6!, 13!)
Me.AutoScaleDimensions = ef
Me.AutoScaleMode = AutoScaleMode.Font
size = New Size(&H3AE, 110)
Me.ClientSize = size
Me.Controls.Add(Me.Btn_Proberen)
Me.Controls.Add(Me.Txt_getal)
Me.Name = "Form1"
Me.Text = "Raad het getal"
Me.ResumeLayout(False)
Me.PerformLayout
End Sub
Hopelijk is dit overtuigend genoeg?!