Our full technical support staff does not monitor this forum. If you need assistance from a member of our staff, please submit your question from the Ask a Question page.


Log in or register to post/reply in the forum.

multiple If/Endif loop into the For/Next loop


kokihualpa May 11, 2020 09:58 AM

I try to apply multiple If/Endif loop into the For/Next loop but it doesnt work.

This is a part of my program

Public Respuesta(19) as string

Const mmhhi="1020"

Const mmhhf="2020"

Const DDMMYY="090520"

For y =1 To 19
If Mid(respuesta2(y),1,6)="FFAA80" AND Mid(respuesta2(y),23,4)=mmhhi AND Mid(respuesta2(y),29,6)=DDMMYY Then
Msg1=HexToDec(Mid(respuesta2(y),13,2))
Hora1=Mid(respuesta2(y),23,4)
Fecha1=Mid(respuesta2(y),29,6)
ExitFor
Else
Msg1=-1
Hora1="NAN"
Fecha1="NAN"
EndIf
If Mid(respuesta2(y),1,6)="FFAA80" AND Mid(respuesta2(y),23,4)=mmhhf AND Mid(respuesta2(y),29,6)=DDMMYY Then
Msg2=HexToDec(Mid(respuesta2(y),13,2))
Hora2=Mid(respuesta2(y),23,4)
Fecha2=Mid(respuesta2(y),29,6)
ExitFor
Else
Msg2=-1
Hora2="NAN"
Fecha2="NAN"
EndIf
If Mid(respuesta2(y),1,6)="FFAA10" AND Mid(respuesta2(y),23,4)=mmhhi AND Mid(respuesta2(y),29,6)=DDMMYY Then
VtZ1_1=HexToDec(Mid(respuesta2(y),13,4))
VtZ2_1=HexToDec(Mid(respuesta2(y),17,4))
Vt_1=VtZ1_1+VtZ2_1
ExitFor
Else
VtZ1_1=-1
VtZ2_1=-1
Vt_1=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA10" AND Mid(respuesta2(y),23,4)=mmhhf AND Mid(respuesta2(y),29,6)=DDMMYY Then
VtZ1_2=HexToDec(Mid(respuesta2(y),13,4))
VtZ2_2=HexToDec(Mid(respuesta2(y),17,4))
Vt_2=VtZ1_2+VtZ2_2
ExitFor
Else
VtZ1_2=-1
VtZ2_2=-1
Vt_2=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA14" AND Mid(respuesta2(y),23,4)=mmhhi AND Mid(respuesta2(y),29,6)=DDMMYY Then
VMedZ1_1=HexToDec(Mid(respuesta2(y),13,4))
VMedZ2_1=HexToDec(Mid(respuesta2(y),17,4))
VtMed_1=VMedZ1_1+VMedZ2_1
ExitFor
Else
VMedZ1_1=-1
VMedZ2_1=-1
VtMed_1=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA14" AND Mid(respuesta2(y),23,4)=mmhhf AND Mid(respuesta2(y),29,6)=DDMMYY Then
VMedZ1_2=HexToDec(Mid(respuesta2(y),13,4))
VMedZ2_2=HexToDec(Mid(respuesta2(y),17,4))
VtMed_2=VMedZ1_2+VMedZ2_2
ExitFor
Else
VMedZ1_2=-1
VMedZ2_2=-1
VtMed_2=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA16" AND Mid(respuesta2(y),23,4)=mmhhi AND Mid(respuesta2(y),29,6)=DDMMYY Then
VLrgZ1_1=HexToDec(Mid(respuesta2(y),13,4))
VLrgZ2_1=HexToDec(Mid(respuesta2(y),17,4))
VtLrg_1=VLrgZ1_1+VLrgZ2_1
ExitFor
Else
VLrgZ1_1=-1
VLrgZ2_1=-1
VtLrg_1=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA16" AND Mid(respuesta2(y),23,4)=mmhhf AND Mid(respuesta2(y),29,6)=DDMMYY Then
VLrgZ1_2=HexToDec(Mid(respuesta2(y),13,4))
VLrgZ2_2=HexToDec(Mid(respuesta2(y),17,4))
VtLrg_2=VLrgZ1_2+VLrgZ2_2
ExitFor
Else
VLrgZ1_2=-1
VLrgZ2_2=-1
VtLrg_2=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA18" AND Mid(respuesta2(y),23,4)=mmhhi AND Mid(respuesta2(y),29,6)=DDMMYY Then
VTrkZ1_1=HexToDec(Mid(respuesta2(y),13,4))
VTrkZ2_1=HexToDec(Mid(respuesta2(y),17,4))
VtTrk_1=VTrkZ1_1+VTrkZ2_1
ExitFor
Else
VTrkZ1_1=-1
VTrkZ2_1=-1
VtTrk_1=-1
EndIf
If Mid(respuesta2(y),1,6)="FFAA18" AND Mid(respuesta2(y),23,4)=mmhhf AND Mid(respuesta2(y),29,6)=DDMMYY Then
VTrkZ1_2=HexToDec(Mid(respuesta2(y),13,4))
VTrkZ2_2=HexToDec(Mid(respuesta2(y),17,4))
VtTrk_2=VTrkZ1_2+VTrkZ2_2
ExitFor
Else
VTrkZ1_2=-1
VTrkZ2_2=-1
VtTrk_2=-1
EndIf
Next y

Log in or register to post/reply in the forum.