da ist auch ein gui editor drin: https://autoit.de/index.php?page=Thread&threadID=29742
Beiträge von Alizame
-
-
ah okay,
danke!btw: richtig gute IDE!
-
was doof ist, bei dem gui editor:
wenn man etwas mit tab-controls erstellt ist der zweite tab irgendwie genauso wie der erste, und wenn man das beim zweiten löscht, ist es bei beiden seiten weg -
herzlichen glühstrumpf
-
Happy Birthday!
Edit:
Heute 10:42
Ich hab am sinn des lebens gepostet -
es ist glaube ich eins seiner ersten scripte, seit mal nicht so hart^^
er kennt halt die verschlüsselungsfunktionen und etc. noch nicht. -
nachdem ich es verstanden habe, ist es echt gut!
-
mach
[autoit]#Include<blabla.au3>
[/autoit][autoit][/autoit][autoit]
#koda blabla
#koda ende blablawhile 1
[/autoit][autoit][/autoit][autoit]
gui blabla
wendwhile 1
[/autoit]
blablabal
wendzu
[autoit]#Include<blabla.au3>
[/autoit][autoit][/autoit][autoit]
#koda blabla
#koda ende blablawhile 1
[/autoit]
gui blabla
;####..####
blablabal
wend -
-
das macht man halt so, und 8x8x8=512 Leds!
diese cubes sind echt hamma!^^
hab einen 3x3x3 -
öhm, hö?
hab dein problem jetzt nicht ganz verstanden.
kann auch gerade nichts testen, weil ich nur beim laptop com port habe. -
ich hoffe ich habe es richtig verstanden...
Spoiler anzeigen
[autoit]#include "Func_Serial.au3"
[/autoit] [autoit][/autoit] [autoit]Global $bToggle = False
[/autoit] [autoit][/autoit] [autoit];Alle Konstanten müssen angepasst werden!
[/autoit] [autoit][/autoit] [autoit]
;Gemäss Spezifikationen der Karte!
Global Const $ComPort = 3
Global Const $Baudrate = 19200
Global Const $Bits = 8
Global Const $Parity = 0
Global Const $Stop = 0
Global Const $Rts = 1;A= Aus, E= Ein, T= Toggle
[/autoit] [autoit][/autoit] [autoit]
Global Const $Init = String(Chr(1) & Chr(1) & Chr(1) & Chr(1))
Global Const $Alle_E = String(Chr(3) & Chr(1) & Chr(255) & Chr(253))
Global Const $Alle_A = String(Chr(3) & Chr(1) & Chr(0) & Chr(2))
Global Const $Rel_1_E = String(Chr(6) & Chr(1) & Chr(1) & Chr(6))
Global Const $Rel_1_A = String(Chr(7) & Chr(1) & Chr(1) & Chr(7))
Global Const $Rel_1_T = String(Chr(8) & Chr(1) & Chr(1) & Chr(8))
Global Const $Rel_2_E = String(Chr(6) & Chr(1) & Chr(2) & Chr(5))
Global Const $Rel_2_A = String(Chr(7) & Chr(1) & Chr(2) & Chr(4))
Global Const $Rel_2_T = String(Chr(8) & Chr(1) & Chr(2) & Chr(11))Global $SendPort = _OpenCOMPort($ComPort, $Baudrate, $Bits, $Parity, $Stop, $Rts)
[/autoit] [autoit][/autoit] [autoit]
If $SendPort = -1 Then
MsgBox(16, "FEHLER", "Schnittstelle Com" & $ComPort & " konnte nicht geöffnet werden!")
Exit
EndIf_SendSerialString($SendPort, $Init)
[/autoit] [autoit][/autoit] [autoit]
Sleep(250)
_SendSerialString($SendPort, $Rel_1_E)
Sleep(250)
_SendSerialString($SendPort, $Rel_2_E)
Sleep(250)
_SendSerialString($SendPort, $Rel_1_A)
Sleep(250)
_SendSerialString($SendPort, $Rel_2_A)
MsgBox(0, "INIT", "INIT ABGESCHLOSSEN", 5)OnAutoItExitRegister("Ende")
[/autoit] [autoit][/autoit] [autoit]
Func Rel_1_T();Blinken
_SendSerialString($SendPort, $Rel_1_T)
EndFunc ;==>Rel_1_TWhile 1
[/autoit] [autoit][/autoit] [autoit]
;Player1
$DF0 = FileOpen("C:\DF_0.txt", 0)
$DF00 = FileReadLine($DF0, 1)If $DF00 = "1" Then ;Wiedergabe
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If $bToggle = True Then
AdlibUnRegister("Rel_1_T")
$bToggle = False
EndIf
_SendSerialString($SendPort, $Rel_1_E)ElseIf $DF00 = "0" Then ;Stop
[/autoit] [autoit][/autoit] [autoit]
If $bToggle = True Then
AdlibUnRegister("Rel_1_T")
$bToggle = False
EndIf
_SendSerialString($SendPort, $Rel_1_A)ElseIf $DF00 = "2" Then ;EOF
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister("Toggle", 500)ElseIf $DF00 = "3" Then ;FADE
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister("Toggle", 250)EndIf
[/autoit] [autoit][/autoit] [autoit]
FileClose($DF0);Player2
[/autoit] [autoit][/autoit] [autoit]
$DF1 = FileOpen("C:\DF_1.txt", 0)
$DF01 = FileReadLine($DF1, 1)If $DF01 = "1" Then
[/autoit] [autoit][/autoit] [autoit]
_SendSerialString($SendPort, $Rel_2_E)ElseIf $DF01 = "0" Then
[/autoit] [autoit][/autoit] [autoit]
_SendSerialString($SendPort, $Rel_2_A)EndIf
[/autoit] [autoit][/autoit] [autoit]
FileClose($DF1)WEnd
[/autoit] [autoit][/autoit] [autoit]
Func Ende()
FileClose($DF0)
FileClose($DF1)
_CloseCOMPort($SendPort)
EndFunc ;==>EndeFunc Toggle()
[/autoit] [autoit][/autoit] [autoit][/autoit]
_SendSerialString($SendPort, $Rel_1_T)
$bToggle = True
EndFunc ;==>Togglemit AdlibRegister muss man funktionen aufrufen
-
geht auch unter XP
-
-
wie meinst du das denn mit AVRs?
wenn du über LPT oderso ein signal ausgibt soll eine LED anfangen zu blinken oder wie?
Weil für AVRs gibt es ne ziemlich gute, Basic-like programmiersprache:
Bascom-AVR
-
Find ich super, bin am überlegen das zu kaufen.
Hoffentlich gibts bald wieder welche:
http://de.farnell.com/jsp/displayProduct.jsp?sku=2081185&CMP=e-2072-00001000&gross_price=true
-
das ist ja nicht schwer, oder?
denke das werde ich schaffen. -
find ich super!
kann man bestimmt nen kleinen siri klon draus machen, windows hat ja auch ne spracherkennung...
-
-
herzlichen Glückwunsch auch von mir : D
________________________________
