Estación de Mensajes
If Alertando = 55 Then
EstacionDeMensajes.ForeColor = Color.White
EstacionDeMensajes.Text = " ALERTA, ALERTA, ALERTAAAA"
EndIf
Ayuda de Voz
Public Class SuperHeroe
'declaracion del audio ayuda
Dim audioAyuda = CreateObject("sapi.spvoice")
'boleano para silenciar la autoayuda
Private activo As Boolean
'audio ayuda, al pasar por encima leera lo que esta escrito o para que sirve
Private Sub btnCrearAlerta_MouseEnter(sender As Object, e As EventArgs) Handles btnCrearAlerta.MouseEnter
audioAyuda.speak("Este botón te ayuda a dar de alta a un enemigo y seguirlo por la ciudad")
End Sub
'silencia la ayuda
Private Sub btnMute_Click(sender As Object, e As EventArgs) Handles btnMute.Click
Try
If activo = False Then
activo = True
audioAyuda.volume = 0
btnMute.Text = "Silenciado"
audioAyuda.rate = 0
ElseIf activo = True Then
activo = False
audioAyuda.volume = 50
btnMute.Text = "Silenciar"
audioAyuda.rate = 10
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Idioma + variables publicas
Fichero SuperHeroes
'variables publicas
Public idioma As String
Private Sub leerFichero()
If idioma = "Español" Then
Dim fichero As String = My.Computer.FileSystem.ReadAllText("esPrincipal.txt")
Dim cadena As String() = fichero.Split(":")
Me.Text = cadena.GetValue(0)
ElseIf idioma = "Ingles" Then
Dim fichero As String = My.Computer.FileSystem.ReadAllText("inPrincipal.txt")
Dim cadena As String() = fichero.Split(":")
Me.Text = cadena.GetValue(0)
End If
End Sub
Private Sub BtnEspañol_Click(sender As Object, e As EventArgs) Handles BtnEspañol.Click
idioma = "Español"
'envio el valor de Bloquear
Bloquear.idiomita = idioma
leerFichero()
End Sub
Private Sub btnIngles_Click(sender As Object, e As EventArgs) Handles btnIngles.Click
idioma = "Ingles"
'envio el valor de Bloquear
Bloquear.idiomita = idioma
leerFichero()
End Sub
Fichero Bloquear
'variable publica
Public idiomita As String
Private Sub Bloquear_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Recojo el Idioma Seleccionado
Super = SuperHeroe.idioma
leerFichero()
End Sub
Private Sub leerFichero()
If idiomita = "Español" Then
Dim fichero As String = My.Computer.FileSystem.ReadAllText("esPrincipal.txt")
Dim cadena As String() = fichero.Split(":")
Me.Text = cadena.GetValue(0)
ElseIf idiomita = "Ingles" Then
Dim fichero As String = My.Computer.FileSystem.ReadAllText("inPrincipal.txt")
Dim cadena As String() = fichero.Split(":")
Me.Text = cadena.GetValue(0)
End If
End Sub
Subir imagen
Private Sub btnImage_Click(sender As Object, e As EventArgs) Handles btnImage.Click
Dim file As New OpenFileDialog()
file.Filter = "Archivo JPG|*.jpg"
If file.ShowDialog() = DialogResult.OK Then
pictureBox1.Image = Image.FromFile(file.FileName)
End If
End Sub
Para que la imagen ocupe el espacio asignado
Lista de imágenes
Private Sub SuperHeroe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Recojo el Heroe que ha entrado
Super = Guarida.Heroe
'imagen del logo segun Heroe y otros estilos
If Super = "BATMAN" Then
BackColor = Color.Black
Logo.Image = ImageList1.Images(0)
Logo.Height = 182
Logo.Width = 85
btncalor.BackColor = Color.Yellow
btncalor.ForeColor = Color.Black
ElseIf Super = "SUPERWOMAN" Then
BackColor = Color.Blue
Logo.Image = ImageList1.Images(2)
Logo.Height = 200
Logo.Width = 134
btncalor.BackColor = Color.Yellow
btncalor.ForeColor = Color.Blue
ElseIf Super = "HULK" Then
BackColor = Color.White
Logo.Image = ImageList1.Images(1)
Logo.Height = 200
Logo.Width = 78
btncalor.BackColor = Color.Green
btncalor.ForeColor = Color.Black
End If
End Sub
Números aleatorios, Timer, y mover un objeto por la pantalla
Private Sub SuperHeroe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'inicio el tiempo
Timer.Start()
'inicializo las coordenadas
x = 340
y = 360
End Sub
'función tiempo
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
'Recojo el Malo registrado
Malo = Alerta.Malvado
'Color del Malo
If Malo = "rojo" Then
btnMalvado.Visible = True
btnMalvado.BackColor = Color.Red
ElseIf Malo = "Purpura" Then
btnMalvado.Visible = True
btnMalvado.BackColor = Color.Purple
End If
'movimiento del malvado sobre el mapa
x = x - 1
y = y - 1
' para que no se salga del mapa
If x = 110 Then
x = 340
End If
If y = 130 Then
y = 360
End If
btnMalvado.Location = New Point(x, y)
'5% de posibilidades de alerta
Randomize()
Alertando = Math.Truncate(Rnd() * 100 + 1)
If Alertando <= 5 Then
Timer.Stop()
EstacionDeMensajes.Text = " ALERTA, ALERTA, ALERTAAAA"
Dim audio = CreateObject("sapi.spvoice")
audio.speak(" ALERTA, ALERTA, ALERTAAAA")
btnSuper.Visible = True
End Sub
'botón acción -->Fin de la Alerta
Private Sub btnSuper_Click(sender As Object, e As EventArgs) Handles btnSuper.Click
EstacionDeMensajes.Text = " liberando el traje del pedestal"
btnSuper.Visible = False
Timer.Start()
End Sub
Quitar bordes de un botón
