Warning: include_once(/var/www/web24446652/html/mediaoase/wp-content/plugins/easy-table-of-contents/easy-table-of-contents.php): failed to open stream: Permission denied in /var/www/web24446652/html/mediaoase/wp-settings.php on line 447

Warning: include_once(): Failed opening '/var/www/web24446652/html/mediaoase/wp-content/plugins/easy-table-of-contents/easy-table-of-contents.php' for inclusion (include_path='.:/opt/php/7.4.30/share/pear') in /var/www/web24446652/html/mediaoase/wp-settings.php on line 447
Blog - Chaoswolf

DRM entfernen und Kindle PDF EPUB umwandeln

Hier geht es um das Konver­tieren von Kindle EPUB PDF.

Achtung! Dieser Text dient lediglich zur Infor­mation. Ich behaupte nicht, dass die hier beschrie­benen Schritte legal sind und rufe auch nicht dazu auf diese durch­zu­führen. Ich gehe davon aus, dass die Durch­führung für private Zwecke legitim ist, kann aber unmöglich für rechts­si­cherheit garantieren.

  1. Zunächst die alte Version der Kindle App herun­ter­laden. (Ich gebe die Instal­la­ti­ons­datei hier weiter. Bin jedoch nicht der Rechteinhaber).
  2. Nach der Instal­lation in den Optionen die automa­ti­schen Updates deaktivieren.
  3. Windows-Taste + R
  4. CMD eingeben
  5. Kopiere

    ren %localappdata%\Amazon\Kindle\application\renderer-test.exe renderer-test.xxx

    und füge es in die Komman­do­zeile ein. Nun werden die Bücher anders gerendert.
  6. Gewünschtes Buch über die Kindle App herunterladen
  7. Das gewünschte Buch finden (meist unter C:\Users\{username}\Documents\My Kindle Content\)
  8. Calibre instal­lieren. (Zum derzei­tigen Stand 17.10.2020 funktio­niert DeDRM nur mit Calibre 4.X also nicht 5.X herunterladen)
  9. DeDRM herunterladen
  10. entpacken
  11. Calibre öffnen
  12. Einstel­lungen >> Erwei­te­rungen >> Erwei­terung aus Datei laden
  13. DeDRM_Plugin.zip auswählen
  14. Buch aus dem Verzeichnis in Calibre hineinziehen.
  15. Bücher konver­tieren
  16. Zielformat wählen
  17. Mit Ok bestätigen.

Da wo der Eingang war ist auch meistens der Ausgang!

unbekannt

Zeitmessung ist beim Zeichnen immer wieder ein Thema. Einige machen sich gar keine Gedanken darum, andere wiederum, möchten schon gerne mal wissen, wie lange sie für ein Bild gebraucht haben. Ich gehöre definitiv zur zweiten Sorte.

In der App Procreate ist das zum Glück ganz einfach.

  1. Bild öffnen
  2. Auf die Einstel­lungen (Den Schrau­ben­schlüssel) tippen.
  3. Leinwand­daten wählen
  4. Statistik

Dort wird nicht nur die Zeit, sondern auch die gemachten Pinsel­striche und die Datei­größe angezeigt.

  • Kleiner Kaktus
  • Schild­kröte
  • Koi
  • Strand
  • Ice Land

Das Problem

Sollte eure Bluetooth Maus ruckeln, hängen bleiben oder laggen, wie man es auch nennen mag, so kann die Lösung des Problems ganz einfach sein. Bei mir hat es jeden­falls hervor­ragend funktioniert.

Ich habe eine Logitech MX Anywhere 2s und diese ruckelte unter Windows 10 sehr stark.

Die Lösung

  1. Rechtsklick auf  das Netzwerk­symbol im Infobe­reich der Taskleiste
  2. Netzwerk- und Inter­net­ein­stel­lungen öffnen
  3. Adapter­op­tionen ändern.
  4. Rechtsklick auf das WLan
  5. Eigen­schaften
  6. Client für Microsoft Netzwerke auswählen
  7. Button Konfi­gu­rieren drücken
  8. Reiter Erweitert
  9. Bluetooth Kompa­ti­bi­lität auswählen
  10. Im Pulldown Menü Deakti­viert auswählen.

Alter­na­tiv­lösung

Am Router die 2,4 GHz WLan Verbindung abschalten. So funkt der Router nur noch über 5 GHz und kommt sich nicht mehr mit Bluetooth in die Quere.

Update 30.10.19

Es scheint nur noch die Alter­na­tiv­lösung zu funktio­nieren, da die andere Option nicht mehr zur Verfügung steht.

Arcus Funktionen oder auch inverse Funktionen sind die Umkehr­funk­tionen. Für den Arcus Tangens gibt es in VBA die Funktion atn für den Arcus­sinus oder Arcus­co­sinus gibt es diese Möglichkeit leider nicht. Diese müssen aus dem Arcustangens abgeleitet werden.

Die folgenden Funktionen habe ich nicht selbst geschrieben sondern auf dbwiki.net gefunden.

Arcus Cosinus

'Erstellen der Funktion ArcCos
Public Function ArcCos(ByVal x As Double) As Double
   If x = 1# Then
      ArcCos = 0#
   ElseIf x = -1 Then
      ArcCos = PI
   ElseIf x < 1# And x > -1# Then
      ArcCos = Atn(-x / Sqr((-x * x) + 1)) + PI / 2#
   End If
End Function

Arcus Sinus

'Erstellen der Fuinktion ArcSin
Public Function ArcSin(ByVal x As Double) As Double
   If x = 1 Then
      ArcSin = PI / 2#
   ElseIf x = -1 Then
      ArcSin = -PI / 2#
   ElseIf x < 1# And x > -1# Then
      ArcSin = Atn(x / Sqr((-x * x) + 1))
   End If
End Function