Visual Basic - BOTONES DE AYUDA DE CRUCIGRAMA

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

BOTONES DE AYUDA DE CRUCIGRAMA

Publicado por Marcela (1 intervención) el 13/10/2019 12:08:33
Buenos días, estoy haciendo un crucigrama en visual basic y estoy estancada en los botones de comodines del crucigrama

tengo 2 botones:
el primero al momento de darle clic envía aleatoriamente una letra al crucigrama ya intente con
1
2
3
4
5
6
7
8
9
Randomize()
OPC1 = Int(Rnd() * 100)
If OPC1 < 50 Then
    textbox1.text="o"
elseif
    textbox2.text ="s"
else
    textbox3.text ="o"
end if

y el segundo botón quiero que complete una palabra y se desactive el botón
1
2
3
4
5
6
7
8
9
Randomize()
OPC1 = Int(Rnd() * 100)
If OPC1 < 50 Then
    textbox1.text="o" and textbox4.text="s" and textbox5.text ="o" then
elseif
    textbox1.text="o" and textbox4.text="s" and textbox5.text ="o" t
else
    textbox1.text="o" and textbox4.text="s" and textbox5.text ="o" t
end if

lo he intentado con estos codigo pero no funcionan, espero explicarme bien y su apoyo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

BOTONES DE AYUDA DE CRUCIGRAMA

Publicado por amigo (8 intervenciones) el 14/10/2019 04:06:06
Esto entendi amiga:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
opc1 = Int(Rnd() * 100)
If opc1 < 50 Then
Text1.Text = "o"
Else
Text3.Text = "o"
Text2.Text = "s"
End If
End Sub
 
Private Sub Command2_Click()
opc1 = Int(Rnd() * 100)
If opc1 < 50 Then
Text1.Text = "o": Text4.Text = "s": Text5.Text = "o"
Randomize.Enabled = False
Else
Text1.Text = "o": Text4.Text = "s": Text5.Text = "o"
Text1.Text = "o": Text4.Text = "s": Text5.Text = "o"
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 355
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

BOTONES DE AYUDA DE CRUCIGRAMA

Publicado por raul (160 intervenciones) el 14/10/2019 15:33:15
Siceramente no te entiendo, si quieres enviar una letra aleatoria.

1- Define si vas a trabajar con mayusculas o minusculas
ME_VALOR = int((25*rnd) + 65) ' Letras Minusculas
ME_VALOR = int((25*rnd) + 97) ' Leras Mayusculas

ME_LETRA = CHR(ME_VALOR) o sea que tienes una letra aleatoria.

Ahora para completar una palabra requieres previamente tener algun vector (Database, Pila) o sea que tengas una lista de palabras preconcebidas para comparar y poder completar en dependencia si ya has alcanzado al menos el 70% de las letras.

Al menos es lo que entendí.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar