Visual Basic - AYUDA CON CODIGO

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Fabian

AYUDA CON CODIGO

Publicado por Fabian (1 intervención) el 07/07/2016 03:10:56
Hola, tengo un código viejo de VB6. y no le puedo encontrar la vuelta para trasponerlo a VB 2015 y transformarlo ejecutable.
les dejo el codigo viejo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Command1_Click()
Dim p, p2, x1, y1, x2, y2, x3 As Double, y3 As Double, d, m
x3 = 0
y3 = 0
punto1.SelStart = 0
punto1.SelLength = Len(punto1.Text)
p = InStr(punto1.Text, ",")
x1 = Mid(punto1.Text, 1, p - 1)
y1 = Mid(punto1.Text, p + 1, punto1.SelLength)
punto2.SelStart = 0
punto2.SelLength = Len(punto2.Text)
p2 = InStr(punto2.Text, ",")
x2 = Mid(punto2.Text, 1, p2 - 1)
y2 = Mid(punto2.Text, p2 + 1, punto2.SelLength)
d = Sqr(((Val(x2) - Val(x1)) ^ 2) + ((Val(y2) - Val(y1)) ^ 2))
m = (Val(y2) - Val(y1)) / (Val(x2) - Val(x1))
x3 = (Val(x1) + Val(x2)) / 2
y3 = (Val(y1) + Val(y2)) / 2
respuesta.Caption = "La distancia es " & d & ", la pendiente es " & m & " y el punto medio es ("
& x3 & "," & y3 & ")"
End Sub
Private Sub Command2_Click()
Guia_3_5.Hide
Guia_3.Show
End Sub


otro seria:

Formulario 1:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Form_Click()
Guia_1_3_1.Print "MATERIAS DE SISTEMAS"
Guia_1_3_1.Print "->ALGORITMOS"
Guia_1_3_1.Print "->PROGRAMAS"
Guia_1_3_1.Print "->DIAGRAMAS DE FLUJO"
Guia_1_3_1.Print "->PRUEBA DE ESCRITORIO"
Guia_1_3_1.ForeColor = vbBlack
End Sub
Private Sub Form_DblClick()
Guia_1_3_1.Hide
Guia_1_3_2.Show
End Sub
Formulario 2:
Private Sub Cmdmat1_Click(Index As Integer)
Guia_1_3_2.Hide
Guia_1_3_3.Show
End Sub
Private Sub Cmdmat2_Click()
Guia_1_3_2.Hide
Guia_1_3_4.Show
End Sub
Private Sub Cmdmat3_Click(Index As Integer)
Guia_1_3_2.Hide
Guia_1_3_5.Show
End Sub
Private Sub Cmdmat4_Click(Index As Integer)
Guia_1_3_2.Hide
Guia_1_3_6.Show
End Sub
Private Sub Command1_Click()
Guia_1_3_1.Hide
Guia_1.Show
End Sub


gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA CON CODIGO

Publicado por jcmg (518 intervenciones) el 10/07/2016 06:30:29
Espero te sirva esta lijera transformacion del codigo

Private Sub Form1_DoubleClick(sender As Object, e As System.EventArgs) Handles Me.DoubleClick
Guia_1_3_1.Hide()
Guia_1_3_2.Show()
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Guia_1_3_1.Show()
Guia_1_3_1.Label1.Text = "MATERIAS DE SISTEMAS" & vbCrLf & _
"->ALGORITMOS" & vbCrLf & "->PROGRAMAS" & vbCrLf & "->DIAGRAMAS DE FLUJO" & vbCrLf & _
"->PRUEBA DE ESCRITORIO"
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim p, p2, x1, y1, x2, y2, x3 As Double, y3 As Double, d, m

x3 = 0

y3 = 0

punto1.SelectionStart = 0

punto1.SelectionLength = Len(punto1.Text)

p = InStr(punto1.Text, ",")

x1 = Mid(punto1.Text, 1, p - 1)

y1 = Mid(punto1.Text, p + 1, punto1.SelectionLength)

punto2.SelectionStart = 0

punto2.SelectionLength = Len(punto2.Text)

p2 = InStr(punto2.Text, ",")

x2 = Mid(punto2.Text, 1, p2 - 1)

y2 = Mid(punto2.Text, p2 + 1, punto2.SelectionLength)

d = System.Math.Sqrt(((Val(x2) - Val(x1)) ^ 2) + ((Val(y2) - Val(y1)) ^ 2))

m = (Val(y2) - Val(y1)) / (Val(x2) - Val(x1))

x3 = (Val(x1) + Val(x2)) / 2

y3 = (Val(y1) + Val(y2)) / 2

respuesta.Text = "La distancia es " & d & ", la pendiente es " & m & " y el punto medio es (" & x3 & "," & y3 & ")"
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Guia_3_5.Hide()
Guia_3.Show()
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Guia_1_3_1.Show()
Guia_1_3_1.Label1.Text = "MATERIAS DE SISTEMAS" & vbCrLf & _
"->ALGORITMOS" & vbCrLf & "->PROGRAMAS" & vbCrLf & "->DIAGRAMAS DE FLUJO" & vbCrLf & _
"->PRUEBA DE ESCRITORIO"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar