Zgryźliwość kojarzy mi się z radością, która źle skończyła.
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