Graficar Funcion Seno con Visual Basic 2022

De la caja de herramientas agregar un picturebox, un boton y un listbox.

Private Sub btnSeno_Click(sender As Object, e As EventArgs) Handles btnSeno.Click

    Dim brush As New SolidBrush(Color.Blue)

    Dim papel As Graphics = PictureBox1.CreateGraphics()

    Dim i, x, y As Single

    For i = 0 To 20 Step 0.05

        If (i + 200) > PictureBox1.Width Then

            Exit For

        End If

        y = Math.Sin(i)

        ListBox1.Items.Add(y)

        x = i * 30 + 50

        papel.FillEllipse(brush, x, (y * 150) + 200, 10, 10)

        Thread.Sleep(1000)

    Next

End Sub

download source code

Graficar 2 Funciones en una Figura con Matplotlib y Python

import matplotlib.pyplot as plt

import numpy as np

t = np.linspace(-2,2,1000)

y1 = t**3+2*t**2-1

y2 = t**3 + t**2 - t 

plt.axhline(0, color='black')

plt.axvline(0, color='black')

plt.xlabel('t')

plt.ylabel('y')

plt.plot(t,y1,'o:b',t,y2,'o:g')

plt.grid(True)

plt.show()

minuvasoft10@gmail.com

Agregar RadioButton y Obtener su Valor con Visual Basic 2022

 De la caja de herramientas agregar un groupbox

Agregar 4 radiobutton en groupbox

Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click

    Dim cad As String

    If RadioButton3.Checked = True Then

        cad = "Soltero"

    End If

    If RadioButton4.Checked = True Then

        cad = "Casado"

    End If

    If RadioButton5.Checked = True Then

        cad = "Divorciado"

    End If

    If RadioButton6.Checked = True Then

        cad = "Viudo"

    End If

    MessageBox.Show("Su estado civil es " + cad)

End Sub

minuvasoft10@gmail.com

Mostrar Ventana con un Boton y Pasar Datos entre Formularios con Visual Basic 2022

 

Form1.vb

Public Class Form1

        Private Sub btnOpen_Click(sender As Object, e As EventArgs) Handles btnOpen.Click

            Form2.Show()

        End Sub

End Class

-----------------------------------------------

Form2.vb

Public Class Form2

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

        Label2.Text = Form1.TextBox1.Text

End Sub

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

    Form1.Label1.Text = TextBox1.Text

End Sub

End Class

minuvasoft10@gmail.com - Se Realizan Programas con Visual Basic 2022 

Graficar Funcion Cubica con Matplotlib y Python

 

import matplotlib.pyplot as plt

import numpy as np

t = np.linspace(-2,2,1000)

y2 = 2*t**3 + 3*t**2 - t - 2

plt.axhline(0, color='black')

plt.axvline(0, color='black')

plt.xlabel('t')

plt.ylabel('y')

plt.plot(t,y2,'o:b')

plt.grid(True)

plt.show()

Graficar Parabola con Python y Matplotlib

 

import matplotlib.pyplot as plt

import numpy as np

v = 0

g = 9.81

t = np.linspace(-1,1,1000)

#y = v*t - 0.5*g*t**2

y2 = v*t + 0.5*g*t**2

plt.xlabel('t')

plt.ylabel('y')

#plt.plot(t,y,'o:b')

plt.plot(t,y2,'o:b')

plt.show()

minuvasoft10@gmail.com Se realizan programas en Java, Python, Mysql.