CONVERTER PASCAL EM VB
Algué consegue convertar essa de PASCAL para VB?
***** PODEM CHAMAR A FUNÇÃO DE [txt-color=#0404B4]CalcDVAPAC[/txt-color] *****
numapac:=FieldByName([ô]numapac[ô]).AsString;
// try (*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
if (numapac<>[ô][ô]) and (FieldByName([ô]Convenio[ô]).Value=35) and (numapac<>[ô]AUTORIZADO[ô])
then begin
TRY
TRY digito:=
StrToInt(numapac[12])-StrToInt(numapac[11])+
StrToInt(numapac[10])-StrToInt(numapac[9])+
StrToInt(numapac[8])-StrToInt(numapac[7]) +
StrToInt(numapac[6])-StrToInt(numapac[5])+
StrToInt(numapac[4])-StrToInt(numapac[3]) +
StrToInt(numapac[2])-StrToInt(numapac[1]);
EXCEPT DIGITO:=100 END;
if Digito = -1 then Digito := 0;
If Digito < -1 then Digito := digito+11;
if Digito = 10 then Digito:=0;
If Digito > 10 then Digito := abs(11 - digito) ;
if Digito = -1 then Digito := 0;
If Digito < -1 then Digito := digito+11;
if Digito = 10 then Digito:=0;
If Digito > 10 then Digito := abs(11 - digito) ;
if Digito<>strToInt(Numapac[13]) then
begin
ShowMessage([ô]Número de Apac Incorreto ! [ô]) ;
abort;
end;
except
ShowMessage([ô]Número de Apac Incorreto ! [ô]) ;
abort;
end ;
end
***** PODEM CHAMAR A FUNÇÃO DE [txt-color=#0404B4]CalcDVAPAC[/txt-color] *****
numapac:=FieldByName([ô]numapac[ô]).AsString;
// try (*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
if (numapac<>[ô][ô]) and (FieldByName([ô]Convenio[ô]).Value=35) and (numapac<>[ô]AUTORIZADO[ô])
then begin
TRY
TRY digito:=
StrToInt(numapac[12])-StrToInt(numapac[11])+
StrToInt(numapac[10])-StrToInt(numapac[9])+
StrToInt(numapac[8])-StrToInt(numapac[7]) +
StrToInt(numapac[6])-StrToInt(numapac[5])+
StrToInt(numapac[4])-StrToInt(numapac[3]) +
StrToInt(numapac[2])-StrToInt(numapac[1]);
EXCEPT DIGITO:=100 END;
if Digito = -1 then Digito := 0;
If Digito < -1 then Digito := digito+11;
if Digito = 10 then Digito:=0;
If Digito > 10 then Digito := abs(11 - digito) ;
if Digito = -1 then Digito := 0;
If Digito < -1 then Digito := digito+11;
if Digito = 10 then Digito:=0;
If Digito > 10 then Digito := abs(11 - digito) ;
if Digito<>strToInt(Numapac[13]) then
begin
ShowMessage([ô]Número de Apac Incorreto ! [ô]) ;
abort;
end;
except
ShowMessage([ô]Número de Apac Incorreto ! [ô]) ;
abort;
end ;
end
Este procedimento em PASCAL não está complicado de se [Ô]transcrever[Ô] em VB.
Creio que a única coisa que precisa, é identificar as FUNÇÕES INTERNAS.
Exemplo:
StrToInt (Pascal) = CInt (VB)
ShowMessage (Pascal) = MsgBox (VB)
Abs (Pascal) = Abs (VB)
Este é o caminho das pedras.
Mãos à obra!
Creio que a única coisa que precisa, é identificar as FUNÇÕES INTERNAS.
Exemplo:
StrToInt (Pascal) = CInt (VB)
ShowMessage (Pascal) = MsgBox (VB)
Abs (Pascal) = Abs (VB)
Este é o caminho das pedras.
Mãos à obra!
Citação:TECLA escreveu:
Este procedimento em PASCAL não está complicado de se [Ô]transcrever[Ô] em VB.
Creio que a única coisa que precisa, é identificar as FUNÇÕES INTERNAS.
Exemplo:
StrToInt (Pascal) = CInt (VB)
ShowMessage (Pascal) = MsgBox (VB)
Abs (Pascal) = Abs (VB)
Este é o caminho das pedras.
Mãos à obra!
Valeu tecla por mais esta dica!!
Brigadão!!
Vou mandar ver!
[txt-color=#0404B4]SÓ MAIS UMA COISINHA!!!
Qual o equivalente no VB para o TRY do pascal?[/txt-color]
Try, Except e Finnaly - São blocos de tratamentos de exceções (erros).
No VB6, você pode usar o On Error Goto <rotulo>
Exemplo:
No VB6, você pode usar o On Error Goto <rotulo>
Exemplo:
On Error Goto Bug
[txt-color=#0B610B][ô]
[ô] Seu código aqui
[ô][/txt-color]
Exit Sub
Bug:
MsgBox Err.Description, , [Ô]Erro[Ô]
Citação:TECLA escreveu:
Try, Except e Finnaly - São blocos de tratamentos de exceções (erros).
No VB6, você pode usar o On Error Goto <rotulo>
Exemplo:On Error Goto Bug
[txt-color=#0B610B][ô]
[ô] Seu código aqui
[ô][/txt-color]
Exit Sub
Bug:
MsgBox Err.Description, , [Ô]Erro[Ô]
Blz irmão!
Já consegui fazer no VB6 e tá funcionando blz blz!
Brigadão!!
OK.
Problema resolvido, ENCERRE o tópico.
Problema resolvido, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas