Microsoft Small Basic - poradnik programowania: Różnice pomiędzy wersjami

brak 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.''"
[[Kategoria:Poradniki]][[Kategoria:Oprogramowanie]]


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>


''Ciąg dalszy wkrótce.''
=== 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