potrzebne do zdannia wykladu PAU

<BODY>

<TABLE border=2, bordercolor=#1475729, width=150>

<TR>

<TD> Jeden </TD> <TD> Dwa </TD>

</TR>

<TR>

<TD> Trzy </TD> <TD> Cztery </TD>

</TR>

</TABLE>

</BODY>

</HTML>

<BODY>
<TABLE border=2 width=800>

<TR><TD align=left>Wyrównanie do lewej</TD><TD align=center>Wyśrodkowanie</TD><TD align=right>Wyrównanie do prawej</TD></TR>

<TR height=50><TD colspan=3 align=center valign=middle>Scalone i wyśrodkowane (w pionie i poziomie) komórki</TD> </TR>

<TR><TD rowspan=2 align=right valign=top>scalone w pionie</TD><TD>tekst</TD><TD rowspan=2 align=left valign=bottom>scalone w pionie</TD></TR>

<TR><TD>przykładowy tekst</TD></TR>

</TABLE>

</BODY>

</HTML>

CSS - to język służący do opisu formy prezentacji (wyświetlania) stron WWW. Ma większe możliwości formatowania oraz łatwość ujednolicenia i modyfikowania wyglądu

HTML - pozwala opisać strukturę informacji zawartych wewnątrz strony internetowej, nadając znaczenie poszczególnym fragmentom tekstu. Jest to język opisu dokumentów służących do publikowania informacji na stronach internetowych

RÓZNICA POMIEDZY CSS i HTML - HTML jest używany do strukturyzacji treści. CSS jest używany do formatowania tej treści

Algorytm jest przepisem rozwiązania podstawowego zadania będącego dokładnie określonym układem elementarnych

Schemat blokowy jest to sieć działań czyli graficzna prezentacja algorytmu (procedury lub programu) sporządzona w celu przedstawienia algorytmu do zapisania w języku programowania. Częściami składowymi schematu blokowego są podstawowe figury geometryczne (np. prostokąt, romb, koło)

Programowanie Strukturalne – rodzaj programowania w którym program podzielony jest na niewielkie części procedury, funkcje czy moduły. Ułatwia ono testowanie a także eksploatację kodu programu

Programowanie obiektowe – rodzaj programowania w którym dane i wykonane na nich operacje sa połączone w tzw obiekty. Ten zabieg umożliwia szybsze pisanie większych programów przez składanie ich z wzajemnie powiązanych obiektów, odpowiadających za daną funkcje programu

Strukturalne a obiektowe – różnica polega na tym, że w programowaniu strukturalnym przy wywoływaniu procedur są przekazywane im dane, a w obiektowym aktywują się metody dla poszczególnych danych umieszczonych w polach obiektu

Procedura a funkcja – funkcja ma wykonywać jakies obliczenia i zwracać jakąs wartość, procedura natomiast nie zwraca zadnej watości a zamiast tego wykonuje pewne działania

Visual Basic dla Aplikacji (VBA) to środowisko programowania dzięki któremu możemy wykorzystać w pełni (często ukryte) możliwości pakietu Microsoft Office lub innych aplikacji w których jest wykorzystywane.

makro - napisany lub zarejestrowany program przechowujący szereg poleceń i funkcji, które są przechowywane
w VBa. Makra są przeznaczone do automatyzacji złożonych zadań i zmniejszania liczby kroków wymaganych do wykonania często powtarzających się zadań.

Instrukcja: Program VBA złożony jest z instrukcji (rozkazów), które w procesie kompilacji przetwarzane są na kod. Instrukcje te wykonywane są w określonym porządku zdefiniowanym przez programistę. Pojedyncza instrukcja może np. zadeklarować zmienną, ustawić wartość lub wykonać określoną operację.

Instrukcje programu zorganizowane są w procedury, moduły i projekty.

Typy procedur: Najogólniej procedury możemy podzielić na dwa typy tj. podprogramy i funkcje.
PROCEDURA: Podprogram - jest to podstawowy typ procedur języka VBA. Procedurę deklarujemy za pomocą słowa Sub, instrukcja End Sub zamyka procedurę. Jest to typ procedury, który można uruchomić niezależnie od innych procedur.

Napisac procedure która umozliwi wpisanie użytkownikowi dwóch liczb oraz
- jeśli obie liczby są + to wyświetli „liczby +”
-jeśli obie liczby są – to wyświetl „liczby –„
- inaczej wyświetl iloczyn liczb

Sub zad5()
Dim L1 As Double
Dim L2 As Double

L1 = InputBox("Podaj L1")
L2 = InputBox("Podaj L2")

If (L1 > 0 And L2 > 0) Then
MsgBox ("Liczby dodatnie")
ElseIf (L1 < 0 And L2 < 0) Then
MsgBox ("Liczby ujemne")

Else
MsgBox (L1 * L2)
End If
End Sub

Napisac procedure która umozliwi wpisanie 2 liczb Lp i Lk, a nst obliczy i wyświetli sumę kolejnych liczb całkowitych z przedziału Lp i Lk

Sub zad2()

Dim Lp As Integer
Dim Lk As Integer
Dim suma As Integer
Dim i As Integer

Lp = InputBox("Podaj Lp")
Lk = InputBox("Podaj Lk")

suma = 0

If Lp < Lk Then
For i = Lp To Lk
suma = suma + i
Next i
Else

For i = Lk To Lp

suma = suma + i

Next i

End If

MsgBox (suma)
End Sub

napisac procedurę która wyliczy sume N liczb wprowadzonych przez uzyt. Wartosc N jest okreslona przy uruch procedury. Wynik wyswietlic na ekranie

Sub zad4()
Dim N As Integer
Dim L As Double
Dim i As Integer
Dim suma As Double

N = InputBox("ile liczb wprowadzisz?")
suma = 0

For i = 1 To N
L = InputBox("podaj liczbe")
suma = suma + L
Next i

MsgBox (suma)
End Sub

 Sub ObliczProcent()
Dim L1 As Integer
Dim L2 As Integer
Dim suma As Byte
L1=inputBox(“podaj L1”)
L2=inputBox(“podaj L2”)
i=L1
suma=0
while=suma+L1
i=i+1
wend
MsgBox suma
End Sub

Funkcja - procedura deklarowana za pomocą słowa kluczowego Function, instrukcja End Function kończy procedurę.
Procedura Function jest podobna do procedury Sub, jednak w przeciwieństwie do podprogramu zwraca wartość np. do
procedury która ją wywołała.

FUNKCJA : Przyznanie pracownikowi premii w zależności od zajmowanego stanowiska

Stanowisko Premia (procent pensji)
1 10%
2 9%
3 7%
Pozostali 0%

Function Premia (stanowisko, pensja)
If stanowisko = 1 Then
Premia = pensja*0,1
Elseif stanowisko = 2 Then
Premia = pensja*0,09
Elseif stanowisko = 3 Then
Premia = pensja*0,07
Else
Premia = 0
End If
End Function

napisac funkcje której wartośc obliczana jest na podstawie wzoru:
x1-x2/x3 dla x3>5
(x1-x2)*x3 dla x3 <=5

Function Obliczenia(X1, X2 As Integer, X3 As Double) As Double
If X3 > 5 Then
Obliczenia = (X1 - X2) / X3

Else
Obliczenia = (X1 - X2) * X3
End If
End Function

napisać funkcję WIĘKSZA której wartością jest:
1 –jeżeli liczba1 jest wieksza od liczby2
2 – liczba 2 jest wieksza od liczby1
inaczej 0 jeśli są równe

Function Wieksza(Liczba1, Liczba2 As Double) As Integer
If Liczba1 > Liczba2 Then
Wieksza = 1
ElseIf Liczba2 > Liczba1 Then
Wieksza = 2

Else
Wieksza = 0
End If
End Function

Napisac funkcje Stypendium (srednie dochody, sr ocen ,
miejsce zam) której wartością jest kwota przyznanego stype
składającego się z sumy styp socj (a) i naukowego (B)

Function Stypendium(srednie_dochody As Double, srednia_ocen
As Double, miejsce_zamieszkania As String) As Integer
Dim styp_soc As Integer
Dim styp_nauk As Integer

If srednie_dochody < 501 Then styp_soc = 750
ElseIf srednie_dochody <= 1000 Then styp_soc = 500
ElseIf srednie_dochody <= 2000 Then styp_soc = 200
ElseIf srednie_dochody > 2000 Then styp_soc = 0

End If

If srednia_ocen > 4.75 Then styp_nauk = 950

ElseIf srednia_ocen >= 4.51 Then styp_nauk = 600
ElseIf srednia_ocen >= 4.26 Then styp_nauk = 400
ElseIf srednia_ocen >= 4.01 Then styp_nauk = 200
ElseIf srednia_ocen < 4.01 Then styp_nauk = 0

End If

Stypendium = styp_nauk + styp_soc

If styp_soc > 0 And Not miejsce_zamieszkania = "Wrocław" Then

Stypendium = Stypendium + 200

End If
End Function

Funkcja suma od do(lp,Lk) której wartoscia jest
suma kolejnych liczb całkowitych z przedzialu od Lp do Lk

Function SUMA_OD_DO(Lp, Lk As Integer) As Integer
Dim suma As Integer
Dim i As Integer

suma = 0
If Lp < Lk Then
For i = Lp To Lk
suma = suma + i

Next i
Else
For i = Lk To Lp
suma = suma + i

Next i
End If
SUMA_OD_DO = suma
End Function
Function Obliczenia(a As Integer) As Integer
if a>=0 Then
obliczenia a
Else
obliczenia=-a
End If
End Function

Instrukcje warunkowe

If... Then... Else - jeśli pewien warunek jest spełniony (True), należy wykonać pewien zestaw poleceń, gdy jednak warunek jest fałszywy (False) program powinien wykonać inny blok poleceń.

If warunek Then
Instrukcja
Elself warunek Then
Instrukcja
….
Else
Instrukcja
End If

Przykład:
Private Sub CommandButton1_Click()
 If Range("A1").Value = 0 Then
  Range("A2").Value = "wartość wynosi zero"
 Else
 If Range("A1").Value >0 Then
Range(“A2”).Value=”wartość dodatnia”
Else
Range(“A2”).Value=”wartość ujemna”
 End If
End Sub

Select Case - ocenia wyrażenie tylko raz i w zależności od jego wartości, wykonuje zadany blok instrukcji. Struktura Select Case może zawierać wiele instrukcji Case ale może zawierać tylko 1 instrukcje Case Else!!

Select Case wyrażenie
Case lista_wartości1
Instrukcje…
..
Case lista_wartościN
Instrukcje
Case Else
Instrukcje_else…
End select

Przykład:

Private Sub CommandButton1_Click()
 Dim NumerDnia
  NumerDnia = Range("A1").Value
 If IsNumeric(NumerDnia) = True Then
  Select Case NumerDnia
   Case 1
    Range("A2").Value = "Niedziela"
   Case 2
    Range("A2").Value = "Poniedziałek"
Case Else
    Range("A2").Value = "Poza zakresem wpisz wart. od 1 do 7"
  End Select
 Else
  Range("A2").Value = "Wpisz wartość liczbową"
 End If
End Sub

Instrukcje Literacyjne – PĘTLE!!

Do...Loop Wielokrotnie wykonuje blok kodu tak długą aż instrukcja warunkowa umieszczona wewnątrz tej pętli wykona instrukcje Exit - Exit Do jest obowiązkowe – inaczej w nieskończoność
Do While...Loop

Rozpoczyna i powtarza blok kodu umieszczony wewnątrz pętli jeżeli jest spełniony warunek umieszczony na początku tej pętli

While warunek
Instrukcje
Wend
Do (While/Until) warunek
Instrukcje
Loop
Do...Loop While Wykonuje blok kodu umieszczony wewnątrz pętli jeden raz i powtarza go tak długą jak długo jest spełniony warunek umieszczony na końcu pętli.
Do Until...Loop Rozpoczyna i powtarza blok kodu umieszczony wewnątrz pętli dopóki nie zostanie spełniony warunek umieszczony na początku tej pętli.
Do...Loop Until Wykonuje blok kodu umieszczony wewnątrz pętli jeden raz i powtarza go do czasu gdy zostanie spełniony warunek umieszczony na końcu pętli .
Pętla For... Next 

powtarza blok instrukcji określoną liczbę razy, stosujemy ją jeżeli z góry wiadomo ile razy pętla ma być wykonana. Podstawowa składnia pętli For... Next jest następująca.

For zm=wP To wK
Instrukcje
Next[zm]
Do
Instrukcje
Loop (while/ Until) warunek

Przykład:

Sub PrzykładPętli()
 Dim kolumna As Integer
 For kolumna = 1 To 10
  Cells(1, kolumna) = kolumna
 Next kolumna
End Sub

Tablica: zbiór kolejno indeksowanych elementów mających ten sam wewnętrzny typ danych. Każdy element tablicy posiada unikatowy numer indeksu. Przeprowadzenie zmian dla jednego elementu tablicy nie wpływa na inne jej elementy.

Deklarowanie tablicy: są w zasadzie deklarowane w ten sam sposób co inne zmienne, to jest z użyciem instrukcji Dim, Static, Private lub Public. Słowa te tak jak w przypadku zmiennych służą nie tylko do deklarowania ale i do określania zakresu tablic.

Np. Dim DniTygodnia(1 To 7) As String
 DniTygodnia(1) = "Poniedziałek"
 DniTygodnia(2) = "Wtorek" 'idt.

zmienna - opatrzone nazwą miejsce w pamięci do przechowywania danych, które mogą ulegać modyfikacjom w trakcie wykonywania programu. Każda zmienna zaopatrzona jest w unikatową nazwę, która identyfikuje ją w obrębie danego zakresu. Typ danych może być określony lub nie. 

Deklarowanie zmiennych: Deklarowanie zmiennej jest to operacja polegająca na nadaniu jej nazwy oraz określeniu typu i dostępności. Jeżeli zadeklarujemy zmienną to jednocześnie przydzielamy jej pamięć. Do deklarowania zmiennej zazwyczaj stosowane jest słowo kluczowe Dim!! Np. Dim MojaLiczba

Stała: element o nadanej nazwie, który zachowuje stałą wartość przez cały czas działania programu. Stała może być ciągiem znaków lub literałem numerycznym,

Deklarowanie stałych: to operacja polegająca na nadaniu jej nazwy i przypisaniu odpowiedniej wartości oraz na ewentualnym określeniu typu i dostępności. Do deklaracji stałej i nadania jej wartości służy słowo kluczowe Const.

Przykład:
Const Str1 = „Napis”
Const liczba1 = 5
Const Str2 = „Napis”, Liczba2 = 3,4567

InputBox – pytanie np. InputBox( „Wprowadź liczbę”)
MsgBox – komunikat np. MsgBox(„Czy chcesz kontynuować?”)

OPERATORY:

Operator Operacja i opis Przykład
^   Potęgowanie - podnosi wartość do potęgi określonej w wykładniku. Dim Wynik
 Wynik = 10 ^ 3 ' Wynikiem jest 1000
 MsgBox Wynik
*   Mnożenie - wykonuje mnożenie . Dim Wynik
 Wynik = 10 * 3 ' Wynikiem jest 30
 MsgBox Wynik
/   Dzielenie - wykonuje dzielenie i zwraca wynik w postaci zmiennoprzecinkowej. Dim Wynik
 Wynik = 10 / 3 ' Wynikiem jest 3.333333
 MsgBox Wynik
\   Dzielenie - wykonuje dzielenie i zwraca wynik w postaci liczby całkowitej. Dim Wynik
 Wynik = 10 \ 3 ' Wynikiem jest 3
 MsgBox Wynik
Mod   Modulo - wykonuje dzielenie i zwraca tylko resztę z przeprowadzonego dzielenia. Dim Wynik
 Wynik = 10 Mod 3 ' Wynikiem jest 1
 MsgBox Wynik
+   Dodawanie - sumuje dwie wartości (operatora tego możemy też użyć do łączenia ciągów). Dim Wynik
 Wynik = 10 + 3 ' Wynikiem jest 13
 MsgBox Wynik
-   Operator ten stosuje się do znajdowania różnicy - Odejmowanie lub do zaznaczania ujemnej wartości wyrażenia numerycznego - Negacja. Dim Wynik
 Wynik = 10 - 3 ' Wynikiem jest 7
 MsgBox Wynik
 Wynik = -Wynik ' Wynikiem jest -7
 MsgBox Wynik
Typ danych Opis i zakres wartości
Byte Liczby całkowite od 0 do 255
Boolean Wartości logiczne: True (prawda) lub False (fałsz)
Integer Liczby całkowite od -32 768 do 32 767
Long Liczby całkowite od -2 147 483 648 do 2 147 483 647
Single Liczby zmiennoprzecinkowe pojedynczej precyzji:
od -3,402823E38 do -1,401298E-45 dla wartości ujemnych
od 1,401298E-45 do 3,402823E38 dla wartości dodatnich
Double Liczby zmiennoprzecinkowe podwójnej precyzji:
od -1,79769313486231E308 do -4,94065645841247E-324 dla wartości ujemnych
od 4,94065645841247E-324 do 1,79769313486232E308 dla wartości dodatnich
String Tekst o stałej długości od 1 do 65 400 znaków

ODWOŁANIA DO KOMÓREK!!

Cells(2,3).Value = wartość

Range(„C2”).Value = wartość

Range (“A1”) Komórka A1
Range (“A1:B5”) Komórki od A1 do B5
Range (“A:A”) Kolumna A
Range (“1:1”) Wiersz 1
Range (“A:C”) Kolumny od A do C
Range (“1:5”) Wiersze od 1 do 5
Range (“1:1, 3:3, 8:8”) Wiersze 1, 3 i 8
Range (“A:A, C:C, F:F”) Kolumny a, c i f
Len (s As String) As Long długość napisu s; liczba znaków w ciągu stanowiącym bieżącą wartość argumentu
Left (s As String, ile As Byte) As String Pierwsze ile znaków licząc od początku ciągu tekstowego s
Mid (s As String, od_znaku As Byte, ile_znaków As Byte) As String Napis składający się z określonej liczby znaków (ile_znaków) napisu s począwszy od wskazanego przez od_znaku.
Right (s As String, ile_znaków As Byte) As String Napis składający się z określonej liczby znaków napisu s licząc od końca tego napisu.
UCase (s As String) As String napis s po dokonaniu w nim konwersji wszystkich małych liter na wielkie.
LCase (s As String) As String napis s po dokonaniu w nim konwersji wszystkich wielkich liter na małe.

NAPISYYYYY!:

napisac funkcje napis bez spacji (s) której wartoscia jest napis
utworzony ze znaków składających się na napis s ale bez spacji

Function NapisBezSpacji(s As String) As String
Dim i As Integer
Dim napis2 As String
napis2 = ""
For i = 1 To Len(s)
If (Mid(s, i, 1) <> " ") Then
napis2 = napis2 + Mid(s, i, 1)
End If
Next i
NapisBezSpacji = napis2
End Function

Napisac funkcje odwróć napis S

Function OdwrocNapis(s As String) As String
Dim i As Integer
Dim napis2 As String
napis2 = ""
For i = Len(s) To 1 Step -1
napis2 = napis2 + Mid(s, i, 1)
Next i
OdwrocNapis = napis2
End Function

Function OdwrocNapiss(napis1 As String) As String

Dim napis2 As String
Dim i As Integer

For i = Len(napis1) To 1 Step -1
napis2 = napis2 + Mid(napis1, i, 1)
Next i
OdwrocNapiss = napis2
End Function

napisac funkcje zmiana(S,z, Zn) której wartoscia będzie napis utworzony napodstawie podanego napisu s , w ktorym znaki z zostaną zastąpione znakiem zn

Function Zamiana(s As String, Z As String, ZN As String) As String
Dim i As Integer
Dim napis2 As String
napis2 = ""
For i = 1 To Len(s)
If (Mid(s, i, 1) = Z) Then
napis2 = napis2 + ZN

Else
napis2 = napis2 + Mid(s, i, 1)
End If
Next i
Zamiana = napis2
End Function

napisac funkcje spacjapojedyncze(napis as string) as string której wartoscia jest napis bez powt się spacji

Function SpacjePojedyncze(napis As String) As String

Dim i As Integer
Dim napis2 As String
Dim ile As Integer

napis2 = ""
ile = 0

For i = 1 To Len(napis)
If (Mid(napis, i, 1) <> " ") Then

napis2 = napis2 + Mid(napis, i, 1)

ile = 0
ElseIf (Mid(napis, i, 1) = " ") And ile = 0 Then

napis2 = napis2 + " "
ile = ile + 1
End If
Next i

SpacjePojedyncze = napis2

End Function
Funkcja IleSpacji(S as String) As Byte
Dim I as Byte
Dim ile as Byte
for i=1 to Len(s)
if min(s,I,1=” “ then
end if
ileSpacji=ile
End Funbction

Wyszukiwarka

Podobne podstrony:
Podaję listę pytań do zaliczenia wykładu, Politechnika, Podstawy marketingu
Wykłady PAU zagadniuenia na egzamin 12
Wykłady PAU Wykłąd PAU 7 12 11
spis dokumentow potrzebnych do wiz, PRZYDATNE DLA KIEROWCÓW ZAWODOWYCH
patofizjologia pytania do zaliczenia, Wykłady
Wszystko co potrzebne do nauki na egzamin, Politechnika Gdańska, Zarządzanie WZiE, semestr 3, Zarząd
Wprowadzenie do Pedagogiki 02.12.2010, RESOCJALIZACJA, wprow. do pedagogiki wykłady
Trening 5 do kol5, wykłady
Teoria potrzeb i konsumpcji TPIK wykłady
Wstęp do Socjologi Wykład 3 # 10 2013, wykład 4 0 10 2013, wykład 5  11 2013
Wstęp do socjologii wykład 1, 9 10 2013, wykład 2, 10 2013
uzutkowanie do poczytania, Wykłady
Urządzenia nawigacyjne - Notatka do Kolokwium z wykładów, Akademia Morska, I semestr, urządzenia naw
egzamin odpowiedzi do pytan, Wykłady, Usługi w biznesie, Międzynarodowe Stosunki Gospodarcze, MSG, M
Trening 3 do kol3, wykłady
ZAŁĄCZNIK DO II WYKŁADU

więcej podobnych podstron