Vous n’êtes pas connecté.
![]() |
Code source |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
''[VB] 'ist die kennzeichnung für ein visual basic script (muss am anfang der datei stehen) shared MultiswitchData as myTranslationClasses.multiswitch_Rev141 Public Function StartScript(ByVal WriteData as myTranslationClasses.multiswitch_Rev141, ByRef ReadData as myTranslationClasses.multiswitch_Rev141, ByVal Usb as MyUSB.HidControl,ByVal UsbAdress as Integer) As String dim Obj as ScriptFunctions Obj= new ScriptFunctions Obj.HIDDeviceNumber = UsbAdress Obj.HIDControl= Usb MultiswitchData= WriteData ReadData.ReadLock = True Obj.Blink(WriteData) ReadData.ReadLock = false End Function Public Class ScriptFunctions Public HIDControl As MyUSB.HidControl Public HIDDeviceNumber As Integer Public Success as Boolean public sub Box(ByVal s as String) Microsoft.VisualBasic.MsgBox(s) end sub Private Sub WriteToDevice(ByVal Data as myTranslationClasses.multiswitch_Rev141, ByVal TransferType As myTranslationClasses.multiswitch_Rev141.TransferTypeRegister) Dim OutString As String OutString = Data.CreateStringFromStructure(TransferType) If HIDControl.ControlBusy = False Then Success = HIDControl.WriteToDevice(HIDDeviceNumber,OutString) If (Success = false) then Box("Fehler") End If End If End Sub public sub Blink(ByVal Data as myTranslationClasses.multiswitch_Rev141) dim i,j,k as integer Do for i=1 to 8 Data.AmpPwm(i) = 0 Next WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) for i=5 to 5 MultiswitchData.AmpPwm(i) = 26 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(50) next for i=1 to 8 Data.AmpPwm(9-i) = 0 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) next for i=6 to 6 MultiswitchData.AmpPwm(i) = 26 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(50) next for i=1 to 8 Data.AmpPwm(9-i) = 0 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) next for i=7 to 7 MultiswitchData.AmpPwm(i) = 26 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(50) next for i=1 to 8 Data.AmpPwm(9-i) = 0 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) next for i=8 to 8 MultiswitchData.AmpPwm(i) = 26 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(50) next for i=1 to 8 Data.AmpPwm(9-i) = 0 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) next for i=7 to 7 MultiswitchData.AmpPwm(i) = 26 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(50) next for i=1 to 8 Data.AmpPwm(9-i) = 0 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) next for i=6 to 6 MultiswitchData.AmpPwm(i) = 26 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(50) next for i=1 to 8 Data.AmpPwm(9-i) = 0 WriteToDevice(Data , myTranslationClasses.multiswitch_Rev141.TransferTypeRegister.OUTPUT) System.Threading.Thread.Sleep(10) next Loop end Sub end Class |
Citation de "marvell"
@Spezies_8472: Thx ich werd mich da mal durchkämpfen. Aber ich such diesen Hammer Nigt Rider Effekt.
Citation de "marvell"
EDIT: Ich finds nur schade, dass es für das MS nicht so ne Beispiel Config gibt wie für Aquaero mit Samurize, anhand dessen konnt ich mir nämlich für Samurize ne schicke Config basteln. War meiner Meinung gut beschrieben in der Txt was wie bennant werden muss um es über Samurize darstellen zu lassen
Vllt findet sich ja einer der sowas machen könnt.
Citation de "Sebastian"
alternativ kannst du ohne zu programmieren die Macrofunktion benutzen.
Sebastian
Citation de "Spezies_8472"
ähh, irgend wie komme ich da jetzt nicht ganz mit.
2 scriptbeispiele liegen auch im ordner script in der aquasuite.
was hat das script nun mit samurize zu tun.
und welche werte vom multiswitch sind so aussagekräftig, das man diese über samurize anzeigen lassen möchte.
samurize ist praktisch nur ein programm, über das man sich entsprechende werte auf dem desktop anzeigen lassen kann, mit eigenen über samurize oder vorgefertigten design-vorlagen.
-