Posteado por: irodriguezm | febrero 17, 2012

Marcador deportivo en visual basic.net (Básico)

Hola amigos, se acerca el juegos de las estrella de la NBA asi que vamos a hacer paso a paso un proyecto de marcado virtual, las carecteristicas que debe tener son las siguientes:

  • Pantalla completa y que se maneje a través de teclas sin ocupar teclado
  • Debe tener un cronometro el cual al llegar a cero debe avisar mediante un sonido

vamos con los pasos,
1.- primero creamos un nuevo proyecto en visual basic (windows form) en mi caso se llama basquetNet
2.- Agregamos un nuevo Form el cual se llamara FormMarcador, en dicho formulario inresaremos los siguientes controles:
textbox (Nombre: TxtAccion) Registrara las teclas pulsadas le damos en el orden 1
textbox (Nombre: PuntoLocal) registrara los puntos del equipo local, readonly = true
textbox (Nombre: PuntoVisita) registrara los puntos del equipo visita, readonly = true
textbox (Nombre: TxtTiempo) registrara el tiempo, readonly = true
Timer(Nombre: TimerTick) servira para el tiempo
AxWindowsMediaPlayer1(Nombre: AxWindowsMediaPlayer1) nos servira para reproducir un sonido cuando termina el tiempo
cambiamos las propiedades de nuestro form a WindowState a Maximized para que se vea en toda la pantalla y le damos un color negro al fondo y algún tamaño y color llamativo a los textbox que ingresamos anteriormente.

eso serian los controles básicos, luego le vamos a ingresar un poco más de funcionalidad de nuestro marcador

el codigo seria el sgte:

Public Class FormMarcador
    Private hora As Integer = 0
    Private minuto As Integer = 0
    Private segundo As Integer = 0
    Private milisegundo As Integer = 0
    Private _ticks As Int64
    Private _tmr As Timer
    Private bandera_tiempo As Integer
    Private Sub FormMarcador_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Periodo.Text = 0
        Me.FaltasLocal.Text = 0
        Me.PuntoVisita.Text = 0
        Me.PuntoLocal.Text = 0
        AxWindowsMediaPlayer1.Visible = False
        bandera_tiempo = 1
        _tmr = New Timer
        AddHandler _tmr.Tick, AddressOf TimerTick
        _tmr.Interval = 1000
        TxtTiempo.Text = "00:10:00"
    End Sub
    Private Sub TimerTick(ByVal sender As Object, ByVal e As EventArgs)
        _ticks -= 10000000
        Dim time1 As DateTime = New DateTime(_ticks)
        If _ticks = 0 Then
            _tmr.Stop()
            AxWindowsMediaPlayer1.URL = (My.Application.Info.DirectoryPath + "\efectoalarrma.mp3")
        End If
        TxtTiempo.Text = time1.ToString("T")
    End Sub
' si persionamos una tecla 
    Private Sub TxtAccion_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtAccion.KeyDown
       
        If e.KeyData = Keys.L Then 'tecla L agrega punto a local
            Me.PuntoLocal.Text = Val(Me.PuntoLocal.Text) + 1
        ElseIf e.KeyData = Keys.F1 Then ' tecla F1 nos muestra un form de ayuda con las teclas y sus funciones
            FormAyuda.ShowDialog()
       ElseIf e.KeyData = Keys.V Then 'tecla V agrega punto a visita
            Me.PuntoVisita.Text = Val(Me.PuntoVisita.Text) + 1

         ElseIf e.KeyData = Keys.Space Then ' definimos la tecla espacio para que suene la chcicharra
            AxWindowsMediaPlayer1.URL = (My.Application.Info.DirectoryPath + "\efectoalarrma.mp3")
        ElseIf e.KeyData = Keys.Enter And bandera_tiempo = 1 Then
            _ticks = 1 * 600 * 10000000L

            _tmr.Start()
             bandera_tiempo = 2
'la tecla enter sera la encargada del tiempo tendra dos opciones (iniciar y pausar)
        ElseIf e.KeyData = Keys.Enter And bandera_tiempo = 2 Then
            _tmr.Stop()
            bandera_tiempo = 3

        ElseIf e.KeyData = Keys.Enter And bandera_tiempo = 3 Then
            _tmr.Start()
             bandera_tiempo = 2

        ElseIf e.KeyData = Keys.Control + Keys.X Then ' Tecla control + x cierra aplicacion
            Dim res As String
            res = MessageBox.Show("Esta seguro que desea cerra aplicación", "Cerrar aplicación", MessageBoxButtons.YesNo)
            If res = Windows.Forms.DialogResult.Yes Then
                Me.Close()
            End If
        End If
    End Sub

End Class

Nota: el archivode audio debe estar en el directorio de la aplicación, el componente AxWindowsMediaPlayer1 se debe agregar como un nuevo control, falta el formulario FormAyuda que basicamente muestra las funciones de las teclas, atento a cualquier comentario

Saludos


Responses

  1. no sirve

  2. tienes el ejecutable te lo agradeseria mucho lo quiero para un trabajo escolar porfa te dejo mi correo andross5mey@gmail.com

  3. hola disculpa de hecho primero encontre tu linck y despues este video jejeje cosa rara jejeje pero igual lo desarrolle pero me marca erores no se si puedas ayudarme con esto jejeje ya que muchas variables ni siquiera estan yo las tube que agregar pero aun asi me muestran errores jejeje lo lamento pero podrias ayudarme a terminarlo jejeje

  4. ¿Podrias compartir el proyecto completo en ZIP o RAR? Gracias.


Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Categorías

A %d blogueros les gusta esto: