Autore Topic: [RISOLTO] Drawingarea: ritorno delle coordinate  (Letto 708 volte)

Offline Taurus dei miracoli

  • Maestro Gambero
  • ****
  • Post: 334
  • In omnia pericula tasta testicula
    • Mostra profilo
[RISOLTO] Drawingarea: ritorno delle coordinate
« il: 28 Gennaio 2011, 18:11:39 »
Ho la necessità di scrivere in una drawingArea del testo mediante una for... next che scriva lettera per lettera e, nel caso trovi dei caratteri, scrivere alla riga sopra altre cose.

Io ho utilizzato il draw.fillX e draw.fillY ma non ritorna i valori dopo la scrittura.
Il mio codice è:
Codice: [Seleziona]
FOR a = 1 TO Len(sLine)
  IF cnt = 0 THEN
    IF Mid(sLine, a, 1) <> "[" THEN
      Draw.Text(Mid(sLine, a, 1), lX, lY)
      lY = Draw.FillY
      lX = Draw.FillX
    ELSE
      cnt = 1
      acc = ""
    ENDIF
  ELSE
    IF Mid(sline, a, 1) <> "]" THEN
      acc = acc & Mid(sLine, a, 1)
    ELSE
      IF Len(acc) > 1 THEN
        IF Left(acc, 1) = "A" THEN
          acc = "La" & Right(acc, Len(acc) - 1)
        ENDIF
        IF Left(acc, 1) = "B" THEN
          acc = "Si" & Right(acc, Len(acc) - 1)
        ENDIF
        IF Left(acc, 1) = "C" THEN
          acc = "Do" & Right(acc, Len(acc) - 1)
        ENDIF
        IF Left(acc, 1) = "D" THEN
          acc = "Re" & Right(acc, Len(acc) - 1)
        ENDIF
        IF Left(acc, 1) = "E" THEN
          acc = "Mi" & Right(acc, Len(acc) - 1)
        ENDIF
        IF Left(acc, 1) = "F" THEN
          acc = "Fa" & Right(acc, Len(acc) - 1)
        ENDIF
        IF Left(acc, 1) = "G" THEN
          acc = "Sol" & Right(acc, Len(acc) - 1)
        ENDIF
      ELSE
        IF Left(acc, 1) = "A" THEN
          acc = "La"
        ENDIF
        IF Left(acc, 1) = "B" THEN
          acc = "Si"
        ENDIF
        IF Left(acc, 1) = "C" THEN
          acc = "Do"
        ENDIF
        IF Left(acc, 1) = "D" THEN
          acc = "Re"
        ENDIF
        IF Left(acc, 1) = "E" THEN
          acc = "Mi"
        ENDIF
        IF Left(acc, 1) = "F" THEN
          acc = "Fa"
        ENDIF
        IF Left(acc, 1) = "G" THEN
          acc = "Sol"
        ENDIF
      ENDIF
      draw.Text(acc, lX - 15, lY)
    ENDIF
    acc = ""
    cnt = 0
  ENDIF
NEXT

Cosa sbaglio nella gestione di FillX e FillY?
 :hatecomputer:
« Ultima modifica: 29 Gennaio 2011, 08:44:56 da Taurus dei miracoli »
"penso spesso ad acquiloni,
a grandi imprese,
ad una thailandese...
...ma l'impresa eccezionale,
dammi retta,
è essere normale"
(L. Dalla)

Offline fsurfing

  • Moderatore
  • Senatore Gambero
  • *****
  • Post: 2.482
    • Mostra profilo
Re: Drawingarea: ritorno delle coordinate
« Risposta #1 il: 28 Gennaio 2011, 19:51:02 »
semplicemente fillx e filly non servono per fare quello che vuoi tu :)

tieni conto che tu non devi analizzare quello che scrivi nella drawing , la draw è solo un modo vi far vedere i tuoi dati , devi analizzare tutto cio che ti serve prima tramite vario codice ed infine mostrare nella drawing il risultato del tuo codice.


Offline Taurus dei miracoli

  • Maestro Gambero
  • ****
  • Post: 334
  • In omnia pericula tasta testicula
    • Mostra profilo
Re: Drawingarea: ritorno delle coordinate
« Risposta #2 il: 29 Gennaio 2011, 08:44:33 »
Ho fatto tutto molto diverso per cui chiudo la discussione con un Risolto anche se non sono riuscito nell'intento che mi ero proposto. :2birre:
"penso spesso ad acquiloni,
a grandi imprese,
ad una thailandese...
...ma l'impresa eccezionale,
dammi retta,
è essere normale"
(L. Dalla)

Offline Ceskho

  • Amministratore
  • Senatore Gambero
  • *****
  • Post: 3.778
  • Vi Veri Veniversum Vivus Vici
    • Mostra profilo
    • Pagina Personale
Re: Drawingarea: ritorno delle coordinate
« Risposta #3 il: 29 Gennaio 2011, 16:20:03 »
Ho fatto tutto molto diverso per cui chiudo la discussione con un Risolto anche se non sono riuscito nell'intento che mi ero proposto. :2birre:

Posta la soluzione così da poter aiutare eventuali utenti futuri interessati alla questione. Grazie.

Offline Taurus dei miracoli

  • Maestro Gambero
  • ****
  • Post: 334
  • In omnia pericula tasta testicula
    • Mostra profilo
Re: [RISOLTO] Drawingarea: ritorno delle coordinate
« Risposta #4 il: 29 Gennaio 2011, 19:49:15 »
Posta la soluzione così da poter aiutare eventuali utenti futuri interessati alla questione. Grazie.

Non mi sembra una soluzione grancchè:
ho usato una TextEdit e ho agito con la definizione carattere a carattere della stringa per valorizzare la TextEdit.

...in pratica ho scelto una strada totalmente diversa.
 :(
"penso spesso ad acquiloni,
a grandi imprese,
ad una thailandese...
...ma l'impresa eccezionale,
dammi retta,
è essere normale"
(L. Dalla)