home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbwin / sirds / sirds.frm (.txt) < prev    next >
Visual Basic Form  |  1994-11-30  |  12KB  |  322 lines
  1. Form1
  2. Sirds
  3. Form15
  4. frmProzent
  5. SSFrame
  6. MS Sans Serif
  7. frmLabel
  8. SSFrame
  9. MS Sans Serif
  10.     CMDialog1
  11. CommonDialog
  12. mnuDatei
  13. &Datei
  14. ffnen
  15. ffnen
  16. mnuSpeichern
  17. &Speichern
  18. mnuEnde
  19. &Ende
  20. mnuSirds
  21. &Sirds
  22. mnuInfo
  23. &Info
  24. ffnen_Click    
  25. CMDDialog1
  26. CancelError%
  27. Flags
  28. AufDefault
  29. DialogTitle~
  30. FilterA
  31. Action
  32. Filename
  33.     FiletitleR
  34.     Form_LoadY
  35.     ZuDefault
  36. Outline1_Click
  37.     CMDialog1
  38. Analyse
  39. gesamt
  40. laufwerk
  41. ordnerZ
  42. Dateiw
  43. pos1i
  44. pos2b
  45. WhileInStr
  46. datai
  47. ornderE
  48. Auswaehlen/
  49. mask8
  50. title
  51. cmdlg
  52. InitDir
  53. DefaultExt
  54. mnuOeffnen_Click/
  55. mnuSpeichern_ClickO
  56. CMDialog
  57. CommonDialogR
  58. mnuAusw
  59. hlen_Click
  60.     Ausw
  61. hlene
  62. mnueffnen_Click
  63. Picture1
  64. Picture
  65. ImageT
  66. bldBild
  67. mnuGetColor_Click
  68.     ScaleMode
  69. FarbeB
  70. FarbWert
  71. GetRed
  72. GetGreenF
  73. GetBluel
  74. bldBild_ClickX
  75. bldBild_MouseDown=
  76. ButtonS
  77. Shift
  78.     FarbeWert
  79.     ForeColor
  80. bldSirds_Click
  81. bldSirds
  82. Width
  83. Height
  84. Heigth
  85.     bldHeightI
  86. Form2
  87. form3
  88. ScaleWidth
  89. ScaleHeight
  90. ScreenWidth
  91. Screen
  92. Scanneng
  93. Stereo(
  94. TiefeForm3
  95. Tiefe
  96. orm3=
  97.     FarpTiefeK
  98. FarbeTiefea
  99.     FarbTiefeq
  100. MacheKorrel
  101. Korreln
  102. AugeAbst
  103. Aufloesung
  104. konst
  105. zSkal:
  106. Sichtbard
  107. MacheSirds
  108. colnum
  109. Ausgabe
  110. Mache
  111. Farbe13
  112. farbe2
  113. farbe3
  114. maxyZ
  115. AutoRedraw
  116. hPicDC
  117. OKFlag
  118. BitBlt*
  119. hDCZiel
  120. xZiely
  121. yZiel
  122. Breite
  123.     hDCQuelle
  124. ByValxQuellee
  125. yQuelle
  126. RopCode
  127. visible
  128. StretchBlt
  129. ScaleHeigth?
  130. bldSicht
  131. hPicDC1&
  132. ZielBild
  133.     QuellbildG
  134. XPosO
  135. YPOs[
  136. mnuDatei_Click
  137. bldBildScale
  138. mnuMax_Click
  139. bldMaxBild
  140. MaxBild
  141. doevent
  142. Scal_dx
  143. Scal_z
  144. mnuGetcolor
  145.     disabeled
  146. mnuDatei
  147. enable
  148. DateimnuGetColorU
  149. GetColor
  150. enabel
  151. EnabledI    
  152. mnuMaxu
  153. mnuSpeichern
  154. mnuAuswaehlenS    
  155. enebled
  156. mnuAusw
  157. txtDauer)
  158. Porzent
  159. Prozent+    
  160. lblProzent<    
  161. Caption
  162. ffnenC
  163. mnuEnde_Click
  164. ErrorRoutine
  165. CancelFlag
  166. AutoSizem
  167. mnuSirds_Click
  168. mnuSirds
  169. lblLabel
  170. mnuLabel_Click
  171. mnuInfo_Click
  172. Titel
  173. Frame3D2_DragDropm    
  174. Source
  175. Control
  176. lblLabel_Click
  177. frmLabel
  178. frmProzent#    
  179. frmLabel_DragDrop3    
  180. Nummer
  181. Die~    
  182.     geladenena    
  183. Bitmap
  184. Variabel
  185. dimensioniert
  186. Ergebnis
  187. GetDeviceCaps
  188. Form1
  189. Abbruch
  190. Abbruch
  191.  Dieses passiert, wenn kein 256-Farbenmodus eingestellt ist.
  192. Leider haben Sie keinen 256-Farbenmodus eingestellt.
  193.   Text = Text + " W
  194. hlen Sie bitte einen Super-VGA-Modus mit 256 Farben aus." + Chr$(13)
  195.  Starten Sie Windows erneut.
  196.  Versuchen Sie es dann nochmal!
  197. Viel Spa
  198.  beim Sirdsen.
  199. Ausgabe
  200.  Die Ausgabe einer Zeile des SIRDS erfolgt hierr
  201.  Gibt den endg
  202. ltigen SIRDS-Pixel aus.
  203. Form_Load
  204.  Mit der GDI-Funktion "GetDeviceCaps()" wird 
  205. berpr
  206.  ob ein 256-Farbenmodus eingestellt ist.
  207.  Wenn ein anderer eingestellt ist, wird das Programm
  208.  mit der Prozedur "Abbruch" beendet.
  209.  Die Skalierungsart wird auf nat
  210. rliche Pixel festgelegt.d
  211.  Die Menuepunkte "Sirds" und "Speichern" werden zun
  212. chst deaktiviert.t
  213. GetBlue
  214.  Ermittelt den Blauanteil der RGB-Farbe.
  215. GetGreen
  216.  Ermittelt den Gr
  217. nanteil der RGB-Farbe.
  218. GetRed
  219.  Ermittelt den Rotanteil der RGB-Farbe..
  220. MacheKorrel
  221.  Der Algorithmus f
  222. r die Korrelationsberechnung erfolgt mit MacheKorrel(). Dabei wird das von Scannen
  223.  erzeugte Feld Tiefe() umgerechnet
  224.  Das Feld Korrel() wird auf "nicht korreliert" gesetzt.t
  225.  Der Augenabstand wird in Anzahl der Pixel umgerechnet.m
  226.  Hier beginnt der Algorithmus.
  227.  Kernberechnung des Algorithmus.
  228.  Normierung der Farbwerte zwischen 0 und 1..
  229.  Die Berechnung von S.
  230.  Berechnung des linken Stereopunktes.p
  231.  Berechnung des rechten Stereopunktes.
  232.  Weiter, wenn Stereopunkte beide im Abbildungsbereich (Bildschirm) liegen.
  233.  Teil des Algorithmus, der 
  234. berpr
  235. ft, ob der betrachtete Punkt 
  236. berhaupt f
  237. rs Auge sichtbar ist.
  238.  Hidden-Pixel Algorithmus. Siehe dazu Ausf
  239. hrung im Text.P
  240.  Teil des Algorithmus, der die Randbedingungen ber
  241. cksichtigt.
  242.  Lesen Sie dazu die Ausf
  243. hrungen im Text.r
  244.  Hier wird die Kernzuweisung gemacht,n
  245.  wobei die Korrelierung festgelegt wird.
  246. MacheSirds
  247.  Diese Procedur setzt die im Feld Korrel() enthaltenen Korrelationsinformationen um undd
  248.  setzt die Farbwerte der auszugebenen SIRDS-Zeile in das Feld Stereo() ein.i
  249.  Die Zufallsfarbe wird generiert.r
  250.  Wenn keine Korrelierung vorliegt, dann wird einfach die Zufallsfarbe gesetzt.
  251.  Liegt Korrelierung vor, so setzte die gleiche Farbe wie die des anderen Stereopunktes.d
  252. mnuEnde_Click
  253.  Das Programm wird hiermit beendet.
  254. mnuInfo_Click
  255.  Was soll noch mehr gesagt werden?
  256. ber das Programm
  257. *** Sirdsbild Version 94 ***
  258.  Haben Sie schon Kopfschmerzen?
  259. rgen Riedel, 30.11.94>
  260. <CompuServe: 100422,1063>
  261. ffnen_Click
  262.  True legt hier fest, da
  263.  das Bet
  264. tigen der Abbruchfl
  265. che zum Laufzeitfehler
  266.  mit der Nummer 32755 f
  267.  Setzten der Standardflags (Windowsvorgabe).
  268.  Festlegen des Titels der Dialogbox.
  269. Bitmap 
  270. ffnen
  271.  Es werden nur die Dateien mit der Endung ".bmp" angezeigt.
  272. Bitmaps (*.bmp)|*.bmp
  273.  Der Commen Dialog wird auf "laden" gesetzt.
  274.  Wird nichts ausgew
  275. hlt, dann raus aus der Prozedur.
  276.  Es ist kein "Fehler" aufgetreten.
  277.  Die Form "Eingabe.frm" wird der Gr
  278. e der geladenen Bitmapm
  279.  angeglichen.n
  280.  Laden des Bitmap ins Bildfenster.
  281.  Menuepunkt "Sirds" wird aktiviert.r
  282.  Ist der Laufzeitfehler aufgetreten, dann geschieht folgendes.
  283.  Vergleiche oben.e
  284. glicht die verz
  285. gerte Fehkerbehandlung 
  286. ber die Variable "Err".i
  287. mnuSirds_Click
  288.  Deklarationsteil der Variablen.
  289.  Menuepunkt "
  290. ffnen" wird deaktiviert.
  291.  Die Form "Ausgabe.frm" wird verdeckt
  292.  Die Form "Ausgabe.frm" wird dimensioniert.
  293.  Die folgenden Felder werden dimensioniert.e
  294.  Sirdsberechnung: 
  295.  Die Schleife f
  296. r die abzuarbeitenden Bildzeilen..
  297.  0 bis Anzahl der Zeilen der geladenden Bitmap
  298.  Reagiere auf Ereignisse.0
  299.  Zeigt die schon abgearbeiteten Zeilen in Prozent an..
  300.  Aufruf der einzelnen Unterroutinen.
  301.  Zeige das Sirdsbild. 
  302.  Mennuepunkte "
  303. ffnen" und "Speichern" werden aktiviert.
  304. mnuSpeichern_Click
  305.  Siehe Kommentare zu "mnu
  306. ffnen".h
  307. Datei speichern unter
  308. Bitmaps (*.bmp)|*.bmp
  309. *.bmp
  310.  Setzten des Commen Dialog auf "speichern".e
  311.  Ist kein Fehler aufgetren, dann speichere das Bild.
  312.  Die Menuepunkte "Speichern", "
  313. ffnen" und "Sirds" werden deaktiviert.
  314. Scannen
  315.  Einlesen der RGB-Farbwerte einer Bitmapzeile.
  316.  Farbwert des aktuellen Pixels wird eingelesen. 
  317.  Umrechnung der RGB-Farbwerte in 256 Graustufen.
  318.  Tip: Probieren Sie doch andere Gewichtungsfaktoren aus.
  319.  Die Gewichtungsfaktoren sind auf eine durchschnittliche
  320.  Farbempfindlichkeit eingestellt.e
  321. 333333
  322.