Beiträge von i2c

i2c

Zuerst den Impuls berechnen und dann weiter mit dem 2. Newtonschen Axinom.
http://de.wikibooks.org/wiki/Formelsam…_Mechanik#Kraft

edit: Da bei dir die Masse konstant bleibt, es sei denn es springt jemand vor dem Aufprall aus dem Auto, entfällt die Impulsberechnung. Du brauchst allerdings die Länge der Ebene für die Berechnung der Beschleunigung.

Lass mich da jetzt aber auch gerne berichtigen

[autoit]

$v0 = 0 ;m/s
$vE = 50 ;m/s
$s = 10 ;m
$m = 10 ; kg

[/autoit] [autoit][/autoit] [autoit]

$a = ($vE ^ 2 - $v0 ^ 2) / (2 * $s)
$F = $m * $a

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite("Beschleunigung: " & $a & "m/s²" & @CRLF)
ConsoleWrite("Kraft: " & $F & "N" & @CRLF)

[/autoit]

i2c

Du machst es die zu kompliziert. Lies mit IniReadSectionNames() die Namen aller Sektionnen aus. Du erhälst ein Array. Dann durchläufst du dieses Array in einre For Schleife und holst dir mit IniReadSection() die Schlüssel - Werte Paare der einzelnen Sektionen. IniReadSection() gibt dir hier bereits ein 2d Array mit allen Werten zurück. Es besteht also kein Grund, nochmal ein IniRead() auf einen bestimmten Schlüssel anzuwenden. (z.B: Zeile 31/32)

Inwieweit du das nutzen kannst, bleibt allerdings fraglich. Die Grenze der Flexibilität erreichst du spätestens dann, wenn sich die einzelnen Funktionen, die durch gamecheck() aufgerufen werden, so stark voneinander untescheiden, dass du sie nicht zu einer einzelnen zusammenfassen kannst.

Hab leider im Moment kein AutoIt zur Hand aber vlt. hilft dir der kleine Schnipsel:

Spoiler anzeigen

[autoit]

$aSections = IniReadSectionNames($sIni)
If IsArray($aSections) Then
For $i = 1 To $aSections[0]
$aSection = IniReadSection($sIni, $aSections[$i])
If IsArray($aSection) Then
ReDim $aButtons[UBound($aButtons) + 1]
$aButtons[$i] = GUICtrlCreateButton($aSection[1][1], $left, $top)
$top += 30
EndIf
Next
EndIf

[/autoit]

i2c

Da zeigt sich wiedermal, wie sinnvoll es manchmal sein kann, etwas mehr als nur den vermeintlich fehlerhaften Skriptteil zu zeigen.

RunWait()

i2c

Zitat von RR04

Hi,

FileRead:
Liest eine bestimmte Anzahl von Zeichen aus einer zuvor geöffneten Textdatei (FileOpen()) !

Zitat

Wenn ein Dateiname statt eines Dateihandles angegeben wird, wird die Datei während des Funktionsaufrufes geöffnet und geschlossen.

Lass dir @scriptdir mal in eine MsgBox ausgeben und versuch's auch mal mit #RequireAdmin.

i2c

Zitat von Pagolothas

Was mache ich falsch?

Gute Frage. Du inkludierst ein Skript rufst aber nirgendwo eine/seine Funktion auf? Jedenfalls zeigst du uns das nicht. Warum?

i2c

Den Compiler brauchst du nicht erstellen, den gibt's schon. Die passende "Schlaterliste" gibt's dort - http://translation.autoit.de/onlinehilfe/intro/compiler.htm

Du brauchst einen Server auf dem du den AutoIt Compiler ausführen kannst. Darf auch Linux sein (WINE). Dann erstellst du dir ein Formular, das den Quellcode entgegennimmt und temporär auf dem Server ablegt. Für eine gute Benutzbarkeit noch ein paar Buttons für diverse Compilerdirektiven dazu und bist schon fast fertig. Die gewählten Direktiven trägst du ins Skript ein und führst dann über die Konsole den Compiler aus. Eigentlich keine grosse Sache.

i2c

http://myeee.wordpress.com/2008/11/14/win…-vom-usb-stick/

