Boa Noite!
Gostaria de pedir-lhes humildemente uma força para este iniciante na programação,
Estou tentando saber se é possível escrever esse código simples e bem iniciante que fiz no Visual Basics VBA na linguagem JAVA?
Para que eu possa tentar fazer uma calculadora da mesma forma que consegui fazer no PC.
Desculpe se o código possui erros grosseiros, ainda estou aprendendo.
Segue o código:
Private Sub CommandButton1_Click()
On Error GoTo Erro1
Dim capital, juros, parcelas As Integer, referencia, renda
Dim p1, p2, p3, p4, p5, p6, p7, p8, p9, p10
Dim Cap1, Cap2, Cap3, Cap4, Cap5, Cap6, Cap7, Cap8, Cap9, Cap10
capital = caixa_capital
juros = caixa_juros / 100
parcelas = 10
referencia = (capital / parcelas)
Cap1 = capital
Cap2 = capital - referencia
Cap3 = Cap2 - referencia
Cap4 = Cap3 - referencia
Cap5 = Cap4 - referencia
Cap6 = Cap5 - referencia
Cap7 = Cap6 - referencia
Cap8 = Cap7 - referencia
Cap9 = Cap8 - referencia
Cap10 = Cap9 - referencia
p1 = capital * juros
p2 = (capital - referencia) * juros
p3 = (Cap2 - referencia) * juros
p4 = (Cap3 - referencia) * juros
p5 = (Cap4 - referencia) * juros
p6 = (Cap5 - referencia) * juros
p7 = (Cap6 - referencia) * juros
p8 = (Cap7 - referencia) * juros
p9 = (Cap8 - referencia) * juros
p10 = (Cap9 - referencia) * juros
renda = p1 + p2 + p3 + p4 + p5 + p6 + p7 + p8 + p9 + p10
caixa_result = (capital + renda) / 10
Erro1:
If caixa_capital = "" Then
MsgBox "Digite os Valores", vbOKOnly, "Alerta!"
caixa_result = ""
caixa_capital.SetFocus
End If
O código é executado quando clico em um botão, e o resultado é impresso na caixa resultado.
Desde já agradeço quem puder me dar um direcionamento.