Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Grafici con ASP e swf

  1. #1

    Grafici con ASP e swf

    All'interno di un ciclo do (per esempio di 3 giri) devo generare a ogni giro un grafico scrivendo dei dei dati in un file di testo con asp e andandoli a leggere con un swf appositamente programmato(funziona se il ciclo è di un giro).

    Quando provo ad eseguire la pagina mi carica sempre e solo il grafico relativo ai dati dell'ultimo giro(per esempio il terzo) per tutti i giri del ciclo.

    Credo che ci sia qualcosa che non va a livello di nome dell'oggetto che sovrascrive gli altri ma come posso fare a risolverlo?

    grazie

  2. #2
    Moderatore di JavaScript L'avatar di br1
    Registrato dal
    Jul 1999
    Messaggi
    19,998
    Tradotto: una pagina ignota ha un errore strano...

    Se non posti un pochino di codice come si puo' trovare l'errore ?

    ciao
    Il guaio per i poveri computers e' che sono gli uomini a comandarli.

    Attenzione ai titoli delle discussioni: (ri)leggete il regolamento
    Consultate la discussione in rilievo: script / discussioni utili
    Usate la funzione di Ricerca del Forum

  3. #3
    do until rsFeromone.eof=true
    i = i + 1


    ValoriX = 0,0,1
    Catture = 0,1,0


    LarghezzaGrafico = 40 * NumValX
    AltezzaApplet = 200 + (MaxVal * 60)
    LarghezzaApplet = LarghezzaGrafico + 250
    NumeroDivisioni = MaxVal
    If MaxVal > 10 Then
    NumeroDivisioni=10
    AltezzaApplet=600
    End If
    MaxVal = MaxVal+(MaxVal/100)*20
    MaxValY = (Round(MaxVal,0))
    if MaxValY <= MaxVal then
    MaxValY = MaxValY +1
    end if

    if MaxValY < 1 then
    MaxValY = 1
    end if
    %>

    <%
    Dim objFSO, objTextFile
    Randomize()

    'Creazione dell'istanza FileSystem
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFSO_ID = CreateObject("Scripting.FileSystemObject")

    'Codice per il Nome del File
    'ID casuale
    ID = int(Rnd()*1000)
    If ID = 0 then
    ID = 1
    end if
    if ID < 10 then
    ID = "00" & ID
    else
    if ID < 100 then
    ID = "0" & ID
    else
    ID = ID
    end if
    end if
    Nome_File = "Data_File"&ID&".txt"


    'Apertura del file di testo id per scriverci l'id del nome file
    Set objTextFile = objFSO_ID.CreateTextFile(Server.MapPath("Id.txt"))

    'Scrivo l'id del nome_file nel file
    objTextFile.WriteLine "&id=Data_File" & ID & "&"

    'Chiudo il file e i vari oggetti/istanze di id
    objTextFile.Close
    Set objTextFile = Nothing : Set objFSO_ID = Nothing


    'Apertura del file di testo
    Set objTextFile = objFSO.CreateTextFile(Server.MapPath(Nome_File))

    'Scrivo la prima riga di codice
    objTextFile.WriteLine "&nr="&Catture&"&"
    objTextFile.WriteLine "&maxy="&MaxValY&"&"
    objTextFile.WriteLine "&title_chart="&Titolo_Grafico&"&"
    objTextFile.WriteLine "&trap="&ValoriX&"&"

    'Chiudo il file e i vari oggetti/istanze
    objTextFile.Close
    Set objTextFile = Nothing
    Set objFSO = Nothing
    %>

    <object classid="clsid27CDB6E-AE6D-11CF-96B8-444553540000" name="Oggetto<%=i%>" id="Oggetto<%=i%>" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="900" height="600">
    <param name="movie" value="Area_Data_Singola.swf">
    <param name="quality" value="High">
    <embed src="Area_Data_Singola.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="Oggetto<%=i%>" width="900" height="600" quality="High">
    </object>

    <font face="Arial" size="2">descrizione asse x--><%=AsseX%>

    <font face="Arial" size="2">descrizione asse Y--><%=AsseY%>

    <font face="Arial" size="2">Descrizione serie--><%response.write "Catture della Trappola"%>





    <% ValoriX = ""
    Catture = ""

    rsFeromone.movenext
    loop
    rsFeromone.close : Set rsFeromone = nothing





    -----------------

    Ciò che succede è che se ho 3 cicli del do mi fa vedere il grafico, ma tutti e 3 con i dati del 3o. Se provo a stampare i dati a video invece sono giusti .

  4. #4
    Moderatore di JavaScript L'avatar di br1
    Registrato dal
    Jul 1999
    Messaggi
    19,998
    Mi pare di capire che il swf prenda i parametri dal file Id.txt e che non si possa modificare il mone del file... in questo caso credo che tu non possa fare niente, ma consulta la documentazione dell'swf

    ciao
    Il guaio per i poveri computers e' che sono gli uomini a comandarli.

    Attenzione ai titoli delle discussioni: (ri)leggete il regolamento
    Consultate la discussione in rilievo: script / discussioni utili
    Usate la funzione di Ricerca del Forum

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.