Nuestro Sitios:

CLICKK AQUI PARA ENTRAR A NUESTRA WEB!

CLICK PARA VISITAR NUESTRO FACEBOOK

CLICKK AQUI PARA MANDARNOS UN E-MAIL DE GMAIL 

CLICKK AQUI PARA MANDARNOS UN E-MAIL DE HOTMAIL

NUESTROS WALLPAPERS

Juego de Clik's Creado por nosotros en VISUAL BASIC 2010

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label3.Text = "9"

        Label5.Text = "99"

        Timer1.Start()

        Button2.Enabled = True

        Button1.Enabled = False

        Label2.Text = "100"

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Timer1.Interval = 1

        Label5.Text -= 1

        If Label5.Text = "0" Then

            Label5.Text = "99"

            Label3.Text -= 1

        End If

        If Label3.Text = "0" And Label5.Text = "1" Then

            Timer1.Stop()

            Label5.Text = "00"

            MsgBox("Has perdido con " + Label2.Text + " clicks restantes", MsgBoxStyle.Exclamation, "Has Perdido")

            Button2.Enabled = False

            Button1.Enabled = True

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Label2.Text -= 1

        If Label2.Text = "0" Then

            Timer1.Stop()

            MsgBox("Has ganado en " + Label3.Text + " segundos y " + Label5.Text + " centesimas", MsgBoxStyle.Information, "Has Ganado")

            Button2.Enabled = False

            Button1.Enabled = True

        End If

    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click

        MsgBox("Gracias por preferirnos")

        Me.Dispose()

    End Sub

   

    Private Sub AcercaDelJuegoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDelJuegoToolStripMenuItem.Click

        MsgBox("Calculadora creada por: Edward Matias Morales Viera" + vbCrLf & "Por más informacion: Sitio Web:www.servicerepair.uphero.com", vbInformation)

    End Sub

End Class

Calculadora creada por nosotros en VISUAL BASIC 2010

Public Class Calculadora

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multiplicar.Click


        If txtnumero1.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub
        End If

        If Txtnumero2.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub

        End If

        Dim numero1 As Double
        numero1 = Convert.ToDouble(txtnumero1.Text)
        Dim numero2 As Double
        numero2 = Convert.ToDouble(Txtnumero2.Text)
        Dim total As Double
        total = numero1 * numero2
        Txttotal.Text = total

    End Sub

    Private Sub sumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sumar.Click

        If txtnumero1.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub
        End If

        If Txtnumero2.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub

        End If

        Dim numero1 As Double
        numero1 = Convert.ToDouble(txtnumero1.Text)
        Dim numero2 As Double
        numero2 = Convert.ToDouble(Txtnumero2.Text)
        Dim total As Double
        total = numero1 + numero2
        Txttotal.Text = total
    End Sub

    Private Sub limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles limpiar.Click
        If txtnumero1.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub
        End If

        If Txtnumero2.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub

        End If
        txtnumero1.Text = vbNullString
        Txtnumero2.Text = vbNullString
        Txttotal.Text = vbNullString



    End Sub

    Private Sub restar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restar.Click

        If txtnumero1.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub
        End If

        If Txtnumero2.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub

        End If

        Dim numero1 As Double
        numero1 = Convert.ToDouble(txtnumero1.Text)
        Dim numero2 As Double
        numero2 = Convert.ToDouble(Txtnumero2.Text)
        Dim total As Double
        total = numero1 - numero2
        Txttotal.Text = total
    End Sub

    Private Sub dividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dividir.Click

        If txtnumero1.Text = vbNullString Then
            MsgBox("Debe ingresar valores  ", vbCritical)
            Exit Sub
        End If

        If Txtnumero2.Text = vbNullString Then
            MsgBox("Debe ingresar valores", vbCritical)
            Exit Sub

        End If

        Dim numero1 As Double
        numero1 = Convert.ToDouble(txtnumero1.Text)
        Dim numero2 As Double
        numero2 = Convert.ToDouble(Txtnumero2.Text)
        Dim total As Double
        total = numero1 / numero2
        Txttotal.Text = total
    End Sub

    Private Sub salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salir.Click
        MsgBox("Gracias por usar la calculadora")
        Me.Dispose()
    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        MsgBox("Gracias por usar la calculadora")
        Me.Dispose()
    End Sub

    Private Sub AcercaDeLaCalculadoraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeLaCalculadoraToolStripMenuItem.Click
        MsgBox("Calculadora creada por: Edward Matias Morales Viera" + vbCrLf & "Por más informacion: Sitio Web:www.servicerepair.uphero.com", vbInformation)
    End Sub


   
    Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click
        txtnumero1.Copy()
        Txtnumero2.Copy()
        Txttotal.Cut()
    End Sub

    Private Sub CortarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CortarToolStripMenuItem.Click
        txtnumero1.Cut()
        Txtnumero2.Cut()
        Txttotal.Cut()
    End Sub

    Private Sub PegarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PegarToolStripMenuItem.Click
        txtnumero1.Paste()
        Txtnumero2.Paste()
        Txttotal.Paste()
    End Sub

    Private Sub DesacherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesacherToolStripMenuItem.Click
        txtnumero1.Undo()
        Txtnumero2.Undo()
        Txttotal.Undo()
    End Sub


End Class

Contacto

Empresa

Nos dedicamos a dar un servicio de reparación de software y hardware de computadoras.

- Reparación
- Desinfección  de virus
-Mantenimiento
-Instalación de Sistemas Operativos
-Maquinas virtuales
-Instalación de software en general
-Recuperación de datos en disco duros y pendrive
-Foramateos
-Diseño de folletos y tarjetas
-Creación de sitios web

Y muchas cosa mas cunsulte...

Servicio de Reparacion PC (Mathias Morales)