Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Kiara87 on September 11, 2020, 07:14:31 pm

Title: carta forbice sasso
Post by: Kiara87 on September 11, 2020, 07:14:31 pm
Hello everyone
place this game known to all
the game is called rock paper scissors
place here the programs he created to learn programming
I accept your criticism and your advice to improve the code and improve myself more and more
the game consists of choosing via input
1-Carta, 2-Forbice, 3,Sasso
anyone who knows the game knows how to win in this game

italiano
salve a tutti
lascio qui questo mio progetto
essendo ancora un principiante in questo campo il codice sarà un po contorto
magari non è alla perfezione ma cercherò di migliorarlo
penso che per imparare bisogna condividere i propri proggetti e confrontarli con altri
magari proverò aggiungere lizard è spock
e magari migliorare il codice

Code: QB64: [Select]
  1. DIM FNames(3) AS STRING
  4. LOCATE 1, 1: PRINT "É"; STRING$(78, 205); "»" 'string$ scrive 78 volte il valore in ascii del 205
  5. LOCATE 2, 1: PRINT "º"; TAB(80); "º" 'tab significa fai un spazio di 80 caratteri una tabbulazione
  6. LOCATE 3, 1: PRINT "È"; STRING$(78, 205); "¼" 'string$ scrive 78 volte il valore in ascii del 205
  7. LOCATE 2, 30: PRINT "=== Carta Forbice Sasso ==="
  10. PRINT "Premi qualsiasi tasto per iniziare..."
  11. ricomincia:
  12. tasto$ = INPUT$(1)
  13. tentativi = 6
  14. sconfitta = 0
  15. vincita = 0
  16.  
  18. 1
  20. LOCATE 1, 1: PRINT "É"; STRING$(78, 205); "»" 'string$ scrive 78 volte il valore in ascii del 205
  21. LOCATE 2, 1: PRINT "º"; TAB(80); "º" 'tab significa fai un spazio di 80 caratteri una tabbulazione
  22. LOCATE 3, 1: PRINT "È"; STRING$(78, 205); "¼" 'string$ scrive 78 volte il valore in ascii del 205
  23. LOCATE 2, 5: PRINT "hai"; tentativi; " tentativi, per vincere la partita devi vincere almeno 4 volte"
  26. LOCATE 7, 30
  27. PRINT "pc "; sconfitta; " tu "; vincita
  28.  
  29. FNames(1) = "carta"
  30. FNames(2) = "forbice"
  31. FNames(3) = "sasso"
  32.  
  33. FOR x = 1 TO 9
  34.  
  35.     COLOR 7
  36.     LOCATE 5, 10
  37.     INPUT " fai la tua scelta, 1-Carta, 2-Forbice, 3-Sasso "; x
  38.     CLS
  40.     'x = INT(RND * 3) + 1
  41.     x2 = INT(RND * 3) + 1
  42.  
  43.     IF tentativi <= 0 AND vincita > sconfitta THEN
  44.         LOCATE 15, 35
  45.         PRINT "hai vinto la partita "
  46.         SLEEP 1
  47.         PRINT " premi il tasto -> s due volte per continuare oppure un altro tasto per uscire"
  48.         tasto$ = INPUT$(1)
  49.         IF tasto$ = "s" THEN GOTO ricomincia
  50.         END
  51.     ELSEIF tentativi <= 0 AND sconfitta > vincita THEN
  52.  
  53.         LOCATE 15, 35
  54.         PRINT "hai perso la partita "
  55.         SLEEP 1
  56.         PRINT " premi il tasto -> s due volte per continuare oppure un altro tasto per uscire"
  57.         tasto$ = INPUT$(1)
  58.  
  59.         IF tasto$ = "s" THEN GOTO ricomincia
  60.         END
  61.     END IF
  62.  
  63.     IF x = x2 THEN
  64.         LOCATE 10, 1
  65.         PRINT " TU "; FNames(x)
  66.         PRINT " PC "; FNames(x2)
  67.         COLOR 3
  68.         PRINT " sono uguali pareggio "
  69.         tentativi = tentativi + 1
  70.  
  71.     ELSEIF x = 1 AND x2 = 2 THEN
  72.         LOCATE 10, 1
  73.         PRINT "TU "; FNames(x)
  74.         PRINT " PC "; FNames(x2)
  75.         PRINT " LA "; FNames(x); " viene tagliata dalle "; FNames(x2)
  76.         COLOR 4
  77.         PRINT " Hai perso "
  78.         sconfitta = sconfitta + 1
  79.     ELSEIF x = 2 AND x2 = 1 THEN
  80.         LOCATE 10, 1
  81.         PRINT "TU "; FNames(x)
  82.         PRINT " PC "; FNames(x2)
  83.         PRINT " LE "; FNames(x); " tagliano "; " la "; FNames(x2)
  84.         COLOR 10
  85.         PRINT " Hai vinto "
  86.         vincita = vincita + 1
  87.     ELSEIF x = 1 AND x2 = 3 THEN
  88.         LOCATE 10, 1
  89.         PRINT "TU "; FNames(x)
  90.         PRINT " PC "; FNames(x2)
  91.         PRINT " La "; FNames(x); " copre il "; FNames(x2)
  92.         COLOR 10
  93.         PRINT " Hai vinto "
  94.         vincita = vincita + 1
  95.     ELSEIF x = 3 AND x2 = 2 THEN
  96.         LOCATE 10, 1
  97.         PRINT "TU "; FNames(x)
  98.         PRINT " PC "; FNames(x2)
  99.         PRINT " IL "; FNames(x); " Distrugge le "; FNames(x2)
  100.         COLOR 10
  101.         PRINT " Hai vinto "
  102.         vincita = vincita + 1
  103.     ELSEIF x = 2 AND x2 = 3 THEN
  104.         LOCATE 10, 1
  105.         PRINT "TU "; FNames(x)
  106.         PRINT " PC "; FNames(x2)
  107.         PRINT " le "; FNames(x); " vengono distrutte dal "; FNames(x2)
  108.         COLOR 4
  109.         PRINT " Hai perso "
  110.         sconfitta = sconfitta + 1
  111.     ELSEIF x = 3 AND x2 = 1 THEN
  112.         LOCATE 10, 1
  113.         PRINT "TU "; FNames(x)
  114.         PRINT " PC "; FNames(x2)
  115.         PRINT " il "; FNames(x); " viene coperto dalla "; FNames(x2)
  116.         COLOR 4
  117.         PRINT " Hai perso"
  118.         sconfitta = sconfitta + 1
  119.     ELSEIF x > 3 OR x <= 0 THEN
  120.         LOCATE 10, 5
  121.         PRINT " scelta non valida"
  122.         LOCATE 12, 5
  123.         PRINT "puoi scegliere una delle 3 opzioni -> 1-Carta, 2-Forbice, 3-Sasso"
  124.         'ELSEIF x <= 0 THEN
  125.         ' LOCATE 10, 1
  126.         ' PRINT " Devi scegliere un opzione tra Carta Forbice oppure Sasso"
  127.     END IF
  128.     tentativi = tentativi - 1
  129.     GOTO 1
  131.  
  132.  
  133.  
  134.  
