You are not logged in.

Dear visitor, welcome to Laras Levelbase Forum. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

1

Tuesday, December 25th 2007, 9:12pm

Programmieren in Visual Basic oder Delphi

Hallo,
kann und will von euch jemand Visual Basic oder Delphi programmieren, ich kann's ganz minimal und würde gern mal wieder programmieren, mir fehlt aber der nötige Ansporn und auch die Programmcodes dazu. Hat jemand irgendwelche Vorschläge für Programme oder programmiert sogar selber und kann mir ein bisschen was beibringen?

This post has been edited 1 times, last edit by "Cosmione" (Aug 9th 2011, 4:25pm)


2

Saturday, November 9th 2013, 1:18pm

Der Thread ist zwar schon Asbach Uralt, aber ich denke das passt schon... ;)

Ich bastel gerade an einem VBScript, mit der ich eine Fritz!DECT200 Funksteckdose ganz unkompliziert über ein Icon auf dem Desktop schalten kann (bzw. auch gewisse Werte auslesen wie Schaltzustand, Energieaufnahme der Verbraucher, usw).

Als Schnittstelle zur Fritzbox habe ich mir das AHA-HTTP-Interface ausgeguckt. Das Script loggt sich im Hintergrund per Benutzerpasswort in die Fritzbox ein, angelt sich die SessionID (unbedingt nötig...hat mich ziemlich Nerven gekostet das mit dem Login zu recherchieren und wurde letztendlich hier fündig :schwitz:. Dank an M. Engelke) und setzt dann den entsprechenden Befehl über einen HTTP GET Request an die URL "https://fritz.box/webservices/homeautoswitch.lua?ain=<ain>&switchcmd=<cmd>&sid=<sid>" ab. Mit "<ain>" ist hier die Geräteidentifikationsnummer der zu schaltenden Fritz!DECT200 gemeint, "<cmd>" ist der auszuführende Befehl (z.B. "setswitchon" zum Einschalten) und "<sid>" ist die bereits oben erwähnte SessionID.

Die Idee war halt das Script mit einem Icon auf dem Desktop zu verknüpfen. Mit einem Doppelklick darauf loggt sich das Script wie oben beschrieben in die Fritze ein, bezieht eine SID und fragt dann per HTTP GET Request den Schaltzustand der Steckdose ab. Ist die Steckdose aus wird sie eingeschaltet und umgekehrt. Also eine einfache Toggle-Funktion. So reicht in der Tat ein einfaches Verknüpfungs-Icon auf dem Desktop.

Zum Auslesen aller möglichen Werte habe ich noch ein weiteres Script geschrieben. Mal sehen ob ich die irgendwie mal sinnvoll zusammenführen kann. Dazu benötigt es aber wahrscheinlich einer GUI und das wollte ich eigentlich nicht. Mit dieser Lösung bin ich im Moment mehr als zufrieden... [:D]

Edit:
Die verschiedenen Scripte in ein einzelnes Script gepackt und Aufruf der jeweiligen Funktionen über Startparameter realisiert. [:D]

This post has been edited 1 times, last edit by "eddy" (Nov 10th 2013, 2:15pm)


3

Saturday, January 18th 2014, 2:13pm

Hallo,
wäre es möglich das du mir dein Script zur Verfügung stellst?
Ich würde die Dect 200 auch gerne stuern können.
Cool wäre es noch wenn man das Script automatisch (z.B alle 60 min) ausführen lassen könnte und eine .log Datei erstellt wird wo die Werte drin stehen.
z.B: Fritz Dect 1 - UHRZEIT - 73 Watt - 234 Volt etc pp.

So in der Art. Kannst du sowas umsetzen?
Wenn nicht wäre das auch nicht schlimm. Wenn ich nur dein Scipt bekommen könnte wäre ich schon mehr als dankbar.

DANKE :)

5

Saturday, August 2nd 2014, 11:07pm

Hi, auch wenn der letzte Eintrag etwas älter ist. Ich hätte auch Interesse an dem VBScript. Habe zwar eines gebaut bei dem der Login und SID Funktioniert aber bei der Übergabe des Links und der SID zum auslesen des Dect200 kommt keine Antwort zurück und ich habe keine Ahnung warum. Der URL passt, den im IE kommt die Antwort aber nicht über das Script.



Danke!

6

Saturday, August 2nd 2014, 11:55pm

Nehmen wir mal an Du willst wissen ob ein Aktor geschaltet ist oder nicht und nehmen wir mal an HOST (IP-Adresse der Fritzbox bzw. "fritz.box"), AIN (Identifikationsnummer des Aktors) und SID liegen bereits als Variablen vor.
Dann probiere es doch mal so im Skript:

Spoiler Spoiler



url = "http://" & HOST & "//webservices/homeautoswitch.lua?sid=" & SID & "&ain=" & AIN & "&switchcmd=getswitchstate"
http.Open "GET",url,False
http.Send
rueckgabewert = Left(http.responseText,1)
If rueckgabewert = "0" Then
MsgBox "Aktor ist ausgeschaltet",vbOKOnly,"Meldung"
ElseIf rueckgabewert = "1" Then
MsgBox "Aktor ist eingeschaltet",vbOKOnly,"Meldung"
Else
MsgBox "Daten können nicht ermittelt werden",vbOKOnly,"Fehlermeldung"
End If

