Digital Ausgang am PC schalten

[Lars (Gast)]

Hallo,
gibt es eine Möglichkeit einen PIN auf dem Mainboard per Betriebssystem 
digital High oder Low zu setzen? Konkret geht es darum Beleuchtung im PC 
bei Bedarf ein bzw. auszuschalten. Wäre es möglich hierfür einen 
Lüfteranschluss zu vergewaltigen? Mainboard ist ein Gigabyte X79S-UPS
Andernfalls würde ich einfach einen ESP8266 verbauen und die beleuchtung 
über WLAN schalten.

[Rufus Τ. F. (rufus)]

Lars schrieb:
> gibt es eine Möglichkeit einen PIN auf dem Mainboard per Betriebssystem
> digital High oder Low zu setzen?

Sofern eine serielle Schnittstelle vorhanden ist, lassen sich zwei der 
Handshakeleitungen dafür "missbrauchen".

> Wäre es möglich hierfür einen Lüfteranschluss zu vergewaltigen?

Nein.

> Andernfalls würde ich einfach einen ESP8266 verbauen und die beleuchtung
> über WLAN schalten.

Wenn das "einfach" ist ...

Du könntest auch einen µC mit USB-Funktion an einen USB-Port hängen und 
den die Angelegenheit erledigen lassen.

Hier sollte ein simpler AtTiny85 mit V-USB genügen, den gibt es unter 
dem Namen "DigiSpark" mit Arduino-Unterstützung als kleine 
Fertigplatine.

[Urmel aus dem Eis (Gast)]

andere Möglichkeit wäre einen SMBus header zu suchen. Der sollte i2c 
kompatibel sein, dann reicht eigentlich ein i2c port-expander, gibt es 
auch gleich mit pwm Funktionalität.

[Guido Körber (Gast)]

Das hier ist einfach, vermeidet auch, dass das Mainboard geschrottet 
wird, wenn was schief läuft:
https://shop.codemercs.com/de/io-warrior24-starterkit.html

[Thomas S. (thschl)]

man könnte auch ganz einfach einen Schalter nehmen, der erfüllt deine 
Anforderung zu 100%

[Hans (Gast)]

Guido Körber

Wie unterscheidet sich das von einem Arduino für 2 Euro?

[Thomas S. (thschl)]

Hans schrieb:
> Wie unterscheidet sich das von einem Arduino für 2 Euro?

wenn du den Schalter meinst, dann dadurch dass er ohne Strom und ohne 
Software funktioniert.. nur etwas Muskelkraft

[Guido Körber (Gast)]

Hans schrieb:
> Wie unterscheidet sich das von einem Arduino für 2 Euro?

Darin, dass das direkt funktioniert und es ordentliche Doku und Software 
dazu gibt. Da muss man keinen Mikrocontroller mehr flashen usw.

[Thomas M. (Firma: https://img.favpng.com/23/21/3) (thomasmopunkt)]

ODer USB zu UART Datenkabel..mit DTR Signal..doer noch besser sowas..da 
gibte es im Netz samplecode für C, Pascal und Python..bzw der ist sogar 
schon fertig..das Du Ausgänge schalten kannst..
https://www.ebay.de/itm/CH341A-Programmer-USB-to-UART-IIC-SPI-TTL-ISP-EPP-MEM-Parallel-Onboard-Converter/173615086065?ssPageName=STRK%3AMEBIDX%3AIT&_trksid=p2057872.m2749.l2649

Mehr code braucht es da nicht sogar mit Grafischer Oberfläche..das 
Beispiel ist Pascal/Lazarus/Delphi.
Es sind sogar gleich codebeispiele bei, wie Du ein 16x2 LCD ansteuern 
kannst etc pp

Ich hatte jetzte einfach mal Pascal angehängt, da sich das so direkt 
compilieren lässt...bei C geht das vermutlich wieder nicht mal eben so 
einfach..da ist alles in cpp h und x anderen Dateien aufgeteilt...
Bei dem code einfach noch die CH341DLL in den gleichen Ordner kopieren 
und mit lazarus kompilieren..fertig schon hast Du Buttons und kannst die 
Ausgänge schalten und sogar Eingänge abfragen!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, CH341DLL;

type
  TForm1 = class(TForm)
    ChipIndex: TSpinEdit;
    OpenBtn: TButton;
    CloseBtn: TButton;
    LEDBtn: TButton;
    ReadBtn: TButton;
    Label1: TLabel;
    ReportList: TListBox;
    procedure OpenBtnClick(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure LEDBtnClick(Sender: TObject);
    procedure ReadBtnClick(Sender: TObject);
    procedure AddReport(aLine: String);
  private
    { Private-Deklarationen }
    LEDStatusByte: Byte;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.OpenBtnClick(Sender: TObject);
begin
   //Verbindung zum Chip herstellen... ChipIndex: 0= 1.Chip am USB, 1= 2.Chip, usw.
   if (CH341OpenDevice(ChipIndex.Value)>0) then AddReport('DeviceOpen...OK')
                                           else AddReport('DeviceOpen...error!');
   LEDBtnClick(self);
end;


procedure TForm1.CloseBtnClick(Sender: TObject);
begin
   //Verbindung schliessen...
   CH341CloseDevice(ChipIndex.Value);
   AddReport('Closed');
end;

procedure TForm1.LEDBtnClick(Sender: TObject);
var Buffer: Byte;
    BufferLen: cardinal;
begin
   if LEDStatusByte=0 then LEDStatusByte:=1;

   // Ein Byte senden... (LED 0...7)
   BufferLen:=1;
   Buffer:=not LEDStatusByte; //Output LOW = LED eingeschaltet!
   if CH341MemWriteAddr0(ChipIndex.Value,@Buffer,@BufferLen) then AddReport('Write...OK --- Status = '+IntToStr(Buffer))
                                                             else AddReport('Write error!');
   LEDStatusByte:=LEDStatusByte shl 1; //Lauflicht
end;

procedure TForm1.ReadBtnClick(Sender: TObject);
var Buffer: Byte;
    BufferLen: cardinal;
begin
   //Ein Byte lesen (DIL-Schalter 0...7); Schalterposition ON = Input LOW)
   BufferLen:=1;
   if CH341MemReadAddr0(ChipIndex.Value,@Buffer,@BufferLen) then AddReport('Read...OK --- Status = '+IntToStr(Buffer))
                                                            else AddReport('Read error!');
end;

procedure TForm1.AddReport(aLine: String);
begin
   ReportList.items.Add('Device '+IntToStr(ChipIndex.Value)+': '+aLine);
   if ReportList.items.Count>10 then ReportList.items.Delete(0);
end;

end.

[Rolf M. (rmagnus)]

Thomas S. schrieb:
> man könnte auch ganz einfach einen Schalter nehmen, der erfüllt deine
> Anforderung zu 100%

Und am PC ist ein Roboterarm angeschlossen, der den Schalter betätigt?

[Sebastian L. (sebastian_l72)]

auch von hier:

Digispark

Der kann sogar viel viel mehr:
hier ein paar "nützliche" Scripts:
https://www.heise.de/select/ix/2017/7/1499358388386903

[Rufus Τ. F. (rufus)]

Sebastian L. schrieb:
> Digispark

Den habe ich bereits in der ersten Antwort in diesem Thread 
vorgeschlagen.

[Guido Körber (Gast)]

Rolf M. schrieb:
> Und am PC ist ein Roboterarm angeschlossen, der den Schalter betätigt?

Nein, der Roboterarm schubst den Dominostein um, der die ganze 
Rube-Goldberg-Machine in Gang setzt