Projektbericht - Geologische Bundesanstalt

Weitere Magazine

Empfehlungen

Info

Ü-LG-32-33/2011 Print #1, "" End If test1 = loderp Like "*P*" If test1 Then typ = " - profile" If IsNull(recs!Dateiname) Then GoTo 999 Print #1, "" Print #1, "" Print #1, "" Print #1, "3.0" Print #1, "" & recs!Pfad & recs!Dateiname & "" Print #1, "" Print #1, "" Print #1, "00ffffff" Print #1, "" Print #1, "" Print #1, "" Print #1, "normal" Print #1, "#Foto" & zaehler & "P_normal" Print #1, "" Print #1, "" Print #1, "highlight" Print #1, "#Foto" & zaehler & "P_highlight" Print #1, "" Print #1, "" Print #1, "" Print #1, "" Print #1, "10.0" Print #1, "" & recs!Pfad & recs!Dateiname & "" Print #1, "" Print #1, "" Print #1, "00ffffff" Print #1, "" Print #1, "" Print #1, " " & Left(recs!Dateiname, Len(recs!Dateiname) - 5) & typ & "" Print #1, " 1" Print #1, " #Foto" & zaehler & "P" Print #1, " " Print #1, " " & Replace(recs!Länge_WGS84, ",", ".") & "," & Replace(recs!Breite_WGS84, ",", ".") & ",100" Print #1, " " Print #1, "" End If 999 recs.MoveNext zaehler = zaehler + 1 Loop Print #1, "" Print #1, "" Close 1 End Sub Source Code des VBA Scripts zur Erstellung der Google Earth Datei „GEMAS_Fotos.kml“ (Variante „Groundoverlay“): Private Sub KML_Generator() Dim recs As DAO.Recordset Set recs = CurrentDb.OpenRecordset("SELECT * FROM Koordinaten") recs.MoveLast If recs.EOF Then MsgBox "Keine Datensätze ausgewählt!" Exit Sub End If Reset Open ReturnDataPath() & "\GEMAS_Fotos.kml" For Output As 1 Print #1, "" - 142 -
Ü-LG-32-33/2011 Print #1, " " Print #1, "" Print #1, "GEMAS-Fotos" Print #1, "1" Print #1, "" Print #1, " 13.5" Print #1, " 47.5" Print #1, " 5620000" Print #1, "" Print #1, "" Print #1, " 0.8http://maps.google.com/mapfiles/kml/shapes/donut.p ng" Print #1, " 00ffffff" Print #1, "" recs.MoveFirst Do While Not recs.EOF te = recs!Dateiname loderp = Left(Right(te, 5), 1) test1 = loderp Like "*L*" If test1 Then typ = " - landscape" If IsNull(recs!Dateiname) Then GoTo 999 Print #1, "" Print #1, "" Print #1, " " & Left(recs!Dateiname, Len(recs!Dateiname) - 5) & typ & "" Print #1, " 1" Print #1, " " & recs!Seehöhe + 100 & "" Print #1, " absolute" Print #1, " " Print #1, " " & recs!Pfad & recs!Dateiname & "" Print #1, " " Print #1, " " Print #1, " " & Replace(recs!Breite_WGS84 + 0.0002, ",", ".") & "" Print #1, " " & Replace(recs!Breite_WGS84 - 0.0002, ",", ".") & "" Print #1, " " & Replace(recs!Länge_WGS84, ",", ".") & "" Print #1, " " & Replace(recs!Länge_WGS84 - 0.001, ",", ".") & "" Print #1, " " Print #1, "" End If test1 = loderp Like "*P*" If test1 Then typ = " - profile" If IsNull(recs!Dateiname) Then GoTo 999 Print #1, "" Print #1, "" Print #1, " " & Left(recs!Dateiname, Len(recs!Dateiname) - 5) & typ & "" Print #1, " 1" Print #1, " " & recs!Seehöhe + 100 & "" Print #1, " absolute" Print #1, " " Print #1, " " & recs!Pfad & recs!Dateiname & "" Print #1, " " Print #1, " " Print #1, " " & Replace(recs!Breite_WGS84 + 0.0002, ",", ".") & "" Print #1, " " & Replace(recs!Breite_WGS84 - 0.0002, ",", ".") & "" If recs!Pfad Like "*hochkant*" Then Print #1, " " & Replace(recs!Länge_WGS84 + 0.00055, ",", ".") & "" Else Print #1, " " & Replace(recs!Länge_WGS84 + 0.001, ",", ".") & "" End If Print #1, " " & Replace(recs!Länge_WGS84, ",", ".") & "" Print #1, " " Print #1, "" End If 999 recs.MoveNext Loop Print #1, "" Print #1, "" Close 1 End Sub - 143 -
Seite 1 und 2:
Geologische Bundesanstalt Projekte
Seite 3 und 4:
Ü-LG-32-33/2011 Inhalt Zusammenfas
Seite 5 und 6:
Ü-LG-32-33/2011 • Vorbereitungen
Seite 7 und 8:
Ü-LG-32-33/2011 In der Zukunft wer
Seite 9 und 10:
Ü-LG-32-33/2011 Datenverarbeitunge
Seite 11 und 12:
Ü-LG-32-33/2011 o November 2011: A
Seite 13 und 14:
Ü-LG-32-33/2011 2. Datenübersicht
Seite 15 und 16:
Ü-LG-32-33/2011 MinRoG Niederöste
Seite 17 und 18:
Ü-LG-32-33/2011 Mauerbach - Steinw
Seite 19 und 20:
Ü-LG-32-33/2011 Dateiname Autoren
Seite 21 und 22:
Ü-LG-32-33/2011 - 15 -
Seite 23 und 24:
Ü-LG-32-33/2011 - 17 -
Seite 25 und 26:
Ü-LG-32-33/2011 - 19 -
Seite 27 und 28:
Ü-LG-32-33/2011 - 21 -
Seite 29 und 30:
Ü-LG-32-33/2011 - 23 -
Seite 31 und 32:
Ü-LG-32-33/2011 - 25 -
Seite 33 und 34:
Ü-LG-32-33/2011 - 27 -
Seite 35 und 36:
Ü-LG-32-33/2011 - 29 -
Seite 37 und 38:
Ü-LG-32-33/2011 - 31 -
Seite 39 und 40:
Ü-LG-32-33/2011 - 33 -
Seite 41 und 42:
Ü-LG-32-33/2011 - 35 -
Seite 43 und 44:
Ü-LG-32-33/2011 3. Datenbank Bauro
Seite 45 und 46:
Ü-LG-32-33/2011 Tab. 3.-4: Entwick
Seite 47 und 48:
Ü-LG-32-33/2011 Statistik Datenein
Seite 49 und 50:
Ü-LG-32-33/2011 Statistik Datenein
Seite 51 und 52:
Ü-LG-32-33/2011 Abb. 3.-2: Anzahl
Seite 53 und 54:
Anzahl Einträge Kalksandstein, Kal
Seite 55 und 56:
Anzahl Einträge Kalkphyllit, Kalks
Seite 57 und 58:
Anzahl Einträge Gneis 91 GNEIS (MU
Seite 59 und 60:
Anzahl Einträge Ganggesteine und p
Seite 61 und 62:
Tab. 3.-6: Rohstoffdatenbank: Litho
Seite 63 und 64:
Anzahl Einträge Tone, bituminös 6
Seite 65 und 66:
Anzahl Einträge Kies-Sande, Geröl
Seite 67 und 68:
Anzahl Einträge Grus 22 GRUS (PHYL
Seite 69 und 70:
Anzahl Einträge Blöcke, Schutt, K
Seite 71 und 72:
Ü-LG-32-33/2011 Im Rahmen der Proj
Seite 73 und 74:
Ü-LG-32-33/2011 Koordinate/Koordin
Seite 75 und 76:
Ü-LG-32-33/2011 REL_GR REL_GR_BEZ
Seite 77 und 78:
Ü-LG-32-33/2011 STATUS STATUS STAT
Seite 79 und 80:
Ü-LG-32-33/2011 Stratigraphie Wird
Seite 81 und 82:
Ü-LG-32-33/2011 THE INVENTORY OF A
Seite 83 und 84:
Ü-LG-32-33/2011 Fig. 1: General ov
Seite 85 und 86:
IRIS Online is the updated web vers
Seite 87 und 88:
Ü-LG-32-33/2011 6. MinROG-Applikat
Seite 89 und 90:
Ü-LG-32-33/2011 Auf Grund dieser u
Seite 91 und 92:
Ü-LG-32-33/2011 Abb. 6.-4: Suchmas
Seite 93 und 94:
Ü-LG-32-33/2011 Projektionen der G
Seite 95 und 96:
Ü-LG-32-33/2011 5. Mit dem „Add
Seite 97 und 98:
Ü-LG-32-33/2011 2 1 Abb. 6.-9: (1)
Seite 99 und 100:
Ü-LG-32-33/2011 Abb. 6.-11: Mit Da
Seite 101 und 102:
Ü-LG-32-33/2011 1 Abb. 6.-13: Die
Seite 103 und 104:
Ü-LG-32-33/2011 Abb. 6.-15: Berein
Seite 105 und 106:
Ü-LG-32-33/2011 Abb. 6.-17: Mit de
Seite 107 und 108:
Ü-LG-32-33/2011 Abb. 6.-19: Erstel
Seite 109 und 110:
Ü-LG-32-33/2011 Dann wird auf „A
Seite 111 und 112: Ü-LG-32-33/2011 Workflow für das
Seite 113 und 114: Ü-LG-32-33/2011 Abb. 6.-27: Der Im
Seite 115 und 116: Ü-LG-32-33/2011 7. Projekte-Datenb
Seite 117 und 118: Ü-LG-32-33/2011 Abb. 7.-2: Formula
Seite 119 und 120: Ü-LG-32-33/2011 Es gibt folgende R
Seite 121 und 122: Ü-LG-32-33/2011 Abb. 7.-7: Registe
Seite 123 und 124: Ü-LG-32-33/2011 Abb. 7.-9: Ausschn
Seite 125 und 126: Ü-LG-32-33/2011 Abb. 8.-1: Datenst
Seite 127 und 128: Ü-LG-32-33/2011 Abb. 8.-4: Busines
Seite 129 und 130: Ü-LG-32-33/2011 DOM_pr_programm_eb
Seite 131 und 132: Ü-LG-32-33/2011 Abb. 8.-7: Beispie
Seite 133 und 134: Ü-LG-32-33/2011 9. Intranet-basier
Seite 135 und 136: Ü-LG-32-33/2011 Abb. 9.-3: KAGIS I
Seite 137 und 138: Ü-LG-32-33/2011 Für die Bohrungsd
Seite 139 und 140: Ü-LG-32-33/2011 10. Baustellendoku
Seite 141 und 142: Ü-LG-32-33/2011 Möglichkeiten der
Seite 143 und 144: Ü-LG-32-33/2011 NC_57_2004 NC_57_2
Seite 145 und 146: Ü-LG-32-33/2011 7693 KB3 2010 7831
Seite 147 und 148: Ü-LG-32-33/2011 11. Online-Publizi
Seite 149 und 150: Ü-LG-32-33/2011 Abb. 11.-2: ArcGIS
Seite 151 und 152: Ü-LG-32-33/2011 Abb. 11.-5: Karten
Seite 153 und 154: Ü-LG-32-33/2011 Jeder Layer kann b
Seite 155 und 156: Ü-LG-32-33/2011 Abb. 11.-11: GIS-S
Seite 157 und 158: Ü-LG-32-33/2011 Falls die Attribut
Seite 159 und 160: Ü-LG-32-33/2011 12. Darstellung vo
Seite 161: Ü-LG-32-33/2011 Source Code des VB
Seite 165 und 166: Ü-LG-32-33/2011 An der Geologische
Seite 167 und 168: Ü-LG-32-33/2011 Am Beispiel des El
Seite 169 und 170: Ü-LG-32-33/2011 14. GIS-Bearbeitun
Seite 171 und 172: Ü-LG-32-33/2011 die verknüpften T
Seite 173 und 174: Ü-LG-32-33/2011 • Verwaltungsgre
Seite 175 und 176: Ü-LG-32-33/2011 Abb. 16.-1: Benutz
Seite 177 und 178: Ü-LG-32-33/2011 17. GeoloGIS - Lin
Seite 179 und 180: Ü-LG-32-33/2011 Für beide GIS-Dat
Seite 181 und 182: Ü-LG-32-33/2011 18. SedPakWin Hein
Seite 183 und 184: Ü-LG-32-33/2011 19. GIS Erweiterun
Seite 185 und 186: Ü-LG-32-33/2011 Mit dem am linken
Seite 187 und 188: Ü-LG-32-33/2011 Abb. 20.-2: Icons:
Seite 189 und 190: Ü-LG-32-33/2011 Das neue Fenster e
Seite 191 und 192: Ü-LG-32-33/2011 Abb. 20.-9: Die M
Seite 193 und 194: Ü-LG-32-33/2011 Erstellen von Feat
Seite 195 und 196: Ü-LG-32-33/2011 Reparieren von def
Seite 197 und 198: Ü-LG-32-33/2011 Einfacher Zugriff
Seite 199 und 200: Ü-LG-32-33/2011 Die Bearbeitungsfu
Seite 201 und 202: Ü-LG-32-33/2011 Leider steht auf G
Seite 203 und 204: Ü-LG-32-33/2011 Abb. 22.-2: Bearbe
Seite 205 und 206: Ü-LG-32-33/2011 Abb. 22.-4: Bearbe
Seite 207 und 208: Ü-LG-32-33/2011 Abb. 22.-7: Add-In
Seite 209: Ü-LG-32-33/2011 23. Projekt „NÖ
Seite 212 und 213:
Ü-LG-32-33/2011 Das nachfolgend be
Seite 214 und 215:
Ü-LG-32-33/2011 Die Festlegung der
Seite 216 und 217:
Ü-LG-32-33/2011 25. Datenaufbereit
Seite 218 und 219:
Ü-LG-32-33/2011 Ein Vergleich der
Seite 220 und 221:
Ü-LG-32-33/2011 Abb. 25.-7: Variab
Seite 222 und 223:
Ü-LG-32-33/2011 26. Literaturverze
Seite 224 und 225:
Ü-LG-32-33/2011 Bericht VLG-Projek
Alle anzeigen

Projektbericht - Geologische Bundesanstalt

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?