Programacion

INSTITUTO POLITECNICO NACIONAL
ESCUELA SUPERIOR DE INGENIERIA Y ARQUITECTURA
UNIDAD ZACATENCO

PROGRAMACION

Profesora: Perales Palma Diana

INTRODUCCION

En este trabajo se encuentra la recopilación de las evidencias correspondientes al primer departamental en la materia de programación en la cual nos auxiliamos o mejor dicho trabajamos con el programa Visual Basic 6.0 Algunos de lostrabajos incluidos son las tareas y practicas elaboradas en clase.



INDICE
Introducción 2
Practicas
* Practica 3.1 5
* Practica 3.2 6
* Practica 3.3 7
* Practica 3.4 8
* Practica 3.5 9
* Practica 3.6 10
* Practica 3.7 11
* Practica 3.8 12
* Practica3.9 13
* Practica 3.10 14
* Practica 3.11 15
* Practica 3.12 16
* Practica 3.13 17
* Practica 3.14 18
* Practica 3.15 19
* Practica 3.16 20
* Practica 3.17 20

Hoja de firmas 21
Conclusión 22






PRACTICAS

Practica 3.1

Dim a(1 To 7) As String
Private Sub Command1_Click()
For i = 1 To 7 Step 1
Pic.Print a(i)
Next i
End SubPrivate Sub Form_Load()
a(1) = "Ana"
a(2) = "Abi"
a(3) = "Fco"
a(4) = "Juan"
a(5) = "Daniela"
a(6) = "Oscar"
a(7) = "Maria"
End Sub

Private Sub Command2_Click()
End
End Sub

Practica 3.2

Dim a(1 To 8) As Single

Private Sub Form_Load()
suma = 0
For i = 1 To 8 Step 1
a(i) = Val(InputBox("Ingresa Numero " & i))
Pic1.Print a(i)
suma = suma + a(i)
Next i

Pro = suma / 8Pic2.Print Pro
End Sub
Private Sub Command1_Click()
End
End Sub

Practica 3.3

Dim a(1 To 20) As Single
Dim b(1 To 20) As Single

Private Sub Command1_Click()

For i = 1 To 20 Step 1
Picture1.Print a(i)
Next i

For j = 1 To 20 Step 1
Picture2.Print b(j)
Next j

For k = 1 To 20 Step 1
r = a(k) * b(k)
Picture3.Print r
Next k

End Sub

Private Sub Form_Load()

a(1) = "1"a(2) = "2"
a(3) = "3"
a(4) = "4"
a(5) = "5"
a(6) = "6"
a(7) = "7"
a(8) = "8"
a(9) = "9"
a(10) = "10"
a(11) = "11"
a(12) = "12"
a(13) = "13"
a(14) = "14"
a(15) = "15"
a(16) = "16"
a(17) = "17"
a(18) = "18"
a(19) = "19"
a(20) = "20"

b(1) = "1"
b(2) = "2"
b(3) = "3"
b(4) = "4"
b(5) = "5"
b(6) = "6"
b(7) = "7"
b(8) = "8"
b(9) = "9"
b(10) = "10"
b(11) = "11"
b(12) ="12"
b(13) = "13"
b(14) = "14"
b(15) = "15"
b(16) = "16"
b(17) = "17"
b(18) = "18"
b(19) = "19"
b(20) = "20"
End Sub

Practica 3.4

Dim nom(1 To 10) As String
Dim nombuscar As String
Dim n As Integer

Private Sub Command1_Click()
nom(1) = "Daniela"
nom(2) = "Abi"
nom(3) = "Nitza"
nom(4) = "Julio"
nom(5) = "Cesar"
nom(6) = "Kevin"
nom(7) = "Carlos"
nom(8) = "Ana"
nom(9) ="Gustavo"
nom(10) = "Pedro"

nombuscar = UCase(Trim(txtNom.Text))
n = 0
'ciclo do.. loop...until
Do 'hacer
n = n + 1
'repite hasta conclusión
Loop Until (nom(n) = nombuscar) Or (n > 10)
PicRes.Cls
If nom(n) = nombuscar Then
PicRes.Print "ese nombre fue encontrado en la posicion"; n
Else
PicRes.Print "No fue encontrado"
End If
End Sub

Dim nom(1 To 10) As String
Private SubCommand1_Click()
Dim nombusca As String
Dim n As Integer

nombusca = UCase(Trim(Text1.Text))

For n = 1 To 10 Step 1
If nom(n) = nombusca Then
Picres.Print "Ese nombre fue encontrado en"; n
End If
Next
Picres.Print "No fue encontrado"

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Picres.Cls
End Sub

Private Sub Form_Load()nom(1) = "ALEJANDRA"
nom(2) = "ARTURO"
nom(3) = "CARMEN"
nom(4) = "CARLOS"
nom(5) = "DIANA"
nom(6) = "DIEGO"
nom(7) = "PAULINA"
nom(8) = "PEDRO"
nom(9) = "FERNANDA"
nom(10) = "FELIPE"

End Sub

Practica 3.5 – 3.6

Dim s(1 To 4, 1 To 3) As Integer
Private Sub Form_Load()
For i = 1 To 4
For j = 1 To 3
s(i, j) = InputBox("s(" & i & " , " & j & ")")
Next...