Ejercicios de programación .net (nivel inicial)
Se muestra el funcionamiento de los conceptos básicos para programar en .net Se muestra el funcionamiento de los conceptos básicos para programar en .net
Verificar Cédula - Ecuador Leonel Navarrete
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim prov As Integer Dim par1, par2, par3, par4, pars As Integer Dim im1, im2, im3, im4, im5, ims As Integer Dim ced, ced1, ced2, n10, nt As Integer 'Validación Ingreso nt = Len(TextBox1.Text) If nt > 10 Or nt < 10 Then MsgBox("CÉDULA INCORRECTA") TextBox1.Text = "" TextBox1.Focus() Else 'provincia prov = Mid(TextBox1.Text, 1, 2) 'número de validación n10 = Mid(TextBox1.Text, 10, 1) '------------------cédula---------------------- 'pares par1 = Mid(TextBox1.Text, 2, 1) par2 = Mid(TextBox1.Text, 4, 1) par3 = Mid(TextBox1.Text, 6, 1) par4 = Mid(TextBox1.Text, 8, 1) 'suma pars = Val(par1) + Val(par2) + Val(par3) + Val(par4) '****************************************** 'impares im1 = Mid(TextBox1.Text, 1, 1) * 2 If im1 > 9 Then im1 = im1 - 9 im2 = Mid(TextBox1.Text, 3, 1) * 2 If im2 > 9 Then im2 = im2 - 9 im3 = Mid(TextBox1.Text, 5, 1) * 2 If im3 > 9 Then im3 = im3 - 9 im4 = Mid(TextBox1.Text, 7, 1) * 2 If im4 > 9 Then im4 = im4 - 9 im5 = Mid(TextBox1.Text, 9, 1) * 2 If im5 > 9 Then im5 = im5 - 9 'suma ims = Val(im1) + Val(im2) + Val(im3) + Val(im4) + Val(im5) '******************************************* 'validacion último número ced = ims + pars ced1 = Mid(ced, 1, 1) + 1 ced2 = ced1 * 10 ced = ced2 - ced If ced = n10 Then MsgBox("Cédula Válida") '******************************************* Leonel Navarrete
- Page 9 and 10: Enlazar Formularios Programación F
- Page 11 and 12: Convertir Caracteres Programación
- Page 13 and 14: EDADES Leonel Navarrete
- Page 15 and 16: Select Case Con LABEL Leonel Navarr
- Page 17 and 18: Usuario y Contraseña Leonel Navarr
- Page 19 and 20: Juego de Cartas Leonel Navarrete
- Page 21 and 22: Funciones Y Procedimientos Leonel N
- Page 23 and 24: Funciones Y Procedimientos Leonel N
- Page 25 and 26: Propiedades de los objetos Public C
- Page 27 and 28: Propiedades de los objetos Public C
- Page 29 and 30: Propiedades de los objetos Public C
- Page 31 and 32: Propiedades de los objetos Public C
- Page 33 and 34: Propiedades de los objetos Public C
- Page 35 and 36: Utilizando un Módulo Public Class
- Page 37 and 38: Utilizando un Módulo Public Class
- Page 39 and 40: Utilizando un Módulo Public Class
- Page 41 and 42: Public Class Form1 Private Sub Butt
- Page 43 and 44: Public Class Form2 Private Sub sala
- Page 45 and 46: MouseMove Public Class Form4 Privat
- Page 47 and 48: Tiempo del día Public Class Form1
- Page 49 and 50: Bucle For Public Class Form1 Privat
- Page 51 and 52: Public Class Form1 Private Sub Butt
- Page 53 and 54: Public Class Form3 Private Sub Butt
- Page 55 and 56: Public Class Form5 Private Sub Butt
- Page 57 and 58: Public Class Form7 Dim mensual As D
- Page 59: Serie Fibonacci Public Class Form1
- Page 63 and 64: Número Primo Public Class Form1 Pr
- Page 65 and 66: Public Class Form1 Private Sub Chec
- Page 67 and 68: For each Public Class Form1 Private
- Page 69 and 70: Vectores sumar pares - impares Publ
- Page 71 and 72: Matrices Public Class Form1 Private
- Page 73 and 74: Aplicación Leonel Navarrete
- Page 75 and 76: Private Sub Button2_Click(ByVal sen
- Page 77 and 78: Private Sub Button4_Click(ByVal sen
- Page 79 and 80: Public Class Form1 Private Sub Butt
- Page 81 and 82: While - Do - Do While Public Class
- Page 83: Private Sub Button2_Click(ByVal sen
Public Class Form1<br />
Private Sub Button1_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Button1.Click<br />
Dim prov As Integer<br />
Dim par1, par2, par3, par4, pars As Integer<br />
Dim im1, im2, im3, im4, im5, ims As Integer<br />
Dim ced, ced1, ced2, n10, nt As Integer<br />
'Validación Ingreso<br />
nt = Len(TextBox1.Text)<br />
If nt > 10 Or nt < 10 Then<br />
MsgBox("CÉDULA INCORRECTA")<br />
TextBox1.Text = ""<br />
TextBox1.Focus()<br />
Else<br />
'provincia<br />
prov = Mid(TextBox1.Text, 1, 2)<br />
'número <strong>de</strong> validación<br />
n10 = Mid(TextBox1.Text, 10, 1)<br />
'------------------cédula----------------------<br />
'pares<br />
par1 = Mid(TextBox1.Text, 2, 1)<br />
par2 = Mid(TextBox1.Text, 4, 1)<br />
par3 = Mid(TextBox1.Text, 6, 1)<br />
par4 = Mid(TextBox1.Text, 8, 1)<br />
'suma<br />
pars = Val(par1) + Val(par2) + Val(par3) + Val(par4)<br />
'******************************************<br />
'impares<br />
im1 = Mid(TextBox1.Text, 1, 1) * 2<br />
If im1 > 9 Then im1 = im1 - 9<br />
im2 = Mid(TextBox1.Text, 3, 1) * 2<br />
If im2 > 9 Then im2 = im2 - 9<br />
im3 = Mid(TextBox1.Text, 5, 1) * 2<br />
If im3 > 9 Then im3 = im3 - 9<br />
im4 = Mid(TextBox1.Text, 7, 1) * 2<br />
If im4 > 9 Then im4 = im4 - 9<br />
im5 = Mid(TextBox1.Text, 9, 1) * 2<br />
If im5 > 9 Then im5 = im5 - 9<br />
'suma<br />
ims = Val(im1) + Val(im2) + Val(im3) + Val(im4) + Val(im5)<br />
'*******************************************<br />
'validacion último número<br />
ced = ims + pars<br />
ced1 = Mid(ced, 1, 1) + 1<br />
ced2 = ced1 * 10<br />
ced = ced2 - ced<br />
If ced = n10 Then<br />
MsgBox("Cédula Válida")<br />
'*******************************************<br />
Leonel Navarrete
Change language