Metodo congruencial no lineal en visual basic - Numero aleatorios

Hola amigos bienvenidos una ves mas a mi blog, hoy sera el ultimo método que les presentare del proyecto de números aleatorios en visual basic en su versión 2010 y 2012, Números aleatorios es un tema que se ve en la carrera de sistemas computacionales concretamente en inteligencia artificial, realizando ejercicios de libros algunos fáciles y otros complejos,¿ pero pasarlo a un lenguaje de programacion? si es posible como muchos demás problemas que nos marcan en nuestras escuelas solo es cuestión de analizar y plantear bien como pasarlo o plasmarlo en un lenguaje de programacion.

Comenzamos creando una ventana o interfaz como quiera llamarla en visual basic, la ventana deberá quedar mas o menos así:

Claro cada quien creara la ventana a su gusto y creatividad.

Para este ejemplo se nesecitaran 8 textbox y 3 botones 

En el botón generar pondrán el siguiente código:
Public Class ventanaACNL

    Private Sub Gcm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Utilizaremos 4 variables 1 tipo integer o entero, otra tipo string o cadena y 2 de tipo double
        Dim n_periodo As Integer
        Dim semillita As String
        Dim multiplicar As Double
        Dim nuevo_multi As Double
        '^ 2
        Dim a As Double = texta.Text
        Dim b As Double = textb.Text
        Dim c As Double = textc.Text
        Dim m As Double = textm.Text
        Dim s As Double = semilla.Text



        n_periodo = text1.Text
        For i = 1 To n_periodo

            semillita = semilla.Text
            multiplicar = (a * s ^ 2 + b * s + c) Mod m
            text4.Text = multiplicar

            nuevo_multi = text4.Text
            s = nuevo_multi
            text3.Text = text3.Text & vbCrLf & "Periodo  [" & i & "]  " & text4.Text & ""
            If i = n_periodo Then
                Label1.Text = "Resultado:"
            End If

        Next i
    End Sub
Botón que se encarga de salir
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()

    End Sub
Botón que se encarga de limpiar el formulario
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text1.Clear()
        text3.Clear()
        text4.Clear()
        semilla.Clear()
        texta.Clear()
        textb.Clear()
        textc.Clear()
        textm.Clear()

    End Sub
End Class

Con esto se finaliza todos los métodos de números aleatorios, cualquier duda me pueden escribir a mi correo electrónico el cual es

sleon_10@hotmail.com


 Descarga el proyecto aquí
http://kudoflow.com/2JU2

saludos!!