Jump to content
Sign in to follow this  
joninho

[Closed Source] Calculadora By Joninho

Recommended Posts

joninho

Boas, eu tou a aprender VB, e entao tava a fazer esta calculadora podre :X gostava k me ajudassem a melhorar isto.. :thumbsup: ,  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 :D lol :    http://joninho.com.sapo.pt/Calculadora2.rar

Share this post


Link to post
Share on other sites
Ridelight

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)

Share this post


Link to post
Share on other sites
vbmaster

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... :D

Fica bem;):thumbsup:;)

Share this post


Link to post
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...  :thumbsup:

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

Share this post


Link to post
Share on other sites
brink@ero

Mais um bug: depois de clicares no resultado, quando clicas num número, a calculadora acrescenta números ao resultado.  😲

Share this post


Link to post
Share on other sites
joninho

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 :D ate ta fixe a calculadora :P

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

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

Cumps

Share this post


Link to post
Share on other sites
vbmaster

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... :thumbsup:

Share this post


Link to post
Share on other sites
joninho

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

Share this post


Link to post
Share on other sites
UnKnowN

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

Share this post


Link to post
Share on other sites
joninho

pois :X tenho de fazer então um ciclo klkr.. :X para knd inserir outro "x" akilo faz logo o resultado, mas espera por outros numeros a multiplicar :X nao? :\

Share this post


Link to post
Share on other sites
UnKnowN

Sim, nao percebo de VB por isso nao te posso ajudar mas ha por aí users que percebem pode ser que te ajudem :thumbsup:

Share this post


Link to post
Share on other sites
vbmaster

Assim que estiver em windows vejo isso....

Tava à espera pelo código de uma coisa mais low-level... nice... :thumbsup:

Share this post


Link to post
Share on other sites
vbmaster

:thumbsup: lool mas eu nao sei fazer isso lool, nao sou mt bom em matemática :D lol Cumps..

não tem nada que saber... essas funções já existem no vb... é só usar...

Share this post


Link to post
Share on other sites
Sign in to follow this  

×
×
  • 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.