<![CDATA[Goldspeak Community - Arduino i inne]]> https://forum.goldspeak.pl/ Wed, 22 Apr 2026 00:14:22 +0000 MyBB <![CDATA[IMG to ASCII w c++ i sfml]]> https://forum.goldspeak.pl/showthread.php?tid=940 Thu, 25 Jan 2018 17:09:30 +0000 Czpal]]> https://forum.goldspeak.pl/showthread.php?tid=940
Przykład:
przed
[Image: 2GrowjQ.jpg]
po
[Image: T4M57fC.png]

Code:
#include <SFML\Graphics.hpp>
#include <iostream>
#include <fstream>


class Converter
{
public:
    Converter(int width, bool reverse) :width(width), reverse(reverse)
    {

    }

    char valueToChar(float value)
    {    
        if (value == 1.0)
            return ' ';
        else if (value > 0.9)
            return '.';
        else if (value > 0.8)
            return ',';
        else if (value > 0.7)
            return 'x';
        else if (value > 0.6)
            return '+';
        else if (value > 0.5)
            return 'o';
        else if (value > 0.4)
            return 'O';
        else if (value > 0.3)
            return '0';
        else if (value > 0.2)
            return '9';
        else if (value > 0.1)
            return '8';
        return 'X';
    }

    bool isValid(sf::Vector2u size, sf::Vector2u pos)
    {
        if (pos.x < size.x && pos.y < size.y && pos.x >= 0 && pos.y >= 0)
            return true;
        else
            return false;
    }

    float lookUpPixel(const sf::Uint8*pixels, sf::Vector2u size,sf::Vector2u pos)
    {
        const sf::Uint8*pixel = pixels + ((size.x*int(pos.y) + int(pos.x)))*4;
        float value = pixel[0] + pixel[1] + pixel[2];
        return value / (255.0f*3.0f);
    }

    std::string convert(std::string filename)
    {
        sf::Image image;
        image.loadFromFile(filename);

        const sf::Uint8*pixels = image.getPixelsPtr();
        std::string result;

        int height = width*(float(image.getSize().y)/image.getSize().x)*0.5f;
        float modx = float(image.getSize().x)/ width;
        float mody = float(image.getSize().y)/ height;
        

        for (unsigned int y = 0; y < height; y ++)
        {
            for (unsigned int x = 0; x < width; x++)
            {
                sf::Vector2u pos;
                pos.x = unsigned int(x*modx);
                pos.y = unsigned int(y*mody);

                if (isValid(image.getSize(), pos))
                {
                    float value = lookUpPixel(pixels, image.getSize(), pos);
                    if (reverse)
                        value = 1.0f - value;
                    result += valueToChar(value);
                }
            }

            result += "\n";
        }

        result += "END";

        return result;
    }
private:
    int width;
    bool reverse;
};

void saveToFile(std::string data)
{
    std::fstream file;
    file.open("result.txt", std::ios::out|std::ios::trunc);
    file << data;
    file.close();
}

int main()
{
    std::cout << "Width: ";
    int size;
    std::cin >> size;
    std::cout << std::endl;

    Converter converter(size, false);

    std::cout << "File name: ";
    std::string name;
    std::cin >> name;
    std::cout << std::endl;


    saveToFile(converter.convert(name));


    std::cout << "DONE" << std::endl;
}
]]>
Przykład:
przed
[Image: 2GrowjQ.jpg]
po
[Image: T4M57fC.png]

Code:
#include <SFML\Graphics.hpp>
#include <iostream>
#include <fstream>


class Converter
{
public:
    Converter(int width, bool reverse) :width(width), reverse(reverse)
    {

    }

    char valueToChar(float value)
    {    
        if (value == 1.0)
            return ' ';
        else if (value > 0.9)
            return '.';
        else if (value > 0.8)
            return ',';
        else if (value > 0.7)
            return 'x';
        else if (value > 0.6)
            return '+';
        else if (value > 0.5)
            return 'o';
        else if (value > 0.4)
            return 'O';
        else if (value > 0.3)
            return '0';
        else if (value > 0.2)
            return '9';
        else if (value > 0.1)
            return '8';
        return 'X';
    }

    bool isValid(sf::Vector2u size, sf::Vector2u pos)
    {
        if (pos.x < size.x && pos.y < size.y && pos.x >= 0 && pos.y >= 0)
            return true;
        else
            return false;
    }

    float lookUpPixel(const sf::Uint8*pixels, sf::Vector2u size,sf::Vector2u pos)
    {
        const sf::Uint8*pixel = pixels + ((size.x*int(pos.y) + int(pos.x)))*4;
        float value = pixel[0] + pixel[1] + pixel[2];
        return value / (255.0f*3.0f);
    }

