Aplicación de Biorritmo echo en Visual Basic 2012 :3
Programa:
Visual
Basic 2012
Formulario:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Aquí programamos dentro del botón calcular
'calculo
para los dias trancurridos de las dos personas '
'uso de datediff para obtener el día , calculo de fecha a fecha limite con el datetimepicker
Dim diasp1, diasp2 As Integer
'persona 1'
diasp1 = DateDiff(DateInterval.Day, DateTimePicker2.Value,
DateTimePicker1.Value)
TextBox1.Text
= diasp1
'persona 2'
diasp2 = DateDiff(DateInterval.Day, DateTimePicker3.Value,
DateTimePicker1.Value)
TextBox2.Text
= diasp2
'division de los dias vividos con la constante 23
'asignando variables para divison de dias vividos y
el costante 23
Dim dpersona1,
dpersona2 As Double
dpersona1 =
diasp1 / 23
dpersona2 =
diasp2 / 23
'asignando variables para sacar el entero del
decimal que viene a ser el ressultado de la divisió
Dim decimalp1,
decimalp2 As Double
' le damos una condición si la división es exacta el
decimal sera 0
'si no es exacta se obtendra el entero y se le
restara para que solo quede el decimal
'persona 1
If dpersona1 Mod 23 = 0 Then
decimalp1 = 0
Else
decimalp1 = dpersona1 - Int(dpersona1)
End If
'persona 2 lo mismo es para esta :p :3 :v ♥
If dpersona2 Mod 23 = 0 Then
decimalp2 = 0
Else
decimalp2
= dpersona2 - Int(dpersona2)
End If
'ahora nos toca multiplicar el decimal obtenido o el
cero obtendio (si es exactasera 0)
'asignando variables multiplicar decimal persona
(1/2) por la constante 23
Dim muldp1, muldp2 As Double
muldp1 =
decimalp1 * 23
muldp2 =
decimalp2 * 23
'realizamos la resta de lo obtenido en la
multiplicacion
Dim resta As Double
'para que salga un division positiva decleramos que
el mayor vaya adelante
If muldp1 > muldp2 Then
resta =
muldp1 - muldp2
ElseIf muldp2
> muldp1 Then
resta =
muldp2 - muldp1
End If
'asignamos afinidad :p :3 ♣3♥33♥♥!!♥♥!§3
Select Case resta
Case 0 To 3
TextBox3.Text = "Excelente"
Case 4 To 7
TextBox3.Text = "Buena"
Case 8 To 14
TextBox3.Text = "Regular"
Case 15 To 18
TextBox3.Text = "Aceptable"
Case 19 To 22
TextBox3.Text = "Mala"
Case Is > 23
TextBox3.Text = "fallas
tecnicas!"
End Select
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Aquí programamos dentro del botón Nuevo
DateTimePicker1.Text
= Now
DateTimePicker2.Text = Now
DateTimePicker3.Text = Now
