1. CALCULADORA DE FRACCIONARIOS

En este programa lo que se hizo fue programar una calculadora que solucionara la suma, resta, multiplicación y división de fraccionarios. Y su resultado también lo da en fraccionarios pero no lo da simplificado. En el programa lo que se hace es declarar unas variables y se declara a un tipo de variable según el que necesitamos, en este programa se utilizo el tipo de variable (Integer) y después se programan los botones de suma, resta, multiplicación y división. Según el caso que sea.

A continuación se mostrara el código que se utilizó:

Public Class Form1

    Dim dato1, dato2, dato3, dato4 As Integer

    Dim divisor, dividendo As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        dato1 = 0

        dato2 = 0

        dato3 = 0

        dato4 = 0

        dividendo = 0

        divisor = 0

        TextBox1.Text = dato1

        TextBox2.Text = dato2

        TextBox3.Text = dato3

        TextBox4.Text = dato4

        TextBox5.Text = dividendo

        TextBox6.Text = divisor

    End Sub

    Private Sub multiplicacion_Click(sender As Object, e As EventArgs) Handles multiplicacion.Click

        dato1 = TextBox1.Text

        dato2 = TextBox2.Text

        dato3 = TextBox3.Text

        dato4 = TextBox4.Text

        dividendo = dato1 * dato3

        divisor = dato2 * dato4

        TextBox5.Text = dividendo

        TextBox6.Text = divisor

    End Sub

    Private Sub divicion_Click(sender As Object, e As EventArgs) Handles divicion.Click

        dato1 = TextBox1.Text

        dato2 = TextBox2.Text

        dato3 = TextBox3.Text

        dato4 = TextBox4.Text

        dividendo = dato1 * dato4

        divisor = dato2 * dato3

        TextBox5.Text = dividendo

        TextBox6.Text = divisor

    End Sub

    Private Sub suma_Click(sender As Object, e As EventArgs) Handles suma.Click

        dato1 = TextBox1.Text

        dato2 = TextBox2.Text

        dato3 = TextBox3.Text

        dato4 = TextBox4.Text

        dividendo = dato2 * dato4

        divisor = (dato1 * dato4) + (dato2 * dato3)

        TextBox6.Text = dividendo

        TextBox5.Text = divisor

    End Sub

    Private Sub resta_Click(sender As Object, e As EventArgs) Handles resta.Click

        dato1 = TextBox1.Text

        dato2 = TextBox2.Text

        dato3 = TextBox3.Text

        dato4 = TextBox4.Text

        dividendo = dato2 * dato4

        divisor = (dato1 * dato4) - (dato2 * dato3)

        TextBox6.Text = dividendo

        TextBox5.Text = divisor

    End Sub

End Class

La parte gráfica de este programa se ve así:

CALCULADORA DE FRACCIONARIOS

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:  

https://www.dropbox.com/s/mthwvapahv4tlpy/CALCULADORA%20DE%20FRACCIONARIOS.rar