PPTEA
PPTEA: Text on 9 Key ,Inserimento del testo mediante tastierino

VISUALIZZA L'ALBUM

Pag: (2)   [1]   2    (Ultimo)


FinePagina

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 9/6/2012,05:34

Sarebbe troppo bello realizzare un T9 con il PPTEA...ma ci si accontenta di inserire un testo mediante un tastierino numerico...tipo quelli dei cellulari. Questa operazione può servire per far interagire un PPTEA in configurazione StandAlone/Display con l'unità biologica chiamata UOMO. faccine/smile.gif
Allego una immagine di un tastierino standard con l'associazione numeri-lettere...mancano i caratteri -: @*/().,'?!" etc...su questi ultimi simboli non so se esiste uno standard...occore prevedere anche il fine inserimento....etc...etc...

Vogliamo realizzare insieme questa funzione nel PPTEA? Suggerimenti? faccine/smile.gif
Un saluto
Bolle

Immagine Allegata: 275px-Telephone-keypad.svg

http://www.energialternativa.info/Public/NewForum/ForumEA/1/6/5/3/1/5/7/1339216687.png




---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 9/6/2012,12:12

Sto buttando giù il codice...e mi manca sia la cancellazione dell'ultimo carattere inserito che il cambio maiuscolo minuscolo....come si può fare? faccine/wacko.gif Ci penso...



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 9/6/2012,12:30

Implementare : [space] [back space] [enter]
boh...avevo risposto ma si vede che non ho inviato...

dammi un po' di tempo, non so manipolare la fisica quantistica come te faccine/alien.gif ...per me il tempo scorre sempre più veloce... faccine/cry.gif



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 9/6/2012,16:25

Questa è la prima versione...nella speranza che altri non abbiano realizzato qualcosa di simile e/o non abbiano usato una tastiera 4x3 ...scherzo.... faccine/biggrin.gif
Questa versione (da ottimizzare e da sistemare a mo di funzione) funge più o meno come una normale tastiera di cellulare ...il cancelletto cancella l'ultimo carattere...l'asterisco non fa nulla...ma potrebbe inviare la stringa...oppure cambiare la modalità di scrittura: numerico, maiuscole, minuscole...c'è da pensarci.Ogni volta che si preme un pulsante viene emesso un beep e si accende il display...folcloristico....
Un saluto
Bolle





CODICE
05  '--------------------------------------------------------------------------------
10  'PPTEA SCRITTA MEDIANTE TASTIERINO NUMERICO 12 PULSANTI
12  '                             Versione 1.0
15  '              Versione Firmware PPTEA 2.16h o superiori
140 '------------CODICE TASTI--------------------------------------------------
150 CONSTANT TASTO_1=65
160 CONSTANT TASTO_2=33
170 CONSTANT TASTO_3=17
180 CONSTANT TASTO_4=66
190 CONSTANT TASTO_5=34
200 CONSTANT TASTO_6=18
210 CONSTANT TASTO_7=68
220 CONSTANT TASTO_8=36
230 CONSTANT TASTO_9=20
240 CONSTANT TASTO_0=40
250 CONSTANT TASTO_ASTERISCO=72
260 CONSTANT TASTO_CANCELLETTO=24
265 PRAGMA EXTERNAL_EEPROM
270 DATA TASTO_1, ".,?1!@'-_():;&/%*#+<=>$" ,TASTO_2,"ABC2abc", TASTO_3,"DEF3def"
271 DATA TASTO_4, "GHI4ghi" ,TASTO_5,"JKL5jkl", TASTO_6,"MNO6mno",TASTO_7, "PQRS7pqrs"
272 DATA TASTO_8, "TUV8tuv" ,TASTO_9,"WXYZ9wxyz", TASTO_0," []\|0",
273 DATA TASTO_ASTERISCO, "",TASTO_CANCELLETTO,""

280 DIM VETT(12) AS BYTE
290 '------- INIZIO PROG -----------
295 LCDCLEAR
296 LCDWRITE="_"
300 SETIO=&HF
310 CADS=0
312 NCAR=16

325 CLR LASTPULS
330 if !(LASTINDICE>0 AND TIMER>1.5) THEN 340

