Www.Hackinng.Ro
Totul despre Hacking !!!
|
Nou pe simpatie:
Popa Bianca pe Simpatie
 | Femeie
25 ani
Valcea
cauta Barbat
25 - 63 ani |
|
|
Www.Hackinng.RoInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Pentru inceput sa punem butoanele
Aveam nevoie de 16 butoane,10 cu numere de la 0 la 9 si 6 diferite: -,/,*,+,=,Clear
La numere le punem numele cmdNumber
Clear cu numele cmdCls
Celelate butoane sa aiba numele cmdCommand
Ca sa fie totu complet mai adaugam si doua Label-uri,numele il lasa asa cum este
Acum sa punem codu-->dublu click pe form
code:
--------------------------------------------------------------------------------
Option Explicit
Private one As Long
Private two As Long
Private Sub cmdCls_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
End Sub
Private Sub cmdCommand_Click(Index As Integer)
If Not cmdCommand(Index).Caption = "=" Then
Label3.Caption = cmdCommand(Index).Caption
Else
one = CLng(Label1.Caption)
two = CLng(Label2.Caption)
Select Case Label3.Caption
Case "/": MsgBox (one / two)
Case "+": MsgBox (one + two)
Case "-": MsgBox (one - two)
Case "*": MsgBox (one * two)
End Select
End If
End Sub
Private Sub cmdNumber_Click(Index As Integer)
If Label3.Caption = "" Then
Label1.Caption = Label1.Caption & CStr(Index)
Else
Label2.Caption = Label2.Caption & CStr(Index)
End If
End Sub
--------------------------------------------------------------------------------
In caz ca aveti nevoie de sursa :
Download:
code:
--------------------------------------------------------------------------------
http://rapidshare.com/files/85030168/Ca ... r.rar.html
--------------------------------------------------------------------------------
Daca doriti Visual Basic 6 il gasiti pe google....
Calculatorul creat de mine il puteti downloada de aici :
code:
--------------------------------------------------------------------------------
http://files.filefront.com/Calculator+P ... einfo.html
--------------------------------------------------------------------------------
_______________________________________
Pot patrunde in orice sistem informatic si pot fura orice date. Pot sa ma uit in computerul tau si nici macar n-o sa stii ca am fost acolo…
|
|
| |
|
