| |
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
|
| |
Electra | 09.05.2024 00:41:12 |
|
|
| |
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:29 |
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 |
| |
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 ?
|
| |
Electra | 09.05.2024 00:41:12 |
|
|
| |
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:07 |
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 |