Title: Re: carta forbice sasso
Post by: bplus on September 11, 2020, 08:17:20 pm
Yes, I have one of those :)
Code: QB64: [Select]
  1. 1 computer$ = MID$("rps", INT(RND * 3) + 1, 1)
  2. INPUT "Human please enter r for rock, p for paper, s for scissors any other looses "; human$
  3. PRINT "Computer picked: "; computer$
  4. IF human$ = computer$ THEN PRINT "Tie" + CHR$(10): GOTO 1
  5. IF INSTR(INSTR("rps", computer$), "rpsr", human$) = INSTR("rps", computer$) + 1 THEN PRINT "Human wins" + CHR$(10) ELSE PRINT "Computer wins" + CHR$(10)
  7.  
Title: Re: carta forbice sasso
Post by: bplus on September 11, 2020, 10:39:38 pm
I don't know about this:
 


Do you ever get to next x?
Title: Re: carta forbice sasso
Post by: Kiara87 on September 12, 2020, 03:54:35 am
Quote from: bplus on September 11, 2020, 10:39:38 pm
I don't know about this:
 


Do you ever get to next x?

you're right but I put the goto for the reason not to delete the frame
being that it is a game that must only end if you win or lose
going to the next of x is useless

I just used the next loop to call the x of the variable

or can you use a gosub?

as in this case I have given a small modification
Code: QB64: [Select]
  1. DIM FNames(3) AS STRING
  4. LOCATE 1, 1: PRINT "É"; STRING$(78, 205); "»" 'string$ scrive 78 volte il valore in ascii del 205
  5. LOCATE 2, 1: PRINT "º"; TAB(80); "º" 'tab significa fai un spazio di 80 caratteri una tabbulazione
  6. LOCATE 3, 1: PRINT "È"; STRING$(78, 205); "¼" 'string$ scrive 78 volte il valore in ascii del 205
  7. LOCATE 2, 30: PRINT "=== Carta Forbice Sasso ==="
  10. PRINT "Premi qualsiasi tasto per iniziare..."
  11. ricomincia:
  12. tasto$ = INPUT$(1)
  13. tentativi = 6
  14. sconfitta = 0
  15. vincita = 0
  16.  
  18. 1
  20. LOCATE 1, 1: PRINT "É"; STRING$(78, 205); "»" 'string$ scrive 78 volte il valore in ascii del 205
  21. LOCATE 2, 1: PRINT "º"; TAB(80); "º" 'tab significa fai un spazio di 80 caratteri una tabbulazione
  22. LOCATE 3, 1: PRINT "È"; STRING$(78, 205); "¼" 'string$ scrive 78 volte il valore in ascii del 205
  23. LOCATE 2, 5: PRINT "hai"; tentativi; " tentativi, per vincere la partita devi vincere almeno 4 volte"
  26. LOCATE 7, 30
  27. PRINT "pc "; sconfitta; " tu "; vincita
  28.  
  29. FNames(1) = "carta"
  30. FNames(2) = "forbice"
  31. FNames(3) = "sasso"
  32.  
  33. FOR x = 1 TO 9
  34.  
  35.     COLOR 7
  36.     LOCATE 5, 10
  37.     INPUT " fai la tua scelta, 1-Carta, 2-Forbice, 3-Sasso "; x
  38.     CLS
  40.     'x = INT(RND * 3) + 1
  41.     x2 = INT(RND * 3) + 1
  42.  
  43.     IF tentativi <= 0 AND vincita > sconfitta THEN
  44.         LOCATE 15, 35
  45.         PRINT "hai vinto la partita "
  46.         LOCATE 16, 35
  47.         PRINT "pc "; sconfitta; " tu "; vincita
  48.         SLEEP 1
  49.         PRINT " premi il tasto -> s due volte per continuare oppure un altro tasto per uscire"
  50.         tasto$ = INPUT$(1)
  51.         IF LCASE$(tasto$) = "s" THEN GOTO ricomincia
  52.         END
  53.     ELSEIF tentativi <= 0 AND sconfitta > vincita THEN
  54.  
  55.         LOCATE 15, 35
  56.         PRINT "hai perso la partita "
  57.         LOCATE 16, 35
  58.         PRINT "pc "; sconfitta; " tu "; vincita
  59.         SLEEP 1
  60.         PRINT " premi il tasto -> s due volte per continuare oppure un altro tasto per uscire"
  61.         tasto$ = INPUT$(1)
  62.  
  63.         IF LCASE$(tasto$) = "s" THEN GOTO ricomincia
  64.         END
  65.     ELSEIF tentativi <= 0 AND sconfitta = vincita THEN
  66.  
  67.         LOCATE 15, 35
  68.         PRINT "hai Paregiato la Partita "
  69.         LOCATE 16, 35
  70.         PRINT "pc "; sconfitta; " tu "; vincita
  71.         SLEEP 1
  72.         PRINT " premi il tasto -> s due volte per continuare oppure un altro tasto per uscire"
  73.         tasto$ = INPUT$(1)
  74.  
  75.         IF LCASE$(tasto$) = "s" THEN GOTO ricomincia
  76.         END
  77.  
  78.     END IF
  79.  
  80.     IF x = x2 THEN
  81.         LOCATE 10, 1
  82.         PRINT " TU "; FNames(x)
  83.         PRINT " PC "; FNames(x2)
  84.         COLOR 3
  85.         PRINT " sono uguali pareggio "
  86.         tentativi = tentativi + 1
  87.  
  88.     ELSEIF x = 1 AND x2 = 2 THEN
  89.         LOCATE 10, 1
  90.         PRINT "TU "; FNames(x)
  91.         PRINT " PC "; FNames(x2)
  92.         PRINT " LA "; FNames(x); " viene tagliata dalle "; FNames(x2)
  93.         COLOR 4
  94.         PRINT " Hai perso "
  95.         sconfitta = sconfitta + 1
  96.     ELSEIF x = 2 AND x2 = 1 THEN
  97.         LOCATE 10, 1
  98.         PRINT "TU "; FNames(x)
  99.         PRINT " PC "; FNames(x2)
  100.         PRINT " LE "; FNames(x); " tagliano "; " la "; FNames(x2)
  101.         COLOR 10
  102.         PRINT " Hai vinto "
  103.         vincita = vincita + 1
  104.     ELSEIF x = 1 AND x2 = 3 THEN
  105.         LOCATE 10, 1
  106.         PRINT "TU "; FNames(x)
  107.         PRINT " PC "; FNames(x2)
  108.         PRINT " La "; FNames(x); " copre il "; FNames(x2)
  109.         COLOR 10
  110.         PRINT " Hai vinto "
  111.         vincita = vincita + 1
  112.     ELSEIF x = 3 AND x2 = 2 THEN
  113.         LOCATE 10, 1
  114.         PRINT "TU "; FNames(x)
  115.         PRINT " PC "; FNames(x2)
  116.         PRINT " IL "; FNames(x); " Distrugge le "; FNames(x2)
  117.         COLOR 10
  118.         PRINT " Hai vinto "
  119.         vincita = vincita + 1
  120.     ELSEIF x = 2 AND x2 = 3 THEN
  121.         LOCATE 10, 1
  122.         PRINT "TU "; FNames(x)
  123.         PRINT " PC "; FNames(x2)
  124.         PRINT " le "; FNames(x); " vengono distrutte dal "; FNames(x2)
  125.         COLOR 4
  126.         PRINT " Hai perso "
  127.         sconfitta = sconfitta + 1
  128.     ELSEIF x = 3 AND x2 = 1 THEN
  129.         LOCATE 10, 1
  130.         PRINT "TU "; FNames(x)
  131.         PRINT " PC "; FNames(x2)
  132.         PRINT " il "; FNames(x); " viene coperto dalla "; FNames(x2)
  133.         COLOR 4
  134.         PRINT " Hai perso"
  135.         sconfitta = sconfitta + 1
  136.     ELSEIF x > 3 OR x <= 0 THEN
  137.         LOCATE 10, 5
  138.         PRINT " scelta non valida"
  139.         LOCATE 12, 5
  140.         PRINT "puoi scegliere una delle 3 opzioni -> 1-Carta, 2-Forbice, 3-Sasso"
  141.         'ELSEIF x <= 0 THEN
  142.         ' LOCATE 10, 1
  143.         ' PRINT " Devi scegliere un opzione tra Carta Forbice oppure Sasso"
  144.     ELSE
  145.         LOCATE 12, 5
  146.         PRINT "TU "; FNames(x)
  147.         PRINT " PC "; FNames(x2)
  148.  
  149.     END IF
  150.  
  151.     tentativi = tentativi - 1
  152.     GOSUB 1
  153.  
  154.     RETURN
