JUEGO ESQUELETO UTILIZANDO DRAG DROP EN VISUAL BASIC 6 скачать в хорошем качестве

JUEGO ESQUELETO UTILIZANDO DRAG DROP EN VISUAL BASIC 6

Juego de "armando el esqueleto" utilizando Drag y Drop (Arrastrar y soltar) utilizando visual basic 6.0. Saludos desde Ambato - Ecuador la musica de fondo es el piano de mi tio gran maestro y músico Sr. Marcelo Vaca de Quito - Ecuador PROGRAMACIÓN PARA VISUAL BASIC 6.0 Private Sub BRADER_DragDrop(Source As Control, X As Single, Y As Single) If Source = BRADER1 Then BRADER.Picture = BRADER1.Picture BRADER1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES EL BRAZO DERECHO" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub BRAIZQ_DragDrop(Source As Control, X As Single, Y As Single) If Source = BRAIZQ1 Then BRAIZQ.Picture = BRAIZQ1.Picture BRAIZQ1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES EL BRAZO IZQUIERDO" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub COLUMNA_DragDrop(Source As Control, X As Single, Y As Single) If Source = COLUMNA1 Then COLUMNA.Picture = COLUMNA1.Picture COLUMNA1.Visible = False COLUMNA.ZOrder 1 TORAX.ZOrder 0 Label2.Caption = "CORRECTO" Label3.Caption = "ES LA COLUMNA" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub COXIS_DragDrop(Source As Control, X As Single, Y As Single) If Source = COXIS1 Then COXIS.Picture = COXIS1.Picture COXIS1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES EL COXIS" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub CRANEO_DragDrop(Source As Control, X As Single, Y As Single) If Source = CRANEO1 Then CRANEO.Picture = CRANEO1.Picture CRANEO1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES EL CRANEO" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Source.Move (X - Source.Width / 2), (Y - Source.Height / 2) End Sub Private Sub PIEDER_DragDrop(Source As Control, X As Single, Y As Single) If Source = PIEDER1 Then PIEDER.Picture = PIEDER1.Picture PIEDER1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES LA PIERNA DERECHA" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub PIEIZQ_DragDrop(Source As Control, X As Single, Y As Single) If Source = PIEIZQ1 Then PIEIZQ.Picture = PIEIZQ1.Picture PIEIZQ1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES LA PIERNA IZQUIERDA" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub TORAX_DragDrop(Source As Control, X As Single, Y As Single) If Source = TORAX1 And COLUMNA1.Visible = False Then TORAX.Picture = TORAX1.Picture TORAX1.Visible = False Label2.Caption = "CORRECTO" Label3.Caption = "ES EL TORAX" Beep Else Label2.Caption = "INCORRECTO" Label3.Caption = " " End If Call FIN End Sub Private Sub FIN() If CRANEO1.Visible = False And COLUMNA1.Visible = False And TORAX1.Visible = False And COXIS1.Visible = False And BRAIZQ1.Visible = False And BRADER1.Visible = False And PIEIZQ1.Visible = False And PIEDER1.Visible = False Then Beep Label2 = "" Label3.Caption = "FELICIDADES GANASTE" End If End Sub