Kenex: Kenex przeniósł stronę Użytkownik:Kenex/kody do Kreator Tabelografiki/kody

2025-04-24T19:23:43Z

Kenex przeniósł stronę Użytkownik:Kenex/kody do Kreator Tabelografiki/kody

← poprzednia wersja	Wersja z 19:23, 24 kwi 2025
(Brak różnic)

Kenex o 19:23, 24 kwi 2025

2025-04-24T19:23:11Z

← poprzednia wersja		Wersja z 19:23, 24 kwi 2025
Linia 1:		Linia 1:
	== Kreator ~~tabelografiki ==~~		To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić.

	~~=== Jak korzystać? ===~~		== Kreator tabelografiki 0.1 ==
	~~To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić. Polecam zjechać niżej po nowszą wersję.~~		<pre>

	=== Kreator tabelografiki 0.1 ===
	~~Kod:~~

	~~<poem>~~
	<~~code~~>
	GraphicsWindow.Title = "Kreator Tabelografiki"		GraphicsWindow.Title = "Kreator Tabelografiki"

Linia 110:		Linia 104:

	EndSub		EndSub
	</~~code~~>		</pre>
	~~</poem>~~

	~~=== Kreator tabelografiki 0.2 ===~~
	~~Kod:~~

	~~<poem>~~		== Kreator tabelografiki 0.2 ==
	<~~code~~>		<pre>
	GraphicsWindow.Title = "Kreator Tabelografiki"		GraphicsWindow.Title = "Kreator Tabelografiki"

Linia 403:		Linia 393:

	EndSub		EndSub
	</~~code>~~		</pre>
	~~</poem~~>

Kenex: /* Jak korzystać? */

2020-05-02T18:32:08Z

Jak korzystać?

← poprzednia wersja		Wersja z 18:32, 2 maj 2020
Linia 2:		Linia 2:

	=== Jak korzystać? ===		=== Jak korzystać? ===
	To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić.		To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić. Polecam zjechać niżej po nowszą wersję.

	=== Kreator tabelografiki 0.1 ===		=== Kreator tabelografiki 0.1 ===

Kenex o 13:19, 10 maj 2016

2016-05-10T13:19:01Z

← poprzednia wersja		Wersja z 13:19, 10 maj 2016
Linia 4:		Linia 4:
	To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić.		To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić.

	=== 0.1 ===		=== Kreator tabelografiki 0.1 ===
	Kod:		Kod:

Linia 113:		Linia 113:
	</poem>		</poem>

	=== 0.2 ===		=== Kreator tabelografiki 0.2 ===
	Kod:		Kod:

Kenex: /* Jak korzystać? */

2016-05-07T14:50:00Z

Jak korzystać?

← poprzednia wersja		Wersja z 14:50, 7 maj 2016
Linia 2:		Linia 2:

	=== Jak korzystać? ===		=== Jak korzystać? ===
	To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i go uruchomić.		To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i je uruchomić.

	=== 0.1 ===		=== 0.1 ===

Kenex o 14:47, 7 maj 2016

2016-05-07T14:47:17Z

← poprzednia wersja		Wersja z 14:47, 7 maj 2016
Linia 1:		Linia 1:
	== Kreator tabelografiki ==		== Kreator tabelografiki ==

			=== Jak korzystać? ===
			To są kody programu [[Kreator Tabelografiki]]. Aby z nich korzystać, należy je wkleić do programu [[Microsoft Small Basic]] i go uruchomić.

	=== 0.1 ===		=== 0.1 ===