i2c

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#region - GUI Create
GUICreate('',200,200)
$Combo = GUICtrlCreateCombo("Hallo", 8, 8, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Welt")
GUISetState()
#endregion

[/autoit] [autoit][/autoit] [autoit]

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
#endregion

[/autoit]

i2c

Das GUICtrlSetData() noch einen 3ten Parameter hat, nehm ich grad zum ersten mal wahr ^^.

FÜhrende Leerzeichen strippen und auf Inhalt prüfen würd ich aber dennoch.

i2c

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <misc.au3>
#include <GuiEdit.au3>
$dll = DllOpen("user32.dll")
Global $User = "Kev"
GUICreate("Chatomatic", 600, 300)
GUICtrlCreateListView("Angemeldete User", 475, 0, 130, 300)
$chatbox = GUICtrlCreateEdit("", 0, 0, 475, 250, $ES_READONLY)
$inhalt = GUICtrlCreateInput("", 10, 260, 350, 25)
$send = GUICtrlCreateButton("Senden", 370, 260, 100, 25)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $send
sende()
EndSwitch
If _IsPressed("0D", $dll) Then
sende()
EndIf
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
DllClose($dll)

[/autoit] [autoit][/autoit] [autoit]

Func sende()
If Not StringStripWS(GUICtrlRead($inhalt), 1) = "" Then
_GUICtrlEdit_AppendText($chatbox, $User & ": " & StringStripWS(GUICtrlRead($inhalt), 1) & @CRLF)
Sleep(150) ;timeout da sonst leere übergabe
GUICtrlSetData($inhalt, "")
EndIf
EndFunc ;==>sende

[/autoit]

i2c

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Function Name: _FileInUse()
; Description: Checks if file is in use
; Syntax.........: _FileInUse($sFilename, $iAccess = 1)
; Parameter(s): $sFilename = File name
; Parameter(s): $iAccess = 0 = GENERIC_READ - other apps can have file open in readonly mode
; $iAccess = 1 = GENERIC_READ|GENERIC_WRITE - exclusive access to file,
; fails if file open in readonly mode by app
; Return Value(s): 1 - file in use (@error contains system error code)
; 0 - file not in use
; -1 dllcall error (@error contains dllcall error code)
; Author: Siao
; Modified rover - added some additional error handling, access mode
; Remarks _WinAPI_CreateFile() WinAPI.au3
;===============================================================================
Func _FileInUse($sFilename, $iAccess = 0)
Local $aRet, $hFile, $iError, $iDA
Local Const $GENERIC_WRITE = 0x40000000
Local Const $GENERIC_READ = 0x80000000
Local Const $FILE_ATTRIBUTE_NORMAL = 0x80
Local Const $OPEN_EXISTING = 3
$iDA = $GENERIC_READ
If BitAND($iAccess, 1) <> 0 Then $iDA = BitOR($GENERIC_READ, $GENERIC_WRITE)
$aRet = DllCall("Kernel32.dll", "hwnd", "CreateFile", _
"str", $sFilename, _ ;lpFileName
"dword", $iDA, _ ;dwDesiredAccess
"dword", 0x00000000, _ ;dwShareMode = DO NOT SHARE
"dword", 0x00000000, _ ;lpSecurityAttributes = NULL
"dword", $OPEN_EXISTING, _ ;dwCreationDisposition = OPEN_EXISTING
"dword", $FILE_ATTRIBUTE_NORMAL, _ ;dwFlagsAndAttributes = FILE_ATTRIBUTE_NORMAL
"hwnd", 0) ;hTemplateFile = NULL
$iError = @error
If @error Or IsArray($aRet) = 0 Then Return SetError($iError, 0, -1)
$hFile = $aRet[0]
If $hFile = -1 Then ;INVALID_HANDLE_VALUE = -1
$aRet = DllCall("Kernel32.dll", "int", "GetLastError")
;ERROR_SHARING_VIOLATION = 32 0x20
;The process cannot access the file because it is being used by another process.
If @error Or IsArray($aRet) = 0 Then Return SetError($iError, 0, 1)
Return SetError($aRet[0], 0, 1)
Else
;close file handle
DllCall("Kernel32.dll", "int", "CloseHandle", "hwnd", $hFile)
Return SetError(@error, 0, 0)
EndIf
EndFunc

[/autoit]

i2c

Spoiler anzeigen

Code

function test(_a, _b, _c)
	x = _a + _b +_c 
	return x
end


a = {1,2,3}


print( test(unpack(a)))

Spoiler anzeigen

[autoit]

Dim $myArgs[4] = ["CallArgArray", 1, 2, 3]

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite(Call("_test", $myArgs) & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

Func _test($v0 = 0, $v1 = 0, $v2 = 0, $v3 = 0)
Return $v0 + $v1 + $v2
EndFunc ;==>_test

[/autoit]

i2c

Spoiler anzeigen

[autoit]

$sString = "1,2,3"
$aString = StringSplit($sString, ",", 3)

[/autoit] [autoit][/autoit] [autoit]

_foo($aString)

[/autoit] [autoit][/autoit] [autoit]

_bar($sString)

[/autoit] [autoit][/autoit] [autoit]

Func _foo($aParam)
ConsoleWrite("_foo()" & @CRLF)
For $i = 0 To UBound($aParam) - 1
ConsoleWrite("Parameter " & $i & ": " & $aParam[$i] & @CRLF)
Next
EndFunc ;==>_foo

[/autoit] [autoit][/autoit] [autoit]

Func _bar($sParam)
Local $aParam
$aParam = StringSplit($sParam, ",", 3)
ConsoleWrite("_bar()" & @CRLF)
For $i = 0 To UBound($aParam) - 1
ConsoleWrite("Parameter " & $i & ": " & $aParam[$i] & @CRLF)
Next
EndFunc ;==>_bar

[/autoit]

i2c

Guten Morgen!
Nach 2maligem Lesen bin ich mir fast sicher, das du hier etwas missverstehst. Das "Auto" in AutoIt hat rein garnichts mit Kraftfahrzeugen zu tun und das "It" auch nichts mit Informationstechnik. Vlt. solltest du dir mal diese Seite zu Gemüte führen. Speziell die Abschnitte "Geschichte" und "Features" könnten einiges erklären ;).

i2c

Das Problem ist nicht das Suchen an sich, sondern das Eintragen in $aCSV.
Wenn $aCSV nur 100 Elemente hat und du irgendwas in $aReferenz[200] findest, dann kannst du halt nichts in $aCSV(200][2] schreiben.

Irgendwie verstehe ich das Skript sowieso nicht. Du möchtest jedes Wort aus $aCSV[n][0] in $aReferenz suchen. Wenn es gefunden wird, dann soll in $aCSV[n][2] ein Kreuz gesetzt werden? Wenn ja, dann müsste es $csv[$g][2] = "X" heissen.

Spoiler anzeigen

[autoit]

#Region - Timestamp
;2011-05-10 12:26:33
#EndRegion - Timestamp
#include <array.au3>
Dim $aReferenz[4] = ["bla", "blub", "blablub","blubber"]
Dim $aCSV[3][3] = [["hallo", "", ""],["blubber", "", ""],["welt", "", ""]]
For $g = 1 To UBound($acsv) - 1
$sWinreferenz = _ArraySearch($aReferenz, $aCSV[$g][0])
ConsoleWrite($sWinreferenz & @CRLF)
If $sWinreferenz > 0 Then
If $sWinreferenz < 100 Then
$aCSV[$g][2] = "X"
EndIf
EndIf
Next
_ArrayDisplay($acsv)

[/autoit]

Es ergibt für mich irgendwie keinen Sinn, ein Kreuz bei einem Index zu setzen, der rein garnichts mit dr Suche zu tun hat.

i2c

Doch, ich hab da eine Idee
Die Fehlermeldung besagt, das du auf ein Arrayelement zugreifen möchtest, welches nicht existiert.

Das Problem entsteht, wenn das Array $aReferenz grösser ist als $aCSV

Beispiel

[autoit]

Dim $aReferenz[4] = ["bla", "blub", ,"blablub","blubber"]
Dim $aCSV[3][3] = [["hallo", "", ""],["blubber", "", ""],["welt", "", ""]]
For $g = 1 To UBound($acsv) - 1
$sWinreferenz = _ArraySearch($aReferenz, $aCSV[$g][0])
If $sWinreferenz > 0 Then
If $sWinreferenz < 100 Then
$aCSV[$sWinreferenz][2] = "X"
EndIf
EndIf
Next

[/autoit]

_ArraySearch() wird hier den Index 3 zurückgeben ("blubber" gefunden). Dann versuchst du,auf diesen Index in $aCSV zuzugreifen ($aCSV[$sWinreferenz][2] = "X"). Diesen Index gibt es aber nicht. $aCSV hat nur 3 Elemente. Du müsstest also vorher prüfen, ob $sWinreferenz < Ubound($aCSV)-1 ist.

i2c

Na dann alles Gute nachträglich! [Blockierte Grafik: http://smilys.net/party_smilies/smiley3557.gif]

Externer Inhalt www.youtube.com

Inhalte von externen Seiten werden ohne deine Zustimmung nicht automatisch geladen und angezeigt.

Durch die Aktivierung der externen Inhalte erklärst du dich damit einverstanden, dass personenbezogene Daten an Drittplattformen übermittelt werden. Mehr Informationen dazu haben wir in unserer Datenschutzerklärung zur Verfügung gestellt.

i2c

[Blockierte Grafik: http://die-muellers.org/phpbb3/images/smilies/smilie_0006.gif]
Dein Skript?

i2c

Prepared Statements sind schon was feines. Kleines Beispiel:

Spoiler anzeigen

PHP

<?php
	error_reporting(ERR_NONE);

	$mysql = array(
					array('server'	, ''),	# mysql host
					array('port'	, ''),	# mysql port
					array('username', ''),	# mysql username
					array('password', ''),	# mysql password
					array('database', '')	# mysql database
				   );


	$db = new mysqli($mysql[0][1], $mysql[2][1], $mysql[3][1], $mysql[4][1]);

	if($db->connect_errno) {
		echo "<strong>MySQL Error:</strong> {$db->connect_error}<br />";

	}else{
		$statement = $db->prepare("	INSERT INTO `foobar` (`foo1`,`bar2`)
									VALUES (?, ?)
								  ");


		$statement->bind_param("ss", $value1, $value2);


		$value1 = "hello";
		$value2 = 'world';


		$statement->execute();
		echo "affected rows: {$statement->affected_rows}<br />";


		$statement->close();
		$db->close();
	};
?>

Alles anzeigen

i2c

Ganz ehrlich, ich würd die Kiste erstmal komplett nackig machen. DIesen vorinstallierten Murks würde ich mir nicht antun. Windows DVD besorgen (es sind übrigens auf jeder Retail DVD/RTM Iso, alle Editionen enthalten ;)), Zertifikat und OEM Key der aktuellen Insallation sichern, neu Installieren und Zertifikat und Key wieder drauf.

Wenn keine Windows DVD mitgeliefert wurde dann ist evtl. ein Tool vorinstalliert (oder auf der Treiber CD), mit dem sich eine Recovery DVD anlegen lässt. PackardBell macht das z.B. so. DVDs scheinen denen zu teuer zu sein.

Beiträge von i2c

Physik Referat

Pro Schlüssel soll ein Button erzeugt werden.

FileRead und @ScriptDir Problem..

FileRead und @ScriptDir Problem..

While-Schleife funktioniert nicht richtig

Online Autoit Compiler erstellen

Hilfe hartnäckige MalWare eingefangen

GUICtrlCreateCombo - für nutzereingaben sperren, aber elemente wählen.

Sprung in nächste Zeile.

Sprung in nächste Zeile.

Prüfen ob eine Datei geöffnet ist

Funktion Parameter foo(1,10,1024) wie kann ich "1,10,1024" generieren?? unpack()???

Funktion Parameter foo(1,10,1024) wie kann ich "1,10,1024" generieren?? unpack()???

Muss nen Auto IT Einführungskurs organisieren - Druckerei für Werbung?

Problem mit _ArraySearch

Problem mit _ArraySearch

MatthiasG. ist 17

Windows 7 Button Schimmert / Flackert / wechselt die Farbe

[Tutorial] Login + Registrierung über eine MySql-DB [+ Hilfedateien]

neuer PC