Beiträge von Alina
-
-
Moin Moin.
Also wenn ich Dich schon nicht mit dem Titel abgeschreckt habe, dann evtl. mit meiner Frage.
Es gibt Zahlungen, die erfolgen in Minutenabrechnung (incl. 3 nachkommastellen) und einige Punkte müssen erst in Sekunden und Minuten umgerechnet werden.
Im Beispiel 9.13 €-Cent und es wird € 17.68 als Stundensatz gezahlt. Wie komme ich jetzt auf den Zeitwert von den 9.13 Sekunden.
Es gibt pro Monat 5-10 x folgende Angaben:
437 X 9.13 €-Cent
251 X 9.13 €-Cent
394 X 4.50 €-Cent
....
Ich habe irgendwie gerade eine totale Denkblockade !!! Vielleicht weil ich in den letzten Tagen nur noch Excel und Formeln sehen muss. Ich habe Fachbücher, aber da steht dann, das es eigentlich nicht möglich ist und dann hänge ich doch wieder im Netz und suche die richtige Formel für das was mir im Kopf rum geistert.
Hier geht es nicht um paar Cent die eingespart werden sollen, hier geht es um eine faire Dauersondernzahlung für ca. 250 Mitarbeiter die geplant ist.
Hintergrund zu den Zahlen:
In einem Monat wurden X-Arbeitseinheiten in der Firma geleistet (egal in welcher Position!!!). Nun wird geprüft, wieviel Arbeitseinheiten jeder MA geleistet hat.
MA- 47-11-6 hat an 3 Projekten gearbeitet und hatte dort folgende Arbeitseinheiten mit dem €-Cent-Multiplikator:437 X 9.13 €-Cent
251 X 9.13 €-Cent
394 X 4.50 €-Cent
Zusammen wären dass € 80.544. Soweit bin ich. Nur wie weiter? Ich muss irgendwie auf eine Stunden-/Minuten-/Sekundenabgaben bekommen.
Am leichtesten wäre es doch auszurechnen, was eine Arbeitseinheit bei 9.13 €-Cent und was eine Arbeitseinheit bei 4,50 €-Cent in Sekunden wert ist. ODER?
Bin ich auf dem richtigen Weg
BITTE-JAAAA
-
Ich wünsche Euch allen einen guten RUTSCH und alles Gute für 2018 !!!
-
herzlich nachträäääglich.
-
Moin.
Sitze gerade am Gast-PC und spiele eine Runde und was bekomme ich auf einmal angezeigt?
Das hier:
Ihr Gewinn Übersteigt die Reserven der Bank!
Wir gehen davon aus, dass Sie geschummelt haben!;-)
Wollen Sie ein neues Spiel beginnen?1.) Ich kann nicht dafür, wenn die Bank knapp bei Kasse ist. (oder wie das genaqu heißt)
2.) Sie gehen haben von falschen Tatsachen aus. Ich bin eine Frau und kein Mann. Bedeutet ich kann verlieren.
3.) Das aktuelle kann ja nicht weiter gespielt werden. Ist wohl ein Rausschmiss aus dem "Spiel-Casino". *blinzel*
Have a "Happy new week".Eure Lina.
-
Naja halb. Bin noch nicht weiter gekommen.
-
Nicht, der, der mich kennt.
-
Hat sich erledigt.
Sollte mehr schlafen, dann verstehe ich es auch besser. -
++ EIL ++ ACHTUNG ++ VORSICHT ++ EIL ++
Warnung an alle im Forum,
in unserem Forum konnten bereits einige Terroristen identifiziert und gefasst werden.
Es handelt sich dabei um die harmlosen User Bin Da, Bin Spät, Bin Admin, Bin Müde, Bin Scripten, Bin Kaffeetrinken, Bin Rauchen, Bin Chatten und Bin Essen.
Die User Bin Pinkeln und Bin im Lager konnten ebenfalls ermittelt werden. Sie werden als harmlos eingestuft und sind unter Quarantäne gestellt worden.
Auch die äußerst gefährliche Terroristin Bin Schwanger konnte dingfest gemacht werden.
Nur der Topterrorist Bin Arbeiten konnte bis jetzt trotz intensiver Suche in unserem Forum nicht gefunden werden.
ACHTUNG : Bin Arbeiten verbreitet äusserst gefahrbringendes Gedankengut!
Er versucht sogar die Terroristengruppe Bin Faul zu unterwandern und zur Umkehr in ihrem Fundamentalglauben zu bewegen!
Gehen sie ihm aus dem Weg und meiden sie jeden Kontakt!!!
Nach Rücksprache mit unserer Forumleitung besteht aber kein Grund zur Panik. Es ist äusserst unwahrscheinlich, dass sich Bin Arbeiten oder Bin Admin
ausgerechnet in unserer Abteilung aufhält.Es gibt in unserem Forum absolut niemanden, auf den diese Beschreibung auch nur im Entferntesten zutrifft.
Ebenfalls konnte der als Bin im Meeting bekannte Topterrorist bis heute nicht ausgemacht werden.
Es wird vermutet, dass er sich auch als Bin Wichtig, Bin Boss oder Bin Chef ausgibt.
Bin im Serverraum gilt auch als nicht fassbar.
Niemand hat ihn bis jetzt gesehen - ALSO VORSICHT!
In unserem Forum wird auch intensiv nach Bin nicht Zuständig gefahndet.
es wurden schon mehrere Verdächtige vernommen, aber niemand wurde bisher verhaftet.
IHR SICHERHEITSBEAUFTRAGTER
Bin Wachsam -
einfach ???
Mal versuchen wie das geht. Erst einmal die Hilfe belästigen.
Hoffe da steht was dazu drinne. -
Moin.
Wie spreche ich das Bild so an, das ich es als Variable "$_bildbeispiel_jpg =" ansprechen kann?
Quellcode:AutoIt
Alles anzeigen#include <GUIConstantsEx.au3> #include '_GuiCtrlSetImageEx.au3' Global $sImgPath = StringRegExpReplace(@AutoItExe, '(.+\\).+', '$1') & 'Examples\Helpfile\Extras\' Global $aPics[2] = [_Test1jpg(), $sImgPath] Global $iCount = 0 ;Code below was generated by: 'File to Base64 String' Code Generator v1.16 Build 2014-06-05 Func _test1jpg($bSaveBinary = False, $sSavePath = @ScriptDir) Local $test1jpg $test1jpg &= '/9j/4AAQSkZJRgABAQAAAQABAAD//gA7Q1JFQVRPUjogZ2QtanBlZyB2MS4wICh1c2luZyBJSkcgSlBFRyB2NjIpLCBxdWFsaXR5ID0gOTAK/9sAQwADAgIDAgIDAwMDBAMDBAUIBQUEBAUKBwcGCAwKDAwLCgsLDQ4SEA0OEQ4LCxAWEBETFBUVFQwPFxgWFBgSFBUU/9sAQwEDBAQFBAUJBQUJFA0LDRQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQU/8AAEQgA0gDmAwEiAAIRAQMRAf/EAB8AAAEFAQEBAQEBAAAAAAAAAAABAgMEBQYHCAkKC//EALUQAAIBAwMCBAMFBQQEAAABfQECAwAEEQUSITFBBhNRYQcicRQygZGhCCNCscEVUtHwJDNicoIJChYXGBkaJSYnKCkqNDU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6g4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2drh4uPk5ebn6Onq8fLz9PX29/j5+v/EAB8BAAMBAQEBAQEBAQEAAAAAAAABAgMEBQYHCAkKC//EALURAAIBAgQEAwQHBQQEAAECdwABAgMRBAUhMQYSQVEHYXETIjKBCBRCkaGxwQkjM1LwFWJy0QoWJDThJfEXGBkaJicoKSo1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoKDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uLj5OXm5+jp6vLz9PX29/j5+v/aAAwDAQACEQMRAD8A+D5ISFkOzIJA246CtPRzH9nlJRN6YPNRyx7oBt5U8YHJPBqzYxxXFvKhBUrjP+fWgCnqNrI7hiqqrZII7d6uXsTyNA7tFhkCu+BxzWlf2iPDGcYQMFweM54NXrjTogBiIOQMBvvAUAYEEBS4Ro0Mk8bbmCn7wA64xXRRwTnTt4tWQPESpxgcgAnB75p3hvT7c6iDjezqQWk+V+nrXYt4dnmtjteNVaLI2jBb5h+WR+tAHhkt35NzFBMgvLNflmJXaAckAZ7GuqXQ5oNJnf5Y7RXVVj3A/wAWVOe/BIp2qeFLga9PbJa7IEjMjvIe+SMnjrmtXTbTULi1aGRVQERAcgB+cZ47YxzQByvhbSrmTXrea5xI8m6PLtyzZP5V6TaeHG/syK0lt8TbC6yBCFY7m4Pbqc11PhvwtBHvaSJQEff8q+ZhsYXBP0zVqGa7j8O/ZppC6rIwEiYDoN+AR7Y/lQBwmoaRLDc3CMq7lgVAkgCnLJjjPQdse9ReKtFvk0qO9gVYJGiQyIW+Z0IDEjPHb9a717DfrzOZxPNLCqvOyEpNwo6euc/hW94i8PPr2mSIsuQVCIAB8o2YIHftQBwlpb6hq/haxktEt41m8wHIOeDxyB6kVl+N/BsmmeJEu7WCecXMa+e3ccDsenSvSdC8LXM8dnCgG2JQ6yW7EAKc9R6g/wA66/XNH3arb5RDmMglxgsMHHoBz360AfOvh7w9qEutSWmJYoUmZ0DYGTwc/wD169MudCbUGgjkRlCIysCNucjHUelbi6NDZa7C6ORh9m0jg5Bx/LvW3qto9tp3nRqsvzrwCPuY5xQB4x4o0vyXeQRhpWQRpnogU9c/n+dU9B0SeG2Bk2KoYthOPpXc+IdJdnRltzPHtKsF5JGeAfatbQPDsaQ+bNGqD7u0DuP8igDB+yRXasVGAAAex+tZur2rWlowRAw2kepruxpCyeeyn/vkdv8AIrN1HSw4yAxU9cDIPtQB5q8QktzHI2X/AIgFwc1gau083yoCFQjp2Feh3OhI8rMgY4G0r0qvd6VE1vG/2fGAcjFAHBBSIpDsOF6luay30l711L5ZBxwCOK9A' $test1jpg &= 'utOUQOCiLt5y3rXN6lL9nt5tsqsqjGVxz+NAHE6rpKwySeSRgY3An8K5TU9NMCfMI2y2Aa6q9uHG4BXIXB3nt7+9YXiKBwgUdGcMDnP+e9AHLpYj7U/7sbE4NQNaATYXlSM8nHFaKmWKT5XU7jkjFI8RS4+ZAFKkbhzk/wBKAMaW1E8zL1K/yorSsk2yzNjHOMGigD05bYyRHhgQnBx0x6VsabbtHaTBlaRSAoAGAahs7n7RMkfKgMcFRngjpXT6Onl2qptGcE8n6jr+VAGU8yzLtlDAK4wAOa3dC059Se6jCLsGSqnrnPJ/WodP0hrmZ0HDFwTnn9a6q2t3trvyoCVXcHI2984/yKAKtt4TlhneRnEqGPDOOAvHOQP51vaHDFZB7VCWVk4ml5BAA6Z/zxW3pl2fJ2vCssroVJUYz6Cr+j6YjBGnCyFWYgBOntmgDJ13wy0+lyX6TRzLLGELxjcSAcjA79cGuV07wM4ldnbyhKAiui/KM8jacdR05r1az0uzurB4V3pIHJRQSoAP8vpW/F4XaSxto0jURl1kCkE4IHX60AcB4J8I6lHdiL7c0lqpYGOT5jgD9Dmtm48HW0sl5I0RmUoAARuU/NngfjXd6Z4WOnWskxjxcO33c+/X261e0rwxI1002WVGyhU9McdKAOCPh6PUbWFJLbykih2AxjlhnBGD9B710Fl4MtoIleNfs5jj6nJIAH69K7oeGoXk4DLz37VbstBNncb/ADcq2VG48D8KAOV0bR1gVCsKGZwSskYwAvGMimeLtNEiafcSyKkUcnlsJR8zhsAnPbv9a66WwjtJQyKC6nqOSOew/Gqnia1iuNNiM52GNhkgDjn0/wA9aAPIbzSxF4sg8qd5IGIY7ugIGAAPTmlv7fz7UAF7eYFWdY/uYyDn68dK6PVo7a4v9KZisJZtsjL1OCe361eXRYdiohHTDEHPHPPNAHPzaZD9gw6IS4AZlIB564qGztIQrxqysDwQenHTmuluPD7XMUoMUaQ45cN1Prmo9O8LCNnUyKCO4OSc0AYQ0WNQxBCsRyR0IqnNpIiG2RdygZBFd0+geWPkbkDByKyNS09ogAcsGHcdqAOJn06EM4Ow5BK8dK4nVNNktZGa33BMYJPIxnqK9J1C3jhkw/AI6gda5vVLRzgLtKkDCkY6GgDzzVQ11aShyVfBxt7DPHFcPdWzOpDkKpbH3eCe4r1XxFFEto5hYByp44wDjtXluoatb4XbImcgFFBIJ9frQBj3mmlbSSRNgAThOxrjNSR2LoH6OCx7Z6Y/Wuu1nU4ybiVVaPcmGTlsnHp6VwGrX7RTPt+6wBb5cUAV/s8cdwHPdsMR2OcfjT7mFFYnac+nUCooj9o25LKpbOTxipL8yKzSb8fQjj8KAIlUqSAc+gA7Yoqot0fmbGAT1HNFAHrWlwKswPY9WXJ+YjoK77w4m92Dp8q8HJ6g+lZNvpfC5iEbE5AxwB9K7nwroUIhVG/esGzuf60AJawRrAMFcg5AX68Zres4UhJkYJuk5YqRx+FSjSY0CnBUK2Ds+vWt3T9FFzdSSMQ+5cLkYC9OooAPD+lw37hWDKxOM9BjtxXdaHobxKVeNS/djWbpOkNZ3SqqLIqnIOOld9YWu7ynAy2MnAoA5qXw+qXPljkL0GK7LSbU/ZYlljAZcdOlTWGl77iSU8uT1rfs9OywyOOtAFRNKWUNkZJ6AdquWelBQRtwDWxa2G3jFaEVjtGcUAYzacPLA6Vnaiwt0OW+VTkcV0l2oiQ4rmdUVrgMB0oA5HVNWY3AGTj+InisHXdWmexkVjgMMgKewIP8q6q70USOG2g/UVn6toxaycsikpGQCOooA8t1y8zJbSSH5QwYY4xz6VoS+LpNKdp5Ny2alQ0+BgZOMnPOOau33hBZBC0zvvDq3TisHxL4auNWsjC8pESSKXjUD58evtQB3um+IrC5gaVZklBBDEDPpxxWpYQGWVyBmN3BVsHvXnHhV/7It1gM' $test1jpg &= 'YiWM8gHt6mvWfDMyXCFm+bce56UAOvLMeWxAwf51kz2ImtwOWHTkV2l7Yb3Q7cfL+BrKubXYGJA54OaAPL/EGjIZgQ2GIyR71yepsVkjQTeXjGdw7GvWNWsA8RbyxwCM9hX5xfGPxZ4n8M/GjU5J9Su2Fle+dZxGVhF5Gd0YC5xjbgH8c0Ae/wDxK1vRNCt0e/1CO0MgKIXP3m74FeT3ENvIiPbXaukjEq8fIIPQ4HsKzf2iWPijTtB8S2j+bYTR846pvAIz/wB8kH3rmPhCxvU1CAsMwoG5bGUOcj8/50Aakt663sttPK6nHy5OdwPPrWZrtxHc6huk+dwqjKnkL246GuouvDAniaSONo5mz5aLyR1Gencc81x2vhPD9zam6zh0KbtvJIOCf5UAMmnhht1VopFCy+WzqMAHn/61On0m2nVnUyFh/Fng1sx2qzQQRuyOpbeH2c44GM+/WppNGkWDeSWySCg42j3/AEoA4S7gFuvChRuxnPJorbvdI2HYA2xTgEj2ooA+noNIW4lKuhXHIrsdC0lUyw+UccZxmm6ZaBnG4A9uK1dW1GLw14e1LU5IjJHY2sly0a8bwilsZ/DH40AXbHTInEigjJ/HvXQ6RppgfzO56/nXiv7OXx1m+L+satpWo6da6deWsQuYDaFtrxbgpBDE8gsvI656DFfSlrYBQuSu0juOtAFjTLGPlti5J6gdaxPH3xp8D/CG4sLXxRrSabPdruht44XlfZnG8hAdq5BGT1wcZwa7PT7UKq5KqMcknAA9/avy7+Jer6n+0L+0HfrpIa7m1bUhYaYhPAhUiOL6DaAx+rGgD9XvDFxY65pdrqenXMd7YXkSzwXMJ3JIjDIYH0xW7Y3Fnc3s1pFdW8t3CAZYElVpIx/tKDkfjXg/xd8Y2f7J/wCzRaWOn3avq9vYx6PpLNgNLcbMNPj0X5pPTO0d6+Yv+Ccfg3XvFfx2vPFhkuTp2l2k5vrp2JFxLMCqxsf4iSS5/wBz6UAfplBZ4OcVaa3KrnFW4YMY9allhOwnHFAHK3sZdmFZ7WIPUA10c1ruY5FRGz4PGaAOXm0wFTxj3qhdabvXG3IxXYyWfHAqjPZ8Zxg0Aed6npTOmNo4bIBHSuavtEcNIE2nPWvUbyxyDx0rCvNPU7ht5+lAHmF1ZAXH+q2sAAcdDiuu8GhY/kBIHHANO1LTkAOFBOPSpfDsCRXagAZzQB6FHADGpxnAxzXPeKdV07w5ptzf6nd2+n2MI3SXN1IscSDpksxAHNdjaW2+3BHpXhH7YXwm1X4p/B3UNL0Us+pW0yX8Vspx9oMYbMf1IYkf7QHrmgDW03xTofjXTZbnR9UtNZsixTzrK4WVAw6qSpODyOK+Uv2y/hILnw3B4rs4i1zpx8u5I6tAzcE/7rH8mPpXhP7P3xlvvgb46ZruOZtGum+z6pZEEMADgOFPR0OeO43DvX6D6rBpHxF8Gu1vPFqWj6palRJE2VlicEHB+hPuD7igD87/AIZ+I7bVtCvvCOplQLiNvsUrjIVjyU/P5h759a47wvrc3g/xIssinajGG4j9Vzhh9QRke4qXx74Rvvhz421LRLkslxYz4SUcb16o4+qkH8aztbmGoyJqI+/cf64DtKPvH8ev4n0oA+pNPt4dU0VZVKOAqvFPuyWBGRj/AD3rx746aSLK4sJQOpYE9iSAf6V0nwF1/wDtbSZtInctLZHdED18tv8AA5/MVn/tBMRBYqWZj5uRu4420ATeAyLjSdOlYA5jGWY56ZFdHqGnCaNDGiqQRnZ3OOtc38Iit/4XWLIMkLuvzHHGc/1rsrhZFDFQEHQZPWgDlp9PMjt+4D4IxuHQYorRmklSQrn5u+GFFAH01ptoExlWz3wa2dR8OJ4i8Palpu0k3lpLbjJ/voV/rVPTIWEj5JJzxge1dnpMAzG3JYUAfCX7F1+LD49afbSMUF7aXNsR0yQhcD846/SW1sVIGRnBr8unv/8AhT/7S8t3gx2+' $test1jpg &= 'j+ImYgd4POOfzjJ/Ov1Z0iOO8t45IjvicBkfjDKRkEexoA8V/ay+J0Xwj+DmoGCTZreuB9OsUDfMNw/eyfRUP5steD/8E8/h5pkFx4p+KevyR2+meHoXt4J5uFicxl5pfqseB/21rx/9rf4ut8Xvi/fGxnM+haSTp+nBDlXVW+eUeu98kH+6FHavQPjprknwK/Z28H/Bq0cw67q8Q17xLsOGTzCGit298KmR/wBMl7GgDz745fFvXf2qPjHZw6fDL9jlul0zQdMJ+4ruFUkf33YgsfoOiiv1Y+DXwp0D9nz4V2Wg20sFvZ6dA1zqOpSkIJpdu6ad2PQcHGeiqB2r4L/4JwfBA674zu/ihrSpa+HvDSyLa3FwQsb3RQ7nJPAWKMliexZPQ1m/tm/tr3vxeur3wX4OuHs/A0T7JrlQVk1VlP3m7rDkZVOpwC3ZVAPYNB/4KFa943/ac0Lwr4W0a0vPAuoarDpaeZC32ydHcI1yG3fLjJcKRjaOeeR9+TwZh6Z5618Uf8E6f2SpvAemJ8TPFliYvEGowbdIs51w9nbOOZmB6PIDgDqEJ/v8fdTW25eaAOZmhw3IzTfIFa1zbYY8cVW8jHUcUAZj2oPSq09ouPmWtkw8Hg1Xmj4OeaAOYvbRQ39awtQtF5wOK7C8jXnJx71zuoR8NjqKAOL1CAANxmszSnEOoAD1rc1NfvYIHHWuatpCmoqAwJPpQB7Po2JbVcelM1Cx8xGxz7U7wuhexXJ7VqXEOB1/GgD8+f22/wBlc6it54/8K2eL+MeZqtlCvM6gczqB/GB94dxz1Bz84/s8/tBX/wAJtXTTr+aW48K3cg+0W5JJt2P/AC1jHYjuB94e+K/WzXrdXjkBGfpX5p/thfs0nwPqU/jDw1akaDcvvvbSNeLOQn7ygdI2Pb+En0IwAaP7XPg2y8W6FY+NdGkjumgjAklhIIntm5VwR12k/kx9K+TI7gpBLERlXwfoR3/LI/Gtiz8da9p/h+50ODU500m4BD2pOV564z93PfGM1hUAbvgrxK/hTxDb3w3GIfJKq90PX8uD+FdN8XvFFt4gn01bWZZ0VDKzqcjLYwPbGDx7155RQB7D8El+0abcxhyrrPjAHTIHP869F1eG4iUoHHyDkbQMivHPgprP2HxMbRslLlcgA/xLz/LP5V7Hrd8mJTtY8HgHvmgDn5Y1aVsTOH4ztUdKKz3vjLdPuVc7FJycY68UUAfY2nLunkUfKvHUf1rq9IBD53F8H7o6isvQ2jkRWToyjk/4V0VoUs7nKxF9wAJUc+1AH5//ALaWiQ6R8dL6WHA+32dvduB2bbsP5+Xn8a6iH9uTXLH4JReCLPSPJ1cWP9nNrpuiSsWNu5I9ow+z5cljg89enln7RvxBi+Jfxh8QaxasHsFlFraMDw0UQCKw9mwW/wCBV5rQBteCvEUfhHxfo2ty6fBqsenXcd0bK5JEc+xg21iOcHFdLf61qf7QHxojvNd1O2sL7xJqkcc17cvst7VXdUGSTwiLgDJ6LXAUAkdOKAPtv9rP9obwz4H+G1h8C/hNdpJoVlEINX1S2YMs4By0SuvDl2y8jDgk7RxuFRf8E7/2T1+JniEfELxXYCbwtpM2LC0uFyl/dL3IP3o4+p7FsDkBhXz9+zP8ELv9oD4t6V4YRpYdOybrU7uNdxgtUI3sP9o5Cj3YV+3/AIV8M6X4N8P6foeiWMdhpVhCsFtawjCxoo4/HuSepJJoA3IU56HmrqR7h05qtbzK8e85XH3gR0NaMADAcUAZV5bYJ44qg0OCeK6O4t9ynvWPPGUc8YFAFIwHPSqtxb4B3GtTbt5Oce9VLsA9SR6UAc3qBVAR94e1czfMCGbGcjNdZfyBEYBlUgfx964rUJDulwQVIP8AOgDmNVI+fHFc7p0Zl1ZMjv8AjW7fMWL5Gc8da0PCHh/7XepIU5HegD0bw7b+Vp65HOKnnYlyQOBWrZ2At7ULjkCqM8Yy4OPm7UActqxC' $test1jpg &= 'xOCMZ59q4PxNocGtWlzaXMKT29xEY5InXcrgjkEHsQcYrudas5Lq6eNMB8YGeh9a5q7ja2eRSRFJnnzcg4z9aAPyk/aN+DjfCLxs0Nsrf2LfhprMtk7MH5oyT125GD3BHfNeUV+g/wC2h4Oj8Q/DPUL7fbNc6VIl7FsJLEZ2uOnTaxOPVRX58UAFFFFAGh4f1E6RrdleA4EMqs30zz+ma981nURqEULQlRIiZJUbcnA4+nfNfOdegeFfFzXUcVpKAJkUKH4JcDgcHvQB2MEMw1CVZUViYkYbTjjminabH9qvXZkkIEKgHb9c0UAfafhyS2+zs3mhccAHgg1y37QPj5PAvwk16+hmxfXMQsLRgefMk4JHuqb2/wCA1t+GtKMrRwsqMn3ydn/16+PP2rfiYPFHi0eG7HCabossiSBCdslxnDNz/dAx9d1AHhR5NFFFABRRRQB+pX/BLn4Zw+G/hJqnjSaHOo+IrxoIpCOVtYDtAH+9KZM/7i+lfcNquSD+dfL3/BPXXrPWf2WvCcNnKjS6bJdWd0i8mOX7RJIA31SRD+NfUFu+5gNygCgDRjiRk5GDjrmrkQAPBz71SjYkffB+gq7bH5eooAsbcgZ71RvLUEE4yPatBOtJMgdD296AOYlA+7kECs2/mKJknGRyea0dSn+zSneMoTgMB0PasLUr0lmQbgcehoAxdY8+RSE8thjJyeR+lcvfMvluD/dJ4I4NbupXDRq0jZkyMELxXKajdp9nd8YLDqRQBgzyeZNtGAOvFekfD62Hlq2Oorygzb5yQw65xXrHgC/j8pAW5xQB30iApgd6ybi3XcSSME1ptcLszkVx3xI8WjwZ4I8Q6+lubyTS9PuL4W69ZTHEz7fx24oA5H4n/Ebwp8K7D+1vE2s2ekQO+Ee5k+ZwOyIMs5x2UE189eI/29vhDqMnlC91GZVGFmj0+Qc+2cH9K/PTxh4u8X/HHxxPqepSXviHXL1zsggRpCq5yI4oxnao7KBXpXhX9iv4g6/p32zUFsPDiEbhDqcrCbHqURW2/wDAsH2oA7b9oP8Aas0Lxr4V1PRfDst9eHUEWEzXEXlJFHnLZBJ3EgY6DGTXybXs+u/skfELSYWms7Oz1yAZ+fTrtWbjr8j7W/IV5lrngnxB4ZkKatomoaaw/wCfq2eMfmRigDFooxigAmgApyM0bBlJVgcgjrThER1GKcVHpQB12geOGtt32stv2gbwPvfWiuSCUUAff3xd+LFp8KvhzeXFhc51m4BtrENywlJ5bBHRRz9cDvX5+zzSXM0k0rtJJIxZnY5LEnJJNeifGjx+/wARPFklwjE6XZL9ms4yMAIDy2P9o8/THpXn2zeCVGKAIaKUrg4pACTgdaACivePA/7E3xT8cW1vdLpVrolpOAyy6tciNsH1jUNIOvQrmvonwL/wS3hYRTeLPGckgyN9tpFr5Y/CWTJP/fsUAfDfhfx34l8EyySeHtf1TQ3lxvbTrySAvjpnYRmuqP7SPxYIAPxK8WYHQf21cf8Axdfqn8Pf2KPg18PhHJbeDrXWrtcZutdc3rH32P8Aux+CV7Tb/DvwkLT7OPCmhfZtu3yf7Mg2Y9NuzH6UAfkz8Gf+Chnxb+FmrwHVNbm8baJuAn0/XZDK5Xv5c5/eI2OnJX1U1+uXwR+Mnh346/D3TvFvhudpLG7BSSCXAltpl+/E47MpP0III4NeS/Er9hn4NfFC0kW48HWmgXrA7dQ8OgWUiH12IPLb/gSGu9/Z2+A3h79nDwAPCnhya8urd7l72e6v3DSzSuFUk7QAAFRQAB29STQB68rYqQHNVY5hjmklvUhXJNAGbrykR7goOO1cFrN26kEKcHriuw1nV0kjZVIz25rhNUvAHUEBgeMN3oAwb3UA8DFmIJ471yV4srW8jFxjHQ9a39QaONGdbcpuByxUsPyrMljL2wJUAEfp2zQBx8okjDMQCPXOKt6Z4wl0mVAGxx60+6t2+Zd2RnHSuZ1Gz2TK' $test1jpg &= 'Qxzj0oA9Nj+KgEOWftWJrXxVSS0uAXDhV5U989q86ukeOE/MOnU1zN6zNNJhsDjPPHIxQBtWXjXS/C08q6fpGnaYkrbG+x26Q7ye52gZ+tc5efGYzSM8GG2MRlfX0yfrWH4mmWG4TnyWPRweTyOg9a8j8caYbQOguDCJ5nKK7dR1LflxQB6Bd/HK5mkkljijhYNtOOA2Tjtzn/CsTVPi5cTRSRSTktnAQINuPXmvL/7PvRGhguRKNm7kYOc8g56mufvWkRyZtyN0AoA6LV9X029u3Z7CxmZ8Es9um8YPUZHWuP8AGGk6RqF759rbx2Um3LeSoVG/4COPyqpe3ALg88dPpWZeXbFVBY0AY1/ZLb9CD9DmslzyRmtS9kL5zWW4wxoAN2PSimmigCw0ueAQKfDtJPSodoJOR+NPijVvu80AMePdK/pX0f8AsO/BSP4hfEn/AISPVbcS6D4fZZgsn3JrrrGhz1C/fP0Ud6+fdO0e41nVrWwsYnnvLqVIYYk6s7HAFfpv8Bvhgnws8IafosGpyRzrG09z8iMkk527yDjnnA69FFAH0XYXzyBwx2kZ4Zjn+VbMU2bdQZPmDjpxmuT0/wA2MozTpKrcdCCTWs+ox26qssg4YHIPegDpoG3gHnPPIxWzaPsTB6gVyMF6rkOGUdsbj0/kTUt34rsNOQtcXkcW35iu4ZoA7Rbjy8EYPfnirK34HPH514d4h+NttbqhsQJ2kO1JJGAU++B25qhY+OL7WkMlxfYBYMIoxtAHpx1oA95m1+NOAQxH90g1y2ueLTH8qkj0JPWuKe+lkKvHNwrcgnt780y6lEskYlMh3j+9wcdeKANz+2GuFLMSMkcZGazNRvLZZ8zssbZ4LHFQQ6Da3ACyPMqtztWQrgfhRc+GLGBE228c7L917h2Z/qSaAMO912yCmGO8JDHGxeRT/MEsBdc84G48Z96kl0m3jl2LaQwJtwoC7frT5LcRxF1xtxgf5NAGFdRgk88Z7+tc7qSDzFye3WuhvsJuBUjGTiub1KUDYRySOhFAHOa1KI4yoOTmuPu7l4A2CTJn5vqfrXTavMFJGM9+f0rmoLhL2a4VowMbcjrmgDkPEd9PK5cIjoqswYnGD0B/z6V5zreopdW1p9otgWgDYVTz8wGc+ozXq2tW0c0cgig3llYL0ypJwa4nXbSOzmiiVCUdMHagJ3DHU/TPagDgSbaZX8iRCWTG1SRtPfvXOzwkSYdhg5B9iP8APWu/GmWskj+WgWULtIK4B47GuZvtH+yyo4/dohyVA4oA4zUNN8ne33sd+lYd5Ftb7pz712mpwlg2RkDuOa5nU4wNoxQBzlzESp4rLniKnpW/cBfu4/Gsy6jG4+tAGURjqKKklQE5ooAkjfqOx7U+OElHZM+9QwwM5wCcmug8JaLNe6llo2lhhG+SPzFj3c9MtwKAPo79lb4OXFlew+LNQs5C80DrYOdp8knAEmMjkgtj0+pr6+sLlUEMsMh2KpjLNHgdj/e9RXzVoeo6xaNBPa63/o0ca5iLWwJbHB28DA9QeQPaiX4g6hpdjM39ohczt/o8giUA46jDYwetAH1zaeMWeCGNo3Zsj51HAxUXi3xva6DYCa7vGWIlSG8sE5z7e9fHulfHee385Fu1M4IyrINuenZ/esnxX8Qdf8RXUXm3SPCNrAIpyOfQ0AfSWs/HLVL5vL0q+it41Yg+dbvuYe5yQKwrbXtY1ppJZby1yPl8w27HdyeSSfxryrR737RAWkjiHGS8bENkV03hnU5oYzCUciPG0iQgMSfTtj3oA7G28O6tJND9o1iO5jiUnbFFtxyOMgjjtXZwacljASLllWSUEoZPl6kArkkAc964LTvGXmapcaeXlV1jLMd5UYPAUZ6tXW3exLP5EUYAJYncXJ/DHr+dAHZ6en2KN0LvJJGQrHzQckfQVu6ZcwSSrGwl3vnHJ/DnHHpXC6bfJNqD+YGjMi/Kh3DAB4J/P9Oa6K11CJGgCjDF' $test1jpg &= 'c5EnX2wT7UAdxHefZhHEWTzeSVLeg561cmuiOQTuJGOeBjrXPQTJIFBJ3g4OeSKdqV4FVdsgBB6EdPr7UALql5HIzGSRWAPTGdoxx+NUkuibQiH96m3A7YqjNdLPEUM53gsrfIefx9fei2d4oCWb5ScEdOB6e1AFe7uC67G3AjoD1rltYuGM4GegJGO9aWp3incuTkHI/OuR1fUWNzGuPlAIY5oAytav/JmHm/K7ZyBycetcTp3iGIX8+0r5rHgE8Pj3qfxrq4l84oxDRLypbHNed6bq9va6sqTYhO7KqwzkbcZz9TQB293q4uIprqSMRmJ9oQY4weh55zwa4bXfGi3OoskNsC6pjGQSOcZxWs+qxzJJlgrh96/MM5A964/XbiGPUpJmhEYiwofHO3nrjkmgCoPEc0bsWtZAoYAllwfTP5VDq94rKG6BuOD0NZ95dtc3MqpOqW+RtV/0xVa6x5ZY5YDue5oAy7+9RVY5wcHkgVzuot5oXBHX0q9qEplckHPUEYrJuz8qUAZdyg3cc47A1nzoMngir8yjdxn86oTnDEZoAoyxhTwTRT3wfrRQBY02HfNhhxjNeo+DPCltfwRyvGz282UdJWwCT3zg4FeZWxZRhGAbpXS6R4jvbSJY1kc46AHrQB6b4l8VnR4rS2gd4o4kaNYEfIj+XnacdD75rzm61G41a+uZJVEMZLOkeeOT0/Ci51S6ubhWb5uDwR7VZsbee4G84AAHA9aAMqwjaC8LRRkzMcsz/d/EV6JpdxKwjjaN2BwchuD9P8Ky9LE5L7kXIIIbHBFdW/72KJRtRxht2PQ9KAOn0mRooGXnnnbtBz+Na+nLMdzSSyKM7vLjXn8SDXOaRPdE5IijB67epGK6PTJrqN3cpERxgZxQB0ujWWyCKRFmdsjGXwD+nr3rvIr68OnvFLGxVx8sYbG0Dp29q4mw1R7dQU8lWdRjceQPeuhtNYlMOCkfPUFjgdsZ6elAHWWVywtYttzcQgqNqnDn2/I1uaZdP56yi5DndgeYncDFcdpl3cwIitFGOOMPz/KteLVriNQnlqRu3bA3f8qAPRLXWhD800kak4AHTPrVfVNfgicbpEKsSMj5jiuZt9ZuJUQvDGVOcDeOD+VWZb54oml+yqGX+66jNAFiDWraGad1V4l3F8HO0nGMj26cYxWsl8JtNgZtqLtwBnPH1rkLrWLhCyNYBkLEsd67senJqQ6u62qoLaZVHKYK9MfXmgCvqV8rXEsahvvDBHQdeK5PWrtlu+Ny5QkFefStTU9SKSkmIhzgDOP8a47X9Y8lxIofOCM4yDz9aAOI8YLPdXLcMdx+8px27iuX0K1eK7nFyHMxZVV2iLIOv/1q6nVtUS5bzJIxgk5wD1rnNK8Q2891dRSFmYFVDrwFUZ/KgDaFkrXUe/ZKsedwYYYdwf5/lWX4oltHz/oL3MknykooOR9fWrB1qGS0zE67lJO4HBbr+YrkB4lcXl0Af3afIASNxJ5yB6dqAM2ayWGTfHtdVbAEgKnI69qr6jvER6KRznGTWleaxG0ZDAuxzn2+tczfamvO4YJ7UAY90j5ck8Z6VkXTE7RwAKuXl+vOOATWPcXILAj1oAZLncTVR4GZulX7eI3DZAJFb9noGUDvx35oA437DJk8UV3T6GoHynnNFAHn9rMUHAxxWzpgfAyx56cVhW/Fa9lIEUCgDrbKJA0TNnOa6Oz8tYTyB9a46yuRGAc8jpzWxHqKCM7iR+dAHQwyBEYbuPYYqxb6ghcBn/HP1rlpLsSD92/B9TxUyXSu4AZRigD0LSbn7xb5gBgGupsrwIu4g7sDOK8x0e7JOfMbjtnIrprbUVjRAZnBPbd09qAO9a+T7NgKMbf4QcfjirXh+7Q2dsrNkBAeWJrhE1MtExFxIIzwQMZrd0y9AihXecAYOOD9PrQB6VYXzFFUMw9s88/Wta3vhIM+YdoOOMV53bakQVAndeDgMw/wq9b6tIiqFw2D04xQB6Pa' $test1jpg &= 'aggbCzfMOo4FXf7UZwyCRSP7rHj6V52usyhd/lqvbhuf5Vei1wcMVckDoO9AHXzahIHk3c4GchsYFNuNZYRwx7flOfm68Y71xkmuBgQySZfoduaVtXU2wkjI3YwS+R+n1FAFjVNZVJWy2AGAJPauC8V6ifLjKOVy52EHknHc1Y1e98wyI5OCeVXqOB/9auE8T6q8AtVMm9UcMAeCMA0AN1jU5EVlEmYB8owhGc9/8+tcraaosN5dNMp8sAZIb5c84z61b1LxL5sbRHhnI6Y/KuKE7XP2qPefLVckk5Ynnr/jQB0cOsZdgzySIj8FiMMMdvbn9Kp3NyjvMGRn3EHdnhff+dc9Z6gI4ljZtu0kjP8ASotT1YRRfIyr14B60AWzqjRGWIyb492F3dfrWfd3YklOG9uaxTfF+DgDtilmvwX6DA9RzQA+4lwecD0qmW3MvfmormYSkFSQPrTrZ9zjPI7UAdX4dtFbDPxXRSSogwDj696xtKmWK09/anXF62N3T8aAJZ7pg2A2OaKxp7neRuJ/CigDkoQR2q7E2BmlSxc/wn8qsJpsxPyxsfwoAmS5KgHPSrcV/wADBwc9Khi0K7kIxHjjuavW/hW5Y5ZlXB5FACxXrMME1YjunyMEMfpzWhZ+DyOWmz7KOtaVv4ahjcOVkf8Az7UAQadO6hj0rXj1ReNxBI5+lVp7SOO3ZowcDjgd6wrq8+yzbcAeue9AHZW2sRscbvnB5Hsa1bXViit85JH4YrzmHVkLj5unXBrVs9bjQn5yWPv0oA9BtNclJyGbA9a0LfxM27ZkkE+leew613DHn0HWrMWvqm0M+GBz83FAHpP9tBVIZSR0GM1PFrwWIhmJ9W3Ywa88TXkkYgOQe2OlSjUlIVwxz14PXt0oA7+fX5GCssxRAOSW7VZ/tuMWuAV+UggDn8a85k1o+W298sRtHOBilGu7ogCw244xwKAOi1HWokuHJB2s3bqOK4zxDrcRuI8oNwPAYZyMVBfa4N7kEbsnr9K4/VNZ81kL4wDhc9hjqaAL+oa5AkWSuM5BFZdnq9rBNO6rjKhOec+9Ymo3sflblJc+o71n2lyCJQPlJPegDdu7lJFQEZAPU96pywpMpUAc85Iqp55Eags2ATzTZrz5MiQn6UAPeFYs4VQT6VVnZGfOOarPcHdneWz70jyHHXJoAWTAGc4qaxZTKA3rVF5c/X0pbOVhIfY0Ad3AY47fAzz6VBIUbjnHY5qvbXW6EZomfao24x9aAIJ3VTjNFRSyK/3jnmigDYgA447VajHI+v8AWiigDYthzVtuMY9aKKAL0P8ArIv901YDsGOGI49aKKAIWJPmZJP7yua1w/vI/r/jRRQBjL2/GrlrwD9KKKALETsGHzHqe9TzsQ6YJHzUUUAXrZiV6mnFiPK5P5+9FFADLh2MfLH86ZC7fZl+Y9fX3oooAytQdvNbk/ePeubvuZEzz8/9DRRQBlzE4HP8NEHPmZ9BRRQBGzHyX5PeoU6D6f0oooAqt/rBSt900UUARnr+FPg+/wD8CFFFAHT2/wDqBVh+VoooAzbj/WGiiigD/9k=' Local $bString = Binary(_WinAPI_Base64Decode($test1jpg)) If $bSaveBinary Then Local $hFile = FileOpen($sSavePath & "\test1.jpg", 18) FileWrite($hFile, $bString) FileClose($hFile) EndIf Return $bString EndFunc ;==>_test1jpg Func _WinAPI_Base64Decode($sB64String) Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0) If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "") Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]") $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0) If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "") Return DllStructGetData($bBuffer, 1) EndFunc ;==>_WinAPI_Base64Decode
-
Vorschläge !
Und bitte keine Rückschläge, die tun nur weh.1.) Tempo am Anfang langsamer und schneller werden lassen.
2.) Münzen erst z. B. 150px und immer kleiner werden lassen bis z. B. 90px
3.) Online Rekordliste oder so das die Spieler ihr Ergebnis online in eine Liste eintragen können.
Der Kampfgeist wird angeregt. -
Moin zusammen.
Es "Datenbankproblem" kommt hier.
Ich suche nach Büchern, z. B. über den Autor und das läuft auch super. Nun würde ich gerne, von dem Suchergebniss mir die dann mit der Maus ausgewählten/markierten (angeklickt und dann ist es blau hinterlegt)
Bücher...
a) in eine *.txt Datei speichern
und
b) so in eine Variable "exportieren", das ich dann das Array (???) dazu nutzen kann, um noch zu bestellende Bücher via Email bei meiner Buchhandlung zu melden.AutoIt
Alles anzeigen#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\..\Dies & Das\Autoit\_Icons\book_2.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.13.10 (Beta) Author: Kanashius Script Function: Buchsammlung So. Suche ist mit dabei (Live, während du tippst wird gesucht. Kann in den Einstellungen ausgeschaltet werden). Bei bearbeiten/erstellen kann das Datum bei ausgeliehen von/bis nur eingegeben werden, wenn eingegeben wurde, wer das buch hat (sonst wird auch in die db dort nichts eingetragen, beim bearbeiten verschwinden vorherige daten). Beim Datumsfeld kann man tippen, indem man auf den tag/monat/jahr klickt und lostippt. Das Datumsformat (tt.mm.yyyy) kann oben im Script geändert werden (Zeile 26: $sDataFormat="yyyy.MM.dd", wichtig dabei, dass das MM groß ist, sonst werden dort die Minuten genommen.), MUSS dann aber in der Datenbank auch überall geändert werden. Ich hatte in der DB nachgesehen, das Datum war als yyyy.mm.tt abgespeichert, weshalb ich das übernommen habe. Header sind jetzt auch Einstellbar. Jetzt hör ich erstmal auf, die Livesuche kann zwar in der settings.ini schon ausgestellt werden (0 statt der Standard 1), da kommt aber noch nen Fenster für Allgemeine Einstellungen, wo das gesetzt werden kann :) Edit: Hatte doch noch nen moment und hab die Gui für die Allgemeinen Einstellungen noch eingebaut. Livesuche kann jetzt ein- und ausgeschaltet werden. (Achja, wenn getippt wird, während die Livesuche noch läuft, wird die aktuelle Suche abgebrochen.) #ce ---------------------------------------------------------------------------- #Include <SQLite.au3> #Include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <DateTimeConstants.au3> #include <Array.au3> #include <GuiComboBox.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) ;Datenbankstruktur Global $SQL_DATABASECOLS=["ID","Titel","Autor","Verlag","Erscheinungsdatum","Genre","Preis","Einband","ISBN","Seiten","Lagerplatz","Serie","Bestellt","Gelesen","Note","Zusatz","Information","Ausgeliehen_an","Ausgeliehen_am","Ausgeliehen_bis","LfdNr"] ;MainGui Global $sDataFormat="dd.MM.yyyy"; Global $sDataFormat="yyyy.MM.dd" Global $MainGui_Gui,$MainGui_ListView,$MainGui_Menu[2],$MainGui_ListView_ContextMenu,$MainGui_SearchInput,$MainGui_SearchTarget,$MainGui_SearchType,$MainGui_SearchButton,$MainGui_ListView Global $MainGui_Width=1400,$MainGui_Height=900,$MainGui_MenuHeight=20 Global $InfoGui_InputHeight=20 Global $InfoGui_EditHeight=200 ;LabelNames|SQLNames|Height|Type ;Type=L->Label;I->Input,E->Edit,C->Combo,D->Date ;Ausgeliehen am und ausgeliehen bis MÜSSEN DIREKT hinter ausgeliehen an stehen, rest ist egal Global $InfoGui_ControlInfos=[["ID:","ID",$InfoGui_InputHeight,"L"], _ ["Titel:","Titel",$InfoGui_InputHeight,"I"],["Autor:","Autor",$InfoGui_InputHeight,"I"],["Verlag:","Verlag",$InfoGui_InputHeight,"I"], _ ["Genre:","Genre",$InfoGui_InputHeight,"I"],["Erscheinungsdatum:","Erscheinungsdatum",$InfoGui_InputHeight,"I"], _ ["Serie:","Serie",$InfoGui_InputHeight,"I"],["Preis:","Preis",$InfoGui_InputHeight,"I"],["Lagerplatz:","Lagerplatz",$InfoGui_InputHeight,"I"], _ ["Einband:","Einband",$InfoGui_InputHeight,"I"],["ISBN:","ISBN",$InfoGui_InputHeight,"I"],["Seiten:","Seiten",$InfoGui_InputHeight,"I"], _ ["Lfd.-Nr:","LfdNr",$InfoGui_InputHeight,"I"],["ausgeliehen an:","Ausgeliehen_an",$InfoGui_InputHeight,"I"],["ausgeliehen am","Ausgeliehen_am",$InfoGui_InputHeight,"I"], _ ["ausgeliehen bis:","Ausgeliehen_bis",$InfoGui_InputHeight,"I"],["Bestellt:","Bestellt",$InfoGui_InputHeight,"C:| |Ja|Nein"],["Gelesen:","Gelesen",$InfoGui_InputHeight,"C:| |Ja|Nein"], _ ["Note:","Note",$InfoGui_InputHeight,"C:| |1|2|3|4|5|6"],["Zusatz:","Zusatz",$InfoGui_InputHeight,"I"],["Information:","Information",$InfoGui_EditHeight,"E"] _ ] Global $InfoGui_ControlAusgeliehenAnIndex=0 Global $InfoGui_Gui,$InfoGui_Controls[UBound($InfoGui_ControlInfos)][2] Global $InfoGui_Width=650,$InfoGui_Height=420 Global $LastListViewFillParams,$searching=false,$InterruputSearch=false Global $SettingsGui_ListviewHeader_Gui,$SettingsGui_ListviewHeader_Controls[UBound($SQL_DATABASECOLS)][2],$SettingsGui_ListviewHeader_Width=340,$SettingsGui_ListviewHeader_Height=560 Global $SettingsGui_General_Gui,$SettingsGui_General_Controls[1][2],$SettingsGui_General_Width=340,$SettingsGui_General_Height=80 Global $SettingsFile=@ScriptDir&"\"&"settings.ini" Global $DoLiveSearching GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND") for $i=0 to UBound($InfoGui_ControlInfos)-1 step 1 if $InfoGui_ControlInfos[$i][1]="Ausgeliehen_an" then $InfoGui_ControlAusgeliehenAnIndex=$i ExitLoop endif next if NOT FileExists($SettingsFile) then FileClose(FileOpen($SettingsFile,8)) IniWriteSection($SettingsFile,"HeaderData","") $startHeader="|Titel|Autor|Erscheinungsdatum|Genre|Seiten|Bestellt|Gelesen|Information" for $i=0 to UBound($SQL_DATABASECOLS)-1 step 1 IniWrite($SettingsFile,"HeaderData",$SQL_DATABASECOLS[$i],StringInStr($startHeader,"|"&$SQL_DATABASECOLS[$i])>0?"1":"0") next IniWrite($SettingsFile,"General","Livesearch","1") endif _SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1) Global $SQL_DATABASE = _SQLite_Open(@ScriptDir & "\buchverwaltung.db") _SQLite_Exec($SQL_DATABASE, "CREATE TABLE IF NOT EXISTS Buchverwaltung(ID INTEGER PRIMARY KEY AUTOINCREMENT,Titel,Autor,Verlag,Erscheinungsdatum,Genre,Preis,Einband,ISBN,Seiten,Lagerplatz,Serie,Bestellt,Gelesen,Note,Zusatz,Information,Ausgeliehen_an,Ausgeliehen_am,Ausgeliehen_bis,LfdNr);") _setLivesearch() _MainGui_Start() _loadListviewHeader() _fillListviewWithArray($MainGui_ListView,_SQL_GetColData(_getListviewHeaderNames($MainGui_ListView,true),-1,true)) while sleep(10) WEnd Func _MainGui_Start() local $MainGui_SubMenu1[1] $MainGui_Gui=GUICreate("Buchverwaltung 1.0",$MainGui_Width,$MainGui_Height) ;Menu ;Filemenu $MainGui_Menu[0]=GUICtrlCreateMenu("Datei") GUICtrlCreateMenuItem("Neuer Eintrag",$MainGui_Menu[0]) GUICtrlSetOnEvent(-1,"_newEntry") $MainGui_Menu[1]=GUICtrlCreateMenu("Einstellungen") GUICtrlCreateMenuItem("Allgemein",$MainGui_Menu[1]) GUICtrlSetOnEvent(-1,"_SettingsGui_General_start") GUICtrlCreateMenuItem("ListviewSpalten",$MainGui_Menu[1]) GUICtrlSetOnEvent(-1,"_SettingsGui_ListviewHeader_start") ;Listview $MainGui_SearchInput=GUICtrlCreateInput("",10,7,$MainGui_Width-60-270,25) GUICtrlSendMsg(-1, 0x1501, 0, "Suchtext") GUICtrlSetFont(-1,10) $MainGui_SearchTarget=GUICtrlCreateCombo("All",10+$MainGui_Width-60-270+5,8,100,25) $sSearchTargets="" for $i=0 to UBound($SQL_DATABASECOLS)-1 step 1 $sSearchTargets&=$SQL_DATABASECOLS[$i]&($i<>UBound($SQL_DATABASECOLS)-1?"|":"") next GUICtrlSetData($MainGui_SearchTarget,$sSearchTargets) $MainGui_SearchType=GUICtrlCreateCombo("LIKE",10+$MainGui_Width-60-270+110,8,60,25) GUICtrlSetData(-1,"<=|<|=|>|>=|NOT LIKE") $MainGui_SearchButton=GUICtrlCreateButton("Suchen",10+$MainGui_Width-60-270+175,7,55,25) GUICtrlSetOnEvent(-1,"_startSearch") $MainGui_SearchCancel=GUICtrlCreateButton("Abbrechen",10+$MainGui_Width-60-270+235,7,75,25) GUICtrlSetOnEvent(-1,"_resetSearch") $MainGui_ListView=GUICtrlCreateListView("ID",10,35,$MainGui_Width-20,$MainGui_Height-45-$MainGui_MenuHeight,$LVS_SHOWSELALWAYS) _GUICtrlListView_SetColumnWidth(-1,0,0) $MainGui_ListView_ContextMenu=GUICtrlCreateContextMenu($MainGui_ListView) GUICtrlCreateMenuItem("Bearbeite Buchinfos",$MainGui_ListView_ContextMenu) GUICtrlSetOnEvent(-1,"_editBookInfos") GUICtrlCreateMenuItem("Lösche Buchinfos",$MainGui_ListView_ContextMenu) GUICtrlSetOnEvent(-1,"_delBookInfos") GUISetOnEvent($GUI_EVENT_CLOSE, "_MainGui_Close",$MainGui_Gui) GUISetState(@SW_SHOW,$MainGui_Gui) GUICtrlSetState($MainGui_ListView,$GUI_FOCUS) EndFunc Func _MainGui_Close() GUIDelete($MainGui_Gui) _SQLite_Close($SQL_DATABASE) exit EndFunc Func _actListview() if $LastListViewFillParams<>"" then _fillListviewWithArray($MainGui_ListView,_SQL_GetData($LastListViewFillParams)) endif EndFunc Func _delBookInfos() local $arSel[0] $arSel=_GUICtrlListView_GetSelectedIndices($MainGui_ListView,true) if $arSel[0]>0 then for $i=1 to UBound($arSel)-1 step 1 _SQLite_Exec($SQL_DATABASE,"DELETE FROM Buchverwaltung WHERE ID="&_GUICtrlListView_GetItemText($MainGui_ListView,$arSel[$i],0)) next endif _actListview() EndFunc Func _editBookInfos() local $arSel[0] $arSel=_GUICtrlListView_GetSelectedIndices($MainGui_ListView,true) if $arSel[0]>0 then _InfoGui(_GUICtrlListView_GetItemText($MainGui_ListView,$arSel[1],0)) endif EndFunc Func _newEntry() _InfoGui(-1) EndFunc Func _InfoGui($id=-1) Local $arInfos,$AktHeight=0,$AktWidth=0,$i=0 Local $disableNext=0 Local $Title="Bearbeite Buchinfos" if $id<0 then $Title="Neuer Eintrag" $i=1 else local $sqlcols="" for $i=0 to UBound($InfoGui_ControlInfos)-1 step 1 $sqlcols&=$InfoGui_ControlInfos[$i][1]&($i<>UBound($InfoGui_ControlInfos)-1?",":"") next $arInfos=_SQL_GetColData($sqlcols,$id) endif $InfoGui_Gui=GUICreate($Title,$InfoGui_Width,$InfoGui_Height,-1,-1,-1,-1,$MainGui_Gui) for $i=0 to UBound($InfoGui_ControlInfos)-1 step 1 if $AktHeight+$InfoGui_ControlInfos[$i][2]>$InfoGui_Height-20-30 then $AktWidth+=1 $AktHeight=0 endif $InfoGui_Controls[$i][0]=GUICtrlCreateLabel($InfoGui_ControlInfos[$i][0],10+20*$AktWidth+(100+200)*$AktWidth,10+$AktHeight,100,20) ;Type=L->Label;I->Input,E->Edit,C->Combo,D->Date if StringInStr($InfoGui_ControlInfos[$i][3],"I")=1 then $InfoGui_Controls[$i][1]=GUICtrlCreateInput("",120+20*$AktWidth+(100+200)*$AktWidth,10+$AktHeight,200,$InfoGui_ControlInfos[$i][2]) if UBound($arInfos)>0 then GUICtrlSetData($InfoGui_Controls[$i][1],$arInfos[1][$i]) endif elseif StringInStr($InfoGui_ControlInfos[$i][3],"L")=1 then $InfoGui_Controls[$i][1]=GUICtrlCreateLabel("",120+20*$AktWidth+(100+200)*$AktWidth,10+$AktHeight,200,$InfoGui_ControlInfos[$i][2]) if UBound($arInfos)>0 then GUICtrlSetData($InfoGui_Controls[$i][1],$arInfos[1][$i]) endif elseif StringInStr($InfoGui_ControlInfos[$i][3],"E")=1 then $InfoGui_Controls[$i][1]=GUICtrlCreateEdit("",120+20*$AktWidth+(100+200)*$AktWidth,10+$AktHeight,200,$InfoGui_ControlInfos[$i][2]) if UBound($arInfos)>0 then GUICtrlSetData($InfoGui_Controls[$i][1],$arInfos[1][$i]) endif elseif StringInStr($InfoGui_ControlInfos[$i][3],"C")=1 then $data=StringMid($InfoGui_ControlInfos[$i][3],StringInStr($InfoGui_ControlInfos[$i][3],":")+1) $ar=StringSplit($data,"|",1+2) $InfoGui_Controls[$i][1]=GUICtrlCreateCombo($ar[0],120+20*$AktWidth+(100+200)*$AktWidth,10+$AktHeight,200,$InfoGui_ControlInfos[$i][2]) $string="" for $l=1 to UBound($ar)-1 step 1 $string&=$ar[$l]&($l<>UBound($ar)-1?"|":"") next GUICtrlSetData($InfoGui_Controls[$i][1],$string) if UBound($arInfos)>0 then _GUICtrlComboBox_SelectString($InfoGui_Controls[$i][1],$arInfos[1][$i]) endif elseif StringInStr($InfoGui_ControlInfos[$i][3],"D")=1 then $InfoGui_Controls[$i][1]=GUICtrlCreateDate("",120+20*$AktWidth+(100+200)*$AktWidth,10+$AktHeight,200,$InfoGui_ControlInfos[$i][2]) GUICtrlSendMsg($InfoGui_Controls[$i][1], $DTM_SETFORMATW, 0, $sDataFormat) if UBound($arInfos)>0 then GUICtrlSetData($InfoGui_Controls[$i][1],$arInfos[1][$i]) endif endif if $disableNext>0 then $disableNext-=1 GUICtrlSetState($InfoGui_Controls[$i][1],$GUI_DISABLE) endif if $i=$InfoGui_ControlAusgeliehenAnIndex then if GUICtrlRead($InfoGui_Controls[$i][1])="" then $disableNext=2 endif endif $AktHeight+=$InfoGui_ControlInfos[$i][2]+5 next GUICtrlCreateButton("Abbrechen",(($InfoGui_Width-400)/2)-10,$InfoGui_Height-30,200,25) GUICtrlSetOnEvent(-1,"_InfoGui_Close") GUICtrlCreateButton($id<0?"Erstellen":"Speichern",(($InfoGui_Width-400)/2)-10+210,$InfoGui_Height-30,200,25) GUICtrlSetOnEvent(-1,"_createNewBook") GUISetOnEvent($GUI_EVENT_CLOSE, "_InfoGui_Close",$InfoGui_Gui) GUISetState(@SW_SHOW,$InfoGui_Gui) ;$InfoGui_Controls[0][0]=GUICtrlCreateInput() EndFunc Func _InfoGui_Close() GUIDelete($InfoGui_Gui) EndFunc Func _createNewBook() local $sql,$data if GUICtrlRead($InfoGui_Controls[0][1])="" then $sql="INSERT INTO 'Buchverwaltung'(" for $i=1 to UBound($InfoGui_ControlInfos)-1 step 1 $sql&="'"&$InfoGui_ControlInfos[$i][1]&"'"&($i<>UBound($InfoGui_ControlInfos)-1?",":"") next $sql&=") VALUES (" for $i=1 to UBound($InfoGui_ControlInfos)-1 step 1 $data=StringReplace(GUICtrlRead($InfoGui_Controls[$i][1]),"'","''") if NOT ControlCommand($InfoGui_Gui,"",$InfoGui_Controls[$i][1],"IsEnabled","") then $data="" endif $sql&="'"&$data&"'"&($i<>UBound($InfoGui_ControlInfos)-1?",":"") next $sql&=");" else $sql="UPDATE Buchverwaltung SET " for $i=1 to UBound($InfoGui_ControlInfos)-1 step 1 $data=StringReplace(GUICtrlRead($InfoGui_Controls[$i][1]),"'","''") if NOT ControlCommand($InfoGui_Gui,"",$InfoGui_Controls[$i][1],"IsEnabled","") then $data="" endif $sql&="'"&$InfoGui_ControlInfos[$i][1]&"' = '"&$data&"'"&($i<>UBound($InfoGui_ControlInfos)-1?",":"") next $sql&=" WHERE ID="&StringReplace(GUICtrlRead($InfoGui_Controls[0][1]),"'","''")&";" endif _SQL_Execute($sql) _InfoGui_Close() _actListview() EndFunc Func _SettingsGui_ListviewHeader_start() $SettingsGui_ListviewHeader_Gui=GUICreate("Listviewheader setzen",$SettingsGui_ListviewHeader_Width,$SettingsGui_ListviewHeader_Height,-1,-1,-1,-1,$MainGui_Gui) for $i=0 to UBound($SettingsGui_ListviewHeader_Controls)-1 step 1 $SettingsGui_ListviewHeader_Controls[$i][0]=GUICtrlCreateLabel($SQL_DATABASECOLS[$i],10,10+25*$i,200,20) $SettingsGui_ListviewHeader_Controls[$i][1]=GUICtrlCreateCheckbox("anzeigen",220,10+25*$i,100,20) if IniRead($SettingsFile,"HeaderData",$SQL_DATABASECOLS[$i],"1")="1" then GUICtrlSetState($SettingsGui_ListviewHeader_Controls[$i][1],$GUI_CHECKED) endif next GUICtrlCreateButton("Abbrechen",(($SettingsGui_ListviewHeader_Width-300)/2)-10,$SettingsGui_ListviewHeader_Height-30,150,25) GUICtrlSetOnEvent(-1,"_SettingsGui_ListviewHeader_close") GUICtrlCreateButton("Speichern",(($SettingsGui_ListviewHeader_Width-300)/2)-10+160,$SettingsGui_ListviewHeader_Height-30,150,25) GUICtrlSetOnEvent(-1,"_setListviewHeader") GUISetOnEvent($GUI_EVENT_CLOSE, "_SettingsGui_ListviewHeader_close",$SettingsGui_ListviewHeader_Gui) GUISetState(@SW_SHOW,$SettingsGui_ListviewHeader_Gui) EndFunc Func _SettingsGui_ListviewHeader_close() if $SettingsGui_ListviewHeader_Gui<>"" then GUIDelete($SettingsGui_ListviewHeader_Gui) $SettingsGui_ListviewHeader_Gui="" endif EndFunc Func _SettingsGui_General_start() $SettingsGui_General_Gui=GUICreate("Allgemeine Einstellungen",$SettingsGui_General_Width,$SettingsGui_General_Height,-1,-1,-1,-1,$MainGui_Gui) $SettingsGui_General_Controls[0][0]=GUICtrlCreateLabel("Livesuche",10,10,200,20) $SettingsGui_General_Controls[0][1]=GUICtrlCreateCheckbox("anzeigen",220,10,100,20) if IniRead($SettingsFile,"General","Livesearch","1")="1" then GUICtrlSetState($SettingsGui_General_Controls[0][1],$GUI_CHECKED) endif GUICtrlCreateButton("Abbrechen",(($SettingsGui_General_Width-300)/2)-10,$SettingsGui_General_Height-30,150,25) GUICtrlSetOnEvent(-1,"_SettingsGui_General_close") GUICtrlCreateButton("Speichern",(($SettingsGui_General_Width-300)/2)-10+160,$SettingsGui_General_Height-30,150,25) GUICtrlSetOnEvent(-1,"_SettingsGui_General_save") GUISetOnEvent($GUI_EVENT_CLOSE, "_SettingsGui_General_close",$SettingsGui_General_Gui) GUISetState(@SW_SHOW,$SettingsGui_General_Gui) EndFunc Func _SettingsGui_General_close() GUIDelete($SettingsGui_General_Gui) EndFunc Func _SettingsGui_General_save() if _IsChecked($SettingsGui_General_Controls[0][1]) then IniWrite($SettingsFile,"General","Livesearch",1) else IniWrite($SettingsFile,"General","Livesearch",0) endif _setLivesearch() _SettingsGui_General_close() EndFunc Func _setLivesearch() if IniRead($SettingsFile,"General","Livesearch","1")="1" then $DoLiveSearching=true else $DoLiveSearching=false endif EndFunc Func _setListviewHeader() for $i=0 to UBound($SettingsGui_ListviewHeader_Controls)-1 step 1 if _IsChecked($SettingsGui_ListviewHeader_Controls[$i][1]) then IniWrite($SettingsFile,"HeaderData",$SQL_DATABASECOLS[$i],1) else IniWrite($SettingsFile,"HeaderData",$SQL_DATABASECOLS[$i],0) endif next _loadListviewHeader() EndFunc Func _loadListviewHeader() $HeaderCols="" for $i=0 to UBound($SettingsGui_ListviewHeader_Controls)-1 step 1 if IniRead($SettingsFile,"HeaderData",$SQL_DATABASECOLS[$i],"1")="1" then if $HeaderCols<>"" then $HeaderCols&="|" endif $HeaderCols&=$SQL_DATABASECOLS[$i] endif next _MainGui_SetListviewHeader($HeaderCols) _SettingsGui_ListviewHeader_close() EndFunc Func _MainGui_SetListviewHeader($HeaderCols) _GUICtrlListView_BeginUpdate($MainGui_ListView) for $i=0 to _GUICtrlListView_GetColumnCount($MainGui_ListView)-1 step 1 _GUICtrlListView_DeleteColumn($MainGui_ListView,0) next _GUICtrlListView_AddColumn($MainGui_ListView,"ID") _GUICtrlListView_SetColumnWidth($MainGui_ListView,0,0) if UBound($HeaderCols)=0 then $HeaderCols=StringSplit($HeaderCols,"|",1+2) endif for $i=0 to UBound($HeaderCols)-1 step 1 _GUICtrlListView_AddColumn($MainGui_ListView,$HeaderCols[$i]) next for $i=0 to UBound($HeaderCols)-1 step 1 _GUICtrlListView_SetColumnWidth($MainGui_ListView,$i+1,$LVSCW_AUTOSIZE_USEHEADER) next _GUICtrlListView_EndUpdate($MainGui_ListView) _resetSearch() if $LastListViewFillParams<>"" then _fillListviewWithArray($MainGui_ListView,_SQL_GetColData(_getListviewHeaderNames($MainGui_ListView,true),-1,true)) endif EndFunc Func _getListviewHeaderNames($ListView,$getString=false) local $arColNames[_GUICtrlListView_GetColumnCount($ListView)] for $i=0 to _GUICtrlListView_GetColumnCount($ListView)-1 step 1 $arColNames[$i]=_GUICtrlListView_GetColumn($ListView,$i)[5] next if $getString then $str="" for $i=0 to UBound($arColNames)-1 step 1 $str&=$arColNames[$i]&($i<>UBound($arColNames)-1?",":"") next return $str endif return $arColNames EndFunc Func _fillListviewWithArray($Listview,$arData,$header=true) _GUICtrlListView_BeginUpdate($Listview) _GUICtrlListView_DeleteAllItems($Listview) local $i=$header?1:0 for $i=$i to UBound($arData)-1 step 1 $line="" for $j=0 to UBound($arData,2)-1 step 1 $line&=$arData[$i][$j]&($j<>UBound($arData,2)-1?"|":"") next GUICtrlCreateListViewItem($line,$Listview) if Mod($i,2)>0 then GUICtrlSetBkColor(-1,0xEEEEEE) endif next _GUICtrlListView_EndUpdate($Listview) EndFunc Func _startSearch() if $searching then AdlibRegister("_waitNextSearch",100) $InterruputSearch=true return -1 endif $searching=true $search=GUICtrlRead($MainGui_SearchInput) if $search="" then $SearchMode=false else $SearchMode=true _GUICtrlListView_DeleteAllItems($MainGui_ListView) _GUICtrlListView_BeginUpdate($MainGui_ListView) $sTarget=GUICtrlRead($MainGui_SearchTarget) $sSearchExtension="" $sSearchParam="OR" $sSearchText=StringReplace(GUICtrlRead($MainGui_SearchInput),"%","%%") $sSearchType=GUICtrlRead($MainGui_SearchType) $sSearchCondition=$sTarget&" "&$sSearchType&" '"&$sSearchExtension&$sSearchText&$sSearchExtension&"'" if $sSearchType="LIKE" or $sSearchType="NOT LIKE" then $sSearchExtension="%" endif if $sSearchType="NOT LIKE" then $sSearchParam="AND" endif if $sTarget="All" then $sSearchCondition="" for $i=0 to UBound($SQL_DATABASECOLS)-1 step 1 $sSearchCondition&=$SQL_DATABASECOLS[$i]&" "&$sSearchType&" '"&$sSearchExtension&$sSearchText&$sSearchExtension&"'"&($i<>UBound($SQL_DATABASECOLS)-1?" "&$sSearchParam&" ":"") next endif $sSql="SELECT "&_getListviewHeaderNames($MainGui_ListView,true)&" FROM Buchverwaltung WHERE "&$sSearchCondition&";" $sqlData=_SQL_GetData($sSql,true) for $i=1 to UBound($sqlData)-1 step 1 if $InterruputSearch then ExitLoop endif $string="" for $j=0 to UBound($sqlData,2)-1 step 1 $string&=$sqlData[$i][$j] if $j<UBound($sqlData,2) then $string&="|" endif next GUICtrlCreateListViewItem($string,$MainGui_ListView) if Mod($i,2)>0 then GUICtrlSetBkColor(-1,0xEEEEEE) endif next _GUICtrlListView_EndUpdate($MainGui_ListView) endif $InterruputSearch=false $searching=false EndFunc Func _waitNextSearch() if NOT $searching then AdlibUnRegister("_waitNextSearch") ;ConsoleWrite("Warten beendet"&@crlf) _startSearch() endif EndFunc Func _resetSearch() GUICtrlSetData($MainGui_SearchInput,"") _fillListviewWithArray($MainGui_ListView,_SQL_GetColData(_getListviewHeaderNames($MainGui_ListView,true),-1,true)) EndFunc Func _SQL_Execute($sql) _SQLite_Exec($SQL_DATABASE,$sql) if @error then msgbox(16,"Error","Error Executing SQL-STATEMENT"&@crlf&@crlf&$sql,0,$MainGui_Gui) endif EndFunc Func _SQL_GetColData($cols,$id=-1,$userSql=false) $sql="SELECT "&$cols&" FROM Buchverwaltung WHERE "&($id<0?"1":"ID='"&$id&"'") $sqlData=_SQL_GetData($sql,$userSql) return $sqlData EndFunc Func _SQL_GetData($sql,$userSql=false) local $sqlData,$sqlRows,$sqlColumns if $userSql then $LastListViewFillParams=$sql endif _SQLite_GetTable2d($SQL_DATABASE,$sql,$sqlData,$sqlRows,$sqlColumns) if @error then MsgBox(16,"Error","Error Executing SQL-STATEMENT"&@crlf&@crlf&$sql,0,$MainGui_Gui) endif return $sqlData EndFunc #cs GUICtrlSetState($InfoGui_Controls[$i][1],$GUI_DISABLE) endif if $i=$InfoGui_ControlAusgeliehenAnIndex then if GUICtrlRead($InfoGui_Controls[$i][1])="" then #ce Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam) Local $nNotifyCode = _HiWord($wParam) Local $nID = _LoWord($wParam) ; Local $hCtrl = $lParam Switch $lParam Case GUICtrlGetHandle($MainGui_SearchInput) if $DoLiveSearching then if $nNotifyCode=256 then _resetSearch() _startSearch() endif if $nNotifyCode=1024 or $nNotifyCode=786 then _startSearch() EndIf endif Case GUICtrlGetHandle($InfoGui_Controls[$InfoGui_ControlAusgeliehenAnIndex][1]) if $nNotifyCode=768 then if GUICtrlRead($InfoGui_Controls[$InfoGui_ControlAusgeliehenAnIndex][1])<>"" then GUICtrlSetState($InfoGui_Controls[$InfoGui_ControlAusgeliehenAnIndex+1][1],$GUI_ENABLE) GUICtrlSetState($InfoGui_Controls[$InfoGui_ControlAusgeliehenAnIndex+2][1],$GUI_ENABLE) else GUICtrlSetState($InfoGui_Controls[$InfoGui_ControlAusgeliehenAnIndex+1][1],$GUI_DISABLE) GUICtrlSetState($InfoGui_Controls[$InfoGui_ControlAusgeliehenAnIndex+2][1],$GUI_DISABLE) endif endif EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>MY_WM_COMMAND Func _HiWord($x) Return BitShift($x, 16) EndFunc ;==>_HiWord Func _LoWord($x) Return BitAND($x, 0xFFFF) EndFunc ;==>_LoWord Func _IsChecked($idControlID) Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED EndFunc ;==>_IsChecked
-
Okay, dann bin ich um einiges schlauer. DANKE !!!
-
Moin Yaerox.
Nun, ich habe einige Listen (Listview DB), die ich gerne auf dem Handy haben würde um rein zu sehen und nicht immer das Laptop zu starten.
Einkaufslisten, Terminlisten (privat), Geburtstagskalender, ...
Ich weiß, das kann man alles mit Apps dazu installieren, aber ich möchte nicht Apps auf dem Handy und das gleich als Liste (exe) noch mal auf
dem Laptop.Ich muss mal die Tage nach Hamburg fahren und dort schauen und mich richtig beraten lassen. Und gleich paar Scripte mit nehmen und sagen,
das ich ein Handy möchte, das auch diese EXE-Dateien dann ausführt.Oder ich lasse es ganz mit einem Privathandy. Ich möchte nur nicht Geld ausgeben, für ein Handy, das dann doch nicht meine Wünsche erfüllt.
-
Runden ist Runden !!!
So !!!Okay, es gibt die Runden die gelaufen werden und das runden einer Zahl. Aber sonst ist das doch egal!?
-
Okay, dann privates Handy.
Surface? Nein Danke! Da bin ich mit meinem "Rugged Tablet 12" mehr als zufrieden. Hat bis jetzt bei Wind & Wetter nie Probleme gemacht.
Nein, es ging wirklich um ein Handy so mit telefonieren und so vielleicht etwas texten, was nicht so über das Firmenhandy laufen soll.
-
Aber eine Hit-Ratio wäre toll für das Script, sollte auch ziemlich einfach zu implementieren sein.
Ich hab angenommen, das du 114 durch 125 geteilt und dann einfach aufgerundet hast. Dann kommt man nämlich auf die 92%.
Ist ja nur eine mathematische Auswertung auf der grafischen Oberfläche. Die Rechenparameter sind ja bereits vorhanden..
Würde in diesem Fall beide male richtig sein. 114/125*10=0,912 und dann aufgerundet auf 92% wäre nicht logisch, da man bei " ,2 " ja
abrunden würde und es dann 91% wären. -
Die 92% waren nun über den Finger berechnet. Rechnerisch wären es dann 91,2% Hit-Radio (RSH?).
Ich habe für meine Fingerberecfhnung auch nicht die Sekundenzahl mit einbezogen. Wie kommst Du nur drauf?
Mann kann halt nicht wie eine Frau denken, wie dann wie eine Frau rechnen? Aber wichtig ist, das wir auf die
gleichen Ergebnisse (sorry hier das Ergebnis) kommen.JA, ich hab mich auch lieb.
-
Moin zusammen.
Ich bin am überlegen mir ein privates Handy zu "gönnen". Jetzt ist bei mir die Frage welches? AutoIt Scripte sollten darauf laufen können. Also die *.exe Datei.
Dann spiel Sicherheit schon eine Rolle, aber hier möchte ich sagen, das es dann wirklich nur privat genutzt wird. Also nicht um damit beruflich zu telefonieren
oder so. Neue Midien wie Facebook und so, ob die drauf laufen ist mir Kirsche.Dazu dann einen Deutschen Anbieter für die SIM, am besten mit Homezonenummer, aber das gab es wohl mal in Deutschland.
Was könnt Ihr empfehlen bzw. vonvon ratet Ihr ab. Und wieso?
Optik: chiquita-kirsche
Kostenfaktor: chiquita-kirschechiquita-kirsche = ist erst einmal egal