Random y lo demás que escribi... Probabilidades, como lo tendria que poner...etc
Un saludo!!!!
Un saludo!!!!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: BlazeFire en 4 Septiembre 2009, 20:47 PM
Tambien puedes usar ifIf TextBox1.Text = "10" Then
TextBox2.Text = "Eres un Crack"
ElseIf TextBox1.Text = "9" Then
TextBox2.Text = "Te queda muy poco"
End If
es mas largo pero creo que servira no?
Otra cosa:
Si quieres que solo se puedan ingresar numeros, entonces haz esto:
Primero crea 1 Modulo y en el codigo introduce esto:Function SoloNumeros(ByVal Keyascii As Short) As Short
If InStr("1234567890", Chr(Keyascii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = Keyascii
End If
Select Case Keyascii
Case 8
SoloNumeros = Keyascii
Case 13
SoloNumeros = Keyascii
End Select
End Function
Esto va debajo de Form1:Public Class Form1
Inherits System.Windows.Forms.Form
Public KeyAscii As Short
Ahora Pon en el Codigo de Tu TextBox, ve donde dice Declarations, y ponlo en el evento Keypress y pon esto;Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
keyascii = CShort(SoloNumeros(keyascii))
If keyascii = 0 Then
e.Handled = True
End If
Saludos