Traduçao de VB para JAVA

Gostaria de saber se alguem consegue traduzir esse código em VB para java.

Código VB:
Public Sub AprovaCartao( _
ByVal VlDoc As Long, ByVal NumCartao As String, _
ByVal MesVal As Integer, ByVal AnoVal As Integer, _
ByVal CodSeg As String, _
ByRef Resultado As String, ByRef Transacao As String, _
ByRef Autorizacao As String, ByRef Aprovado As Boolean _
)

Dim CobreBem As New CobreBemX.ContaCorrente

Dim Documento As Object
 
CobreBem.ArquivoLicencaCartoesCredito = "arquivolicenca.conf"
CobreBem.PadroesAprovacaoCartoes.ModoOperacao = moacProducao 'No java 1

Set Documento = CobreBem.DocumentosCobranca.Add
Documento.ValorDocumento = VlDoc / 100
Documento.CartaoCredito.Numero = NumCartao
Documento.CartaoCredito.MesValidade = MesVal
Documento.CartaoCredito.AnoValidade = AnoVal
Documento.CartaoCredito.CodigoSeguranca = CodSeg
Documento.CartaoCredito.QuantidadeParcelas = 1
Documento.CartaoCredito.EnderecoIPComprador = "RecorrENtE"


Aprovado = CobreBem.SolicitaAprovacaoCartao(0)
If Aprovado Then
    Resultado = Documento.CartaoCredito.ResultadoSolicitacaoAprovacao
    Transacao = Documento.CartaoCredito.Transacao
    Autorizacao = Documento.CartaoCredito.CodigoAutorizacao
    
    teste = CobreBem.ConfirmaAprovacaoCartao(0)
    'teste = CobreBem.CancelaAprovacaoCartao(0)
Else
    Resultado = Documento.CartaoCredito.ResultadoSolicitacaoAprovacao
End If

Set CobreBem = Nothing

End Sub

Exemplo de como fazer em JAVA[size=24] [/size][size=12] [/size]:
// Este exemplo requer JACOB (JAVA-COM Bridge) cujo download está disponível em http://danadler.com/jacob/index.html

import com.jacob.com.;
import com.jacob.activeX.
;

public class DispatchTest
{
public static void main(String[] args)
{
ActiveXComponent cbx = new ActiveXComponent(“CobreBemX.ContaCorrente”);

// Monta arquivo de licença de teste para banco 001 carteira 18
cbx.setProperty(“ArquivoLicenca”, “c:\CobreBemX\Exemplos\Licencas\001-18.conf”);

// Monta dados da conta corrente
cbx.setProperty(“CodigoAgencia”, “1234-5”);
cbx.setProperty(“NumeroContaCorrente”, “00000123-X”);
cbx.setProperty(“CodigoCedente”, “123456”);
cbx.setProperty(“InicioNossoNumero”, “00001”);
cbx.setProperty(“FimNossoNumero”, “99999”);
cbx.setProperty(“ProximoNossoNumero”, “00015”);

Object PadroesBoleto = cbx.getProperty("PadroesBoleto").toDispatch();
Object PadroesBoletoImpresso = Dispatch.get(PadroesBoleto, "PadroesBoletoImpresso").toDispatch();
Dispatch.put(PadroesBoletoImpresso, "ArquivoLogotipo", "c:\CobreBemX\Imagens\BannerCBX.gif");
Dispatch.put(PadroesBoletoImpresso, "CaminhoImagensCodigoBarras", "c:\CobreBemX\Imagens\");

// Cria documento de cobrança
Object DocumentosCobranca = cbx.getProperty(“DocumentosCobranca”).toDispatch();
Object Boleto = Dispatch.get(DocumentosCobranca, “Add”).toDispatch();

// Monta dados do sacado
Dispatch.put(Boleto, “NomeSacado”, “Fulano de Tal”);

// Monta dados do documento de cobrança
Dispatch.put(Boleto, “DataVencimento”, “01/10/2002”);
Dispatch.put(Boleto, “NumeroDocumento”, “12345”);
Dispatch.put(Boleto, “ValorDocumento”, 123.45);

cbx.invoke("ImprimeBoletos");

}
}

outro!

Eu consigo! YES!

pra dar esse escandalo só podia ser de VB…

programadores tb gosta de educação blz…

[quote]
“Traduçao de VB para JAVA - URGENTEEEEEEEEEEEEEEEEEEEEEEEEEEEE”[/quote]

Por acaso esse “Urgente” escrito dessa forma é pra podermos responder seu tópico como se fosse prioridade máxima?

[quote=christianovale][quote]
“Traduçao de VB para JAVA - URGENTEEEEEEEEEEEEEEEEEEEEEEEEEEEE”[/quote]

Por acaso esse “Urgente” escrito dessa forma é pra podermos responder seu tópico como se fosse prioridade máxima?[/quote]

talvez ele vai pagar… pra exigir isso :lol:

Nem esquentem pessoal, se era tão urgente o prazo já expirou e ele não precisa mais resolver esse problema…

Não entendi sua dúvida, vc quer q alguem faça? A classe aí de exemplo… pq vc não usa ela pra fazer???

Vc deveria ter colocado isso no Java Básico e não no Avançado…

Mas blz, só q lembre-se o pessoal aqui tira dúvida, não vai fazer um programa pra vc =)

Boa Sorte :smiley:

O cara entrou em um projeto de migração do VB pra Java e acho e num entende nada nem de VB e nem de Java… :lol:

SIMMMMMMMMMMMMMMMM
EUUUUUUUUUUUUUUUUUUUUUU CONNNNNNNSSSSIIGGOOOOOOOOOOOO

EEELLAAAAAAAAAAAAAAAAAA FIICACAAAAAAAAAAAAAA ASSSSIMMMMMMMMMMMMMMMMMM:::::::::::

Publiccccccccccccccc classsssssssssssssss AaapppppprovaaaaaaaaaaaaaaaCartaoooooooooooooooooooooo( _
puuuuuuuuuuubliccccccccccccccccccc Longgggggggggggg VlDoc;
puuuuuubliccccccccccccccccccc Stringgggggg NummmmmCartaoooooooo;
puuuuuuuuubliccccccccccccccccccc Integeeeeeeeeeeeeeeeerrrrrrrrr MesVaaaaaaaaaaal;

:?