    std::string convert(std::string filename)
    {
        sf::Image image;
        image.loadFromFile(filename);

        const sf::Uint8*pixels = image.getPixelsPtr();
        std::string result;

        int height = width*(float(image.getSize().y)/image.getSize().x)*0.5f;
        float modx = float(image.getSize().x)/ width;
        float mody = float(image.getSize().y)/ height;
        

        for (unsigned int y = 0; y < height; y ++)
        {
            for (unsigned int x = 0; x < width; x++)
            {
                sf::Vector2u pos;
                pos.x = unsigned int(x*modx);
                pos.y = unsigned int(y*mody);

                if (isValid(image.getSize(), pos))
                {
                    float value = lookUpPixel(pixels, image.getSize(), pos);
                    if (reverse)
                        value = 1.0f - value;
                    result += valueToChar(value);
                }
            }

            result += "\n";
        }

        result += "END";

        return result;
    }
private:
    int width;
    bool reverse;
};

void saveToFile(std::string data)
{
    std::fstream file;
    file.open("result.txt", std::ios::out|std::ios::trunc);
    file << data;
    file.close();
}

int main()
{
    std::cout << "Width: ";
    int size;
    std::cin >> size;
    std::cout << std::endl;

    Converter converter(size, false);

    std::cout << "File name: ";
    std::string name;
    std::cin >> name;
    std::cout << std::endl;


    saveToFile(converter.convert(name));


    std::cout << "DONE" << std::endl;
}
]]> <![CDATA[Stargate thingy]]> https://forum.goldspeak.pl/showthread.php?tid=933 Wed, 22 Feb 2017 15:31:04 +0000 Alucard]]> https://forum.goldspeak.pl/showthread.php?tid=933 Strzałka NOWA WERSJA https://4play.net.pl/sg1/

Taka sobie bzdurka napisana w p5js, całkiem fajnym wrapperze do JS.

Kod do pobrania:
Strzałka bezpośrednio (ZIP)


lub do wglądu

Strzałka Starchasersowy GOGs

Znane błędy:
  • można wybrać takie same symbole (powino być 7 różnych) naprawione w nowej wersji

Planowane funkcjonalności:
  • wybór trybu wybierania adresu (przez DHD lub "komputerowo")
  • baza adresów
]]> Strzałka NOWA WERSJA https://4play.net.pl/sg1/

Taka sobie bzdurka napisana w p5js, całkiem fajnym wrapperze do JS.

Kod do pobrania:
Strzałka bezpośrednio (ZIP)


lub do wglądu

Strzałka Starchasersowy GOGs

Znane błędy:
  • można wybrać takie same symbole (powino być 7 różnych) naprawione w nowej wersji

Planowane funkcjonalności:
  • wybór trybu wybierania adresu (przez DHD lub "komputerowo")
  • baza adresów
]]> <![CDATA[Konwerter systemów n-liczbowych.]]> https://forum.goldspeak.pl/showthread.php?tid=883 Mon, 31 Aug 2015 06:20:04 +0000 Alucard]]> https://forum.goldspeak.pl/showthread.php?tid=883 Napisany w Delphi, potrafi konwertować z i na systemy liczbowe od base2 do base16 włącznie.
Program jest ułomny (nie sprawdza poprawności podanych danych i wykrzacza się w takim wypadku) i brzydki, ale działa Duży uśmiech
Konwerter.exe

Grzebiąc po starych płytach, udało mi się znaleźć źródełka. Wyciąłem tylko najsmakowitsze kąski (dobre 60% kodu to tylko wymagane przez Delphi pierdoły)

Gwoli wyjaśnienia - program 'oszukuje', prezeliczając najpierw naszą liczbę podaną w dowolnym systemie na dziesiętny, a dopiero potem z dziesiętnego na docelowy:

Funkcja przeliczająca z baseX do base10:
[spoiler]
Code:
function XXX_na_DEC(value: String; system: Integer): String;
var i, suma, dlug: Integer;
   {============================================}
   function Zamien(znak: Char): Integer;
   begin
     if znak in ['a', 'A'] then Result := 10
     else if znak in ['b', 'B'] then Result := 11
     else if znak in ['c', 'C'] then Result := 12
     else if znak in ['d', 'D'] then Result := 13
     else if znak in ['e', 'E'] then Result := 14
     else if znak in ['f', 'F'] then Result := 15
     else Result := StrToInt(znak);
   end;
   {============================================}
begin
 if value = '' then
   begin
     Result := '';
     Exit;
   end;
 suma := 0;
 dlug := Length(value) - 1;
 for i := 0 to dlug do
   suma := suma +
           Zamien(value[i + 1]) * Round(IntPower(system, (dlug - i)));
 Result := IntToStr(suma);
