Materiales

FUNCIONES NUMÉRICAS
ABS










Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim H As Double
H = TextBox1.Text
TextBox2.Text = Math.Abs(H)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Clear()
TextBox1.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class


Funciones Numéricas SQRT











Public Class Form2


Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
Dim t As Double
t = TextBox1.Text
TextBox2.Text = Math.Sqrt(t)

End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton3.Click
End
End Sub
End Class

Funciones Numéricas COS








Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d As Double
d = TextBox1.Text
TextBox2.Text = Math.Sin(d)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class


Funciones Numéricas SIN












Public Class Form4

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d As Double
d = TextBox1.Text
TextBox2.Text = Math.Sin(d)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub

Private Sub Button3_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class


Funciones Especiales LEN:












Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub

Private Sub Button3_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Double
c = Len(TextBox1.Text)
TextBox2.Text = c
End Sub
End Class


Funciones MID









Public Class Form1

Private SubButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
Dim c As Double
c = Len(TextBox1.Text)
TextBox2.Text = c
End Sub
End Class




FUNCIONES ESPECIALES CON LOS CÓDIGOS ASCII
ASC











Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As Integer
num = Asc(TextBox1.Text)...