Hallo.
Also das von Peethebee probiere ich, wenn ich das andere fertig habe.
@pee möchtest doch nur geknuddelt werden. Aber DICH knuddel ich sowieso, wenn wir uns mal sehen. 
Wie mache ich es aber, das wenn hinterm Punkt keine Nullen sind, das er sie dennoch setzt? Also 24 wären dann 24.000
LG, Crazy-A.
Hallo ihr beiden.
Ich könnte Euch "knutschen".
Man, mir geht es ja mal richtig gut. Warum? Weil ich einfach alle Gründe habe HAPPY zu sein !!!!
Meine Nachbarn bringen mich bald um. Die neuste "TF-46" im CD Player und die Boxen gehen ihren Leidensweg.
DANKE !!!!
LG, Crazy-A.
Hallo zusammen.
Ich habe das Thema Mathematik genannt, da es grob damit zu tun hat.
Es geht um folgendes Rechenbeispiel:
$input3 = 0.001
$input4 = 0.0507
$input5 = $input3 + $input4
MsgBox(0, "Test" , $input5)
Das Ergebnis ist 0,0517. Aber wie bekomme ich es nun hin, das mir das Ergebnis nur mit drei Stellen nach dem Komma/Punkt angezeigt wird. Also hier: 0,052, da ja Rundung auf die dritte Stelle.
Aber ich will es ja nicht nur in einer MsgBox ausgeben, sondern damit später auch weiter arbeiten, d. h. nur wenn es in ein Inputfeld eingelesen wird, soll gerundet werden.
In der Hoffnung, das jemand genauso gut blond denken kann, wie ich es bin 
LG,
Crazy-A.
Dazu kann ich nur eines sagen oder doch zwei Sachen?
Das Spiel wurde sicherlich so entwickelt, das man auch ohne "Schummelaktion" weiter kommt. Übung macht den Meister und das sicherlich nicht innerhalb von paar Stunden.
Aber egal wie Du es siehst, es ist und bleibt cheaten und mit dem Tesafilm war doch ein Scherz, oder? Nimm doch TipEx, dann siehst Du den Punkt besser. Die Blondinen machen das auch so, aber nur wenn sie Fehler berichtigen. (SPASS) LOL.
Crazy-A.
Ich probier grad mit mehreren Sachen rum, wenn ich was gutes finde sag ich euch das mal
zum Thema Cheaten: Ich zahl nicht 50€ um dann dauernd im 2 Level zu scheitern und das Spiel in den Schrank zu stellen
Hallo Nenny.
Dickes SORRY. Ich hatte gedacht, das sich bereits eine Veränderung ergeben hatte.
Möchtest Du selber ein Script schreiben oder benötigst Du ein Programm, das Texte codiert? Weil ich habe irgendwo noch ein Script, das ich mir mal gespeichert hatte, wo man Texte codieren kann. Ich schreibe es mal hier rein und evtl. kannst Du damit etwas anfangen.
#include <Array.au3>
;===============================================================================
;
; Function Name: _Crypt()
; Description: Encrypt or Decrypt's file.
; Parameter(s): $keyfile - Key file, made with _CryptKeyGen()
; $crypt - Either 1=Encrypt or 0=Decrypt.
; $innfile - Input file.
; $outfile - Output file.
; Date: 17.03.2007
; Version: V.1.00
;
;===============================================================================
Func _Crypt( $keyFile, $crypt, $innfile, $outfile )
$fread = FileOpen($innfile,0)
$fwrite = FileOpen($outfile,2)
$cryptKey = FileReadLine($keyFile,1)
$key = StringSplit($cryptKey,',',1)
Dim $decryptkey[256]
_ArrayDelete($key,0)
For $i = 0 To 255
$decryptkey[$key[$i]] = $i
Next
$begin = TimerInit()
If $crypt = '1' Then
While 1
$chars = FileRead($fread, 1)
If @error = -1 Then ExitLoop
FileWrite($fwrite,Chr($key[Asc($chars)]))
WEnd
ElseIf $crypt = '0' Then
While 1
$chars = FileRead($fread, 1)
If @error = -1 Then ExitLoop
FileWrite($fwrite,Chr($decryptkey[Asc($chars)]))
WEnd
EndIf
$dif = TimerDiff($begin)
FileClose($fread)
FileClose($fwrite)
Return $dif
EndFunc ;==> _Crypt()
;===============================================================================
;
; Function Name: _CryptKeyGen()
; Description: Creates a keyfile neede for the _Crypt() function.
; Parameter(s): $keyfile - Key file, made with _CryptKeyGen()
; $cryptlevel - Feature not used.
; Requirement(s): None.
; Return Value(s): On Success - Handle not added yet.
; On Failure - Errorhandling not added.
;
;===============================================================================
Func _CryptKeyGen($keyFile,$cryptlevel = 1)
$tablelength = 255
Dim $table[$tablelength + 1],$num
FileOpen($keyFile,2)
For $x = 1 To $cryptlevel
$num = -1
For $i = 0 To $tablelength
$num +=1
$table[$i] = $num
Next
For $i = 0 To $tablelength
$random = Random(0,$tablelength,1)
$tableold = $table[$i]
$tablenew = $table[$random]
$table[$random] = $tableold
$table[$i] = $tablenew
Next
For $i = 0 To $tablelength
If $i < $tablelength Then
FileWrite($keyFile,$table[$i]&',')
Else
FileWrite($keyFile,$table[$i])
EndIf
Next
FileWrite($keyFile,@CRLF)
Next
EndFunc ;==> _CryptKeyGen()
Hatte ich, wie geschrieben mal gespeichert und evtl. ist es das was Du brauchst.
LG und einen sonnigen Wochenstart.
Crazy-A.
Die Kristallkugel fragt. Wie soll ich helfen, wenn ich nicht weiß wieweit das Script fertig ist udn wie es aus schaut?
Auch von mir mal ein Willkommen und da ich aus dem Norden bin ein "Moin Moin".
Crazy-A.
Wieso das Rad neu erfinden?
@progandy hat Dir oben doch einen super Link gesendet. Es ist das englisches Forum und dort ist alles beschrieben incl. Bsp. .
Gruß, Crazy-A.
Danke, das hilft.
LG,
Crazy-A.
Hallo.
Habe mal versucht das man das Kontextmenü im ganzen GUI anwenden kann, aber so möchte es nicht:
#include <GUIConstants.au3>
$gui = GUICreate('', 100, 100, 300, 200)
$kontext = GUICtrlCreateContextMenu($gui) ; <---- ohne Tabs sondern Kontextmenü fürs ganze GUI. Geht aber nicht.
$kon_start = GUICtrlCreateMenuItem("Upload starten", $kontext)
$kon_anhalten = GUICtrlCreateMenuItem("Upload anhalten", $kontext)
$kon_fortsetzen = GUICtrlCreateMenuItem("Upload fortsetzen", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_del = GUICtrlCreateMenuItem("Datei entfernen", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_liste_speichern = GUICtrlCreateMenuItem("Liste speichern", $kontext)
$kon_liste_laden = GUICtrlCreateMenuItem("Liste laden", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_archiv = GUICtrlCreateMenuItem("Archiv erstellen", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_info = GUICtrlCreateMenuItem("Info", $kontext)
GUISetState()
Do
$msg = GUIGetMsg()
Switch $msg
Case $kon_start
MsgBox(0, '', 'start')
Case $kon_anhalten
MsgBox(0, '', 'anhalten')
Case $kon_fortsetzen
MsgBox(0, '', 'fortsetzen')
; usw.
EndSwitch
Until $msg = $GUI_EVENT_CLOSE
Kann mir jemand sagen wieso dieses so ist? Es wird immer gleich die "Star-MsgBox" automatisch ausgewählt.
LG, Crazy-A.
Moin-Moin.
Wie mache ich es, das die Maus nur innerhalb eines GUI's zu bewegen ist. Wenn man aber das GUI minimiert, soll die Maus wieder normal zu nutzen sein, bis das GUI wieder sichtbar ist.
Problem eingentlich verständlich rüber gekommen?
LG, Crazy-A.
Hallo RR04.
Darauf habe ich jetzt gar nicht geachtet, da es mich nicht stören würde. Die Funktionen sind alle bestens auf meinem PC und Laptop.
Aber ich schaue mal, ob ich das heute nochmals testen kann. Bin gerade auch auf den Sprung.
EDIT: Ja, die funktioniert einwandfrei !
LG,
Crazy-A.
RR04
Es läuft wieder einmal so wie Du es gehofft hast: SUPER !!!
Wann gehen DIR mal die Ideen aus? Meine na klar nur bei diesem Projekt.
LG,
Crazy-A.
Also mit Zufallszahlen geht das so:
#include <GUIConstants.au3>
#include "RanNumGen.au3"; wenn die UDF im Script-Verzeichnis liegt
; #include <RanNumGen.au3>; wenn die UDF im Include-Verzeichnis (C:\Programme\AutoIt3\Include) liegt.
; <Anfang> Beispielaufruf mit Ausgabe
; ------------------------------------------------------------------------------
Global $Timer = TimerInit()
Global $zahlen = _RanNumGen(1, 100000000, 999999999, True); Beispiel: 1 Zahl aus dem Bereich 100.000.000...999.999.999, aufsteigend sortiert ausgeben
[/autoit] [autoit][/autoit] [autoit]If Not @error Then xArrayDisplay($zahlen, Round(TimerDiff($Timer)/1000,5))
; ------------------------------------------------------------------------------
; <Ende> Beispielaufruf
; Diese Funktion dient nur der Anzeige des Beispiel-Arrays
Func xArrayDisplay(ByRef $aArray, $time)
Local $i, $msg = ''
GUICreate('Array Display', 240, 600, -1, 0)
Local $gedit = GUICtrlCreateEdit('', 10, 10, 220, 560)
For $i = 0 To UBound($aArray)-1
$msg &= $aArray[$i] & @CRLF
Next
GUICtrlSetData($gedit, $msg)
GUICtrlCreateLabel('Benötigte Zeit: ' & $time & ' sek.', 10, 575, 220, 20)
GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc
Vllt. hilft das etwas.
Gruß, Crazy-A.
Es gibt doch virtuelle Laufwerke, da kannst Du es doch selber
testen mit den verschiedenen Windowsversionen. Schon mal
daran gedacht? Mir fällt es gerade ein und evtl. hilft es
Dir ja. Bin gespannt auf die Ergebnisse.
Crazy-A
Du mußt nicht mir danken, sondern Xenobiologist.
Er hat es geschrieben, aber das hatte ich dazu geschrieben.
LG, Crazy-A.
Hallo.
Xenobiologist hatte mal eine Funktion geschrieben. Schau Dir die mal an.
; Script from Xenobiologist autoit-germany
_restart()
Func _restart()
If @Compiled = 1 Then
MsgBox(0,"Test","Test")
Run( FileGetShortName(@ScriptFullPath))
Else
MsgBox(0,"Test2","Test2")
Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
EndIf
Exit
EndFunc
Gruss, Lina.
