Este programa foi criado num projeto C++,
utilizando é claro o C++ Builder da Embarcadero,
mas a parte lógica foi criada em C,
sendo que nada impede os mais experientes
converterem este código para outras linguagens.
Fiz uso da biblioteca FMX,
que é simplesmente incrível e poderosa.
A maioria de meus programas no C++ Builder,
eu utilizo a biblioteca VCL,
mas as vezes sinto falta do FMX,
e me rendo a sua soberania.
Viva o C++, Viva o C++ Builder, Viva FMX!
Veja abaixo os códigos do programa:
//---------------------------------------------------------------------------
#include <fmx.h>
#pragma hdrstop
#include <time.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
int a;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label_Manual ( TObject *Sender ) {
Image1 -> Width = 600;
Image1 -> Height = 350;
Image1 -> Position -> X = 0;
Image1 -> Position -> Y = 0;
Image2 -> Width = 600;
Image2 -> Height = 350;
Image2 -> Position -> X = 0;
Image2 -> Position -> Y = 0;
Edit1 -> SetFocus ( );
Edit1 -> Font -> Size = 10;
Edit1 -> Width = 130;
Edit1 -> Height = 17;
Edit1 -> Position -> X = 287;
Edit1 -> Position -> Y = 35;
Label1 -> Position -> X = 140;
Label1 -> Position -> Y = 90;
Label1 -> Size -> Width = 400;
Label1 -> Size -> Height = 35;
Label1 -> TextSettings -> Font -> Size = 19;
Label1 -> TextSettings -> FontColor = claRed;
Label1 -> Size -> PlatformDefault = False;
Label1 -> Font -> Style = TFontStyles ( ) << fsBold << fsItalic;
Label2 -> Position -> X = 140;
Label2 -> Position -> Y = 170;
Label2 -> Size -> Width = 400;
Label2 -> Size -> Height = 35;
Label2 -> TextSettings -> Font -> Size = 19;
Label2 -> TextSettings -> FontColor = claBlue;
Label2 -> Size -> PlatformDefault = False;
Label2 -> Font -> Style = TFontStyles ( ) << fsBold << fsItalic;
Button1 -> TextSettings -> Font -> Size = 16;
Button1 -> TextSettings -> FontColor = claBlue;
Button1 -> TextSettings -> Font -> Family = "Arial";
Button1 -> TextSettings -> Font -> Style = TFontStyles ( ) << fsBold << fsItalic;
Button1 -> Position -> X = 430;
Button1 -> Position -> Y = 35;
Button1 -> Height = 18;
Button1 -> Width = 30;
Button1 -> Text = "OK";
Button1 -> OnClick = FormShow;
RoundRect1 -> Position -> X = 340;
RoundRect1 -> Position -> Y = 270;
RoundRect1 -> Height = 18;
RoundRect1 -> Width = 100;
//RoundRect1 -> Text = "NOVA FRASE";
}
//---------------------------------------------------------------------------
int Resolve_Problema ( int x ) {
int j, b, p;
int lenv;
char *Vet;
char *Vet_2;
String st;
char *r;
st += Form1 -> Edit1 -> Text;
Vet = ( char * ) malloc ( 28 );
r = Vet;
wcstombs ( Vet, st.c_str ( ), 50 );
Form1 -> Label1 -> Text = Vet;
if ( x >= 2 ) {
//Beep ( 500, 500 );
srand ( time ( NULL ) );
for ( b = 0; b < strlen ( Vet ); b++ ) {
j = rand ( ) % ( strlen ( Vet ) );
char t = r [ j ];
r [ j ] = r [ b ];
r [ b ] = t;
}
Form1 -> Label2 -> Text = " ";
for ( p = 0; p < strlen ( Vet ); p++ ) {
Form1 -> Label2 -> Text = Form1 -> Label2 -> Text + r [ p ];
}
}
return ( 0 );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow ( TObject *Sender ) {
int x;
Label_Manual ( Sender );
a++;
x++;
Resolve_Problema ( x );
Image2 -> Visible = false;
Image1 -> Visible = true;
RoundRect1 -> Visible = false;
if ( a >= 2 ) {
Form1 -> Image1 -> Visible = false;
Form1 -> Image2 -> Visible = true;
Edit1 -> Visible = false;
Button1 -> Position -> X = 140;
Button1 -> Position -> Y = 270;
Button1 -> Height = 18;
Button1 -> Width = 100;
Button1 -> Text = "EMBARALHA";
RoundRect1 -> Visible = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RoundRect1Click ( TObject *Sender ) {
a = 0;
Label_Manual ( Sender );
FormShow ( Sender );
Image2 -> Visible = false;
Image1 -> Visible = true;
Edit1 -> Visible = true;
Label1 -> Text = " ";
Label2 -> Text = " ";
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
#include <FMX.Controls.Presentation.hpp>
#include <FMX.Edit.hpp>
#include <FMX.Objects.hpp>
#include <FMX.StdCtrls.hpp>
#include <FMX.Types.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TImage *Image1;
TImage *Image2;
TEdit *Edit1;
TButton *Button1;
TLabel *Label1;
TLabel *Label2;
TRoundRect *RoundRect1;
void __fastcall FormShow(TObject *Sender);
void __fastcall Label_Manual ( TObject *Sender );
void __fastcall RoundRect1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
