Entradas

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(...

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...

Organizador de Transporte

Imagen
El día de hoy desarrollaremos una herramienta que te ayude a organizar mejor espacios a la hora de realizar un viaje con un determinado numero de personas.  lo primero es hacer el diseño a nuestro gusto, con textbox, labels, etc. Empezando hacer nuestro código declaramos las variables. Nuestro código va a quedar de la sig. manera: Public Class Transporte     Dim personas, transporte, avacio1, avacio2, avacio3, avacio4, psin1, psin2, psin3, psin4, recomendado, trans1, trans2, trans3, trans4, r1, r2, r3, r4, bus, vagoneta, van, vintegral, o1, o2, o3, o4 As Integer     Private Sub TxtNumPer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNumPer.TextChanged         TxtNumPer.Text = TxtNumPer.Text     End Sub     Private Sub Btncalcu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcu.Click       ...

Calculadora en Visual Basic

Imagen
En este espacio desarrollaremos una calculadora básica aplicando lo aprendido en el curso informática y programación.   -Lo primero es abrir el programa y elegir el tipo de proyecto a desarrollar. -Estando en el espacio de trabajo en la barra lateral izquierda llamado cuadro de herramientas seleccionas los elementos que va a llevar tu proyecto, por ejemplo, Button, NumericUpDown, Textbox, entre otros, una vez elegidos le damos el diseño que nosotros queramos.   -Una vez que acomodemos los elementos de la calculadora, le damos nombre y cambiamos las propiedades de los mismos, en la parte inferior derecha en el segmento llamado propiedades, ahi podemos cambiar nombre, contenido del elemento, en el caso de los NumericUpDown, podemos cambiar los parámetros numéricos, tamaño de fuente.   -Ya teniendo el diseño terminado, a un costado de la pestaña de diseño esta la pestaña de código, le damos doble-clic al botón de más, y nos lleva ...
Alfonso Martínez Pérez  201744027 Ing. Civil  2° semestre   ICV002 Prof. Nubia Saavedra Cruz