| | |
| Reklama |
|
| |
|
|
Jacu
|
23.10.2008 12:19:53
|
Grupa: Użytkownik
Lokalizacja: Grupa V, Oleśnica/Wrocław
Posty: 58
#169322
Od: 2008-10-12
Ilość edycji wpisu: 1
|
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
wpis edytowany 23.10.2008 12:20:24
|
| |
|
|
Wioleta_Pawluch
|
23.10.2008 13:29:31
|
Grupa: Użytkownik
Lokalizacja: GR1 =)*
Posty: 26
#169342
Od: 2008-10-12
|
a to na cwieczenia czy na wyklad? |
| |
|
|
Jacu
|
23.10.2008 15:31:10
|
Grupa: Użytkownik
Lokalizacja: Grupa V, Oleśnica/Wrocław
Posty: 58
#169384
Od: 2008-10-12
|
to jest jedno z ostatnich zadań, więc tylko na razie do informacji  |
| |
|
|
Wioleta_Pawluch
|
23.10.2008 16:46:32
|
Grupa: Użytkownik
Lokalizacja: GR1 =)*
Posty: 26
#169409
Od: 2008-10-12
|
ale z czego ostatnich zadan z wykladu?
bo nie odpowiedziales mi na pytanie |
| |
|
|
Mateusz_Krol
|
23.10.2008 17:02:28
|
Grupa: Użytkownik
Lokalizacja: wciąż GR. 7 ! ;]
Posty: 129
#169422
Od: 2008-10-12
|
pewnie ostatnie zadanie ze wszystkich zadan czyli przedsesyjne tak ? |
| |
|
|
Jacu
|
23.10.2008 21:04:16
|
Grupa: Użytkownik
Lokalizacja: Grupa V, Oleśnica/Wrocław
Posty: 58
#169575
Od: 2008-10-12
|
tak właśnie, jak widać jest to visual basic |
| |
|
|
natalia_j
|
24.10.2008 06:46:29
|
Grupa: Użytkownik
Lokalizacja: Lubań Śl.
Posty: 485
#169665
Od: 2008-10-15
|
masakra! ono jest obowiązkowe??
_________________
Natalia Jankowska |
| |
|
|
Jacu
|
24.10.2008 11:09:12
|
Grupa: Użytkownik
Lokalizacja: Grupa V, Oleśnica/Wrocław
Posty: 58
#169696
Od: 2008-10-12
|
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? |
| |
|
|
oli885
|
02.11.2008 12:43:58
|
Grupa: Użytkownik
Lokalizacja: gg.6
Posty: 45
#173167
Od: 2008-10-14
|
jak można wejsc na testy z wykładow z technologi infor.-on podał hasło dostepu a urzytkownik ? |
| |
|
|
DJ_Ecstasy
|
02.11.2008 14:24:07
|
Grupa: Użytkownik
Lokalizacja: Łęka Opatowska / Gr.2
Posty: 121
#173188
Od: 2008-10-12
|
logujesz sie tak jak na poczte czyli login to nr indeksu bez 008 czy cos takiego a hasło takie jak do poczty |
| | |
| Reklama |
|
| |
|
|
Mateusz_Krol
|
02.11.2008 16:56:48
|
Grupa: Użytkownik
Lokalizacja: wciąż GR. 7 ! ;]
Posty: 129
#173235
Od: 2008-10-12
|
a te testy to na uniwirt czy uniwirt2 ?
|
| |
|
|
DJ_Ecstasy
|
02.11.2008 17:15:09
|
Grupa: Użytkownik
Lokalizacja: Łęka Opatowska / Gr.2
Posty: 121
#173248
Od: 2008-10-12
|
z tego co wiem to mówił że uniwirt2 ale ja tam nie widze żadnych udostępnionych testów:/ |
| |
|
|
Dawid_Siepielski
|
02.11.2008 22:23:06
|
Grupa: Moderator
Lokalizacja: Grupa VIII
Posty: 115
#173507
Od: 2008-10-12
Ilość edycji wpisu: 1
|
a trzeba juz robic ten test?? nie było mnie ostatnio na wykładzie i nie wiem co się dzieje
wpis edytowany 02.11.2008 22:24:46
|
