Forum budownictwo Zaoczne…

cześć,

podaję rozpisane polecenia Visual Basic do kalkulatora, który mamy zrobić

Pozdrawiam

Sub Dodawanie()

a = Worksheets("Arkusz1".Cells(7, 3).Value
b = Worksheets("Arkusz1".Cells(7, 4).Value
c = a + b
Range("C9:E9".Select
ActiveCell.Value = c

End Sub

Sub Odejmowanie()

a = Worksheets("Arkusz1".Cells(7, 3).Value
b = Worksheets("Arkusz1".Cells(7, 4).Value
c = a - b
Range("C9:E9".Select
ActiveCell.Value = c

End Sub

Sub Mnozenie()

a = Worksheets("Arkusz1".Cells(7, 3).Value
b = Worksheets("Arkusz1".Cells(7, 4).Value
c = a * b
Range("C9:E9".Select
ActiveCell.Value = c

End Sub

Sub Dzielenie()

a = Worksheets("Arkusz1".Cells(7, 3).Value
b = Worksheets("Arkusz1".Cells(7, 4).Value
c = a / b
Range("C9:E9".Select
ActiveCell.Value = c

End Sub

Sub Silnia()

a = Worksheets("Arkusz1".Cells(7, 3).Value
wynik = 1

For n = 1 To a Step 1
wynik = wynik * n
Next n

Range("C9:E9".Select
ActiveCell.Value = wynik

End Sub

Sub SumaNaturalnych()

a = Worksheets("Arkusz1".Cells(7, 3).Value
wynik = 0
licznik = 0

Do Until licznik > a
wynik = wynik + licznik
licznik = licznik + 1
Loop

Range("C9:E9".Select
ActiveCell.Value = wynik

End Sub

Sub Pierwiastek()

a = Worksheets("Arkusz1".Cells(7, 3).Value
wynik = Sqr(a)

Range("C9:E9".Select
ActiveCell.Value = wynik

End Sub

Sub Potega()

a = Worksheets("Arkusz1".Cells(7, 3).Value
b = Worksheets("Arkusz1".Cells(7, 4).Value
wynik = a


For licznik = 1 To b - 1 Step 1
wynik = wynik * a
Next licznik

Range("C9:E9".Select
ActiveCell.Value = wynik

End Sub

Sub ObliczniePierwiastkow()

a = Worksheets("Arkusz1".Cells(7, 3).Value
b = Worksheets("Arkusz1".Cells(7, 4).Value
c = Worksheets("Arkusz1".Cells(7, 5).Value

delta = (b * b) - 4 * a * c

If a = 0 Then
Range("c9".FormulaR1C1 = "ERROR"
Range("c10".FormulaR1C1 = ""
GoTo Koniec
End If

If delta < 0 Then
Range("c25".FormulaR1C1 = "BRAK ROZWIĄZAŃ"
Range("c9".FormulaR1C1 = ""
Range("c10".FormulaR1C1 = ""

ElseIf delta = 0 Then
Range("c25".FormulaR1C1 = "JEDNO ROZWIAZANIE"
x1 = -(b / (2 * a))
Range("c9".Value = x1
Range("c10".FormulaR1C1 = ""

ElseIf delta > 0 Then
Range("c25".FormulaR1C1 = "DWA ROZWIĄZANIA"
'x1 = (-b - Sqr(delta)) / 2 * a
x1 = (-b - Sqr(delta)) / (2 * a)
x2 = (-b + Sqr(delta)) / (2 * a)
Range("C9".Value = x1
Range("C10".Value = x2
End If

Koniec:


End Sub

Sub Wyczysc()

Range("c7:e7".Select
Selection.ClearContents
Range("c9:c10".Select
Selection.ClearContents
Range("c25".Select
Selection.ClearContents
Range("c7".Select

End Sub

a to na cwieczenia czy na wyklad?

to jest jedno z ostatnich zadań, więc tylko na razie do informacji

ale z czego ostatnich zadan z wykladu?
bo nie odpowiedziales mi na pytanie

pewnie ostatnie zadanie ze wszystkich zadan czyli przedsesyjne tak ?

tak właśnie, jak widać jest to visual basic

masakra! ono jest obowiązkowe??

wszystko będzie omawiane na ćwiczeniach. ten kalkulator znalazłem w arkuszu exl w zadaniach. zrobiłem tak na wszelki wypadek, jakby było potrzebne. na razie bez strachu a jest jakieś zadanie domowe dla gr 5?

jak można wejsc na testy z wykładow z technologi infor.-on podał hasło dostepu a urzytkownik ?

logujesz sie tak jak na poczte czyli login to nr indeksu bez 008 czy cos takiego a hasło takie jak do poczty

a te testy to na uniwirt czy uniwirt2 ?

z tego co wiem to mówił że uniwirt2 ale ja tam nie widze żadnych udostępnionych testów:/

a trzeba juz robic ten test?? nie było mnie ostatnio na wykładzie i nie wiem co się dzieje