meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu der Vergleichsansicht

Beide Seiten, vorherige Überarbeitung Vorherige Überarbeitung
Nächste Überarbeitung
Vorherige Überarbeitung
konvertierungen-in-vbs [2018/05/24 10:02]
michael
konvertierungen-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>  ​