Beiträge von GE IXI TIM

[autoit]

; #FUNCTION# ======================================================================================
; Name ..........: _Dual_Dec2Dual()
; Description ...: This function converts an integer to a number in the dualsystem
; Syntax ........: _Dual_Dec2Dual($iInt)
; Parameters ....: $iInt - A Integer
; Return values .: Success
; |Returns a Number in the Dualsystem
; Failure
; |Set Errorcode 1
; Author ........: GE IXI TIM
; Link ..........: http://www.autoIt.de
; =================================================================================================

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

Func _Dual_Dec2Dual($iInt)
If Not IsInt($iInt) Then SetError(1, 0, 0)
Local $aNum[25], $iStart = 1, $aDual[25] = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], $iEnd
Local $iLeft = 0
$aNum[0] = 1
For $i = 1 To 24
$iStart *= 2
$aNum[$i] = $iStart
Next
;_ArrayDisplay($aNum)
For $i = 24 To 0 Step -1
If $iInt >= $aNum[$i] Then
;MsgBox(64, "", $iInt & "-" & $aNum[$i] & " " & $i)
$aDual[24 - $i] = 1
$iInt -= $aNum[$i]
EndIf
Next
For $i = 0 To UBound($aDual) - 1
If $aDual[$i] = 1 Then ExitLoop
If $aDual[$i] = 0 Then $aDual[$i] = ""
Next

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

For $i = 0 To UBound($aDual) - 1
$iEnd &= $aDual[$i]
Next
Return $iEnd
EndFunc

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

; #FUNCTION# ======================================================================================
; Name ..........: _Dual_Dual2Dec()
; Description ...: This funktion converts a number in dualsystem to an integer
; Syntax ........: _Dual_Dual2Dec($iDual)
; Parameters ....: $iDual - a number in dualsystem
; Return values .: Success
; |Returns a integer
; Failure
; |Set errorcode 1
; Author ........: GE IXI TIM
; Link ..........: http://www.autoit.de
; =================================================================================================

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

