Beiträge von chip
-
-
Ja, GUI Funktionen, Mousposition, alle anpingen.
-
Steht alles auf der Homepage von Buffalo: http://www.buffalo-technology.com/knowledgebase/users/kb.php?id=10264&category_id=0&sid2=
-
[autoit]
InetGet("http://www.deinurl.de/links.txt", @ScriptDir & "\links.txt", 16)
[/autoit]
$file = FileOpen("links.txt", 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
ShellExecute($line)
WEnd
FileClose($file) -
Fals es eine Text Datei ist kann du das hier benutzen:
[autoit]_INetGetSource("http://www.deineseite.domain/pfad_zur_text_datei.txt")
[/autoit]
Musst es halt noch mit deinen Daten ausfüllen.Du meinst wohl eher InetRead.
-
Mach einfach am Anfang deines Scriptes
[autoit]#include <SQLite.dll.au3>
[/autoit]Dann wird die SQLite.dll auf dem Rechner erstellt fals nicht vorhanden.
-
Hier mal die relevanten Befehle:
[autoit]_FTP_Connect
[/autoit]
_FTP_FileOpen
_FTP_FileRead
_FTP_Close -
Ich glaube er meint einen Dialog in dem man nur die Schriftarten auswählen kann, ohne das noch Schriftgröße ect. einstellbar ist.
-
Du hast ja diese Plugin SDK drin mit den puntken _ISNPlugin_Get_MSG und _ISNPlugin_Send_MSG hast da eine Liste welche Nachrichten da von ISN kommen bzw. übergeben werden können?
Gehen Plugins überhaupt schon?
-
Alles Gute auch von mir :).
-
Hallo chip,
Eine Frage habe ich noch kannst du mir die Rechnung bitte so umbauen das wenn in der VK ein Preis 0 hat das da dann nicht gerechnet wird für diese ware?Spoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#region START GUI
$Form1 = GUICreate("Stadtwaren Rechner", 1000, 520, 380, 230)
GUICtrlSetState(-1, $GUI_DISABLE)
$Form1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alex Sindy Amy\Desktop/Handel.jpg", 0, 0, 1000, 520)
GUICtrlSetState(-1, $GUI_DISABLE)$aArray = _FileListToArray("VK", "*.csv", 1)
[/autoit] [autoit][/autoit] [autoit]
Local $sComboText = ''
For $i = 1 To UBound($aArray) - 1
$sComboText &= StringTrimRight($aArray[$i], 4) & "|"
Next
$Startstadt = GUICtrlCreateCombo("Wähle Stadt", 85, 75, 110, 130)
GUICtrlSetData(-1, StringTrimRight($sComboText, 1))
$Zielstadt = GUICtrlCreateCombo("Wähle Stadt", 212, 75, 110, 25)
GUICtrlSetData(-1, StringTrimRight($sComboText, 1))
GUISetState(@SW_SHOW)Local $Ergebnis[8], $Ware[8], $Stufe[8], $Gewicht[8], $EK[8], $VK[8], $test[8], $iHeight = 230
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To 7
$Ware[$i] = GUICtrlCreateLabel("", 30, $iHeight, 190, 40)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis[$i] = GUICtrlCreateLabel("", 680, $iHeight, 150, 35)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe[$i] = GUICtrlCreateLabel("", 240, $iHeight, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht[$i] = GUICtrlCreateLabel("", 335, $iHeight, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK[$i] = GUICtrlCreateLabel("", 435, $iHeight, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK[$i] = GUICtrlCreateLabel("", 540, $iHeight, 60, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$test[$i] = GUICtrlCreateLabel("", 645, 190, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$iHeight += 30
Next#region Übersicht Überschriften Labels
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Warenname = GUICtrlCreateLabel("Ware", 80, 160, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Warenstufe = GUICtrlCreateLabel("Stufe", 225, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Einkauf = GUICtrlCreateLabel("EK-Preis", 415, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Verkauf = GUICtrlCreateLabel("VK-Preis", 530, 160, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewin = GUICtrlCreateLabel("Gewinn", 645, 160, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewichtname = GUICtrlCreateLabel("Gewicht", 310, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Von = GUICtrlCreateLabel("Von", 110, 50, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Nach = GUICtrlCreateLabel("Nach", 237, 50, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ladung = GUICtrlCreateLabel("Max-Lade-Kapazität", 345, 50, 160, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ladungbelegt = GUICtrlCreateLabel("Belegter-Laderaum", 540, 50, 180, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Berechnung = GUICtrlCreateLabel("Berechnung starten", 730, 50, 180, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)#region Buttons
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$BerechnungStart = GUICtrlCreateButton("Berechnung Starten", 745, 75, 130, 20)
#endregion Buttons$InputLadung = GUICtrlCreateInput("0", 360, 75, 130, 21)
[/autoit] [autoit][/autoit] [autoit]
$InputLadungbelegt = GUICtrlCreateInput("0", 553, 75, 130, 21)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Startstadt, $Zielstadt
Local $iRow = 1
$aRegExp = StringRegExp(FileRead("ek.csv"), GUICtrlRead($Startstadt) & ",(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)," & _
"(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)", 3)
For $j = 0 To UBound($aRegExp) - 1 Step +4
GUICtrlSetData($Ware[$iRow], $aRegExp[$j])
GUICtrlSetData($Stufe[$iRow], $aRegExp[$j + 1])
GUICtrlSetData($EK[$iRow], $aRegExp[$j + 2])
GUICtrlSetData($Gewicht[$iRow], $aRegExp[$j + 3])
$iRow += 1
Next
Local $iRow = 1
$aRegExp = StringRegExp(FileRead("VK\" & GUICtrlRead($Startstadt) & ".csv"), GUICtrlRead($Zielstadt) & ",(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)," & _
"(.+?),(.+?),(.+?),(.+?),(.+?)", 3)
For $j = 0 To UBound($aRegExp) - 1 Step +2
GUICtrlSetData($VK[$iRow], $aRegExp[$j + 1])
$iRow += 1
Next
;~ _ArrayDisplay($aRegExp)
Case $BerechnungStart
For $j = 0 To UBound($aRegExp) - 6 Step 1
$Laderaumfrei = GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)
$anzahl = Int($Laderaumfrei / GUICtrlRead($Gewicht[$j]))
If GUICtrlRead($VK[$j]) > 0 Then
GUICtrlSetData($Ergebnis[$j], (GUICtrlRead($VK[$j]) - GUICtrlRead($EK[$j])) * $anzahl)
Else
GUICtrlSetData($Ergebnis[$j],"VK-Preis ist 0")
EndIf
Next
EndSwitch
WEnd -
Ich kann kein Regexp, da muss jemand anderes ran ;).
-
Also bei mir gehts wie gesagt:
[Blockierte Grafik: http://img1.picload.org/image/waralo/unbenannt.png]
-
Also bei mir gehts Problemlos, kann es sein das du die Ladekapazität immer nur auf 1 machst? Weil dann ist klar, dass nur das letzte berechnet wird. Weil die anderen wiegen ja immer 20 aufwärts und können damit garnicht eingeladen werden.
-
Es werden alle ausgerechnet ;). Nur bei deinen anderen Waren ist EK und VK gleich also ist der Gewinn 0.
-
Scheint so als hätte google Clientprogramme ausgemusstet. Weil für Authsub musst eine Domain registrieren um das entsprechende Token zu bekommen: http://code.google.com/intl/de-DE/api…ebAppsAuto.html
-
Mein das so:
Spoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#region START GUI
$Form1 = GUICreate("Stadtwaren Rechner", 1000, 520, 380, 230)
GUICtrlSetState(-1, $GUI_DISABLE)
$Form1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alex Sindy Amy\Desktop/Handel.jpg", 0, 0, 1000, 520)
GUICtrlSetState(-1, $GUI_DISABLE)$aArray = _FileListToArray("VK", "*.csv", 1)
[/autoit] [autoit][/autoit] [autoit]
Local $sComboText = ''
For $i = 1 To UBound($aArray) - 1
$sComboText &= StringTrimRight($aArray[$i], 4) & "|"
Next
$Startstadt = GUICtrlCreateCombo("Wähle Stadt", 85, 75, 110, 130)
GUICtrlSetData(-1, StringTrimRight($sComboText, 1))
$Zielstadt = GUICtrlCreateCombo("Wähle Stadt", 212, 75, 110, 25)
GUICtrlSetData(-1, StringTrimRight($sComboText, 1))
GUISetState(@SW_SHOW)Local $Ergebnis[8], $Ware[8], $Stufe[8], $Gewicht[8], $EK[8], $VK[8], $test[8], $iHeight = 230
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To 7
$Ware[$i] = GUICtrlCreateLabel("", 30, $iHeight, 190, 40)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis[$i] = GUICtrlCreateLabel("", 680, $iHeight, 150, 35)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe[$i] = GUICtrlCreateLabel("", 240, $iHeight, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht[$i] = GUICtrlCreateLabel("", 335, $iHeight, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK[$i] = GUICtrlCreateLabel("", 435, $iHeight, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK[$i] = GUICtrlCreateLabel("", 540, $iHeight, 60, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$test[$i] = GUICtrlCreateLabel("", 645, 190, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$iHeight += 30
Next#region Übersicht Überschriften Labels
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Warenname = GUICtrlCreateLabel("Ware", 80, 160, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Warenstufe = GUICtrlCreateLabel("Stufe", 225, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Einkauf = GUICtrlCreateLabel("EK-Preis", 415, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Verkauf = GUICtrlCreateLabel("VK-Preis", 530, 160, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewin = GUICtrlCreateLabel("Gewinn", 645, 160, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewichtname = GUICtrlCreateLabel("Gewicht", 310, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Von = GUICtrlCreateLabel("Von", 110, 50, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Nach = GUICtrlCreateLabel("Nach", 237, 50, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ladung = GUICtrlCreateLabel("Max-Lade-Kapazität", 345, 50, 160, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ladungbelegt = GUICtrlCreateLabel("Belegter-Laderaum", 540, 50, 180, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Berechnung = GUICtrlCreateLabel("Berechnung starten", 730, 50, 180, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)#region Buttons
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$BerechnungStart = GUICtrlCreateButton("Berechnung Starten", 745, 75, 130, 20)
#endregion Buttons$InputLadung = GUICtrlCreateInput("0", 360, 75, 130, 21)
[/autoit] [autoit][/autoit] [autoit]
$InputLadungbelegt = GUICtrlCreateInput("0", 553, 75, 130, 21)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Startstadt, $Zielstadt
Local $iRow = 1
$aRegExp = StringRegExp(FileRead("ek.csv"), GUICtrlRead($Startstadt) & ",(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)," & _
"(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)", 3)
For $j = 0 To UBound($aRegExp) - 1 Step +4
GUICtrlSetData($Ware[$iRow], $aRegExp[$j])
GUICtrlSetData($Stufe[$iRow], $aRegExp[$j + 1])
GUICtrlSetData($EK[$iRow], $aRegExp[$j + 2])
GUICtrlSetData($Gewicht[$iRow], $aRegExp[$j + 3])
$iRow += 1
Next
Local $iRow = 1
$aRegExp = StringRegExp(FileRead("VK\" & GUICtrlRead($Startstadt) & ".csv"), GUICtrlRead($Zielstadt) & ",(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)," & _
"(.+?),(.+?),(.+?),(.+?),(.+?)", 3)
For $j = 0 To UBound($aRegExp) - 1 Step +2
GUICtrlSetData($VK[$iRow], $aRegExp[$j + 1])
$iRow += 1
Next
;~ _ArrayDisplay($aRegExp)
Case $BerechnungStart
For $j = 0 To UBound($aRegExp) - 6 Step 1
$Laderaumfrei = GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)
$anzahl = Int($Laderaumfrei / GUICtrlRead($Gewicht[$j]))
GUICtrlSetData($Ergebnis[$j], (GUICtrlRead($VK[$j])- GUICtrlRead($EK[$j]))* $anzahl)
Next
EndSwitch
WEndEdit: Grade nochmal was verändert.
-
Lösch mal das ""Alle Dateien (*.*)")," aus _FTP_ProgressUpload das hat dort nichts zu suchen.
-
Du weißt aber schon das GUICtrlSetData schlicht einen Wert in den Controler schreibt und mehr nicht. Es ist nicht wirklich klar was du machen willst.
-
Hol dir mal diese UDF: http://www.autoitscript.com/forum/topic/29631-http-udfs/
Zum einloggen musst du dann, wie auch bei google direkt beschrieben, an die URL "https://www.google.com/accounts/ClientLogin" einen Post mti dem Inhalt "Email=<username>&Passwd=<password> &service=youtube&source=<source>" senden. Dann bekommst ein "authentication token" zurück mit dem dann weiter machst.