This post has been edited 1 times, last edit by "eddy" (Aug 3rd 2014, 10:43am)


7

Sunday, August 31st 2014, 8:36pm

Bisher habe ich die C-Sprachen immer sträflich vernachlässigt. Jetzt möchte ich mal testweise ein bissel in C# reinschnüffeln...
Frage: Gibt es irgendeine (freie) Alternative zu MS Visual Studio (Express) ? Ich mag Microsoft-Programme nicht so. :roll:

8

Sunday, August 31st 2014, 10:24pm

Ja SharpDevelop oder MonoDevelop. Ich arbeite ja hauptsächlich mit Visual Studio und habe keine Erfahrung mit den anderen Werkzeugen, aber nach allem was man hört, soll Visual Studio Express(da ja kostenlos und unlimitert auch für Kommerzielles ist!) da doch WESENTLICH benutzerfreundlicher sein. Und wenn man neu ist und alle Welt damit arbeitet ist das vielleicht sogar nochmal so wichtig, Micrsoft hin oder her... dein OS, die Sprache und das Framework sind schließlich auch von denen. [baehh]

Nebenbei, C# ist zum Einstieg eine gute Wahl. [:D]

9

Sunday, August 31st 2014, 10:48pm

Erst mal wird immer zuerst was Anderes getestet...wenn nix hilft dann kommt MS und manchmal haben die ja auch ganz gute Proggis... [baehh]
Dieses SharpDevelop konnte was sein. Sieht zwar erst mal wild aus, aber das ist ja meistens so... [:D]
Erinnert mich ein klein wenig an den Phase5-Editor auf den ersten Blick. Erstmal Danke für die Info. ;)

10

Monday, November 24th 2014, 7:24pm

Hallo eddy
kannst du mir auch mal das kopplete Scrip schicken. Bei mir funktioniert es einfach nicht.
schon mal vielen dank im voraus

11

Tuesday, November 25th 2014, 7:30pm

Was brauchst denn, das Visual-Basic-Script ?
Was willst Du machen ? Einschalten, Ausschalten oder Umschalten ?
Kennst Du Dich mit VB aus und kannst das Script evtl. an Deine Bedürfnisse anpassen ?

12

Thursday, November 27th 2014, 11:33pm

Hallo
ja benötige das VB script. Mochte die Steckdose in eine SPS Visus mit enbinden. Mochte ein / Aus schalten und den Energieverbrauch am HMI anzeigen.
VB kann ich anpassen. Wäre super wenn du mir mal dein Script schickst.

14

Thursday, January 8th 2015, 8:02pm

Hallo könnte ich das VB-Script auch bekommen?
Ist zwar schon eine weile her das ich mit VB gearbeitet habe, aber werds schon hinkriegen.
Ich möchte meinen Drucker (Laser) an die DECT200 hängen, der zieht im Standby ständig über 20W.
Somit würde ich den Drucker über das Icon Anschalten bzw. nach 1 Stunde im Standby über die Fritz interne Funktion dann abschalten.
Schon mal besten Dank. :vneig:

15

Thursday, January 8th 2015, 9:43pm

Hallo Herbert. Du hast Post. :winke:
Ich hoffe das ist das was Du brauchst... ;)

16

Saturday, January 10th 2015, 9:43pm

Na das ist doch mal äußerst interessant: Ur/Web Programmiersprache
Vor allem die Möglichkeit den Quellcode zu kompilieren finde ich sehr interessant...[:D]

17

Sunday, June 7th 2015, 10:46pm

Hallo eddy,

Würdest Du mir auch dein Skript schicken?

Ich habe die selbe Anwendung wie Herrbert.

Vielen Dank

Tux

18

Sunday, June 7th 2015, 11:06pm

Hallo,
habe Dir jeweils ein Script zum Einschalten und eins zum Ausschalten in einer Zip-Datei per privater Nachricht geschickt.
Du musst halt nur in den Scripten oben im Kopf im markierten Bereich die Variablen anpassen (Aktor-AIN, FB-Passwort, etc.)
Wenn was nicht klappt, kannst ja nochmal nachhaken... ;)

19

Saturday, October 31st 2015, 10:11pm

Hallo,
habe Dir jeweils ein Script zum Einschalten und eins zum Ausschalten in einer Zip-Datei per privater Nachricht geschickt.
Du musst halt nur in den Scripten oben im Kopf im markierten Bereich die Variablen anpassen (Aktor-AIN, FB-Passwort, etc.)
Wenn was nicht klappt, kannst ja nochmal nachhaken... ;)
Hi.

Darf ich dich bitte mir das Script auch zu schicken? Ich fummle schon ewig daran herum, aber das ist irgendwie nicht meine Welt. :-(

Danke schon mal.

Liebe Grüße,
Markus