Jump to content

[Closed Source] Calculadora By Joninho


joninho

Recommended Posts

Boas, eu tou a aprender VB, e entao tava a fazer esta calculadora podre :X gostava k me ajudassem a melhorar isto.. 👍 ,  gostava k me ajudassem em alguns problemas, por exemplo ao maximisar fika tudo feio, gostava d por isso direito :X, outra cena se abrir o programa e klikar logo em resultado dah erro :X cm eh k mudo isso? :\

Cumps...

a Calculadora ta aki 😄 lol :    http://joninho.com.sapo.pt/Calculadora2.rar

Link to comment
Share on other sites

  • Replies 45
  • Created
  • Last Reply

Isto não ficaria melhor em dúvidas programação?

E ja agora a mim não aconteçe nenhuma das situações que descreves-te, erro não da, se clicar logo em resultado apareçe 0 e se maximizar so maximiza a janela, a calculadora fica igual, fica é o resto do monitor a preto. (1280x1024)

Link to comment
Share on other sites

E que tal teres o programa em opensource ou teres uma opção de mostrar o código dentro da própria aplicação (como eu costumo fazer...)

Ainda não vi o programa pois não consegui emular aqui em linux... 😄

Fica bem;)👍;)

Link to comment
Share on other sites

deathseeker25

o trabalho pareceu estar fixe...mas como o vdmaster disse...podias apresentar o codigo...seria mais facil para o ppl te ajudar a melhorar...  👍

É uma das vantagens das aplicações open source: serem mais rápidas a ser actualizadas. Portanto, joninho release the God damn code... 😄

Link to comment
Share on other sites

Isto não ficaria melhor em dúvidas programação?

E ja agora a mim não aconteçe nenhuma das situações que descreves-te, erro não da, se clicar logo em resultado apareçe 0 e se maximizar so maximiza a janela, a calculadora fica igual, fica é o resto do monitor a preto. (1280x1024)

POis, eh isso :X eu kria ver s punha isso fixe :S mas komo :X

pa kero ver esse code 😄 ate ta fixe a calculadora :P

edit: Andasme a fazer concurencia 👍 , ja agora ke idade tens?

lol opa, +/- lool tenhu 15 anos :X

Cumps

Link to comment
Share on other sites

Que tal fazeres como eu costumo fazer na minha maneira macaca. Tipo crias uns menus e num deles metes "Código Fonte", depois como submenu metes tipo Mostrar, e será tipo booleano, ou seja fazes mostrar e aparece uma textbox não editável com todo o código fonte, clicas lá outra vez e a textbox desaparece para dar lugar de novo à calculadora...

è assim normalmente como faço... 👍

Link to comment
Share on other sites

Yah, mas eu inda nao sei fazer isso... o SourceCode Está aki:

Option Explicit
Dim oper As String
Dim n1 As Single
Dim result As Single
Dim n2 As Single



Private Sub Picture1_Click()

End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command12_Click()
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command13_Click()
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command14_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command15_Click()
Text1.Text = Text1.Text + "9"
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command17_Click()
Select Case oper
Case "+"
    result = n1 + Text1.Text
Case "-"
    result = n1 - Text1.Text
Case "/"
    result = n1 / Text1.Text
Case "*"
    result = n1 * Text1.Text
End Select
Text1.Text = result
n1 = 0
End Sub

Private Sub Command2_Click()
Text1.Text = ""
n1 = 0
n2 = 0
result = 0
End Sub

Private Sub Command3_Click()
n1 = Text1.Text + n1
oper = "+"
Text1.Text = ""
End Sub

Private Sub Command4_Click()
n1 = Text1.Text + n1
Text1.Text = ""
oper = "-"
End Sub

Private Sub Command5_Click()
n1 = Text1.Text
Text1.Text = ""
oper = "/"
End Sub

Private Sub Command6_Click()
n1 = Text1.Text
Text1.Text = ""
oper = "*"
End Sub

Private Sub helpi_Click()
MsgBox "Help LOL"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Text1_Change()

End Sub

Tá um coto confuso e feio, :S mas foi assim k fix :S lol Cumps

Link to comment
Share on other sites

Tens 1 erro na calculadora pelo menos ...

Para 2x2x3 = 6 o que está Errado ... Seria 12 visto que 2x2 = 4 e 4x3 = 12

Ou Seja a Calculadora só executa a Operação com os 2 Últimos números indicados ...

Para isso era melhor fazeres 1 calculadora que calculasse apenas 2 número

Assim, para 2x2 = 4 e 4(resultado)x3 = 12

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.