Crucigrama En Visual Basic
Descargar como PPT, PDF0 recomendaciones6,303 vistas
Este documento describe cómo crear un crucigrama interactivo en Visual Basic utilizando controles como checkbox, labels e imágenes. Explica cómo asignar nombres a los controles y cómo verificar las respuestas mediante subrutinas que cargan imágenes felices o tristes.
Crucigrama En Visual Basic
- 1. CRUCIGRAMA EN VISUAL BASIC
- 2. En Visual Basic podemos hacer toda clase de juegos y programas etc. Hacer un crucigrama para nuestro MEC “ingles básico“ es muy fácil. en visual utilizaremos en el cuadro de herramientas los Checkbox :Estos son los cuadros pequeños blancos indicadores, que nos sirven para subrayar las palabras que vas a hacer en el crucigrama. Label : Estos nos sirven para escribir cualquier palabra o numero en visual. Image : Esta herramienta nos sirve para subir imágenes, en el crucigrama la utilizamos para saber si, las tiene bien o mal la respuesta, te saldrá un cara feliz o triste Los checkbox lo utilizamos para hacer los cuadros en que vas a llenar el crucigrama Los label para titulo, palabras y números Los image para imágenes subidas al crucigrama En cada checkbox le pones un nombre ej: text 1 para responder y Check1 para llenar el crucigrama Los label le ponemos cualquier nombre porque no influye en la codificación Los image les ponemos a cada un nombre diferente como image1 porque esto influye en la codificación. Estas son son subidas por medio de la codificación LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") PROGRAMACION DE VISUAL COMO HACER UN CRUCIGRAMA
- 3. Private Sub Check1_Click() If Text1.Text = "O" And Text2.Text = "N" And Text3.Text = "E" Then Image2.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image2.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check10_Click() If Text36.Text = "F" And Text39.Text = "O" And Text40.Text = "U" And Text41.Text = "R" Then Image10.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image10.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub CODIFICACION
- 4. Private Sub Check11_Click() If Text42.Text = "O" And Text43.Text = "N" And Text44.Text = "E" And Text45.Text = "H" And Text46.Text = "U" And Text47.Text = "E" And Text41.Text = "R" And Text48.Text = "E" And Text49.Text = "D" Then Image11.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image11.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check12_Click() If Text43.Text = "N" And Text50.Text = "I" And Text51.Text = "N" And Text52.Text = "E" And Text53.Text = "T" And Text54.Text = "Y" And Text55.Text = "N" And Text56.Text = "I" And Text57.Text = "N" And Text58.Text = "E" Then Image12.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image12.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub
- 5. Private Sub Check13_Click() If Text53.Text = "T" And Text59.Text = "H" And Text60.Text = "I" And Text61.Text = "R" And Text62.Text = "T" And Text63.Text = "Y" And Text64.Text = "O" And Text65.Text = "N" And Text66.Text = "E" Then Image13.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image13.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check14_Click() If Text82.Text = "S" And Text77.Text = "E" And Text78.Text = "V" And Text75.Text = "E" And Text79.Text = "N" And Text80.Text = "T" And Text81.Text = "Y" Then Imag14.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image14.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub
- 6. Private Sub Check15_Click() If Text58.Text = "I" And Text67.Text = "E" And Text68.Text = "G" And Text69.Text = "H" And Text70.Text = "T" And Text71.Text = "Y" And Text72.Text = "S" And Text73.Text = "E" And Text74.Text = "V" And Text75.Text = "E" And Text76.Text = "N" Then Imag15.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image15.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check2_Click() If Text4.Text = "S" And Text3.Text = "E" And Text5.Text = "V" And Text6.Text = "E" And Text7.Text = "N" Then Image6.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image6.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub
- 7. Private Sub Check3_Click() If Text6.Text = "E" And Text8.Text = "I" And Text9.Text = "G" And Text10.Text = "H" And Text11.Text = "T" Then Image3.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image3.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check4_Click() If Text11.Text = "T" And Text12.Text = "W" And Text13.Text = "E" And Text14.Text = "L" And Text15.Text = "V" And Text16.Text = "E" Then Image7.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image7.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub
- 8. Private Sub Check5_Click() If Text17.Text = "T" And Text16.Text = "E" And Text18.Text = "N" Then Image4.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image4.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check6_Click() If Text18.Text = "N" And Text19.Text = "I" And Text20.Text = "N" And Text21.Text = "E" And Text22.Text = "T" And Text23.Text = "Y" Then Image8.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image8.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub
- 9. Private Sub Check7_Click() If Text22.Text = "T" And Text24.Text = "H" And Text25.Text = "R" And Text26.Text = "E" And Text27.Text = "E" Then Image5.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image5.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub Private Sub Check8_Click() If Text28.Text = "F" And Text29.Text = "O" And Text29.Text = "U" And Text25.Text = "R" And Text30.Text = "T" And Text31.Text = "Y" And Text32.Text = "S" And Text33.Text = "I" And Text34.Text = "X" Then Image1.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image1.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub
- 10. Private Sub Check9_Click() If Text35.Text = "F" And Text36.Text = "I" And Text37.Text = "V" And Text27.Text = "E" Then Image9.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE05.ICO") Else Image9.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Misc\FACE04.ICO") End If End Sub