Domeniu: Calculatoare
Conține 31 fișiere:
doc, exe, vbw, vbp, scc, frm
Pagini : 6 în total
Cuvinte : 520
Mărime: 104.09KB (arhivat)
Publicat de: Codin Botezatu
Puncte necesare: 8
Profesor îndrumător / Prezentat Profesorului:
Coanca Marian Iulian
An 1,sem 2
Pentru facultatile cu profil informatic.Proiectul contine 6 probleme.
Extras din proiect
Problema 1.
Private Sub Command1_Click()
Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text))
Label4.Caption = "A+B"
End Sub
Private Sub Command2_Click()
Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text))
Label4.Caption = "A-B"
End Sub
Private Sub Command3_Click()
Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text))
Label4.Caption = "A*B"
End Sub
Private Sub Command4_Click()
Label4.Caption = "A/B"
If Val(Text2.Text) <> 0 Then
Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text))
Else
Text3.Text = "EROARE"
End If
End Sub
Private Sub Command5_Click()
Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Label4.Caption = Empty
End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Preview document
Conținut arhivă zip
- Pr1
- Problema1
- Form1.frm
- MSSCCPRJ.SCC
- Project1.vbp
- Project1.vbw
- Project1.exe
- Pr2
- Problema2
- Form1.frm
- MSSCCPRJ.SCC
- Project1.vbp
- Project1.vbw
- Project1.exe
- Pr3
- Problema3
- Form1.frm
- MSSCCPRJ.SCC
- Project1.vbp
- Project1.vbw
- Project1.exe
- Pr4
- Problema4
- Form1.frm
- MSSCCPRJ.SCC
- Project1.vbp
- Project1.vbw
- Project1.exe
- Pr5
- Problema5
- Form1.frm
- MSSCCPRJ.SCC
- Project1.vbp
- Project1.vbw
- Project1.exe
- Pr6
- Problema6
- Form1.frm
- MSSCCPRJ.SCC
- Project1.vbp
- Project1.vbw
- Project1.exe
- Probleme Visual Basic.doc