332 LCDWRITE="_"
334 LASTINDICE=0
340 GOSUB  510
350 IF !PULS THEN 325
351 SECONDI=TIMER
353 if LASTPULS=PULS THEN 340
355 LASTPULS=PULS
380 RESTORE
390 FOR I=1 TO 12
400   READ CODICE,STRCODICE
410   IF PULS=CODICE THEN 430
420 NEXT I
430 '
435 IF I > 12 THEN 340
440 IF I=12 THEN 462
455 if SECONDI>1.5 OR LASTINDICE<> I then 459
456 CARATTERE++
457 GOTO 470
459 CARATTERE=1
460 NCAR++
461 GOTO 470
462 IF NCAR <17 then 500
465 LCDPOS=NCAR
466 CLR LASTINDICE
467 NCAR--
468 LCDWRITE="_ "
469 GOTO 485
470 LCDPOS=NCAR
473 IF CARATTERE <=LEN(STRCODICE) THEN 480
474 CARATTERE=1
480 LCDWRITE=MID(STRCODICE,CARATTERE,1)'& "_" 'CHR(48+I)
481 LASTINDICE=I
482 RESET_TIMER
485 BEEP
500 GOTO  340

510 '----------------------------TORNO I CARATTERI PREMUTI SULLA TASTIERA
520 USCITA=16 ' Setto la prima colonna della tastiera
530 GOSUB  620
540 IF PULS THEN 600
550 USCITA=32 ' Setto la seconda colonna della tastiera
560 GOSUB  620
570 IF PULS THEN 600
580 USCITA=64 ' Setto la terza colonna della tastiera
590 GOSUB  620
600 RETURN
610 '----------------------------TORNO IL CARATTERE PREMUTO SULLA TASTIERA

620 PULS=0
630 OUT=USCITA
640 ING=INP AND 15
650 IF !ING THEN 670
660 PULS=ING OR USCITA
670 RETURN





Modificato da NonSoloBolleDiAcqua - 9/6/2012, 18:08


---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 13/6/2012,14:21

Ciao Bolle, potresti dare qualche indicazione su come hai collegato la tastierina? faccine/huh.gif



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 13/6/2012,14:40

Ops...ho dimenticato di dire che è collegata come l'apricancello presente da qualche parte in questa sezione. Occhio che alcune tastiere ( ne ho due diverse) hanno i pin collegati in modo diverso...ma te ne accorgi vedendo che escono valori invece che altri...e poi riallinei i fili...oppure cambi i codici a livello sw...ma è meglio girare i fili fai prima.
Ciao



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 13/6/2012,15:08

Grazie per l'indicazione!
...e pensare che ce l'avevo gia sottomano... faccine/biggrin.gif

http://pptea.altervista.org/cancello.html




---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 13/6/2012,18:35

tu hai già una tastiera 4x3?



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 13/6/2012,18:52

Ne ho alcune recuperate da delle segreterie telefoniche ma hanno montato dei transistor o diodi in smd, ma in qualche cassetto devo averne una di quelle metalliche dei telefoni pubblici che mi è rimasta da quando lavoravo... :-)
Comunque ne posso montare qualcuna usando un po' di quei pulsantini da stampato, ne dovrei avere a sufficienza.
Purtoppo in questo periodo sono stato impegnato in altre cose e sono un po' stanco...
Comunque sempre pronto al pezzo! (come dicevano gli artiglieri)



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 13/6/2012,20:48

Tempo permettendo faccio una funzioncella con tanto di invio...mi lancio? Oppure faccio il codice PPTEA (indovino) Vs (contro) HOMO. Dimmi tu...
Ciao
Bolle



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 13/6/2012,22:06

Voto per la prima.... che non esclude la seconda.... faccine/biggrin.gif



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 15/6/2012,15:33

Giusto....iniziamo con la gestione della tastiera per quanto riguarda i numeri.

Alleo il codice. Dalla linea 1000 c'è la routine DAMMI_NUMERO_CON_RETURN che permette l'inserimento mediante tastiera di un numero a N cifre (MAX_CARATTERI) con conferma mediante invio (carattere asterisco e viene emesso un suono di conferma) , oppure la routine TORNA_UN_SOLO_NUMERO che torna una singola cifra premuta. I caratteri visualizzati sul display iniziano da POS_CARATTERE_DISPLAY....ed ogni volta che viene premuto un pulsante viene emesso un beep (per una conferma sonora). faccine/smile.gif

