PRacticas De Programacion 1er Semestre

INSTITUTO POLITECNICO NACIONAL

ESCUELA SUPERIOR DE INGENIERIA Y ARQUITECTURA

UNIDAD ZACATENCO

PROGRAMACION

ING DIANA PERALES PALMA

CARPETA DE PRÁCTICAS Y TAREAS

POR:

IRVING ABDIEL AYALA RAMIREZ

2CM09

INDICE

Introducción -------------------- 3

Practica 1------------------------ 4

Practica 2------------------------ 5, a, 8

Practica 3----------------------- 9,10

Practica 4----------------------11,12

Practica 5-----------------------13 a 15

Practica 6 a 9--------------------16 a 25

Practica 10------------------------26

Practica 11---------------------27

Practica 12------------------------28,29

Practica 13--------------------------30

Practica 14-------------------------31,32

Practica 15--------------------------33

Practica 16---------------------------34

Practica 17--------------------------35,36

Practica 18 -----------------------------37

Practica 19-------------------------38,39

Practica 20 ------------------------40,41

Practica 21------------------------42

Tareas y Conclusión------------------------43…

INTRODUCCION

Los presentes trabajos los lleve a cabo a través de mi segundo parcial de programación el cual me proporciono muchos conocimientos tanto teóricos como prácticos.

En estos tiempos es muy importante saber usar una computadora excelentemente bien y eso conlleva a saber programar, la herramienta de hoy y del mañana es la computadora y tenemos que sacarle el mayor provecho posible para facilitarnos la vida.

PRACTICA 1

Formulario

Public Class Form1

Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click

Dim x, y As Integer

x = Val(Txt1.Text)

Select Case x

Case 5

y = 2 * x - 6

Case 6 To 9

y = 7

Case Else

y = 10 - x * x

End Select

Txt2.Text = y

End Sub

End Class

IMAGEN

PRACTICA 2

FORMULARIO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim km, Toneladas As Single

Dim x, y As String

Toneladas = Val(Txt3.Text)

x = Txt1.Text

km = Val(Txt2.Text)

Select Case x

Case "Bicicleta"

y = 25

Case "Moto"

y = 10 * km

Case "Coche"

y = 10 * km

Case "Camion"

y = 10 * km + 25 * Toneladas

Case Else

y = "entrada no valida"

End Select

Txt4.Text = y

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Form2.Show()

Me.Hide()

End Sub

End Class

FORMULARIO 2

Public Class Form2

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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Temperatura As Single

Dim Y As String

Temperatura

...