Module Modulo 'NOS PERMITE TRABAJAR CON FUNCIONES , SUBS , VARIABLES 'GLOBALES' Public sentencia As String = "tutoriales hispanos" Public Function sumar(a As Integer, b As Integer) Return a + b End Function End Module
'FUNCIONES STRING 'SUBSTRING ---> NOS PERMITE TRABAJAR CON CARACTER(ERES) DE UN TEXTO 'Dim oracion As String = "tutoriales hispanos donde aprendes viendo" 'MsgBox(oracion.Substring(0, 4)) Dim fecha As String = Date.Now '5/12/2012 Dim dias As String = fecha.Substring(0, 1) Dim meses As String = fecha.Substring(2, 2) Dim años As String = fecha.Substring(5, 4) MsgBox("La fecha es : " & fecha) MsgBox("El dia de hoy es : " & dias) MsgBox("El mes de hoy es : " & meses) MsgBox("El año de hoy es : " & años)
'FUNCIONES STRING (FUNCIONAS DE TEXTO) 'LENGTH ---> CALCULAR EL NUMERO DE CARACTERES 'Dim mistring As String = "Hola2Mundo" 'MsgBox(mistring.Length) 'TRIM ---> ELIMINAR ESPACIOS EN BLANCO DE LA DERECHA Y DE LA IZQUIERDA 'Dim mistring As String = " Hola Mundo " ''NO ELIMINA LOS ESPACIOS EN BLANCO 'MsgBox(mistring) ''SE ELIMINAN LOS ESPACIOS EN BLANCO 'MsgBox(Trim(mistring)) 'REPLACE--->REEMPLAZAR TEXTO Dim mistring As String = "Hola Mundo" MsgBox(mistring.Replace("Hola", "Hello").Replace("Mundo", "World"))
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 'INFORMACION COMPUTADORA O ORDENADOR : 'NOMBRE DE LA MAQUINA MsgBox(My.Computer.Name) 'NOMBRE COMPLETO DEL SISTEMA OPERATIVO MsgBox(My.Computer.Info.OSFullName) 'MEMORIA RAM MsgBox(My.Computer.Info.TotalPhysicalMemory) 'SABER SI ESTAMOS CONECTADOS A UNA RED LOCAL If My.Computer.Network.IsAvailable Then MsgBox("Si estas conectado en red", vbInformation, "Info") End If 'HORA ACTUAL y FECHA MsgBox(My.Computer.Clock.LocalTime) End Sub
En este tutorial veremos la diferencia que hay entre los subs y las funciones .
Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MsgBox(nombre()) End Sub Public Function nombre() Return "ULISES" ' MsgBox("ULISES") End Function Public Sub nombre2() MsgBox("JUAN") End Sub End Class
En este tutorial aprenderemos a usar las funciones en visual basic cometi un pequeño error (a veces pasa -_-) al decir que se usan en todos los lenguajes de programacion no es cierto no se suelen usar en lenguajes de programacion sencillos como : css , html ,entre otros .Quise volver a hacer el video pero me dio flojera .Video Tutorial
Codigo Fuente
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 'FUNCIONES ---> NO REPETIR LINEAS DE CODIGO 'FUNCIONES RETORNAN VALORES : VERDAD , FALSEDAD (BOOLEANOS), TEXTO , NUMERICOS ,ETC MsgBox(nombre("HIJO")) End Sub Private Function nombre(parentesco As String) Select Case parentesco Case "MADRE" Return "MARIA" Case "PADRE" Return "ULISES" Case "HIJO" Return "JOSE" End Select End Function End Class
En este video tutorial aprenderemos a ver los archivos en pdf desde visual basic .
Codigo Fuente
openfiledialog1.showdialog() verpdf.loadfile(openfiledialog1.filename)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'TRABAJANDO CON LA VARIABLE DATE (FECHA) Dim fecha1 As Date = CType(TextBox1.Text, Date) Dim fecha2 As Date = CType(TextBox2.Text, Date) Dim diferenciatiempo As TimeSpan diferenciatiempo = fecha2.Subtract(fecha1) MsgBox(diferenciatiempo.TotalMinutes) End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'CTYPE
Dim valor1 As String = TextBox1.Text
Dim valor2 As String = TextBox2.Text
'TRUE --> -1
'FALSE --> 0
MsgBox(CType(valor1, Boolean) + CType(valor2, Boolean))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'DIAS : MonthCalendar1.SelectionStart.Day
'MESES : MonthCalendar1.SelectionStart.month
'AÑOS : MonthCalendar1.SelectionStart.Year
'12/02/2012
TextBox1.Text = MonthCalendar1.SelectionStart.Day & "/" & MonthCalendar1.SelectionStart.Month & "/" & MonthCalendar1.SelectionStart.Year
End Sub
Private Sub btncomenzar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncomenzar.Click
Timer1.Interval = Val(txtfreq.Text) * 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(txttexto.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub btndetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndetener.Click
'detenemos el programa
Timer1.Stop()
End Sub
My.Settings.usuario = txtusuario.Text
My.Settings.contrasena = txtcontrasena.Text
My.Settings.Save()
'SI TIENES UN VALOR
If My.Settings.usuario <> "" Then
txtusuario.Text = My.Settings.usuario
Else
txtusuario.Text = ""
End If
If My.Settings.contrasena <> "" Then
txtcontrasena.Text = My.Settings.contrasena
Else
txtcontrasena.Text = ""
End If
Private Sub btncomenzar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncomenzar.Click
Timer1.Interval = Val(txtfreq.Text) * 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(txttexto.Text)
SendKeys.Send("{Enter}")
End Sub
Private Sub btndetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndetener.Click
'detenemos el programa
Timer1.Stop()
End Sub
'CATEGORIA -----> NOMBRES DE PAISES
Dim paises() As String
ReDim paises(4)
paises(0) = "Mexico"
paises(1) = "Colombia"
paises(2) = "Peru"
paises(3) = "Espana"
paises(4) = "EEUU"
' paises(5) = "Argentina"
MsgBox(paises(3))
Boton array numeros
'CATEGORIA ----> NUMEROS
Dim numeros() As Integer
ReDim numeros(4)
numeros(0) = 100
numeros(1) = 110
numeros(2) = 120
numeros(3) = 130
numeros(4) = 140
MsgBox(numeros(4))
En este video tutorial aprenderemos a crear mensajes personalizados le daremos un uso con consicionales generalmente se usa cuando quieres cerrar un programa y quieres preguntarle al usuario si desea cerrar el programa .
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MessageBox.Show("Esta seguro de cerrar el programa ? ", "Info", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = vbYes Then
Else
'Si el usuario selecciona la opcion NO
e.Cancel = True
MsgBox("Te quedaste en el formulario !")
End If
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://accounts.google.com/ServiceLogin")
End Sub
Private Sub btnsesion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsesion.Click
'INTERNET EXLORER (NAVEGADOR) -TRABAJAMOS CON EL DOCUMENTO (CODIGO DE LA PAGINA )- OBTNEMOS EL ID
'COLOCAMOS LOS ATRIBUTOS .
WebBrowser1.Document.GetElementById("Email").SetAttribute("value", txtuser.Text)
WebBrowser1.Document.GetElementById("Passwd").SetAttribute("value", txtpass.Text)
WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")
End Sub
Public NotInheritable Class AboutBox1
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set the title of the form.
Dim ApplicationTitle As String
If My.Application.Info.Title <> "" Then
ApplicationTitle = My.Application.Info.Title
Else
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Me.Text = String.Format("About {0}", ApplicationTitle)
' Initialize all of the text displayed on the About Box.
' TODO: Customize the application's assembly information in the "Application" pane of the project
' properties dialog (under the "Project" menu).
Me.LabelProductName.Text = My.Application.Info.ProductName
Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
Me.LabelCopyright.Text = My.Application.Info.Copyright
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
Me.TextBoxDescription.Text = My.Application.Info.Description
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
Me.Close()
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play(My.Resources.notify, AudioPlayMode.Background)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.URL = "C:\Users\ulises\Documents\Camtasia Studio\Curso23\Curso23.mp4"
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
Form1.MdiParent = Me
Form1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'ocultar
NotifyIcon1.ShowBalloonTip(5000, "Informacion", "El formulario se ha ocultado", ToolTipIcon.Info)
Me.Hide()
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
'QUEREMOS QUE SE MUESTRE EL FORMULARIO
NotifyIcon1.ShowBalloonTip(5000, "Informacion", "El formulario se ha mostrado", ToolTipIcon.Info)
Me.Show()
End Sub
Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
NotifyIcon1.ShowBalloonTip(5000, "Informacion", "El formulario se ha mostrado", ToolTipIcon.Info)
Me.Show()
End Sub
Private Sub CerrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
Me.Close()
End Sub