--> Archiwum Forum
Axl2000 [ ignoruj mnie ]
Pomoc potrzebna w Visual Basicu...
zna ktos stronke gdzie bedzie opis jak zrobic prosty kalkulator w visual basicu? +/-/*/: ...jestem noga w tym a we wtorek mam klasowke i musze umiec a niemam jak sie nauczyc :| :D
bartek [ ]
Tworzymy interfejs z następujących formantów:
Pole tekstowe txtLiczbaPierwsza, tekst: "0"
Pole tekstowe txtLiczbaDruga, text: "0"
Przycisk poleceń cmdOblicz, tytuł: "Oblicz"
Przycisk opcji optDodaj, tytuł: "Dodawanie"
Przycisk opcji optOdejmij, tytuł: "Odejmowanie"
Przycisk opcji optPomnoz, tytuł: "Mnożenie"
Przycisk opcji optPodziel, tytuł: "Dzielenie"
Przycisk opcji optPoteguj, tytuł: "Potęgowanie"
Przycisk opcji optPorownaj, tytuł: "Porównaj"
Etykieta lblWynik, tytuł: ""
W sekcji General kodu formularza deklarujemy dwie zmienne:
Dim liczbapierwsza As Long
Dim liczbadruga As Long
Rozmieszczamy formanty, jak się nam podoba. Zmieniamy ich właściwości, jak podałem przy ich wyliczeniu. Teraz tworzymy strukturę decyzyjną If... Then... Else...
Wpisujemy:
Private Sub cmdOblicz_Click()
On Error GoTo blad:
liczbapierwsza = Val(txtLiczbaPierwsza.Text)
liczbadruga = Val(txtLiczbaDruga.Text)
If optDodaj.Value = True Then
lblWynik.Caption = Val(liczbapierwsza + liczbadruga)
ElseIf optOdejmij.Value = True Then
lblWynik.Caption = Val(liczbapierwsza - liczbadruga)
ElseIf optPomnoz.Value = True Then
lblWynik.Caption = Val(liczbapierwsza * liczbadruga)
ElseIf optPodziel.Value = True Then
lblWynik.Caption = Val(liczbapierwsza / liczbadruga)
Else:
If liczbapierwsza > liczbadruga Then
MsgBox ("Liczba pierwsza jest większa"), , "Wynik"
ElseIf liczbapierwsza < liczbadruga Then
MsgBox ("Liczba druga jest większa"), , "Wynik"
Else:
MsgBox ("Liczby są równe"), , "Wynik"
End If
End If
Exit Sub
blad:
txtPierwszaLiczba.Text = 0
txtDrugaLiczba.Text = 0
MsgBox ("Za duża liczba"), , "Błąd"
End Sub