-
Alfonso Martínez Pérez 

201744027

Ing. Civil 

2° semestre   ICV002

Prof. Nubia Saavedra Cruz 

Comentarios

Publicar un comentario

Entradas populares de este blog

Suma en Espiral de una Matriz

-
Imagen
Bienvenidos en esta ocasión desarrollaremos un código en el cual se haga la suma de los elementos de una matriz en espiral. En la parte del diseño vamos a utilizar únicamente un ListBox y un Boton a los cuales nombre de acuerdo a lo que se van a utilizar (Lstmatriz, Btnsuma).  Declaramos una variable global que se usa para todo el código, y en el LstMatriz declaramos las variables necesarias y desarrollamos. Public Class Espiral     Dim matriz(5, 5)     Private Sub Lstmatriz_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lstmatriz.SelectedIndexChanged, Lstmatriz.Click         Dim x, y, n As Integer         Dim cad As String         For x = 0 To 4             For y = 0 To 4                 n = InputBox("Proporcione los datos:" & CStr(x + 1) & "-" & CStr(...
Leer más

Gráficas

-
Imagen
Buen día tengan todos ustedes, en esta ocasión programaremos en excel la representación de determinadas formulas como los son:    x², x³, raíz cuadrada, 1/x, sin(x), cos(x).  Es importante que en excel activen la pestaña de desarrollador en la parte de configuración, ya teniendo este apartado tenemos en la parte de diseño varios elementos, ingresamos scroll bar y Boton para que este sea el que grafique y evalue    Set migrafica = ActiveWorkbook.Sheets("Hoja1").ChartObjects.Add(200, 45, 400, 400)     migrafica.Chart.ChartType = xlXYScatterSmooth     migrafica.Name = "f(x)"     migrafica.Chart.SeriesCollection.NewSeries.Select With Selection     .XValues = Range(Cells(fini, x), Cells(ffinal, x))     .Values = Range(Cells(fini, y), Cells(ffinal, y)) Private Sub CommandButton1_Click() Dim a, b, c, li, ls, i As Integer Dim res As Single a = Range("b1").Value b = Range("b2").Value c = Rang...
Leer más