Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 10 di 17

Discussione: Mappe GoogleEarth dei ripetitori TV



  1. #1
    Digital-Forum Master
    Data Registrazione
    Jun 2004
    Messaggi
    861

    Predefinito Mappe GoogleEarth dei ripetitori TV

    Ho creato una piccola macro Excel per automatizzare la creazione di mappe dei ripetitori:
    http://win98.altervista.org/mappe-dtt.html


    Ultima modifica di jumpjack; 30-06-09 alle 14:39



  2. #2
    Digital-Forum Senior Master
    Data Registrazione
    May 2009
    Località
    TO
    Messaggi
    1,783

    Predefinito

    Non lo ancora provato... ma a prima vista sembra mitico!



  3. #3
    Digital-Forum Senior
    Data Registrazione
    Mar 2009
    Località
    Monte marenzo (lc)
    Messaggi
    314

    Predefinito

    Quoto Agosto1968!!!



  4. #4
    Digital-Forum Master
    Data Registrazione
    Jun 2004
    Messaggi
    861

    Predefinito

    grazie.
    Ho mandato il link anche ai gestori del sito otgtv, cosi' magari le implementano direttamente loro. ;-)



  5. #5
    Digital-Forum Senior Master
    Data Registrazione
    May 2009
    Località
    TO
    Messaggi
    1,783

    Predefinito

    Citazione Originariamente Scritto da jumpjack
    grazie.
    Ho mandato il link anche ai gestori del sito otgtv, cosi' magari le implementano direttamente loro. ;-)
    ti ho mandato una piccola correzione in un messaggio privato



  6. #6
    Digital-Forum Gold Master L'avatar di mikekillthedog
    Data Registrazione
    Aug 2008
    Località
    Triggiano (BA)
    Messaggi
    4,773

    Predefinito

    Interessante come cosa, la proverò sicuramente
    «Internet ha dato diritto di parola agli imbecilli»
    Umberto Eco



  7. #7
    Digital-Forum Master
    Data Registrazione
    Jun 2004
    Messaggi
    861



  8. #8
    Digital-Forum Senior Master L'avatar di Storm75
    Data Registrazione
    May 2003
    Località
    Terni città e Gargano Nord (FG)
    Messaggi
    1,191

    Predefinito

    Bellissimo e utilissimo servizio!!!!!!

    Grazie

    Ps. Peccato però che le coordinate non sono precisissime!
    Le Tv a Terni e Gargano nord(FG)
    TV Samsung 32B530
    TV LG 32LF580V+ CAM Tivusat Digiquest e Card Blu



  9. #9
    Digital-Forum Master
    Data Registrazione
    Jun 2004
    Messaggi
    861

    Predefinito

    Citazione Originariamente Scritto da Storm75
    Bellissimo e utilissimo servizio!!!!!!

    Grazie

    Ps. Peccato però che le coordinate non sono precisissime!
    ah, io non c'entro , le scopiazzo soltanto!
    -- Jumpjack --



  10. #10
    Digital-Forum New User
    Data Registrazione
    Mar 2011
    Messaggi
    14

    Predefinito

    Citazione Originariamente Scritto da jumpjack Visualizza Messaggio
    Ho creato una piccola macro Excel per automatizzare la creazione di mappe dei ripetitori:
    http://win98.altervista.org/mappe-dtt.html

    Verifica il calcolo con longitudine inferiore a 10, esempio 908.
    Io l'ho corretto così:

    Sub CreaMappa()
    Dim temp2 As Double
    SEPAR = "."
    intestazione = "<?xml version='1.0' encoding='UTF-8'?><kml xmlns='http://www.opengis.net/kml/2.2' xmlns:gx='http://www.google.com/kml/ext/2.2' xmlns:kml='http://www.opengis.net/kml/2.2' xmlns:atom='http://www.w3.org/2005/Atom'><Document><name>DTT.kml</name><Style id='sh_ylw-pushpin'><IconStyle><scale>1.3</scale><Icon><href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href></Icon><hotSpot x='20' y='2' xunits='pixels' yunits='pixels'/></IconStyle></Style><Style id='sn_ylw-pushpin'><IconStyle><scale>1.1</scale>"
    intestazione = intestazione + "<Icon><href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href></Icon><hotSpot x='20' y='2' xunits='pixels' yunits='pixels'/></IconStyle></Style><Style id='sh_ylw-pushpin0'><IconStyle><scale>1.3</scale><Icon><href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href></Icon><hotSpot x='20' y='2' xunits='pixels' yunits='pixels'/></IconStyle></Style><StyleMap id='msn_ylw-pushpin'><Pair><key>normal</key><styleUrl>#sn_ylw-pushpin0</styleUrl></Pair><Pair><key>highlight</key><styleUrl"
    intestazione = intestazione + ">#sh_ylw-pushpin0</styleUrl></Pair></StyleMap><Style id='sn_ylw-pushpin0'><IconStyle><scale>1.1</scale><Icon><href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href></Icon><hotSpot x='20' y='2' xunits='pixels' yunits='pixels'/></IconStyle></Style><StyleMap id='msn_ylw-pushpin0'><Pair><key>normal</key><styleUrl>#sn_ylw-pushpin</styleUrl></Pair><Pair><key>highlight</key><styleUrl>#sh_ylw-pushpin</styleUrl></Pair></StyleMap><Folder><name>DTT</name><open>1</open>"
    Placemark = "<Placemark><name>#nome#</name><description>#descr#</description><LookAt><longitude>#lon#</longitude><latitude>#lat#</latitude><altitude>0</altitude><range>37377.4627302017</range><tilt>0</tilt><heading>-0.09207230591840906</heading><altitudeMode>relativeToGround</altitudeMode></LookAt><styleUrl>#msn_ylw-pushpin</styleUrl><Point><coordinates>#lon#,#lat#,0</coordinates></Point></Placemark>"
    piede = "</Folder></Document></kml>"

    Open "test.kml" For Output As #1
    Print #1, intestazione

    riga = 2
    While Cells(riga, 1) <> ""
    ParteIntera = Mid$(Cells(riga, 9), 1, 2)
    ParteDecimale = Val(Mid$(Cells(riga, 9), 3, 2)) / 60
    Totale = ParteIntera + ParteDecimale
    TotaleStringa = Mid$(Str$(Totale), 1, 8)
    LAT = TotaleStringa
    ParteIntera = Mid$(Right$("0000" & Cells(riga, 8), 4), 1, 2)
    ParteDecimale = Val(Mid$(Right$("0000" & Cells(riga, 8), 4), 3, 2)) / 60
    ParteDecimale = Val(Mid$(Cells(riga, 8), 3, 2)) / 60
    Totale = ParteIntera + ParteDecimale
    TotaleStringa = Mid$(Str$(Totale), 1, 8)
    LON = TotaleStringa
    Nome = Cells(riga, 3) & " (" & Cells(riga, 6) & ", " & Cells(riga, 10) & "km.)"
    Descrizione = "Canale: " & Cells(riga, 3) & vbCrLf & "Località trasmittente:" & Cells(riga, 5) & vbCrLf & "Comune trasmittente: " & Cells(riga, 6) & vbCrLf & "Bussola (azimuth): " & Cells(riga, 11) & vbCrLf & "Distanza trasmittente: " & Cells(riga, 10) & "km."
    DaStampare = Replace(Placemark, "#nome#", Nome)
    DaStampare = Replace(DaStampare, "#lat#", LAT)
    DaStampare = Replace(DaStampare, "#lon#", LON)
    DaStampare = Replace(DaStampare, "#descr#", Descrizione)
    Print #1, DaStampare
    riga = riga + 1
    Wend

    Print #1, piede
    Close #1
    End Sub
    Ultima modifica di DVD77; 25-05-13 alle 16:01







Pagina 1 di 2 12 UltimaUltima




Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •  
  • Il codice BB è Attivato
  • Le faccine sono Attivato
  • Il codice [IMG] è Attivato
  • Il codice [VIDEO] è Disattivato
  • Il codice HTML è Disattivato