meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

Link zu der Vergleichsansicht

Beide Seiten, vorherige ÜberarbeitungVorherige Überarbeitung
Nächste Überarbeitung		Vorherige Überarbeitung
konvertierungen-in-vbs [2020/01/03 10:34] – michaelkonvertierungen-in-vbs [2020/01/03 10:37] (aktuell) – michael
Zeile 1: Zeile 1:
 ====== Konvertierungen in VBS ====== ====== Konvertierungen in VBS ======
  
 +===== Hexadezimal zu Dezimal =====
  
-====== Hexadezimal zu Dezimal ====== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   ' ** wandelt Hex-Zahl in Dez-Zahl   ' ** wandelt Hex-Zahl in Dez-Zahl
Zeile 9: Zeile 9:
   End Function   End Function
 </code> </code>
-====== Dezimal zu Hexadezimal ======+ 
 +===== Dezimal zu Hexadezimal ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   ' ** wandelt Dez-Zahl in 6-stellige Hex-Zahl   ' ** wandelt Dez-Zahl in 6-stellige Hex-Zahl
Zeile 17: Zeile 19:
 </code>    </code>   
  
-====== Hexadezimal zu ANSI ======+===== Hexadezimal zu ANSI ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   ' ** wandelt Hex-Zahl in das korrespondierende ANSI-Zeichen   ' ** wandelt Hex-Zahl in das korrespondierende ANSI-Zeichen
Zeile 24: Zeile 27:
   End Function   End Function
 </code>    </code>   
-\\  + 
-====== Dezimal zu Binär ======+===== Dezimal zu Binär ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   Function DezToBin (ByVal lngZahl)   Function DezToBin (ByVal lngZahl)
Zeile 40: Zeile 44:
   End Function   End Function
 </code>   </code>  
-\\ \\  + 
-====== Binär zu Dezimal ======+===== Binär zu Dezimal ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   Function BinToDez(ByVal strBin)   Function BinToDez(ByVal strBin)
Zeile 63: Zeile 68:
   End Function   End Function
 </code> </code>
-====== Dezimalzahl zu 8-Bit-Binär-String ======+ 
 +===== Dezimalzahl zu 8-Bit-Binär-String ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
  Benötigt wird das z.B., wenn in einem zweiten Schritt einzelne Bits ausgewertet werden sollen.\\   Benötigt wird das z.B., wenn in einem zweiten Schritt einzelne Bits ausgewertet werden sollen.\\ 
Zeile 77: Zeile 84:
 </code> </code>
        
-====== Byte zu Kilobyte oder Megabyte ======+===== Byte zu Kilobyte oder Megabyte ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   ' Rechnet Byte, je nach Wertgröße in Kilo- oder Megabytewert um,   ' Rechnet Byte, je nach Wertgröße in Kilo- oder Megabytewert um,
Zeile 88: Zeile 96:
   End Function   End Function
 </code>   </code>  
-====== Farbwerte ====== + 
- Das Dialogsteuerelement **Color** liefert als Ergebnis den RGB-Wert ("000 000 000" bis "255 255 255").\\ \\ +===== Farbwerte ===== 
 + 
 +Das Dialogsteuerelement **Color** liefert als Ergebnis den RGB-Wert ("000 000 000" bis "255 255 255").\\ \\  
 ==== RGB-Wert zu Einzelwerten r, g und b ==== ==== RGB-Wert zu Einzelwerten r, g und b ====
- Werden die RGB-Werte einzeln benötigt wie z.B. bei **FF_ExtendCanvas**, so splittet man diesen Wert.\\+ 
 +Werden die RGB-Werte einzeln benötigt wie z.B. bei **FF_ExtendCanvas**, so splittet man diesen Wert.\\
 <code VBScript [enable_line_numbers="true"]>  <code VBScript [enable_line_numbers="true"]> 
   RGB_Array = split(RGB)   RGB_Array = split(RGB)
   call FF_ExtendCanvas(left,right,top,bottom,RGB_Array(0),RGB_Array(1),RGB_Array(2))   call FF_ExtendCanvas(left,right,top,bottom,RGB_Array(0),RGB_Array(1),RGB_Array(2))
 </code>   </code>  
 +
 ==== RGB-Wert zu Farbreferenz (colorref) ==== ==== RGB-Wert zu Farbreferenz (colorref) ====
- Viele FF-Befehle wie z.B. **FF_NewImage** oder **FF_MakeBanner** benötigen zur Farbangabe den Referenzwert colorref (0 - 16777215).\\ + 
 +Viele FF-Befehle wie z.B. **FF_NewImage** oder **FF_MakeBanner** benötigen zur Farbangabe den Referenzwert colorref (0 - 16777215).\\ 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   call FF_NewImage(width,height,Farbreferenz(RGB))   call FF_NewImage(width,height,Farbreferenz(RGB))
Zeile 108: Zeile 122:
   End Function   End Function
 </code>   </code>  
 +
 ==== Farbreferenz (colorref) zu RGB-Wert ==== ==== Farbreferenz (colorref) zu RGB-Wert ====
 +
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
  Den Referenzwert kann man zurück wandeln zum RGB-Wert\\   Den Referenzwert kann man zurück wandeln zum RGB-Wert\\ 
Zeile 117: Zeile 133:
   End Function   End Function
 </code>    </code>   
-====== Pixel / Millimeter ====== + 
- Entscheident für die Umrechnung zwischen Längeneinheit zu Pixel ist die Punktdichte, die üblicherweise in Punkte pro Zoll - Dots per Inch ([[http://de.wikipedia.org/wiki/Punktdichte|DPI]]) angegeben wird,.\\  +===== Pixel / Millimeter ===== 
-==== Millimeter zu Pixel ====+ 
 + Entscheidend für die Umrechnung zwischen Längeneinheit zu Pixel ist die Punktdichte, die üblicherweise in Punkte pro Zoll - Dots per Inch ([[http://de.wikipedia.org/wiki/Punktdichte|DPI]]) angegeben wird,.\\  
 + 
 +===== Millimeter zu Pixel ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   Function mm_zu_px (Millimeter, Dpi)   Function mm_zu_px (Millimeter, Dpi)
Zeile 125: Zeile 145:
   End Function   End Function
 </code>   </code>  
-==== Pixel zu Millimeter ====+ 
 +===== Pixel zu Millimeter ===== 
 <code VBScript [enable_line_numbers="true"]> <code VBScript [enable_line_numbers="true"]>
   Function px_zu_mm (Pixel, Dpi)   Function px_zu_mm (Pixel, Dpi)