Inverti la parola, Programma inutile ma (forse) divertente :P

« Older   Newer »
  Share  
†Sauro•Splash†
CAT_IMG Posted on 14/11/2010, 22:45     +1   -1




Stasera ho voluto fare un programmino che inverta i caratteri di una parola/frase per un massimo di 12 caratteri
Ecco il source
SPOILER (click to view)
CODICE
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Inverti la parola !", 350, 187, 604, 326)
$titolo = GUICtrlCreateLabel("Inverti la parola  =D", 16, 16, 290, 37)
GUICtrlSetFont(-1, 24, 400, 0, "Flubber")
GUICtrlSetColor(-1, 0xFF0000)
$inserisci1 = GUICtrlCreateInput("", 24, 96, 273, 21)
$Label1 = GUICtrlCreateLabel("Inserisci la parola da invertire (massimo 12 caratteri)", 16, 64, 320, 20)
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x646464)
$Button1 = GUICtrlCreateButton("Inverti !", 80, 136, 169, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       $inserisci = GUICtrlRead($inserisci1)
                       $lunghezza = StringLen ($inserisci)
$1_lettera = StringMid($inserisci,$lunghezza,1)
$2_lettera = StringMid($inserisci,$lunghezza-1,1)
$3_lettera = StringMid($inserisci,$lunghezza-2,1)
$4_lettera = StringMid($inserisci,$lunghezza-3,1)
$5_lettera = StringMid($inserisci,$lunghezza-4,1)
$6_lettera = StringMid($inserisci,$lunghezza-5,1)
$7_lettera = StringMid($inserisci,$lunghezza-6,1)
$8_lettera = StringMid($inserisci,$lunghezza-7,1)
$9_lettera = StringMid($inserisci,$lunghezza-8,1)
$10_lettera = StringMid($inserisci,$lunghezza-9,1)
$11_lettera = StringMid($inserisci,$lunghezza-10,1)
$12_lettera = StringMid($inserisci,$lunghezza-11,1)
MsgBox(0,"Inverti","La parola invertita è: " &@CRLF &$1_lettera &$2_lettera &$3_lettera &$4_lettera &$5_lettera&$6_lettera&$7_lettera &$8_lettera &$9_lettera&$10_lettera&$11_lettera &$12_lettera)


       EndSwitch
WEnd


E questo è il download, anche se credo che non serva a niente xD
Download
 
Top
xMasteRx
CAT_IMG Posted on 14/11/2010, 23:11     +1   -1




lol XD
bravo, comunque io ho appena provato a fare il mio algoritmo così: asd
CODICE
$string="Stasera ho voluto fare un programmino che inverta i caratteri di una parola/frase per un massimo di 12 caratteri"&@CRLF&"Ecco il source"

$OStr=StringSplit($string, "")
Dim $CStr[$OStr[0]+1]

For $x=0 To $OStr[0]-1
       $CStr[$OStr[0]-$x]=$OStr[$x+1]
Next

For $x=0 To UBound($CStr)-1
       ConsoleWrite($CStr[$x])
Next
ConsoleWrite(@CRLF)

SPOILER (click to view)
Scusami, però non sono riuscito a non fare questo asd XD



^^, impegnativo il tuo modo, comunque bravo ^^
 
Top
†Sauro•Splash†
CAT_IMG Posted on 14/11/2010, 23:55     +1   -1




CITAZIONE (xMasteRx @ 14/11/2010, 23:11) 
Scusami, però non sono riuscito a non fare questo asd XD

Scusa ma non ho capito xD
Che intendi?
 
Top
xMasteRx
CAT_IMG Posted on 15/11/2010, 02:22     +1   -1




Volevo dire che ho fatto la figura del coglione lol
Te posti un topico con un codice, e io vengo come un coglione e posto un codice migliore, è come se lo facessi apposta u.u
Quindi volevo dire che non era quella l'intenzione asd, volevo solo mostrarti un algoritmo migliore ^^
 
Top
†Sauro•Splash†
CAT_IMG Posted on 15/11/2010, 14:27     +1   -1




lol.. allora credo di averla appena fatta io la figura di merda xD
 
Top
Gianlu-thebest
CAT_IMG Posted on 17/11/2010, 19:40     +1   -1




Ecco un algoritmo ancora più piccolo, ho ownato xMasteRx:
SPOILER (click to view)
CODICE
$string="Stasera ho ownato xMasteRx"&@LF

$OStr=StringSplit($string, "", 2)
For $i=(UBound($OStr)-1) To 0 Step -1
       ConsoleWrite($OStr[$i])
Next
ConsoleWrite(@CRLF)


:P

Bel programma (quello di Sauro•Splash)!
 
Top
xMasteRx
CAT_IMG Posted on 17/11/2010, 19:44     +1   -1




CITAZIONE (Gianlu-thebest @ 17/11/2010, 19:40) 
Ecco un algoritmo ancora più piccolo, ho ownato xMasteRx:
SPOILER (click to view)
CODICE
$string="Stasera ho ownato xMasteRx"&@LF

$OStr=StringSplit($string, "", 2)
For $i=(UBound($OStr)-1) To 0 Step -1
       ConsoleWrite($OStr[$i])
Next
ConsoleWrite(@CRLF)


:P

Bel programma (quello di Sauro•Splash)!

Ottimo, allora scambia ConsoleWrite con GUISetData() o fai qualsiasi altra azione con quella variabile ^^
Ops, scusa, non hai una variabile asd XD
 
Top
Gianlu-thebest
CAT_IMG Posted on 17/11/2010, 19:54     +1   -1




Non ho capito :\ Comunque stiamo andando OT
 
Top
xMasteRx
CAT_IMG Posted on 17/11/2010, 19:55     +1   -1




asd sei troppo lento u.u [correzzione GUISetData -> GUICtrlSetData]
comunque, finisce qui l'ot .-.
 
Top
Robby18
CAT_IMG Posted on 31/7/2011, 23:46     +1   -1




inverti parola in C

SPOILER (clicca per visualizzare)
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

main()
{
char a[100],b[100],c;
int n, i, cont;

printf("inserisci stringa: ");
gets(a);
n=strlen(a);
cont=n-1;
b[n]='\0';
for (i=0;i<n;i++)
{
c=a[i];
b[cont]=c;
cont--;
}
puts(b);
system("pause");
}
 
Top
-AsCiA-
CAT_IMG Posted on 1/8/2011, 00:38     +1   -1




scusate ma non ho resistito,mi ci metto anche io XD
inverte una frase intera in JAVA

SPOILER (clicca per visualizzare)
CODICE
public static String charReverse(String sArg){


               StringBuffer() oTextArg = new StringBuffer(sArg);
               StringBuffer() oTextReturn = new StringBuffer();


               iTextLength =  oTextArg.length();


               for(iIndex=(iTextLength - 1); iIndex>=0; iIndex--){


                       cCurrentCh=getCurrentChar();

                       
               return oTextReturn.toString();
       }
 
Top
protonsforbreakfast
CAT_IMG Posted on 1/8/2011, 17:39     +1   -1




CHE FIGATAAA
 
Top
SyntX
CAT_IMG Posted on 2/8/2011, 12:03     +1   +1   -1




e non ricordo male il nome della funzione si fa prima ad usare
CODE
_StringReverse()

xD
 
Top
*Sym98*
CAT_IMG Posted on 2/8/2011, 12:45     +1   -1




CITAZIONE (SyntX @ 2/8/2011, 13:03) 
e non ricordo male il nome della funzione si fa prima ad usare
CODICE
_StringReverse()

xD

CODICE
#include <String.au3>
MsgBox(64,"",_StringReverse("casa"))


:lol:

 
Top
xMasteRx
CAT_IMG Posted on 2/8/2011, 23:27     +1   +1   -1




prefferisco fare la funzione manualmente quelle funzioni xD e lo consiglio a tutti, si impara molto di più :)
 
Top
16 replies since 14/11/2010, 22:45   401 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity