Carlo (Member)
Guru
 
Messaggi: 1170
Iscritto: 29/01/2018
|
Complimenti Ultimo, programma complesso, ho capito poco di come opera.
Però ho implementato le frecce da tastiera, una piccola cosa, ma utile per un uso più agevole.
Ultima modifica effettuata da Carlo il 16/04/2018 alle 23:29
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 874
Iscritto: 22/05/2010
|
Postato originariamente da Carlo:
Complimenti Ultimo, programma complesso, ho capito poco di come opera.
Però ho implementato le frecce da tastiera, una piccola cosa, ma utile per un uso più agevole. |
Grazie Carlo, avevo provato anche io ad inserire le frecce da tastiera ma non ero riuscito ad implementarlo,
funziona bene ed è più comodo da usare, ho notato però che adesso non mi permette di scrivere nella textbox
del nome giocatore, come rimediare?
Prima di inserire una nuova versione aspetto di risolvere questo problema, se ti interessa il progetto puoi
chiedere di partecipare direttamente, si aggiunge il tuo nome nei Developers.
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1170
Iscritto: 29/01/2018
|
Postato originariamente da Ultimo:
Grazie Carlo, avevo provato anche io ad inserire le frecce da tastiera ma non ero riuscito ad implementarlo,
funziona bene ed è più comodo da usare, ho notato però che adesso non mi permette di scrivere nella textbox
del nome giocatore, come rimediare?
Prima di inserire una nuova versione aspetto di risolvere questo problema, se ti interessa il progetto puoi
chiedere di partecipare direttamente, si aggiunge il tuo nome nei Developers. |
Codice sorgente - presumibilmente VB.NET |
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean ' intercetto le frecce Select Case keyData Case Keys.Down But_Down_Click(But_Down, New System.EventArgs()) Case Keys.Up But_UP_Click(But_UP, New System.EventArgs()) Case Keys.Left But_L_Click(But_L, New System.EventArgs()) Case Keys.Right But_R_Click(But_R, New System.EventArgs()) ' Non avevo notato la Text, questo è un rimedio grossolano Case Keys.Delete ' Svuota la Text TextBox_Nome.Text = "" Case Keys.Back ' Cancella un carattere sulla text If TextBox_Nome.Text.Length > 0 Then TextBox_Nome.Text = TextBox_Nome.Text.Substring(0, TextBox_Nome.Text.Length - 1) End If Case Else ' Scrive le maiuscole sulla text If keyData > 64 And keyData < 91 Then TextBox_Nome.Text += keyData.ToString End If End Select ' come alternativa per ora mi viene in mente: ' Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short ' legge la pressione di più tasti simultanei (lega il programma a windows) ' poi in un ciclo timer attivato solo quando vuoi leggere le frecce (utile anche per lo scorrere del tempo) ' If GetAsyncKeyState(Keys.Left) Then ' But_L_Click(But_L, New System.EventArgs()) ' End If ' ecc ecc per le altre frecce Return True End Function
|
Ultima modifica effettuata da Carlo il 17/04/2018 alle 11:07
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 874
Iscritto: 22/05/2010
|
Postato originariamente da Carlo:
Postato originariamente da Ultimo:
Grazie Carlo, avevo provato anche io ad inserire le frecce da tastiera ma non ero riuscito ad implementarlo,
funziona bene ed è più comodo da usare, ho notato però che adesso non mi permette di scrivere nella textbox
del nome giocatore, come rimediare?
Prima di inserire una nuova versione aspetto di risolvere questo problema, se ti interessa il progetto puoi
chiedere di partecipare direttamente, si aggiunge il tuo nome nei Developers. |
Codice sorgente - presumibilmente VB.NET |
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean ' intercetto le frecce Select Case keyData Case Keys.Down But_Down_Click(But_Down, New System.EventArgs()) Case Keys.Up But_UP_Click(But_UP, New System.EventArgs()) Case Keys.Left But_L_Click(But_L, New System.EventArgs()) Case Keys.Right But_R_Click(But_R, New System.EventArgs()) ' Non avevo notato la Text, questo è un rimedio grossolano Case Keys.Delete ' Svuota la Text TextBox_Nome.Text = "" Case Keys.Back ' Cancella un carattere sulla text If TextBox_Nome.Text.Length > 0 Then TextBox_Nome.Text = TextBox_Nome.Text.Substring(0, TextBox_Nome.Text.Length - 1) End If Case Else ' Scrive le maiuscole sulla text If keyData > 64 And keyData < 91 Then TextBox_Nome.Text += keyData.ToString End If End Select ' come alternativa per ora mi viene in mente: ' Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short ' legge la pressione di più tasti simultanei (lega il programma a windows) ' poi in un ciclo timer attivato solo quando vuoi leggere le frecce (utile anche per lo scorrere del tempo) ' If GetAsyncKeyState(Keys.Left) Then ' But_L_Click(But_L, New System.EventArgs()) ' End If ' ecc ecc per le altre frecce Return True End Function
|
|
Ho risolto con un altra soluzione, se si clicca la text esce un form per inserire il nome.
Inserisco la nuova versione con i comandi da tastiera, grazie.
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1170
Iscritto: 29/01/2018
|
Postato originariamente da Ultimo:
Ho risolto con un altra soluzione, se si clicca la text esce un form per inserire il nome.
Inserisco la nuova versione con i comandi da tastiera, grazie. |
Perfetto!!! 
Il segnatempo? Ultima modifica effettuata da Carlo il 17/04/2018 alle 13:54
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 874
Iscritto: 22/05/2010
|
Postato originariamente da Carlo:
Postato originariamente da Ultimo:
Ho risolto con un altra soluzione, se si clicca la text esce un form per inserire il nome.
Inserisco la nuova versione con i comandi da tastiera, grazie. |
Perfetto!!!
Il segnatempo? |
Si può anche inserire il tempo volendo
If ok Then GOTO Avanza else GOTO Inizia
|
|
|
Carlo (Member)
Guru
Messaggi: 1170
Iscritto: 29/01/2018
|
Semplice segnatempo e qualche allineamento grafico.
 per gioco un tasto: [Fai meglio di me?]
in programmazione tutto è permesso |
|
|
Ultimo (Member)
Guru
Messaggi: 874
Iscritto: 22/05/2010
|
|
|
|
Carlo (Member)
Guru
Messaggi: 1170
Iscritto: 29/01/2018
|
Superare il 512 non è facile ma si può!
Non conoscevo questo gioco.
Il tasto: [Fai meglio di me?] fa comodo per far fare le mosse fino al 256-512, poi proseguire a mano.
Ho una nuova release che in automatico arriva quasi sempre a 512.
Ultima modifica effettuata da Carlo il 18/04/2018 alle 21:55
in programmazione tutto è permesso |
|
|
| 
Carlo ha allegato un file: 2048_the_game.zip (247909 bytes)
Carlo ha allegato un file: 1024.jpg (114405 bytes)