16 164
edycje
Microsoft Small Basic - poradnik programowania (tekst źródłowy)
Wersja z 15:22, 8 maj 2016
, 8 maj 2016brak opisu edycji
Nie podano opisu zmian |
|||
| Linia 1: | Linia 1: | ||
[[Kategoria:Poradniki]][[Kategoria:Oprogramowanie]] | |||
''Poradnik w trakcie tworzenia.'' | |||
Bezpłatny poradnik do programu [[Microsoft Small Basic]] w języku polskim. | Bezpłatny poradnik do programu [[Microsoft Small Basic]] w języku polskim. | ||
| Linia 641: | Linia 644: | ||
* '''Jeśli''' pierwsza odpowiedź to "tak" '''<u>LUB</u>''' druga odpowiedź to "tak", '''wtedy''' wyświetl napis "''Dotrzymali słowa, jeśli obiecali rower '''LUB''' komputer.''" | * '''Jeśli''' pierwsza odpowiedź to "tak" '''<u>LUB</u>''' druga odpowiedź to "tak", '''wtedy''' wyświetl napis "''Dotrzymali słowa, jeśli obiecali rower '''LUB''' komputer.''" | ||
* '''Jeśli''' pierwsza odpowiedź to "tak" '''<u>I</u>''' druga odpowiedź to "tak", '''wtedy''' wyświetl napis "''Dotrzymali słowa, jeśli obiecali rower '''I''' komputer.''" | * '''Jeśli''' pierwsza odpowiedź to "tak" '''<u>I</u>''' druga odpowiedź to "tak", '''wtedy''' wyświetl napis "''Dotrzymali słowa, jeśli obiecali rower '''I''' komputer.''" | ||
Należy pamiętać, że poprawna forma zapisu to: | Należy pamiętać, że poprawna forma zapisu to: | ||
| Linia 649: | Linia 651: | ||
* <code> <s>If (X > 0 And < 10) Then</s> </code> | * <code> <s>If (X > 0 And < 10) Then</s> </code> | ||
'' | === Przykład: Ocenianie kwadry socjotypu === | ||
[[Socjonika]] wyróżnia 16 socjotypów. Każdy z nich jest przydzielony do jednej z czterech kwadr. | |||
* Alfa: ILE, SEI, ESE, LII | |||
* Beta: SLE, IEI, EIE, LSI | |||
* Gamma: SEE, ILI, LIE, ESI | |||
* Delta: IEE, SLI, LSE, EII | |||
Tak wygląda program, który na podstawie socjotypu pokazuje kwadrę. | |||
<code> | |||
<poem> | |||
'Wybór socjotypu | |||
TextWindow.WriteLine("Podaj trzyliterową nazwę socjotypu np. EII:") | |||
socjotyp = TextWindow.Read() | |||
'Sprawdzanie kwadry | |||
If socjotyp = "ILE" Or socjotyp = "SEI" Or socjotyp = "ESE" Or socjotyp = "LII" Then | |||
TextWindow.WriteLine("Kwadra: Alfa") | |||
EndIf | |||
If socjotyp = "SLE" Or socjotyp = "IEI" Or socjotyp = "EIE" Or socjotyp = "LSI" Then | |||
TextWindow.WriteLine("Kwadra: Beta") | |||
EndIf | |||
If socjotyp = "SEE" Or socjotyp = "ILI" Or socjotyp = "LIE" Or socjotyp = "ESI" Then | |||
TextWindow.WriteLine("Kwadra: Gamma") | |||
EndIf | |||
If socjotyp = "IEE" Or socjotyp = "SLI" Or socjotyp = "LSE" Or socjotyp = "EII" Then | |||
TextWindow.WriteLine("Kwadra: Delta") | |||
EndIf | |||
</poem> | |||
</code> | |||
http://i.imgur.com/F3YaIyp.png | |||