una prueba 100% segura seria alimentando la salida a 9v ac, pues si te saca 9v, al meterselos, en el primario podras leer en con el tester que voltage te saca, si 110 o 220v
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitartext2.text = "hola caracola"
text1.text = "raco"
click en buscar y resultado = TRUE , al haber encontrado "raco" en la cadena "hola caracola"
Dim z As Boolean
Private Sub Command1_Click()
x = busca(Text2, Text1)
MsgBox z
End Sub
Private Function busca(x As String, y As String)
Dim cuen1 As Integer, cuen2 As Long
cuen1 = 1
cuen2 = Len(x)
If cuen2 > Len(y) Then
z = False
GoTo b
End If
a:
If Mid(y, cuen1, cuen2) = x Then
z = True
GoTo b
Else
If cuen1 > Len(y) Then
z = False
GoTo b
End If
cuen1 = cuen1 + 1
End If
GoTo a:
b:
Private Sub Form_Load()
Dim lol As String, var1 As String, var2 As String, var3 As String, x As Long, y As Long
var1 = "6801|127.0.0.1¤6802|127.0.0.3¤6803|127.0.0.2¤"
var2 = "6802"
lol = "|"
a:
x = x + 1: y = 1
If x = Len(var1) Then GoTo c
If lol <> Mid(var1, x, y) Then
var3 = var3 + Mid(var1, x, y)
GoTo a
Else
If var2 = Right(var3, 4) Then
var3 = Left(var3, Len(var3) - 4)
b:
x = x + 1
If x = Len(var1) Then GoTo c
If Mid(var1, x, y) = "¤" Then
GoTo a
Else
GoTo b
End If
Else
End If
var3 = var3 + lol
GoTo a
End If
c:
If Right(var3, 1) <> "¤" Then var3 = var3 + "¤"
Label1.Caption = var1
Label2.Caption = var3
End Sub