VERSION 5.00
Begin VB.Form Form3cond2
BorderStyle = 1 'Fixed Single
Caption = "Nuevo grupo de conductores"
ClientHeight = 3825
ClientLeft = 45
ClientTop = 435
ClientWidth = 7080
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3825
ScaleWidth = 7080
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Caption = "Fase Triplex"
Height = 3615
Left = 120
TabIndex = 0
Top = 120
Width = 6855
Begin VB.Frame Frame3
Caption = "Datos Eléctricos"
Height = 855
Left = 2640
TabIndex = 22
Top = 2400
Width = 4095
Begin VB.TextBox Text9
Height = 285
Left = 3480
TabIndex = 26
Text = "0"
Top = 300
Width = 495
End
Begin VB.TextBox Text8
Height = 285
Left = 1560
TabIndex = 25
Text = "500"
Top = 300
Width = 495
End
Begin VB.Label Label11
Caption = "I fase (A, rms) :"
Height = 195
Left = 120
TabIndex = 24
Top = 360
Width = 1290
End
Begin VB.Label Label15
Caption = "Desfase (°) :"
Height = 195
Left = 2400
TabIndex = 23
Top = 360
Width = 1095
End
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "Cancelar"
Height = 375
Left = 1320
TabIndex = 21
Top = 3120
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "Aceptar"
Height = 375
Left = 120
TabIndex = 20
Top = 3120
Width = 1095
End
Begin VB.Frame Frame2
Caption = "Datos geométricos"
Height = 2175
Left = 2640
TabIndex = 2
Top = 120
Width = 4095
Begin VB.TextBox Text4
Height = 285
Left = 1200
TabIndex = 11
Text = "0,4"
Top = 1440
Width = 495
End
Begin VB.TextBox Text3
Height = 285
Left = 1200
TabIndex = 10
Text = "0,4"
Top = 1080
Width = 495
End
Begin VB.TextBox Text2
Height = 285
Left = 1200
TabIndex = 9
Text = "20"
Top = 720
Width = 495
End
Begin VB.TextBox Text1
Height = 285
Left = 1200
TabIndex = 8
Text = "20"
Top = 360
Width = 495
End
Begin VB.TextBox Text7
Height = 285
Left = 3480
TabIndex = 7
Text = "6"
Top = 1080
Width = 495
End
Begin VB.TextBox Text6
Height = 285
Left = 3480
TabIndex = 6
Text = "6"
Top = 720
Width = 495
End
Begin VB.TextBox Text5
Height = 285
Left = 3480
TabIndex = 5
Text = "6"
Top = 360
Width = 495
End
Begin VB.OptionButton Option1
Caption = "1"
Height = 255
Left = 3480
TabIndex = 4
Top = 1500
Value = -1 'True
Width = 495
End
Begin VB.OptionButton Option2
Caption = "2"
Height = 255
Left = 3480
TabIndex = 3
Top = 1800
Width = 495
End
Begin VB.Label Label4
Caption = "h (m.) :"
Height = 195
Left = 240
TabIndex = 19
Top = 1500
Width = 840
End
Begin VB.Label Label3
Caption = "d (m.) :"
Height = 195
Left = 240
TabIndex = 18
Top = 1140
Width = 840
End
Begin VB.Label Label2
Caption = "Y (m.) :"
Height = 195
Left = 240
TabIndex = 17
Top = 780
Width = 855
End
Begin VB.Label Label1
Caption = "X (m.) :"
Height = 195
Left = 240
TabIndex = 16
Top = 420
Width = 855
End
Begin VB.Label Label7
Caption = "d3 (m.) :"
Height = 195
Left = 2280
TabIndex = 15
Top = 1140
Width = 1050
End
Begin VB.Label Label6
Caption = "d2 (m.) :"
Height = 195
Left = 2280
TabIndex = 14
Top = 780
Width = 1170
End
Begin VB.Label Label5
Caption = "d1 (m.) :"
Height = 195
Left = 2280
TabIndex = 13
Top = 420
Width = 1050
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "Línea : "
Height = 195
Left = 2280
TabIndex = 12
Top = 1500
Width = 555
End
End
Begin VB.PictureBox Picture1
Height = 2750
Left = 120
Picture = "Form3cond1.frx":0000
ScaleHeight = 2685
ScaleWidth = 2295
TabIndex = 1
Top = 240
Width = 2350
End
Begin VB.Label Editando
Caption = "NO"
Height = 255
Left = 3840
TabIndex = 28
Top = 3240
Visible = 0 'False
Width = 375
End
Begin VB.Label Label8
Caption = "Editando:"
Height = 255
Left = 2640
TabIndex = 27
Top = 3240
Visible = 0 'False
Width = 975
End
End
End
Attribute VB_Name = "Form3cond2"
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 = "" Or Text6.Text = "" _
Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "") Then
If Principal.idioma = "Español" Then
MsgBox "Atención. No puede dejar en blanco ninguna casilla", vbExclamation, "MitLoop"
Else
MsgBox "Please 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(Text7.Text) And IsNumeric(Text8.Text) And IsNumeric(Text9.Text))) Then
If Principal.idioma = "Español" Then
MsgBox "Hay números con formato incorrecto", 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, Text7.Text, ".") <> 0 Or InStr(1, Text8.Text, ".") <> 0 Or _
InStr(1, Text9.Text, ".") <> 0) Then
If Principal.idioma = "Español" Then
MsgBox "Utilize ',' como separador decimal", vbInformation, "MitLoop"
Else
MsgBox "Please use ',' as decimal separador", vbInformation, "MitLoop"
End If
ElseIf (CSng(Text5.Text) < 0 Or CSng(Text6.Text) < 0 Or CSng(Text7.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
ElseIf (CSng(Text3.Text) < 0 Or CSng(Text4.Text) < 0) Then
If Principal.idioma = "Español" Then
MsgBox "Atención. d y h deben ser positivos", vbExclamation, "MitLoop"
Else
MsgBox "d and h must be positive.", vbExclamation, "MitLoop"
End If
ElseIf (CSng(Text2.Text) < 0) Then
If Principal.idioma = "Español" Then
MsgBox "Atención. La fase no puede estar bajo tierra", vbExclamation, "MitLoop"
Else
MsgBox "Phase cannot be placed underground", vbExclamation, "MitLoop"
End If
Else
If (CSng(Text2.Text) < Principal.distanciaMinimaAlSuelo) Then
If Principal.idioma = "Español" Then
MsgBox "Atención. La fase no respeta la distancia mínima al suelo", vbInformation, "MitLoop"
Else
MsgBox "Phase is below minimum height to ground", vbInformation, "MitLoop"
End If
End If
If (Editando = "NO") Then
Module1.añade3cond (True)
Else
Me.Hide
End If
End If
End Sub
Private Sub Command2_Click()
Module1.HaCancelado = True
Unload Me
End Sub
Private Sub Form_Load()
' Ponemos valores por defecto
Text1.Text = 20
Text2.Text = 20
Text3.Text = 0.4
Text4.Text = 0.4
Text5.Text = 6
Text6.Text = 6
Text7.Text = 6
Text8.Text = 500
Text9.Text = 0
Option1.Value = True
If Principal.idioma = "Español" Then
Me.Caption = "Nueva Fase Tríplex"
Frame1.Caption = "Fase Tríplex"
Frame2.Caption = "Datos Geométricos"
Frame3.Caption = "Datos Eléctricos"
Label9.Caption = "Línea :"
Label11.Caption = "I fase (A, rms) :"
Label15.Caption = "Fase (º) :"
Else
Me.Caption = "New Triplex Phase"
Frame1.Caption = "Triplex Phase"
Frame2.Caption = "Geometric Parameters"
Frame3.Caption = "Electric Parameters"
Label9.Caption = "Line :"
Label11.Caption = "I Phase (A, rms) :"
Label15.Caption = "Phase (º) :"
End If
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
