IT - Calculator simplu.

Aici vom discuta pe tema IT care va include : c++, visual basic, php, html, css si multe altele; veti gasi si diverse stiri.

Moderators: Moderator ajutator, Moderator

full skill
full skill
Status: Offline
Posts: 1216
Registered for: 10 years 9 months
10
Cont Premium: vScorpio
Location: București

IT - Calculator simplu. Post by Scorpio »

Salut, astazi va voi prezenta simplul calculator facut de mine. Stiu ca e super simplu, dar e facut asa de distractie.
Nu are nici-un virus.
Poze:
Spoiler | Afiseaza
[img]http://gyazo.com/05655a97e8e03a7227fef70841321b47.png[/img] [img]http://gyazo.com/c06d5c7ecb2d9c9a5bbadf7e895b7748.png[/img] [img]http://gyazo.com/bb93b49d41dde3ca2609b03e6f53db1d.png[/img]
Atunci cand faci o operatie x - y si x e mai mare ca y o sa apara incorect.

P.S: % este impartit.
Sper sa va placa.
Inca are unele bug-uri dar o sa le rezolv. :P
Virustotal
Descarca!
We are anonymous.
We are legion.
We do not forgive.
We do not forget.
Expect us!

Image
Spoiler | Afiseaza
[img]http://www.speedtest.net/result/3627915067.png[/img]
skill 0
skill 0
User avatar
Status: Offline
Posts: 39
Registered for: 10 years 11 months
10
Status: Pe laptop :P cu castile pe cap xD =))
Location: Timisoara,Romania
Contact:

Re: Calculator simplu. Post by DeyCraft »

Smecher, poate faci si un tutorial.
full skill
full skill
Status: Offline
Posts: 1216
Registered for: 10 years 9 months
10
Cont Premium: vScorpio
Location: București

Re: Calculator simplu. Post by Scorpio »

Este un cod super simplu in VB. Pentru doritori
Spoiler | Afiseaza
[code] Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = "+" TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = "-" TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Label1.Text = "*" TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Label1.Text = "%" TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) End Sub End Class [/code]
Cei care vor daca au putina cunostinta isi dau seama ce si cum.
Mai sus aveti un exemplu.
We are anonymous.
We are legion.
We do not forgive.
We do not forget.
Expect us!

Image
Spoiler | Afiseaza
[img]http://www.speedtest.net/result/3627915067.png[/img]
Post a new topic Post a reply

Return to “Discutii IT”