Func _Dual_Dual2Dec($iDual)
If Not IsInt($iDual) Then SetError(1, 0, 0)
Local $aNum[25], $iStart = 1, $aZif, $iEnd
$aNum[0] = 1
For $i = 1 To 24
$iStart *= 2
$aNum[$i] = $iStart
Next
$aZif = StringSplit($iDual, "")
For $i = $aZif[0] To 1 Step -1
If $aZif[$i] = 1 Then $iEnd += $aNum[$aZif[0] - $i]
Next
Return $iEnd
EndFunc

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

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate("_Dual Beispiel", 291, 85, 433, 187)
$decdual = GUICtrlCreateRadio("Dezimal zu Dual", 8, 8, 97, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$dualdec = GUICtrlCreateRadio("Dual zu Dezimal", 112, 8, 97, 17)
$Label1 = GUICtrlCreateLabel("Dezimal:", 8, 32, 44, 17)
$Label2 = GUICtrlCreateLabel("Dual:", 8, 56, 29, 17)
$inDEZ = GUICtrlCreateInput("", 56, 32, 225, 21)
$inDUAL = GUICtrlCreateInput("", 56, 56, 225, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$convert = GUICtrlCreateButton("Convert", 208, 0, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $decdual
If BitAND(GUICtrlRead($decdual), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($inDEZ, $gui_ENABLE)
GUICtrlSetState($inDUAL, $GUI_DISABLE)
EndIf
Case $dualdec
If BitAND(GUICtrlRead($dualdec), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($inDUAL, $gui_ENABLE)
GUICtrlSetState($inDEZ, $GUI_DISABLE)
EndIf
Case $convert
If BitAND(GUICtrlRead($decdual), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetData($inDUAL, _Dual_Dec2Dual(GUICtrlRead($inDEZ)))
If BitAND(GUICtrlRead($dualdec), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetData($inDEZ, _Dual_Dual2Dec(GUICtrlRead($inDUAL)))
EndSwitch
WEnd

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

Func _Dual_Dec2Dual($iInt)
If Not IsInt($iInt) Then SetError(1, 0, 0)
Local $aNum[25], $iStart = 1, $aDual[25] = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], $iEnd
Local $iLeft = 0
$aNum[0] = 1
For $i = 1 To 24
$iStart *= 2
$aNum[$i] = $iStart
Next
;_ArrayDisplay($aNum)
For $i = 24 To 0 Step -1
If $iInt >= $aNum[$i] Then
;MsgBox(64, "", $iInt & "-" & $aNum[$i] & " " & $i)
$aDual[24 - $i] = 1
$iInt -= $aNum[$i]
EndIf
Next
For $i = 0 To UBound($aDual) - 1
If $aDual[$i] = 1 Then ExitLoop
If $aDual[$i] = 0 Then $aDual[$i] = ""
Next

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

For $i = 0 To UBound($aDual) - 1
$iEnd &= $aDual[$i]
Next
Return $iEnd
EndFunc

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

Func _Dual_Dual2Dec($iDual)
If Not IsInt($iDual) Then SetError(1, 0, 0)
Local $aNum[25], $iStart = 1, $aZif, $iEnd
$aNum[0] = 1
For $i = 1 To 24
$iStart *= 2
$aNum[$i] = $iStart
Next
$aZif = StringSplit($iDual, "")
For $i = $aZif[0] To 1 Step -1
If $aZif[$i] = 1 Then $iEnd += $aNum[$aZif[0] - $i]
Next
Return $iEnd
EndFunc

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

[autoit]

#include <File.au3>
#include <Array.au3>
$aTest = _FileSplitLines("DeineDatei.txt")
_arrayDisplay($aTest)
Func _FileSplitLines($sFile)
$iCount = _FileCountLines($sFile)
Dim $aSplit[$iCount+1]
$aSplit[0] = $iCount
for $i = 1 to $iCount
$aSplit[$i] = Filereadline($sFile, $i)
next
Return $aSplit
EndFunc

[/autoit]

[autoit]

; #FUNCTION# ======================================================================================
; Name ..........: _TCP_FileRecv()
; Description ...: This function recives a file and save it on a user defined path.
; Syntax ........: _TCP_FileRecv($iSocket, $sSavePath)
; Parameters ....: $iSocket - The connected socket
; $sSavePath - The path you want to save the file
; Return values .: Success Return 1
; Failure:
; |-1: Socket = -1
; |-2: SavePath = ""
; |-3: SavePath does not exist
; |-4: No data was incoming
; |-5: Incoming data wasn´t a file
; Author ........: GE IXI TIM
; Remarks .......: This function can only be used with _TCP_FileSend.
; Link ..........: http://www.autoit.de
; Example .......:
; =================================================================================================

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

Func _TCP_FileRecv($iSocket, $sSavePath)
Local $hFile, $sRecv
If $iSocket = -1 Then Return -1
If $sSavePath = "" Then Return -2
If StringRight($sSavePath, 1) <> "\" Then $sSavePath &= "\"
If Not FileExists($sSavePath) Then Return -3
$sRecv = TCPRecv($iSocket, 999999)
If $sRecv <> "" Then
$aRecv = StringSplit($sRecv, "<||>", 1)
if $aRecv[1] <> "FILE" Then Return -5
$hFile = FileOpen($sSavePath & $aRecv[2], 18)
FileWrite($hFile, $aRecv[3])
Return 1
EndIf
Return -4
EndFunc

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

; #FUNCTION# ======================================================================================
; Name ..........: _TCP_FileSend()
; Description ...: This function sends a file
; Syntax ........: _TCP_FileSend($iSocket, $sFilePath[, $sFileName = ""])
; Parameters ....: $iSocket - The connected Socket
; $sFilePath - The path to the file
; $sFileName - [optional] Name of the file. ("" = Default filename) (default:"")
; Return values .: Return 1
; Failure:
; |-1: Socket = -1
; |-2: FilePath does not exist
; |-3: Error with TcpSend
; Author ........: GE IXI TIM
; Remarks .......: This function can only used with _TCP_FileRecv
; Link ..........: http://www.autoit.de
; Example .......:
; =================================================================================================

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

Func _TCP_FileSend($iSocket, $sFilePath, $sFileName = "")
Local $hFile, $sFile
If $iSocket = -1 Then Return -1
If Not FileExists($sFilePath) Then Return -2
If $sFileName = "" Then
$aSplit = StringSplit($sFilePath, "\")
$sFileName = $aSplit[$aSplit[0]]
EndIf
$hFile = FileOpen($sFilePath, 16)
$sFile = FileRead($hFile)
FileClose($hFile)
TCPSend($iSocket, "FILE<||>" & $sFileName & "<||>" & $sFile)
If @error Then Return -3
Return 1
EndFunc

[/autoit]

[autoit]

;----Server, start me first----
#include "_TcpFile.au3"
Global $ip = @IPAddress1, $port = 11111, $sucess = 0
TCPStartup()
Global $MainSocket = TCPListen($ip, $port), $conSocket = -1
While $conSocket = -1
$conSocket = TCPAccept($MainSocket)
WEnd
MsgBox(64, "Connection created", "")
While 1
$sucess = _Tcp_FileRecv($conSocket, @DesktopDir)
if $sucess = 1 Then
TCPShutdown()
Exit
EndIf
Sleep(10)
WEnd

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

;--Client
#include "_TcpFile.au3"
Global $ip = @IPAddress1, $port = 11111, $ConSocket = -1
TCPStartup()
While $ConSocket = -1
$ConSocket = TCPConnect($ip, $port)
WEnd
$file = FileOpenDialog("Choose a File", @DesktopDir, "(*.*)")
_Tcp_FileSend($ConSocket, $file, "")
Sleep(5000)
TCPShutdown()
Exit

[/autoit]