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 [2018/05/24 10:02] – 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"]>
   ' ** wandelt Hex-Zahl in Dez-Zahl   ' ** wandelt Hex-Zahl in Dez-Zahl
   Function HxDz (strHex)   Function HxDz (strHex)
        HxDz = CLng("&H" & strHex)        HxDz = CLng("&H" & strHex)
   End Function   End Function
 +</code>
  
-====== Dezimal zu Hexadezimal ======+===== Dezimal zu Hexadezimal ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   ' ** wandelt Dez-Zahl in 6-stellige Hex-Zahl   ' ** wandelt Dez-Zahl in 6-stellige Hex-Zahl
   Function DzHx (Dez)   Function DzHx (Dez)
    DzHx=right(Hex(Dez+&h1000000&),6)    DzHx=right(Hex(Dez+&h1000000&),6)
   End Function   End Function
-    +</code>    
-======   ====== + 
-====== Hexadezimal zu ANSI ======+===== Hexadezimal zu ANSI ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   ' ** wandelt Hex-Zahl in das korrespondierende ANSI-Zeichen   ' ** wandelt Hex-Zahl in das korrespondierende ANSI-Zeichen
   Function HxAnsi (strHex)   Function HxAnsi (strHex)
        HxAnsi = Chr(CLng("&H" & strHex))        HxAnsi = Chr(CLng("&H" & strHex))
   End Function   End Function
-    +</code>    
-\\  + 
-====== Dezimal zu Binär ======+===== Dezimal zu Binär ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   Function DezToBin (ByVal lngZahl)   Function DezToBin (ByVal lngZahl)
   ' ** Dezimal nach Binaer umrechnen   ' ** Dezimal nach Binaer umrechnen
Zeile 35: Zeile 43:
       DezToBin = StrReverse(DezToBin)       DezToBin = StrReverse(DezToBin)
   End Function   End Function
-\\ \\  +</code>   
-====== Binär zu Dezimal ======+ 
 +===== Binär zu Dezimal ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   Function BinToDez(ByVal strBin)   Function BinToDez(ByVal strBin)
   ' ** Binaer nach Dezimal umrechnen   ' ** Binaer nach Dezimal umrechnen
Zeile 56: Zeile 67:
       If BinToDez = "" then BinToDez = 0       If BinToDez = "" then BinToDez = 0
   End Function   End Function
-\\  +</code> 
-====== Dezimalzahl zu 8-Bit-Binär-String ======+ 
 +===== Dezimalzahl zu 8-Bit-Binär-String ===== 
 + 
 +<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.\\ 
   ' ** Umwandlung Dezimalzahl zu 8-BIT-Binär-String   ' ** Umwandlung Dezimalzahl zu 8-BIT-Binär-String
Zeile 68: Zeile 82:
        Next        Next
   End Function   End Function
 +</code>
        
-====== Byte zu Kilobyte oder Megabyte ======+===== Byte zu Kilobyte oder Megabyte ===== 
 + 
 +<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,
   ' gibt das Ergebnis - auf zwei Dezimalstellen gerundet - mit der   ' gibt das Ergebnis - auf zwei Dezimalstellen gerundet - mit der
Zeile 79: Zeile 95:
        If bytewert >= 1048576 then ByteVorsatz = Round(bytewert / 1048576, 2) & " MB"        If bytewert >= 1048576 then ByteVorsatz = Round(bytewert / 1048576, 2) & " MB"
   End Function   End Function
-====== Farbwerte ====== +</code>   
- 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"]> 
   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>  
 +
 ==== 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"]>
   call FF_NewImage(width,height,Farbreferenz(RGB))   call FF_NewImage(width,height,Farbreferenz(RGB))
  
Zeile 95: Zeile 121:
       Farbreferenz = C_Array(0) + C_Array(1) * (2^8) + C_Array(2) * (2^16)       Farbreferenz = C_Array(0) + C_Array(1) * (2^8) + C_Array(2) * (2^16)
   End Function   End Function
 +</code>  
 +
 ==== Farbreferenz (colorref) zu RGB-Wert ==== ==== Farbreferenz (colorref) zu RGB-Wert ====
 +
 +<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\\ 
   ' ** Farbreferenz (0 - 16777215) zu RGB-Wert ("000 000 000" bis "255 255 255")   ' ** Farbreferenz (0 - 16777215) zu RGB-Wert ("000 000 000" bis "255 255 255")
Zeile 102: Zeile 132:
                    Right(1000 + ((Referenz\256) mod 256),3) & " " & Right(1000 + (Referenz\&H10000),3)                    Right(1000 + ((Referenz\256) mod 256),3) & " " & Right(1000 + (Referenz\&H10000),3)
   End Function   End Function
-    +</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"]>
   Function mm_zu_px (Millimeter, Dpi)   Function mm_zu_px (Millimeter, Dpi)
        mm_zu_px = Millimeter * Dpi * 0.03937        mm_zu_px = Millimeter * Dpi * 0.03937
   End Function   End Function
-==== Pixel zu Millimeter ====+</code>   
 + 
 +===== Pixel zu Millimeter ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   Function px_zu_mm (Pixel, Dpi)   Function px_zu_mm (Pixel, Dpi)
        px_zu_mm = Pixel / Dpi / 0.03937        px_zu_mm = Pixel / Dpi / 0.03937
   End Function   End Function
 +</code>