Title: Re: carta forbice sasso
Post by: Kiara87 on September 12, 2020, 03:57:40 am
Quote from: bplus on September 11, 2020, 08:17:20 pm
Yes, I have one of those :)
Code: QB64: [Select]
  1. 1 computer$ = MID$("rps", INT(RND * 3) + 1, 1)
  2. INPUT "Human please enter r for rock, p for paper, s for scissors any other looses "; human$
  3. PRINT "Computer picked: "; computer$
  4. IF human$ = computer$ THEN PRINT "Tie" + CHR$(10): GOTO 1
  5. IF INSTR(INSTR("rps", computer$), "rpsr", human$) = INSTR("rps", computer$) + 1 THEN PRINT "Human wins" + CHR$(10) ELSE PRINT "Computer wins" + CHR$(10)
  7.  

thanks also for your version
in a few lines of gorgeous code
now I will take a look at it to study it
Title: Re: carta forbice sasso
Post by: bplus on September 12, 2020, 12:30:14 pm
Quote from: Kiara87 on September 12, 2020, 03:57:40 am
thanks also for your version
in a few lines of gorgeous code
now I will take a look at it to study it

Good luck with line 5. ;-) Get that and you've learned something!  :)
Title: Re: carta forbice sasso
Post by: Kiara87 on September 12, 2020, 05:30:42 pm
Quote from: bplus on September 12, 2020, 12:30:14 pm
Good luck with line 5. ;-) Get that and you've learned something!  :)

IF INSTR(INSTR("rps", computer$), "rpsr", human$) = INSTR("rps", computer$) + 1 THEN PRINT "Human wins" + CHR$(10) ELSE PRINT "Computer wins" + CHR$(10)

I did not know that  instr it could be written twice after the if condition
obviously I discovered something new

