Www.Hackinng.Ro
Totul despre Hacking !!!
|
Lista Forumurilor Pe Tematici
|
Www.Hackinng.Ro | Inregistrare | Login
POZE WWW.HACKINNG.RO
Nu sunteti logat.
|
Nou pe simpatie:
LaraTaner
 | Femeie
24 ani
Prahova
cauta Barbat
24 - 52 ani |
|
air_g3org3
Administrator
 Inregistrat: acum 14 ani
Postari: 734
|
|
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:
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
Daca doriti Visual Basic 6 il gasiti pe google....
Calculatorul creat de mine il puteti downloada de aici :
code:
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
_______________________________________
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…
|
|
| pus acum 14 ani |
|