VERSION 5.00
Begin VB.Form Form2condvert
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "Nuevo Grupo de conductores"
ClientHeight = 3435
ClientLeft = 45
ClientTop = 435
ClientWidth = 6930
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3435
ScaleWidth = 6930
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Form2condvert
Caption = "Fase Duplex Vertical"
Height = 3375
Left = 120
TabIndex = 0
Top = 0
Width = 6735
Begin VB.Frame Frame3
Caption = "Ejemplo"
Height = 3015
Left = 120
TabIndex = 24
Top = 240
Width = 2535
Begin VB.PictureBox Picture2
Height = 2535
Left = 120
Picture = "Form2condvert.frx":0000
ScaleHeight = 2475
ScaleWidth = 2235
TabIndex = 25
Top = 300
Width = 2295
End
End
Begin VB.Frame Frame2
Caption = "Datos Eléctricos"
Height = 855
Left = 2760
TabIndex = 21
Top = 1800
Width = 3855
Begin VB.TextBox Text8
Height = 285
Left = 3120
TabIndex = 7
Top = 300
Width = 495
End
Begin VB.TextBox Text6
Height = 285
Left = 1560
TabIndex = 6
Top = 300
Width = 495
End
Begin VB.Label Label10
Caption = "Fase (°) :"
Height = 195
Left = 2280
TabIndex = 23
Top = 360
Width = 975
End
Begin VB.Label Label3
Caption = "Intens. (A, rms) :"
Height = 195
Left = 120
TabIndex = 22
Top = 360
Width = 1575
End
End
Begin VB.Frame Frame1
Caption = "Datos Geométricos"
Height = 1455
Left = 2760
TabIndex = 12
Top = 240
Width = 3855
Begin VB.OptionButton Option2
Caption = "2"
Height = 255
Left = 3240
TabIndex = 20
Top = 1110
Width = 375
End
Begin VB.OptionButton Option1
Caption = "1"
Height = 195
Left = 2760
TabIndex = 19
Top = 1140
Value = -1 'True
Width = 495
End
Begin VB.TextBox Text4
Height = 285
Left = 2880
TabIndex = 2
Top = 360
Width = 495
End
Begin VB.TextBox Text5
Height = 285
Left = 2880
TabIndex = 4
Top = 720
Width = 495
End
Begin VB.TextBox Text3
Height = 285
Left = 1080
TabIndex = 5
Top = 1080
Width = 495
End
Begin VB.TextBox Text1
Height = 285
Left = 1080
TabIndex = 1
Top = 360
Width = 495
End
Begin VB.TextBox Text2
Height = 285
Left = 1080
TabIndex = 3
Top = 720
Width = 495
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Línea :"
Height = 195
Left = 1920
TabIndex = 18
Top = 1140
Width = 510
End
Begin VB.Label Label7
Caption = "d1 (m.) :"
Height = 195
Left = 1920
TabIndex = 17
Top = 420
Width = 930
End
Begin VB.Label Label8
Caption = "d2 (m.) :"
Height = 195
Left = 1920
TabIndex = 16
Top = 780
Width = 930
End
Begin VB.Label Label6
Caption = "h (m.) :"
Height = 195
Left = 120
TabIndex = 15
Top = 1140
Width = 840
End
Begin VB.Label Label4
Caption = "X (m.) :"
Height = 195
Left = 120
TabIndex = 14
Top = 420
Width = 855
End
Begin VB.Label Label5
Caption = "Y (m.) :"
Height = 195
Left = 120
TabIndex = 13
Top = 780
Width = 855
End
End
Begin VB.CommandButton Command2
Caption = "Cancelar"
Height = 375
Left = 4920
TabIndex = 9
Top = 2820
Width = 975
End
Begin VB.CommandButton Command1
Caption = "Aceptar"
Height = 375
Left = 3480
TabIndex = 8
Top = 2820
Width = 975
End
Begin VB.Label Editando
AutoSize = -1 'True
Caption = "NO"
Height = 195
Left = 2880
TabIndex = 11
Top = 3000
Visible = 0 'False
Width = 240
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Editando:"
Height = 195
Left = 2760
TabIndex = 10
Top = 2760
Visible = 0 'False
Width = 675
End
End
End
Attribute VB_Name = "Form2condvert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
If (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" _
Or Text4.Text = "" Or Text5.Text = "") Then
If Principal.idioma = "Español" Then
MsgBox "Atención. No puede dejar en blanco ninguna casilla", vbExclamation, "MitLoop"
Else
MsgBox "Fill in all required fields.", vbExclamation, "MitLoop"
End If
ElseIf Not (IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And IsNumeric(Text3.Text) And _
IsNumeric(Text4.Text) And IsNumeric(Text5.Text) And IsNumeric(Text6.Text) And _
IsNumeric(Text8.Text)) Then
If Principal.idioma = "Español" Then
MsgBox "Ha introducido cantidades no válidas", vbExclamation, "MitLoop"
Else
MsgBox "There are invalid numbers.", vbExclamation, "MitLoop"
End If
ElseIf (InStr(1, Text1.Text, ".") <> 0 Or InStr(1, Text2.Text, ".") <> 0 Or _
InStr(1, Text3.Text, ".") <> 0 Or InStr(1, Text4.Text, ".") <> 0 Or _
InStr(1, Text5.Text, ".") <> 0 Or InStr(1, Text6.Text, ".") <> 0 Or _
InStr(1, Text8.Text, ".") <> 0) Then
If Principal.idioma = "Español" Then
MsgBox "Utilize ',' como separador decimal", vbInformation, "MitLoop"
Else
MsgBox "Please use ',' as decimal separator", vbInformation, "MitLoop"
End If
ElseIf (CSng(Text4.Text) < 0 Or CSng(Text5.Text) < 0) Then
If Principal.idioma = "Español" Then
MsgBox "Atención. Los diámetros no pueden ser negativos.", vbExclamation, "MitLoop"
Else
MsgBox "Diameters cannot be negative", vbExclamation, "MitLoop"
End If
Else
If (Editando = "NO") Then
Module1.añade2condvert
Else
Me.Hide
End If
End If
End Sub
Private Sub Command2_Click()
Module1.HaCancelado = True
Unload Me
End Sub
Private Sub Form_Load()
' Pone los valores por defecto
Text1.Text = 20
Text2.Text = 10
Text3.Text = 0.4
Text4.Text = 2
Text5.Text = 2
Text6.Text = 500
Text8.Text = 0
Option1.Value = True
' Adapta la apariencia del formulario al idioma escogido para
' la interfaz.
If (Principal.idioma = "Español") Then
Me.Caption = "Nueva Fase Dúplex Vertical"
Frame1.Caption = "Parámetros Geométricos"
Frame2.Caption = "Parámetros Eléctricos"
Frame3.Caption = "Ejemplo"
Form2condvert.Caption = "Fase Duplex Vertical"
Label1.Caption = "Línea :"
Label3.Caption = "I fase (A, rms):"
Label10.Caption = "Fase (º) :"
Command1.Caption = "Aceptar"
Command2.Caption = "Cancelar"
Else
Me.Caption = "New Vertical Duplex Phase"
Frame1.Caption = "Geometric Parameters"
Frame2.Caption = "Electric Parameters"
Frame3.Caption = "Example"
Form2condvert.Caption = "Duplex Vertical Phase"
Label1.Caption = "Line :"
Label3.Caption = "Phase I (A, rms) :"
Label10.Caption = "Phase (º) :"
Command1.Caption = "OK"
Command2.Caption = "Cancel"
End If
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
