| |
hehe Korelacja to za dużo powiedziane. Bo jak korelacja to gdzie są zmienne? ;)
Nie widzisz zmiennych?
Na zmienne można patrzeć różnie, albo jak na liczby albo jak na obiekty różnej natury. Różne języki programowania określają następujące podstawowe typy zmiennych:
- liczby całkowite (ze znakiem lub bez);
- liczby zmiennoprzecinkowe (j.w.);
- typy logoczne (prawda/fałsz);
- data i czas;
- ciągi znaków;
Jest ich znacznie więcej, są ponadto zmienne złożone, ale to nie miejsce na takie wykady. A to programik dla ciebie, możesz go sobie wkleić do edytora VBE w Excelu, kopiując kod w zakresie od "Sub" do "End Sub":
Sub Zgadywanka()
' otwieramy program Excel
' naciskamy kombinację klawiszy Alt+F11
' wybieramy menu View/Project Explorer
' wybieramy menu Insert/Module
' w okno wklejamy podany kod
' klikamy na obszar kodu (aby był tam zlokalizowany kursor)
' uruchamiamy programik klawiszem F5
' odpowiedamy na pytania w teście
' Życzę miłej zabawy...
Powitanie = MsgBox("Jeżeli chcesz sobie zasymulować realia czasów końca, odpowiadaj kolejno: Nie, Tak, 666, 666, Tak, Tak", vbOKOnly, "Witam serdecznie drogi forumowiczu z Fly Fishingu!")
'deklaracja zmiennych testu
Dim test_01, test_02, test_03, test_04, test_05, test_06 As Boolean
'testowanie wartości zmiennych w ankiecie
Ans01 = MsgBox("Czy na świecie można dokonywać traksakcji gotówkowych?", vbYesNo, "Test pierwszy")
If Ans01 = vbYes Then test_01 = False Else test_01 = True
Ans02 = MsgBox("Czy na świecie można dokonywać traksakcji bezgotówkowych?", vbYesNo, "Test drugi")
If Ans02 = vbYes Then test_02 = True Else test_02 = False
Ans03 = InputBox("Podaj ciąg trzech cyfr dłuższych kresek kodu kreskowego EAN-13", "Test trzeci")
If Ans03 = 666 Then test_03 = True Else test_03 = False
Ans04 = InputBox("Podaj prefix globalnego systemu identyfikacji L.U.C.I.D.", "Test czwarty")
If Ans04 = 666 Then test_04 = True Else test_04 = False
Ans05 = MsgBox("Czy administracja nakazuje ci oznakowanie na czoło lub prawą rękę?", vbYesNo, "Test piąty")
If Ans05 = vbYes Then test_05 = True Else test_05 = False
Ans06 = MsgBox("Czy bez oznakowania na czole lub ręce nie możesz nic kupić ani sprzedać?", vbYesNo, "Test piąty")
If Ans06 = vbYes Then test_06 = True Else test_06 = False
If (test_01 And test_02 And test_03 And test_04 And test_05 And test_06) = True Then MsgBox "To już czasy ostateczne - musisz wybrać Boga lub ten świat!"
If (test_01 And test_02 And test_03 And test_04 And test_05 And test_06) = False Then MsgBox "To jeszcze nie czasy ostateczne - możesz iść na ryby!"
End Sub
|
