Visual ejemplos

Solo disponible en BuenasTareas
  • Páginas : 2 (375 palabras )
  • Descarga(s) : 0
  • Publicado : 12 de noviembre de 2010
Leer documento completo
Vista previa del texto
Imports Microsoft.VisualBasic
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p As StringDim m As String
Dim n As String
Dim hor As Byte
Dim min, seg As Byte
Dim cod As String
'Verificamos el llenado de datos
If txtPat.TextLength = 0Then
MessageBox.Show("Ingrese Ap. Paterno", "DATOS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtPat.Focus()
Exit Sub
End If
IftxtMat.TextLength = 0 Then 'no tiene texto e ingresa datos
MessageBox.Show("Ingrese Ap. Materno", "DATOS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtMat.Focus()Exit Sub
End If
If txtNom.TextLength = 0 Then
MessageBox.Show("Ingrese Nombre", "DATOS", MessageBoxButtons.OK, MessageBoxIcon.Information)txtNom.Focus()
Exit Sub
End If

'en las variables P,M y N se obtiene las iniciales de pat,mat,nom
'trim=elimina espacios en blanco
'left: Obtiene caracteresempezando de la izquierda
'Ucase convierte en mayúscula las letras (Lcase par minusculas)
p = UCase(Microsoft.VisualBasic.Left((Trim(txtPat.Text)), 1))
m =UCase(Microsoft.VisualBasic.Left((Microsoft.VisualBasic.Trim(txtMat.Text)), 1))
n = UCase(Microsoft.VisualBasic.Left((Microsoft.VisualBasic.Trim(txtNom.Text)), 1))
' obtenemos la hora, min, y seghor = Hour(TimeString)
min = Minute(TimeString)
seg = Second(TimeString)
cod = p & m & n & hor & min & seg
MessageBox.Show("Su codigo es: " & cod.ToString)End Sub
End Class

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Single
Dim B As...
tracking img