Il programma di test (linea 5-90) utilizza entrambe le routine chiedendo di inserire un numero (max 5 char) che dovremo inserire e terminare con un asterisco e poi confermare con si se premeremo il pulsante 1, altrimenti 0 che identifica no!

La tastiera che ho è connessa in questo modo:

HTML
BIT PPTEA -> TASTIERA
0 ---------------->2
1 ---------------->7
2 ---------------->6
3 ---------------->4
4 ---------------->5
5 ---------------->1
6 ---------------->3

Bolle

CODICE
05 ' PPTEA: UTILIZZARE IL TASTIERINO NUMERICO
06 LCDCLEAR
07 LCDPOS=&H21
08 LCDWRITE="Inserisci numero"
10 GOSUB  :SUONO
15 GOSUB  :DAMMI_NUMERO_CON_RETURN
20 PRINT  "STR="; STRDISP
21 LCDCLEAR
22 LCDPOS=&H21
25 LCDWRITE="Conf."& STRDISP &"(1=S,0=N)?"
26 GOSUB  :DAMMI_UNA_SOLA_CIFRA
27 if STRDISP=0 then 6
30 LCDCLEAR
35 LCDWRITE="Bene!"
38 waits 2
90 GOTO  6


1000 '--------------------------------------------------------------------------------
1010 'ROUTINE SCRITTA NUMERICA CON TASTIERINO 12 PULSANTI
1020 '                     Versione 1.0
1030 '              Versione Firmware PPTEA 2.16i o superiori
1035 ' Il carattere * (asterisco) torna la stringa inserita in STRDISP
1036 ' Il carattere cancelletto cancella il carattere inserito
1040 '------------CODICE TASTI--------------------------------------------------
1050 CONSTANT POS_CARATTERE_DISPLAY = &H10 ' Posizione di inserimento numeri
1060 CONSTANT MAX_CARATTERI = 5 'Numero caratteri massimi per la cifra da inserire
1070 CONSTANT TASTO_1=65
1080 CONSTANT TASTO_2=33
1090 CONSTANT TASTO_3=17
1100 CONSTANT TASTO_4=66
1110 CONSTANT TASTO_5=34
1120 CONSTANT TASTO_6=18
1130 CONSTANT TASTO_7=68
1140 CONSTANT TASTO_8=36
1150 CONSTANT TASTO_9=20
1160 CONSTANT TASTO_0=40
1170 CONSTANT TASTO_ASTERISCO=72
1180 CONSTANT TASTO_CANCELLETTO=24
1190 CONSTANT CANCELLETTO=11
1200 CONSTANT ASTERISCO=10
1210 PRAGMA EXTERNAL_EEPROM
1220 DATA TASTO_0,TASTO_1,TASTO_2,TASTO_3,TASTO_4,TASTO_5,TASTO_6,
1230 DATA TASTO_7,TASTO_8,TASTO_9,TASTO_ASTERISCO,TASTO_CANCELLETTO
1240 :DAMMI_UNA_SOLA_CIFRA
1250 SET TORNA_UN_SOLO_NUMERO
1260 GOTO  1300
1270 :DAMMI_NUMERO_CON_RETURN
1280 CLR TORNA_UN_SOLO_NUMERO
1290 '------- INIZIO PROG -----------
1300 STRDISP=""
1310 LCDPOS=POS_CARATTERE_DISPLAY+1
1320 LCDWRITE="_"
1330 SETIO=&HF
1340 CADS=0
1350 NCAR=POS_CARATTERE_DISPLAY
1360 CLR LASTPULS
1370 GOSUB  :TORNA_CARATTERE_PREMUTO
1380 IF !PULS THEN 1360
1390 if LASTPULS=PULS THEN 1370
1400 LASTPULS=PULS
1410 RESTORE 1220
1420 FOR I=0 TO 11
1430   READ CODICE
1440   IF PULS=CODICE THEN 1470
1450 NEXT I
1460 GOTO  1360
1470 IF I=CANCELLETTO THEN 1530
1480 IF I=ASTERISCO then :FINE_FUNC
1490 CARATTERE=1
1500 IF NCAR=MAX_CARATTERI + POS_CARATTERE_DISPLAY  THEN 1540
1510 NCAR++
1520 GOTO  1590
1530 IF NCAR <= POS_CARATTERE_DISPLAY  then 1650
1540 LCDPOS=NCAR
1550 STRDISP=LEFT(STRDISP,LEN(STRDISP)-1)
1560 NCAR--
1570 LCDWRITE="_ "
1580 GOTO  1630
1590 LCDPOS=NCAR
1600 LASTCAR=CHR(I+48)
1610 LCDWRITE=LASTCAR;"_"
1620 STRDISP=STRDISP;LASTCAR
1630 BEEP
1640 if TORNA_UN_SOLO_NUMERO then :FINE_FUNC
1650 GOTO  1370
1660 :TORNA_CARATTERE_PREMUTO
1670 '----------------------------TORNO I CARATTERI PREMUTI SULLA TASTIERA
1680 USCITA=16 ' Setto la prima colonna della tastiera
1690 GOSUB  1780
1700 IF PULS THEN 1760
1710 USCITA=32 ' Setto la seconda colonna della tastiera
1720 GOSUB  1780
1730 IF PULS THEN 1760
1740 USCITA=64  ' Setto la terza colonna della tastiera
1750 GOSUB  1780
1760 RETURN
1770 '----------------------------TORNO IL CARATTERE PREMUTO SULLA TASTIERA
1780 PULS=0
1790 OUT=USCITA
1800 ING=INP AND 15
1810 IF !ING THEN 1830
1820 PULS=ING OR USCITA
1830 RETURN
1840 :FINE_FUNC
1850 :SUONO
1860 FRQ 800,100
1870 FRQ 600,100
1880 FRQ 400,150
1890 RETURN
1900 '----------------------- FINE ROUTINE





