Febrero 21, 2018, 07:00:44 am

Autor Tema: [VB]Aplicaciones de Reproductor,Editor de texto,Auto-Flood y 3 Mas  (Leído 2460 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado kidokk

  • Me das tu IP?
  • *
  • Mensajes: 4
  • Sexo: Masculino
  • Yo amo Photoshop
    • Ver Perfil
Hola amigos hoy en este primer Tema que ago les traigo las siguientes aplicaciones:

1-Reproductor de Musica y Video
2-Bloc de Notas o editos de texto
3-Auto-Flood(AVISO:Puede tildar tu PC)
4-Contadores de Puntos
5-Ocultador de Carpetas
6-App para sacar Pantallasos

Antes que nada quiero aclarar que es mi primer programa,no esta completo al %100 estoy pensando en agregarle mas aplicaciones y tambien disculpen si el codigo tiene errores ami me va bien pero diganme si hay alguno para revisarlo y arreglarlo

Empesemos:

Reproductor de Musica y Videos:

    1.1-Primero dan click derecho en algun menu de las Herramientas y dan click en "Chose Items"
    1.2-en la ventana que les deve da abrir se van a la pestaña COM
    1.3-bajan asta encontrar Reproductor Windows Media o algo haci,tildan esa opcion y dan a aceptar
    1.4-Agregan el componente que acavas de habilitar a tu Formulario y te vas a Propiedades->Anchor=Top, Bottom, Left, Right
    1.5-Agregan un MenuStrip y un OpenFileDialog , en el menu Strip agregas una opcion que diga abrir
    1.6-Doble Click en el formulario y agregas este codigo:
     
Código: You are not allowed to view links. Register or Login
Public Class Reproductor

    Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
        OpenFileDialog1.ShowDialog()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
    End Sub

    Private Sub Reproductor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


Bloc de Notas o Editor de Texto
   
    2.1-Agregamos al Form un TextBox y le hacemos click en la flachita arriva de el y tildamos la Opcion "Multi-Line" y al TextBox lo Llamamos document
    2.2-Agregamos un MenuStrip con las secciones
Archivo->Abrir,Guardar y Salir
Edicion->Copiar,Cortar,Pegar,Seleccionar todo y Limpiar Hoja
Formato->Fuente y Color
Personalizar->Fondo->Negro,Blanco,Gris,Verde Fuerte,Verde Suave,Rojo y Azul
    2.3-Doble Click al Formulario y Colocamos el Codigo:
Código: You are not allowed to view links. Register or Login
Public Class BlocNotas

    Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click

        Dim Open As New OpenFileDialog()
        Dim myStreamReader As System.IO.StreamReader
        Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"
        Open.CheckFileExists = True
        Open.Title = "Abrir Archivo"
        Open.ShowDialog(Me)
        Try
            Open.OpenFile()
            myStreamReader = System.IO.File.OpenText(Open.FileName)
            document.Text = myStreamReader.ReadToEnd()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
        Dim Save As New SaveFileDialog()
        Dim myStreamWriter As System.IO.StreamWriter
        Save.Filter = "Text (*.txt)|*.txt|HTML(*.html*)|*.html|PHP(*.php*)|*.php*|All files(*.*)|*.*"
        Save.CheckPathExists = True
        Save.Title = "Guardar como"
        Save.ShowDialog(Me)
        Try
            myStreamWriter = System.IO.File.AppendText(Save.FileName)
            myStreamWriter.Write(document.Text)
            myStreamWriter.Flush()
        Catch ex As Exception

        End Try

    End Sub

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

    Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click

        document.Copy()
    End Sub

    Private Sub CortarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CortarToolStripMenuItem.Click
        document.Cut()

    End Sub

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

    Private Sub SeleccionarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeleccionarTodoToolStripMenuItem.Click
        document.SelectAll()
    End Sub

    Private Sub LimpiarHojaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarHojaToolStripMenuItem.Click
        document.Clear()
    End Sub

    Private Sub FuenteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FuenteToolStripMenuItem.Click
        Try
            Dim dlg As FontDialog = New FontDialog
            dlg.Font = document.Font
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                document.Font = dlg.Font
            End If
        Catch ex As Exception : End Try

    End Sub

    Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click

        Try
            Dim dlg As ColorDialog = New ColorDialog
            dlg.Color = document.ForeColor
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                document.ForeColor = dlg.Color
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub NegroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegroToolStripMenuItem.Click
        document.BackColor = Color.Black
    End Sub

    Private Sub BlancoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlancoToolStripMenuItem.Click
        document.BackColor = Color.White
    End Sub

    Private Sub GrisToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrisToolStripMenuItem.Click
        document.BackColor = Color.Gray
    End Sub

    Private Sub VerdeFuerteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerdeFuerteToolStripMenuItem.Click
        document.BackColor = Color.Green
    End Sub

    Private Sub VerdeSuaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerdeSuaveToolStripMenuItem.Click
        document.BackColor = Color.LightGreen
    End Sub

    Private Sub Ro!#%&$UD%$#olStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ro!#%&$UD%$#olStripMenuItem.Click
        document.BackColor = Color.Red
    End Sub

    Private Sub AzulToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BlocNotas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Auto-Flood
    3.1-Agregamos un 1 TextBox y 2 Botones(1 Iniciar y el otro Parar)
    3.2-Doble Click al Formulario y Colocamos este codigo:
Código: You are not allowed to view links. Register or Login
Public Class Flood

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")
    End Sub
End Class

Contadores de Puntos

4.1-Agregamos lo que muestra la Siguiente Imagen:
           
           ATENCION:El comboBox deve tener los Items: 1 Contador , 2 Contadores , 3 Contadores y 4 Contadores y los deven estar en Orden el ultimo Boton es el de actualizar los demas en Orden y Tambien los TextBox deven de estar en su propiadad Enabled=False
4.2 Doble Click a el formulario y colocamos el siguiente codigo
Código: You are not allowed to view links. Register or Login
Public Class Contadores

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If ComboBox1.Text = "1 Contador" Then
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False

        End If
        If ComboBox1.Text = "2 Contadores" Then
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False

        End If
        If ComboBox1.Text = "3 Contadores" Then
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True
            Button7.Enabled = False
            Button8.Enabled = False

        End If
        If ComboBox1.Text = "4 Contadores" Then
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True
            Button7.Enabled = True
            Button8.Enabled = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text - 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text + 1
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox2.Text = TextBox2.Text - 1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox2.Text = TextBox2.Text + 1
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox3.Text = TextBox3.Text - 1
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = TextBox3.Text + 1
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox4.Text = TextBox4.Text - 1
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox4.Text = TextBox4.Text + 1
    End Sub

    Private Sub Contadores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Ocultador de Carpetas [Retirado por el Autor por Diversos Errores]


Pronto lo subire bien echo
Sacar Pantallasos [Retirado por el Autor por Diversos Errores]

Pronto lo Subire Bien echo

Espero que les aya gustado y servido
« Última modificación: Octubre 21, 2011, 02:05:32 pm por kidokk »

Desconectado .:.IlcOn14.:.

  • Yo vivo en CPH
  • ***
  • Mensajes: 1146
  • Sexo: Masculino
  • Simplemente Pro
    • Ver Perfil
Re:[VB]Aplicaciones de Reproductor,Editor de texto,Auto-Flood y 3 Mas
« Respuesta #1 en: Octubre 22, 2011, 04:42:40 am »
Buen aporte, cuando subas los otros dos codigos no olvides editar el post en vez de crear una nueva respuesta.

Saludos!
Fuck Youuuuuuuuu (8)(8)


exclamation
Editor de Texto V2.0

Iniciado por JaAViEr

14 Respuestas
2066 Vistas
Último mensaje Abril 06, 2010, 11:36:30 am
por JaAViEr
xx
IDE o editor de texto??

Iniciado por Jeshuakrc

2 Respuestas
2161 Vistas
Último mensaje Noviembre 15, 2015, 05:25:28 pm
por seth
xx
Editor de texto [Ayuda]

Iniciado por HNAFE

5 Respuestas
1549 Vistas
Último mensaje Agosto 27, 2007, 09:19:48 pm
por ActiveSheet
exclamation
UltraEdit v15.20.0(editor de texto)

Iniciado por Xskin77X

2 Respuestas
1769 Vistas
Último mensaje Enero 08, 2010, 08:37:01 pm
por Xskin77X
exclamation
Pequeño editor de texto

Iniciado por Mr. X

6 Respuestas
1345 Vistas
Último mensaje Marzo 12, 2010, 03:06:52 pm
por Mr. X
xx
[VB] Editor de texto Simple

Iniciado por Jumarras

0 Respuestas
2983 Vistas
Último mensaje ſeptiembre 04, 2008, 06:40:50 am
por Jumarras
wink
editor de texto en linux

Iniciado por the_penguin

0 Respuestas
1264 Vistas
Último mensaje Julio 14, 2006, 05:38:25 pm
por the_penguin
xx
editor de texto compartido

Iniciado por antoni_anemi

3 Respuestas
1618 Vistas
Último mensaje Noviembre 05, 2011, 03:39:24 pm
por kicasta
xx
Atom, el editor de texto

Iniciado por seth

0 Respuestas
681 Vistas
Último mensaje ſeptiembre 12, 2014, 03:12:06 am
por seth
xx
Editor de Texto ( Se aprecian mejoras)

Iniciado por [W]inmaster

3 Respuestas
1961 Vistas
Último mensaje Abril 06, 2007, 05:36:52 am
por kokehack