CONVERTER PASCAL EM VB

OLAFEKORKAN 11/10/2009 13:02:35
#325027
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
TECLA 13/10/2009 20:47:41
#325216
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!
OLAFEKORKAN 15/10/2009 08:18:06
#325360
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]
TECLA 15/10/2009 09:55:09
#325375
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[Ô]
OLAFEKORKAN 15/10/2009 14:01:05
#325396
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!!
TECLA 15/10/2009 15:33:16
#325412
OK.

Problema resolvido, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas