Vb2008 generador de funciones

Solo disponible en BuenasTareas
  • Páginas : 5 (1046 palabras )
  • Descarga(s) : 8
  • Publicado : 18 de julio de 2010
Leer documento completo
Vista previa del texto
Codigo del programa

Public Class Form1
Dim l As Single
Dim lp As String
Dim s As Single
Dim sp As String
Dim f As Double
Dim ent As Double
Dim a As Double
Dim sal As Double
Dim c1 As String
Dim c2 As String
Dim c3 As String
Dim c4 As String
Dim t1menor As Single
Dim t1mayor As Single
Dim t2menor As Single
Dimt2mayor As Single
Dim reduccion1 As Double
Dim reduccion2 As Double
Dim reduccion3 As Double
Dim mensajito As String
Dim mensajito2 As String
Dim randomk As Single
Dim s1 As Double
Dim s2 As Double
Dim s3 As Double
Dim s4 As Double
Dim ch As Integer

Private Sub btncalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btncalcula.Click
If (IsNumeric(txtfijo.Text) And IsNumeric(txtacoplador.Text) And IsNumeric(txtentrada.Text) And IsNumeric(txtsalida.Text)) Then
f = txtfijo.Text
a = txtacoplador.Text
sal = txtsalida.Text
ent = txtentrada.Text

If (txtfijo.Text = s1 And s2 >= s3 And s2 >= s4) Then
s = asp = "acoplador"
ElseIf (s3 >= s1 And s3 >= s2 And s3 >= s4) Then
s = ent
sp = "entrada"
ElseIf (s4 >= s1 And s4 >= s2 And s4 >= s3) Then
s = f
sp = "fijo"
End If

If ((f >= ent) And (f >= a) And (f >= sal)) Then
l =txtfijo.Text
lp = ("fijo")
ElseIf ((ent >= f) And (ent >= a) And (ent >= sal)) Then
l = txtentrada.Text
lp = ("entrada")
ElseIf ((a >= f) And (a >= ent) And (a >= sal)) Then
l = txtacoplador.Text
lp = ("acoplador")
ElseIf ((sal >= f) And (sal>= ent) And (sal >= a)) Then
l = txtsalida.Text
lp = ("salida")

End If

If (l > (f + a + sal + ent - l)) Then
randomk = Int(Rnd() * 10)
Select Case (randomk)
Case 0
mensajito2 = "Tienes serios problemas caaa...ancion"Case 1
mensajito2 = "Parece que no entiendes lo que un mecanimos de 4 barras es"
Case 2
mensajito2 = "A ver caa...mion esto es una cadena abierta"
Case 3
mensajito2 = "Estas seguro de tus medidas? como quieres que cierre?"Case 4
mensajito2 = "por eso no tienes amigos caa...on CADENA ABIERTA"
Case 5
mensajito2 = "Cadena abierta, cierrale alli"
Case 6
mensajito2 = "Por mas que le apriete esto no cierra desgraciado"
Case 7mensajito2 = "No seas hijo de la tristeza.... desgraciado, esto no cierra"
Case 8
mensajito2 = "No puede ser posible"
Case 9
mensajito2 = "La parte de fundamental de todo esta mal Hijo de la tristeza"
End Select
MsgBox(mensajito2)
ElseIf(l = (f + a + sal + ent - l)) Then
randomk = Int(Rnd() * 10)
Select Case (randomk)
Case 0
mensajito2 = "Esta mas tieso que... nada"
Case 1
mensajito2 = "Parece que no entiendes lo que un mecanimos de 4 barras es"
Case 2...
tracking img