therefore translated it would be
if in the instr string that in the second string checks if there is that string
so for this reason it is written twice

what does this character do?
+ CHR $ (10)
Title: Re: carta forbice sasso
Post by: bplus on September 12, 2020, 06:54:09 pm
;-))

Code: QB64: [Select]
  1. S$ = "What does this character do?" + CHR$(10) + "OK so what just happened?" + CHR$(10) + "Want to see it again? ;)"
  3.  
  4.  

Hey @Kiara87, remember INSTR returns a number, so what that complex string is doing is comparing the computers number with the humans. But also when INSTR is given 3 arguments the first specifies where in the string (2nd argument) to start looking for a match to the last argument.
Title: Re: carta forbice sasso
Post by: TempodiBasic on September 14, 2020, 07:50:33 pm
Hi kiara87
good step foward modular programming, very less GOTO and spaghetti code!

as exercise to improve the use of loops
in your code
translate each GOTO label to a WHILE WEND loop changing the flow of program, cancel the FOR NEXT that is not just your goal
chunk down to a littler block of code those lines that do the same thing
follow the example of Fellippe Heitoir about loops writing his code https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441 (https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441)

For the 5linescode of Bplus, study each detail of each line of code, it is compressed code in few lines!

/ IT
un nuon passo verso la programmazione modulare, molti meno GOTO e codice spaghetti.

come esercizio per migliorare l'uso dei cicli
prendi il tuo codice e traduci ogni ciclo GOTO etichetti (vedi GOTO 1 e GOTO ricomincia in un ciclo WHILE WEND, questo ti spingerà a cambiare il flusso del tuo programma, cancella quel ciclo FOR NEXT che sembra usato fuori dal proprio scopo di esistenza, suddividi in pezzi di codice più piccolo quelle linee di codice che fanno la stessa cosa.
segui gli esempi di Fellippe Heitoir sui cicli e scrivi il suo codice https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441 (https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441)

Per la gara in 5 linee di Bplus, studia attentamente ogni dettaglio di ciascuna riga, è codice compresso in poche righe
Title: Re: carta forbice sasso
Post by: Kiara87 on September 16, 2020, 03:49:44 pm
Quote from: TempodiBasic on September 14, 2020, 07:50:33 pm
Hi kiara87
good step foward modular programming, very less GOTO and spaghetti code!

as exercise to improve the use of loops
in your code
translate each GOTO label to a WHILE WEND loop changing the flow of program, cancel the FOR NEXT that is not just your goal
chunk down to a littler block of code those lines that do the same thing
follow the example of Fellippe Heitoir about loops writing his code https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441 (https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441)

For the 5linescode of Bplus, study each detail of each line of code, it is compressed code in few lines!

/ IT
un nuon passo verso la programmazione modulare, molti meno GOTO e codice spaghetti.

come esercizio per migliorare l'uso dei cicli
prendi il tuo codice e traduci ogni ciclo GOTO etichetti (vedi GOTO 1 e GOTO ricomincia in un ciclo WHILE WEND, questo ti spingerà a cambiare il flusso del tuo programma, cancella quel ciclo FOR NEXT che sembra usato fuori dal proprio scopo di esistenza, suddividi in pezzi di codice più piccolo quelle linee di codice che fanno la stessa cosa.
segui gli esempi di Fellippe Heitoir sui cicli e scrivi il suo codice https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441 (https://www.qb64.org/forum/index.php?topic=2992.msg122441#msg122441)

Per la gara in 5 linee di Bplus, studia attentamente ogni dettaglio di ciascuna riga, è codice compresso in poche righe

grazie per i consigli cercherò di migliorare come hai scritto nei tuoi ottimi consigli
il ciclo for lo messo per studiare un po il Pattern del ciclo
perchè volevo capire come hai letto nel programma che hai creato per me --> https://www.qb64.org/forum/index.php?topic=2891.msg121548#msg121548
volevo capire come fai a leggere dal ciclo for il file e come colori gli elementi
è in questo caso mi son chiesto vedendo un video su youtube forse devo studiare il Pattern  del ciclo for ?
cmq ancora non sono riuscito a finire il programma
sto cercando di studiare il linguaggio ovviamente ci vuole del tempo
grazie anche a te qualcosa lho capita è qualcosa no
magari quello che spieghi tu capisco meglio essendo che sei italiano
senza togliendo nulla ad altri programmatori qui che sono bravissimi ma visto che non so parlare inglese
non capisco più di tanto
Text Only | Text with Attachments