elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Temas
Páginas: [1]
1  Programación / .NET (C#, VB.NET, ASP) / Programa que no funciona para adivinar un numero en: 18 Abril 2012, 16:59 pm
Buenas tardes.
Estoy intentando crear un programa que calcule un aleatorio y te de varias oportunidades para acertarlo, el problema es que no puedo encontrar la manera de que el numero sea aleatorio al iniciar el programa pero se mantenga constante a lo largo de la ejecucion del mismo,  y ademas de eso quiero que una vez dicho un numero me de la opcion de decir otro, pero e puesto un bucle que no me funciona como querria
 muchas gracias de antemano ;D :huh:

Código
  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.        Dim k
  3.        k = ALEAT()
  4.        Const a =
  5.        TextBox1.Text() = "Pon el numero aqui "
  6.    End Sub
  7.  
  8.    Public Function ALEAT() As Integer
  9.        Dim Aleatorio, max
  10.        max = 1000
  11.        Randomize()
  12.        a = Int((max - 1) * Rnd() + 1)
  13.    End Function
  14.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  15.        Dim numero, num, max, cont, bol, al
  16.        al = a
  17.        num = 0
  18.        cont = 1
  19.        bol = True
  20.        num = TextBox1.Text
  21.        Do While num <> al And cont < 10
  22.            'msgbox("intento numero " & cont)
  23.            If num > al Then
  24.                MsgBox("Intento numero " & cont & ". Es menor. Prueba otra vez")
  25.                num = TextBox1.Text
  26.            Else
  27.                MsgBox("Intento numero " & cont & ". Es mayor. Prueba otra vez")
  28.                num = TextBox1.Text
  29.            End If
  30.            cont = cont + 1
  31.        Loop
  32.        If num = al Then
  33.            bol = False
  34.        End If
  35.        If bol = True Then
  36.            MsgBox("Has fallado, era el " & al)
  37.        Else
  38.            MsgBox("Acertastes, era el " & al & " Numero de intentos " & cont)
  39.        End If
  40.    End Sub
  41.  
2  Foros Generales / Dudas Generales / Base de datos Access No coinciden los tipos de datos en: 27 Octubre 2011, 12:43 pm
Hace unos meses realice una consulta de actualizacion el la base de datos de access, en su momento funcionaba correctamente, pero ayer al introducir nuevos datos, me da un error que dice No coinciden los tipos de datos, la consulta es la siguiente:
UPDATE [tabla] SET [tabla].Definición = "texto"
WHERE [tabla].[Tipo]="NUMERICO"
AND val(([tabla].Tamaño))>38;
el campo Tamaño es de tipo texto
Gracias por la ayuda
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines