logowanie

Option Explicit ' wymuszanie deklaracji

Sub start_hasło()

'takie do logowania

Load Hasło

Hasło.TextBox1.SetFocus ' żeby kursor działał

Hasło.Show 'żeby się pojawiło

Unload Hasło

End Sub

Option Explicit

Private Sub Koniec_Click()

Application.Quit ' wyjście z programu

End Sub

Private Sub Loguj_Click()

Dim login As String, pass As String ' deklaracja loginu

Static i As Byte 'ładna metoda, deklarujemy zmienną statyczną w ciele procedury

login = "karolinam" 'przypisanie loginu

pass = "asdf1234" ' przypisanie hasła

If TextBox1 = login And TextBox2 = pass Then

MsgBox ("Logowanie poprawne")

Hasło.Hide 'ukrywa formularz

Else

MsgBox ("Błąd logowania")

i = i + 1

If i > 3 Then ' 3możliwości wpisywania

MsgBox ("Jesteś niemądry")

Application.Quit ' wywala z formularza po 3 błedach

End If

End If

End Sub

Matma

Sub start_matma()

Load Matma

Matma.CommandButton1.SetFocus

Matma.Show

Unload Matma

End Sub

Option Explicit

Private Sub CommandButton1_Click()

TextBox2 = Cells(20, 2).Value 'wczytuje liczbę z komórki B20

End Sub

Private Sub CommandButton2_Click()

TextBox4 = Cells(20, 4).Value 'wczytuje liczbe z d20

End Sub

Private Sub CommandButton3_Click() ' obliczanie

Dim a As Single, b As Single

a = Val(TextBox2) ' przypisanie wartości a

b = Val(TextBox4) ' b

If TextBox3 = "+" Then ' rozpisanie operatorów

TextBox5 = a + b ' wyrzucanie wyniku

ElseIf TextBox3 = "-" Then

TextBox5 = a - b

ElseIf TextBox3 = "*" Then

TextBox5 = a * b

ElseIf TextBox3 = "/" Then

TextBox5 = a / b

Else

MsgBox ("Błąd operatora, jesteś niemądry") ' obsługa błedów??

End If

End Sub

Private Sub CommandButton4_Click() ' zamkniecie okna

Matma.Hide

End Sub

Private Sub CommandButton5_Click() 'czyszczenie formularza

TextBox2 = "" 'czyści pole

TextBox3 = ""

TextBox4 = ""

TextBox5 = ""

CommandButton1.SetFocus 'wali od nowa kursor w górę

End Sub

Private Sub CommandButton6_Click() 'wrzuca do arkusza wynik i operator

Cells(20, 3) = TextBox3

Cells(20, 5) = TextBox5

End Sub

Związki

Sub start_związki()

Load Związki

Związki.TextBox1.SetFocus

Związki.Show

Unload Związki

End Sub

Option Explicit

Private Sub CommandButton1_Click() 'czyszczenie formularza

TextBox1 = "" 'czyści pole do nazwy

CheckBox1 = False ' czysci to od stanu skupienia

CheckBox2 = False

CheckBox3 = False

OptionButton1 = False 'czysci to od rozpuszczalnika

OptionButton2 = False

OptionButton3 = False

TextBox1.SetFocus ' ustawianie od nazwy

End Sub

Private Sub CommandButton2_Click()

Dim i As Byte

Sheets(3).Activate ' aktywacja w arkuszu do tabelki

Range("C6").Select ' domyślnie na poczatek tabelki

While Cells(6 + i, 3) <> "" 'pętla sprawdza czy komórka (6+i,3) jest pusta. jeśli nie - przechodzi o wiersz niżej

i = i + 1

Wend

Cells(6 + i, 3) = TextBox1 'wpisuje do arkusza nazwe w kolumnie

If OptionButton1 Then 'to samo co if OptionButton1 = True

Cells(6 + i, 4) = "TAK" 'zaznacza w kolumnach stan skupienia1(optionbutton1)

Else

Cells(6 + i, 4) = "NIE"

End If

If OptionButton2 Then

Cells(6 + i, 5) = "TAK" ' 2

Else

Cells(6 + i, 5) = "NIE"

End If

If OptionButton3 Then

Cells(6 + i, 6) = "TAK" ' 3

Else

Cells(6 + i, 6) = "NIE"

End If

If CheckBox1 Then

Cells(6 + i, 7) = "TAK" ' rozpuszcznie w pierwszym

Else

Cells(6 + i, 7) = "NIE"

End If

If CheckBox2 Then

Cells(6 + i, 8) = "TAK"

Else

Cells(6 + i, 8) = "NIE"

End If

If CheckBox3 Then

Cells(6 + i, 9) = "TAK"

Else

Cells(6 + i, 9) = "NIE"

End If

End Sub

Private Sub CommandButton3_Click() 'zamyka okno

Związki.Hide

End Sub

• zmiana wzoru

• zmiana pochodnej jeśli trzeba

• blokada x

• zmiana ab c

• wizualizacja

• przekopiowac f(x) zmieniajac x

• pozmieniac x tak by lo miejsce zerowe dla programu

• pozamienic zakresy wizualizacji

macierzowe
CTR SHIFT ENTER