end;
[/spoiler]
i druga fuinkcja, przeliczająca z base10 do baseY:
[spoiler]
Code:
function DEC_na_XXX(value: String; system: Integer): String;
var liczba: Integer;
   {=======================================}
   function Zamien(licz: Integer): String;
   begin
     case licz of
       10: Result := 'A';
       11: Result := 'B';
       12: Result := 'C';
       13: Result := 'D';
       14: Result := 'E';
       15: Result := 'F';
       else Result := IntToStr(licz);
     end;
   end;
   {=======================================}
begin
 if value = '' then
   begin
     Result := '';
     Exit;
   end;
 Result := '';
 liczba := StrToInt(value);
 Repeat
   Result := Zamien(liczba mod system) + Result;
   liczba := liczba div system;
 until liczba = 0;
end;
[/spoiler]
Następnie wszystko ładnie wrapujemy w kolejną funkcję:
Code:
function XXX_na_YYY(value: String; z_xxx, na_yyy: Integer): String;
begin
 Result := DEC_na_XXX(XXX_na_DEC(value, z_xxx), na_yyy);
end;
i wywołujemy, na przykład konwertując z trójkowego na dwunastkowy:
Code:
Edit2.Text := XXX_na_YYY(Edit1.Text, 3, 12);  
]]> Napisany w Delphi, potrafi konwertować z i na systemy liczbowe od base2 do base16 włącznie.
Program jest ułomny (nie sprawdza poprawności podanych danych i wykrzacza się w takim wypadku) i brzydki, ale działa Duży uśmiech
Konwerter.exe

Grzebiąc po starych płytach, udało mi się znaleźć źródełka. Wyciąłem tylko najsmakowitsze kąski (dobre 60% kodu to tylko wymagane przez Delphi pierdoły)

Gwoli wyjaśnienia - program 'oszukuje', prezeliczając najpierw naszą liczbę podaną w dowolnym systemie na dziesiętny, a dopiero potem z dziesiętnego na docelowy:

Funkcja przeliczająca z baseX do base10:
[spoiler]
Code:
function XXX_na_DEC(value: String; system: Integer): String;
var i, suma, dlug: Integer;
   {============================================}
   function Zamien(znak: Char): Integer;
   begin
     if znak in ['a', 'A'] then Result := 10
     else if znak in ['b', 'B'] then Result := 11
     else if znak in ['c', 'C'] then Result := 12
     else if znak in ['d', 'D'] then Result := 13
     else if znak in ['e', 'E'] then Result := 14
     else if znak in ['f', 'F'] then Result := 15
     else Result := StrToInt(znak);
   end;
   {============================================}
begin
 if value = '' then
   begin
     Result := '';
     Exit;
   end;
 suma := 0;
 dlug := Length(value) - 1;
 for i := 0 to dlug do
   suma := suma +
           Zamien(value[i + 1]) * Round(IntPower(system, (dlug - i)));
 Result := IntToStr(suma);
end;
[/spoiler]
i druga fuinkcja, przeliczająca z base10 do baseY:
[spoiler]
Code:
function DEC_na_XXX(value: String; system: Integer): String;
var liczba: Integer;
   {=======================================}
   function Zamien(licz: Integer): String;
   begin
     case licz of
       10: Result := 'A';
       11: Result := 'B';
       12: Result := 'C';
       13: Result := 'D';
       14: Result := 'E';
       15: Result := 'F';
       else Result := IntToStr(licz);
     end;
   end;
   {=======================================}
begin
 if value = '' then
   begin
     Result := '';
     Exit;
   end;
 Result := '';
 liczba := StrToInt(value);
 Repeat
   Result := Zamien(liczba mod system) + Result;
   liczba := liczba div system;
 until liczba = 0;
end;
[/spoiler]
Następnie wszystko ładnie wrapujemy w kolejną funkcję:
Code:
function XXX_na_YYY(value: String; z_xxx, na_yyy: Integer): String;
begin
 Result := DEC_na_XXX(XXX_na_DEC(value, z_xxx), na_yyy);
end;
i wywołujemy, na przykład konwertując z trójkowego na dwunastkowy:
Code:
Edit2.Text := XXX_na_YYY(Edit1.Text, 3, 12);  
]]> <![CDATA[Line Follower]]> https://forum.goldspeak.pl/showthread.php?tid=17 Tue, 10 Feb 2015 23:35:19 +0000 marcin212]]> https://forum.goldspeak.pl/showthread.php?tid=17





Kilka zdjęć:
[spoiler]

[Image: 20141208_140124.jpg]

Mój prymitywny czujnik(nie miałem fototranzystorów):
[Image: 20141208_130904.jpg]

[Image: 20141208_160946.jpg]

[Image: 20141208_202224.jpg]
[/spoiler]]]>





Kilka zdjęć:
[spoiler]

[Image: 20141208_140124.jpg]

Mój prymitywny czujnik(nie miałem fototranzystorów):
[Image: 20141208_130904.jpg]

[Image: 20141208_160946.jpg]

[Image: 20141208_202224.jpg]
[/spoiler]]]>