Modificato da NonSoloBolleDiAcqua - 15/6/2012, 18:08


---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 15/6/2012,15:53

Non riesco più a starti dietro...fra un po' vado ad aggiornare il sito con la versione 216i ....
Poi se trovo una mezz'ora metto insieme 12 tastini (con la possibilità di espanderli a 16) visto che l'emulatore della tastirina ANCORA non è previsto nel debugger... faccine/rolleyes.gif

...meglio che faccia uno stop... faccine/chair.gif
.........(tu sei quello che le dà faccine/wacko.gif )




Modificato da PinoTux - 15/6/2012, 17:27


---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 

NonSoloBolleDiA...

Avatar
PetaWatt


AMMINISTRATORE
Msg:13786

Stato:



Inviato il: 16/6/2012,08:14

Hai fatto aprire una porticina nella mia testa....hehhee
Il debugger ha tutti quei componenti/dispositivi che vengono gestiti direttamente dal PPTEA....come ad esempio il DISPLAY, l'orologio etc...ma quelli che vengono gestiti dall'eabasic non li ho messi. Ad esempio l'm35 non c'è ..anche se potrebbe trovarsi un modo per integrarlo nel debugger, cioè dirgli su quale pin è connesso per poi dare la possibilità di modificare la temperatura. Passando al tastierino, si potrebbe fare lo stesso...ma mettendo insieme espansione di memoria, display 6 fili, tastiera e altoparlantino ...rimangono solo due bit dell'espansione.Se si utilizza il display a 2 fili ...rimangono 6 i/o...ma per avere un qualcosa di generico...occorre liberare il bit del counter...che potrebbe essere molto utile per alcune applicazioni.
In questo caso si potrebbe standardizzare anche questo dispositivo...ma le connessioni potrebbero non essere uguali per tuti...ci penso...si accettano tutti i tipi di consigli.
Ciao
Bolle




---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripet...

 

PinoTux

Avatar
GigaWatt


AMMINISTRATORE
Msg:3509

Stato:



Inviato il: 16/6/2012,09:04

LM35 è già simulato dalla posizione del cursore del cads corrispondente, per il resto hai ragione, se si fa uno standard troppo rigoroso poi si perde l'elasticità che dovrebbe essere una caratteristica peculiare del PPTEA..... e poi quella (idea) della tastierina non so quanto potrebbe essere utile nel campo specifico che viene trattato nel nostro forum, forse per cambiare dei parametri "al volo", lo spunto che ti ho dato era mirato all'inserimento di dati per fare dei calcoletti un po' complessi... non per mandare SMS via wirless, cosa peraltro fattibile... faccine/biggrin.gif
Ciao
Pino



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"

http://iv3gfn.al...

 
 InizioPagina
 

Pag: (2)   [1]   2    (Ultimo)

Versione Completa!

Home page     TOP100-SOLAR    Home page forum