Kenex: Utworzono nową stronę "== Kreator tabelografiki == === 0.1 === Kod: `GraphicsWindow.Title = "Kreator Tabelografiki" GraphicsWindow.Width = 600 GraphicsWindow.Height = 400 G..."`


2016-05-07T14:45:36Z
Utworzono nową stronę "== Kreator tabelografiki ==  === 0.1 === Kod:  <poem> <code> GraphicsWindow.Title = "Kreator Tabelografiki"   GraphicsWindow.Width = 600  GraphicsWindow.Height = 400   G..."
Nowa strona
== Kreator tabelografiki ==



=== 0.1 ===

Kod:



<poem>

<code>

GraphicsWindow.Title = "Kreator Tabelografiki" 



GraphicsWindow.Width = 600 

GraphicsWindow.Height = 400 



GraphicsWindow.BackgroundColor = "#66CCFF" 



GraphicsWindow.BrushColor = "#003399" 



GraphicsWindow.FontSize = 9 



GraphicsWindow.DrawText(10,10,"Lokalizacja pliku graficznego (z dysku lub neta):") 



Txt_lok_obrazka = Controls.AddTextBox(10,30) 

Controls.SetSize(Txt_lok_obrazka,260,20) 



GraphicsWindow.DrawText(10,60,"Rozmiar tabeli w komórkach (szerokość x wysokość):") 

GraphicsWindow.DrawText(90,85,"Sugerowany max: 60") 



Txt_tab_x = Controls.AddTextBox(10,80) 

Controls.SetSize(Txt_tab_x,30,20) 



GraphicsWindow.DrawText(42,85,"x") 



Txt_tab_y = Controls.AddTextBox(50,80) 

Controls.SetSize(Txt_tab_y,30,20) 



przy_załaduj_obrazek = Controls.AddButton("Załaduj obrazek",10,110) 

Controls.SetSize(przy_załaduj_obrazek,260,25) 



przy_generuj_kod = Controls.AddButton("Generuj kod na Mruczek Wiki",10,150) 

Controls.SetSize(przy_generuj_kod,260,25) 



Controls.SetTextBoxText(Txt_tab_x,"30") 

Controls.SetTextBoxText(Txt_tab_y,"30") 



Controls.ButtonClicked = ButtonClicked 



Txt_kod = Controls.AddMultiLineTextBox(10,210) 

Controls.SetSize(Txt_kod,260,170) 



GraphicsWindow.FontSize = 13 

GraphicsWindow.DrawBoundText(300,10,290,"Podaj ściężkę do pliku graficznego na komputerze lub bezpośredni adres internetowy do obrazka. Następnie ustaw pozostałe parametry i naciśnij 'Załaduj obrazek'. Jeśli wyświetli się on poprawnie z prawej strony okna programu, naciśnij 'Generuj kod'. Zmiana rozmiaru tabeli wymaga ponownego załadowania obrazka.") 

GraphicsWindow.FontSize = 9 



Sub ButtonClicked 

  

  If Controls.LastClickedButton = przy_załaduj_obrazek Then 

    lok_obrazka = Controls.GetTextBoxText(Txt_lok_obrazka) 

    

    GraphicsWindow.BrushColor = "#66CCFF" 

    GraphicsWindow.FillRectangle(300,10,500,500) 

    GraphicsWindow.BrushColor = "#003399" 

  

  

    tab_x = Controls.GetTextBoxText(Txt_tab_x) 

    tab_y = Controls.GetTextBoxText(Txt_tab_y) 

    

    GraphicsWindow.DrawResizedImage(lok_obrazka,300,10,tab_x,tab_y) 

  EndIf 

  

  If Controls.LastClickedButton = przy_generuj_kod Then 

    

    plik_tymczasowy = File.GetTemporaryFilePath() 



    GraphicsWindow.DrawText(10,190,"Biorę się do pracy...") 

    

    File.AppendContents(plik_tymczasowy,"{|") 

    

    For y = 1 To tab_y 

      

      For x = 1 To tab_x 

        

        piksel = GraphicsWindow.GetPixel(300 + x - 1, 10 + y - 1) 

        

        File.AppendContents(plik_tymczasowy,"| bgcolor=" + piksel + "|") 

        

        EndFor 

        

        File.AppendContents(plik_tymczasowy,"|-") 

        

        GraphicsWindow.BrushColor = "#66CCFF" 

        GraphicsWindow.FillRectangle(10,190,200,30) 

        GraphicsWindow.BrushColor = "#003399" 

        

        GraphicsWindow.DrawText(10,190,"Ukończyłem wiersz: " + y + "/" + tab_y) 

        

     EndFor 

      

    File.AppendContents(plik_tymczasowy,"|}") 

    

    Controls.SetTextBoxText(Txt_kod,File.ReadContents(plik_tymczasowy)) 

    

        GraphicsWindow.BrushColor = "#66CCFF" 

        GraphicsWindow.FillRectangle(10,190,200,30) 

        GraphicsWindow.BrushColor = "#003399" 

  EndIf 

  

  

  

EndSub 

</code>

</poem>



=== 0.2 ===

Kod:



<poem>

<code>

GraphicsWindow.Title = "Kreator Tabelografiki" 



GraphicsWindow.Width = 600 

GraphicsWindow.Height = 400 



GraphicsWindow.BackgroundColor = "#66CCFF" 



GraphicsWindow.BrushColor = "#003399" 



GraphicsWindow.FontSize = 9 



GraphicsWindow.DrawText(10,10,"Lokalizacja pliku graficznego (z dysku lub neta):") 



Txt_lok_obrazka = Controls.AddTextBox(10,25) 

Controls.SetSize(Txt_lok_obrazka,260,20) 



GraphicsWindow.DrawText(10,50,"Rozmiar tabeli w komórkach (szerokość x wysokość):") 

GraphicsWindow.DrawText(90,70,"Sugerowany max: 60") 



Txt_tab_x = Controls.AddTextBox(10,65) 

Controls.SetSize(Txt_tab_x,30,20) 



GraphicsWindow.DrawText(42,70,"x") 



Txt_tab_y = Controls.AddTextBox(50,65) 

Controls.SetSize(Txt_tab_y,30,20) 



przy_załaduj_obrazek = Controls.AddButton("Załaduj podany obrazek",10,90) 

Controls.SetSize(przy_załaduj_obrazek,260,25) 



Przy_zaawansowane_1 = Controls.AddButton("Zaawansowane <",10,120) 

Controls.SetSize(Przy_zaawansowane_1,260,20) 



Przy_zaawansowane_0 = Controls.AddButton("Zaawansowane >",10,120) 

Controls.SetSize(Przy_zaawansowane_0,260,20) 



przy_generuj_kod = Controls.AddButton("Generuj kod na Mruczek Wiki",10,145) 

Controls.SetSize(przy_generuj_kod,260,25) 



Controls.SetTextBoxText(Txt_tab_x,"30") 

Controls.SetTextBoxText(Txt_tab_y,"30") 



Txt_kod = Controls.AddMultiLineTextBox(10,210) 

Controls.SetSize(Txt_kod,260,180) 



GraphicsWindow.FontSize = 13 

GraphicsWindow.DrawBoundText(300,10,290,"Podaj ściężkę do pliku graficznego na komputerze lub bezpośredni adres internetowy do obrazka. Następnie ustaw rozmiary tabeli i naciśnij 'Załaduj obrazek'. Jeśli wyświetli się on poprawnie z prawej strony okna programu, naciśnij 'Generuj kod'. Zmiana rozmiaru tabeli wymaga ponownego załadowania obrazka.") 

GraphicsWindow.FontSize = 9 



'Zaawansowane 

GraphicsWindow.BrushColor = "#33CCFF" 

zaawansowane_tło = Shapes.AddRectangle(300,380) 

Shapes.Move(zaawansowane_tło,290,10) 

Shapes.HideShape(zaawansowane_tło) 



GraphicsWindow.BrushColor = "#003399" 



nap_pocz = Shapes.AddText("Początek tabeli (wymaga na pocz. ''{|''):") 

Shapes.Move(nap_pocz,300,20) 



Txt_pocz = Controls.AddTextBox(300,35) 

Controls.SetSize(Txt_pocz,280,20) 

Controls.SetTextBoxText(Txt_pocz,"{|") 



nap_tytuł = Shapes.AddText("Tytuł tabeli (wymaga na pocz. ''|+'')(opcjonalny):") 

Shapes.Move(nap_tytuł,300,60) 



Txt_tytuł = Controls.AddTextBox(300,75) 

Controls.SetSize(Txt_tytuł,280,20) 



nap_oddzielanie = Shapes.AddText("Oddzielanie wierszy (wymaga na pocz. ''|-''):") 

Shapes.Move(nap_oddzielanie,300,100) 



Txt_oddzielanie = Controls.AddTextBox(300,115) 

Controls.SetSize(Txt_oddzielanie,280,20) 

Controls.SetTextBoxText(Txt_oddzielanie,"|-") 



nap_kom = Shapes.AddText("Kolorowe komórki (domyś. ''| bgcolor='' + kolor + ''|''):") 

Shapes.Move(nap_kom,300,140) 



Txt_przed = Controls.AddTextBox(300,155) 

Controls.SetSize(Txt_przed,280,20) 



nap_kolor = Shapes.AddText("+ kolor +") 

Shapes.Move(nap_kolor,300,174) 



Txt_po = Controls.AddTextBox(300,185) 

Controls.SetSize(Txt_po,280,20) 



Controls.SetTextBoxText(Txt_przed,"| bgcolor=") 

Controls.SetTextBoxText(Txt_po,"|") 



nap_koniec = Shapes.AddText("Koniec tabeli (wymagane - ''|}''):") 

Shapes.Move(nap_koniec,300,210) 



Txt_koniec = Controls.AddTextBox(300,225) 

Controls.SetSize(Txt_koniec,280,20) 

Controls.SetTextBoxText(Txt_koniec,"|}") 



nap_nad = Shapes.AddText("Treść nad tabelą (opcjonalna):") 

Shapes.Move(nap_nad,300,260) 



Txt_nad = Controls.AddTextBox(300,275) 

Controls.SetSize(Txt_nad,280,20) 



nap_pod = Shapes.AddText("Treść pod tabelą (opcjonalna):") 

Shapes.Move(nap_pod,300,300) 



Txt_pod = Controls.AddTextBox(300,315) 

Controls.SetSize(Txt_pod,280,20) 

Controls.SetTextBoxText(Txt_pod,"[[Kategoria:Tabelografiki]]") 



przy_schowaj = Controls.AddButton("Schowaj zaawansowane",300,355) 

Controls.SetSize(przy_schowaj,280,25) 



Controls.HideControl(Txt_pocz) 

Controls.HideControl(Txt_oddzielanie) 

Controls.HideControl(Txt_przed) 

Controls.HideControl(Txt_po) 

Controls.HideControl(Txt_koniec) 

Controls.HideControl(Txt_tytuł) 

Controls.HideControl(txt_nad) 

Controls.HideControl(Txt_pod) 

Controls.HideControl(przy_schowaj) 



Shapes.HideShape(nap_pocz) 

Shapes.HideShape(nap_oddzielanie) 

Shapes.HideShape(nap_kom) 

Shapes.HideShape(nap_kolor) 

Shapes.HideShape(nap_koniec) 

Shapes.HideShape(nap_tytuł) 

Shapes.HideShape(nap_nad) 

Shapes.HideShape(nap_pod) 



Controls.ButtonClicked = ButtonClicked 



'Działania 

Sub ButtonClicked 

  If Controls.LastClickedButton = Przy_zaawansowane_0 Then 

    Shapes.ShowShape(zaawansowane_tło) 

    

    Controls.ShowControl(Txt_pocz) 

    Controls.ShowControl(Txt_oddzielanie) 

    Controls.ShowControl(Txt_przed) 

    Controls.ShowControl(Txt_po) 

    Controls.ShowControl(Txt_koniec) 

    Controls.ShowControl(Txt_tytuł) 

    Controls.ShowControl(txt_nad) 

    Controls.ShowControl(Txt_pod) 

    Controls.ShowControl(przy_schowaj) 



    Shapes.ShowShape(nap_pocz) 

    Shapes.ShowShape(nap_oddzielanie) 

    Shapes.ShowShape(nap_kom) 

    Shapes.ShowShape(nap_kolor) 

    Shapes.ShowShape(nap_koniec) 

    Shapes.ShowShape(nap_tytuł) 

    Shapes.ShowShape(nap_nad) 

    Shapes.ShowShape(nap_pod) 

      

    Controls.HideControl(Przy_zaawansowane_0) 



EndIf 



If Controls.LastClickedButton = Przy_zaawansowane_1 Or Controls.LastClickedButton = przy_schowaj Then 

  Shapes.HideShape(zaawansowane_tło) 

  

  Controls.ShowControl(Przy_zaawansowane_0) 

  

  Controls.HideControl(Txt_pocz) 

  Controls.HideControl(Txt_oddzielanie) 

  Controls.HideControl(Txt_przed) 

  Controls.HideControl(Txt_po) 

  Controls.HideControl(Txt_koniec) 

  Controls.HideControl(Txt_tytuł) 

  Controls.HideControl(txt_nad) 

  Controls.HideControl(Txt_pod) 

  Controls.HideControl(przy_schowaj) 



  Shapes.HideShape(nap_pocz) 

  Shapes.HideShape(nap_oddzielanie) 

  Shapes.HideShape(nap_kom) 

  Shapes.HideShape(nap_kolor) 

  Shapes.HideShape(nap_koniec) 

  Shapes.HideShape(nap_tytuł) 

  Shapes.HideShape(nap_nad) 

  Shapes.HideShape(nap_pod) 

EndIf 



  

  If Controls.LastClickedButton = przy_załaduj_obrazek Then 

    lok_obrazka = Controls.GetTextBoxText(Txt_lok_obrazka) 

    

    GraphicsWindow.BrushColor = "#66CCFF" 

    GraphicsWindow.FillRectangle(300,10,500,500) 

    GraphicsWindow.BrushColor = "#003399" 

  

    tab_x = Controls.GetTextBoxText(Txt_tab_x) 

    tab_y = Controls.GetTextBoxText(Txt_tab_y) 

    

    tab_x = Math.Floor(Math.Abs(tab_x)) 

    tab_y = Math.Floor(Math.Abs(tab_y)) 

    

    If tab_x = 0 Or tab_y = 0 Then 

      GraphicsWindow.ShowMessage("Podano nieprawidłową szerokość lub wysokość tabelki. Popraw te pola a następnie spróbuj ponownie.","Błąd 001") 

    Else 

      GraphicsWindow.DrawResizedImage(lok_obrazka,300,10,tab_x,tab_y) 

      Controls.SetTextBoxText(Txt_tab_x,tab_x) 

      Controls.SetTextBoxText(Txt_tab_y,tab_y) 

    EndIf 

  

    

  EndIf 

  

  If Controls.LastClickedButton = przy_generuj_kod Then 

    

    plik_tymczasowy = File.GetTemporaryFilePath() 



GraphicsWindow.DrawText(10,190,"Biorę się do pracy...") 



nad = Controls.GetTextBoxText(Txt_nad) 



    If nad = "" Or nad = " " Then 

    Else 

      File.AppendContents(plik_tymczasowy,nad) 

    EndIf 



pocz = Controls.GetTextBoxText(Txt_pocz) 

tytuł = Controls.GetTextBoxText(Txt_tytuł) 

    

    File.AppendContents(plik_tymczasowy,pocz) 

    

    If tytuł = "" Or tytuł = " " Then 

    Else 

      File.AppendContents(plik_tymczasowy,tytuł) 

    EndIf 

    

    

    przed = Controls.GetTextBoxText(Txt_przed) 

    po = Controls.GetTextBoxText(Txt_po) 

    

    oddzielanie = Controls.GetTextBoxText(Txt_oddzielanie) 

    

    For y = 1 To tab_y 

      

      For x = 1 To tab_x 

        

        piksel = GraphicsWindow.GetPixel(300 + x - 1, 10 + y - 1) 

        

        File.AppendContents(plik_tymczasowy,przed + piksel + po) 

        

        EndFor 

        

        File.AppendContents(plik_tymczasowy,oddzielanie) 

        

        GraphicsWindow.BrushColor = "#66CCFF" 

        GraphicsWindow.FillRectangle(10,190,200,30) 

        GraphicsWindow.BrushColor = "#003399" 

        

        GraphicsWindow.DrawText(10,190,"Ukończyłem wiersz: " + y + "/" + tab_y) 

        

     EndFor 

      

     koniec = Controls.GetTextBoxText(Txt_koniec) 

      

     File.AppendContents(plik_tymczasowy,koniec) 

      

     pod = Controls.GetTextBoxText(Txt_pod) 

      

    If pod = "" Or pod = " " Then 

    Else 

      File.AppendContents(plik_tymczasowy,pod) 

    EndIf 

    

    Controls.SetTextBoxText(Txt_kod,File.ReadContents(plik_tymczasowy)) 

    

        GraphicsWindow.BrushColor = "#66CCFF" 

        GraphicsWindow.FillRectangle(10,190,200,30) 

        GraphicsWindow.BrushColor = "#003399" 

      

  EndIf 

  

  

  

EndSub 

</code>

</poem>

Kreator Tabelografiki/kody - Historia wersji

Kenex: Kenex przeniósł stronę Użytkownik:Kenex/kody do Kreator Tabelografiki/kody

Kenex o 19:23, 24 kwi 2025

Kenex: /* Jak korzystać? */

Kenex o 13:19, 10 maj 2016

Kenex: /* Jak korzystać? */

Kenex o 14:47, 7 maj 2016

Kenex: Utworzono nową stronę "== Kreator tabelografiki == === 0.1 === Kod: GraphicsWindow.Title = "Kreator Tabelografiki" GraphicsWindow.Width = 600 GraphicsWindow.Height = 400 G..."

Kenex: Utworzono nową stronę "== Kreator tabelografiki == === 0.1 === Kod: `GraphicsWindow.Title = "Kreator Tabelografiki" GraphicsWindow.Width = 600 GraphicsWindow.Height = 400 G..."`