Użytkownik:VistaFan12/Programowanie/KoloryBasic: Różnice pomiędzy wersjami

Użytkownik:VistaFan12/Programowanie/KoloryBasic (tekst źródłowy)

Wersja z 14:20, 10 maj 2016

Usunięte 1065 bajtów , 10 maj 2016

→‎Kod programu

WizualnieWikikod

VistaFan12

122

edycje

@@ Linia 1: / Linia 1: @@
 Kolory - aplikacja stworzona przez VistęFana w języku [Smail Basic]
 == Kod programu ==
-<code>TextWindow.Title = "kolorki"
+[Kod na pastebin.com http://pastebin.com/5iNnDjWs]
-For i = 1 To 10000
-  If TextWindow.BackgroundColor = "Blue" Then
-    TextWindow.BackgroundColor = "Magenta"
-  Else
-    TextWindow.BackgroundColor = "Blue"
-  EndIf
-  TextWindow.Write(" ")
-EndFor
-For i = 1 To 10000
-  If TextWindow.BackgroundColor = "Blue" Then
-    TextWindow.BackgroundColor = "Yellow"
-  Else
-    TextWindow.BackgroundColor = "Blue"
-  EndIf
-  TextWindow.Write(" ")
-EndFor
-For i = 1 To 10000
-  If TextWindow.BackgroundColor = "Blue" Then
-    TextWindow.BackgroundColor = "Red"
-  Else
-    TextWindow.BackgroundColor = "Blue"
-  EndIf
-  TextWindow.Write(" ")
-EndFor
-For i = 1 To 10000
-  If TextWindow.BackgroundColor = "Red" Then
-    TextWindow.BackgroundColor = "Blue"
-  Else
-    TextWindow.BackgroundColor = "Red"
-  EndIf
-  TextWindow.Write(" ")
-EndFor
-For i = 1 To 10000
-  If TextWindow.BackgroundColor = "Red" Then
-    TextWindow.BackgroundColor = "Cyan"
-  Else
-    TextWindow.BackgroundColor = "Red"
-  EndIf
-  TextWindow.Write(" ")
-EndFor
-TextWindow.WriteLine (" ")
-TextWindow.WriteLine ("Przetrwałeś tą kolorową menczarnie?")
-TextWindow.WriteLine (":v")</code>
 Jeżeli kod jest dłuuugi, to mnie poprawcie B) --[[Użytkownik:VistaFan12|Eryk &#34;VistaFan12&#34; Lupa ]] ([[Dyskusja użytkownika:VistaFan12|dyskusja]]) 15:17, 10 maj 2016 (CEST)