Das deutsche QBasic- und FreeBASIC-Forum

[DJ555]

Hallo!
Wie kann man in QB die Data 0 bis Data 7 Leitungen ansteuern?
Möchte nämlich eine LÜftersteuerung (softwarebasiert) basteln.
Falls Interesse zur Mitarbeit an dem Projekt besteht: DJ555@gmx.net
Würde mich ber Hilfe (Coder) freuen!
Danke im voraus!
DJ555

[Kai Bareis]

Hi
mit out 888,0 schaltet man die 8 datenausgänge aus mit out 888,255 schält man alle an.
und wegen den ausgängen schalte niemals den lüfter direkt am parallel port sondern nimm relais oder transistoren die was aushalten
du kannst mir ja auch mailen kaibareis@aol.com oder icq=223603724
_________________
MfG Kai Bareis
Es ist noch kein Meister vom Himmel gefallen! Warum einfach wens auch umständlich geht!

[Sebastian]

Hallo.

Will dich nicht entmutigen, aber wenn du Win XP hast, kannst du das meist vergessen mit dem Ansteuern der Hardware.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[dreael]

[DJ555]

1. Hab ich schon die passendes Hardware fast fertig (mit MOS-FETs!)
2. Habe ich ne Boot-Diskette mit FreeDOS drauf und QBasic.
Ich will die 8 Datenausgänge einzeln ansteuern. Und dann mit Rechteckssignalen die Lüfter dimmen und abschalten.

[Skilltronic]

Hallo !

Die Datenleitungen D0 - D7 werden über die acht Bit des Bytes gesteuert, die du mit

OUT 888, daten

ausgiebst.

Also so:

daten-------- D0 - D7
0-------------00000000
1-------------10000000
2-------------01000000
3-------------11000000
4-------------00100000
5-------------10100000
...
254----------01111111
255----------11111111


Hast du schon eine Idee, wie du das mit dem Dimmen machen willst ?

Sieh mal unter dem Beitrag "QB-Thermometer - dringend." von markus nach. Da geht es um den Temperatursensor SMT 160-30. Das Teil habe ich inzwischen mit ihm zusammen zum laufen bekommen. Damit kannst du ohne zusätzliche Hardware Temperaturen auf 0,2° C genau messen. Basiert auf dem selben Prinzip wie der Dimmer, nur umgekehrt. Du gibst keine Impulslängen vor, sondern misst die, die das Teil ausgibt. Aus dem Verhältnis von 0 zu 1 kannst du direkt die Temperatur in °C berechnen.

Du hast am LPT ja noch ein paar Leitungen frei. An die liesse sich solch ein Sensor anschliessen. Interessant wäre vielleicht noch, die Stromaufnahme der Lüfter mit einem A/D-Wandler zu überwachen. So könnten Störungen erkannt und sogar eine kleine Diagnose wie verschmutzt/blockiert, Kurzschluss oder Leitungsunterbrechung gestellt werden.

Es gibt Programme, die das nutzen des Parallelports unter XP ermöglichen sollen. Ich habe aber erst eins gefunden, das bei mir wirklich funktionierte. Allerdings ging dann der COM-Port nicht mehr...aber das kann auch an mir gelegen haben

Gruss
Skilltronic

[DJ555]

Das hilft doch schon mal weiter.
Ich hätte mir das dann so gedacht:
(Lüfter 2 an):
out 888, 00100000
wait 1 (wie kann man Millisekunden nehmen?)
loop until....
u.s.w. Muss mich da aber nochmal richtig reinarbeiten.
Deswegen suche ich ja Hilfe.

[DJ555]

So. Jetzt habe ich mich registriert.

[Paul]

Also das mit WAIT ist anders gemeint, WAIT wartet, bis ein bestimmter Port einen bestimmten Wert hat, das hat mit Warten im Sinne von Zeit nichts zu tun. Ich denke das hier wird dir weiterhelfen:

[Skilltronic]

Hallo

[Skilltronic]

Ich nochmal.

Zum Setzen einzelner Bits und wie man daraus eine Dezimalzahl macht:

Leitung zwei soll eingeschaltet werden. Dazu werden von deinem Programm irgendwie die folgenden Einträge im Array leitung gemacht:

leitung(0) = 0
leitung(1) = 0
leitung(2) = 1
leitung(3) = 0
...
leitung(7) = 0

Willst du jetzt die entsprechende Dezimalzahl errechnen dann evtl. so:

dezimalzahl = 0
FOR bit = 0 TO 7
dezimalzahl = dezimalzahl + leitung(bit) * 2 ^ bit
NEXT
OUT 888, dezimalzahl

Weil leitung(bit) * 2^bit relativ viel Rechenzeit in Anspruch nimmt, kannst du für einen schnelleren Programmablauf die Stellenwerte der einzelnen Bits direkt als Wert für leitung benutzen. Es sollen z.B. jetzt Leitung 0, 3 und 5 eingeschaltet werden. Dann muss dein Programm anstelle von Nullen und Einsen jetzt folgende Einträge machen

leitung(0) = 1
leitung(1) = 0
leitung(2) = 0
leitung(3) = 8
leitung(4) = 0
leitung(5) = 32
leitung(6) = 0
leitung(7) = 0

Die Dezimalzahl kannst du dann so ausrechnen:

dezimalzahl = 0
FOR bit = 0 TO 7
dezimalzahl = dezimalzahl + leitung(bit)
NEXT
OUT 888,dezimalzahl

Gruss
Skilltronic

[Kai Bareis]

So habe mir grade mal eben ein Lüftersteuerung gebaut mit drei MOS-FETs (BUZ11). das ganze geht gut und das dimmen geht auch was dann aber inpulsweise geht, so das der Lüfter immer einen Impuls bekommt und er sich wen ich die Spannung wegnehme noch kurz weiter dreht dann wird die Spannung eingeschaltet. das ganze mache ich so wie es Skilltronik gesagt hat mit zwei For Next schleifen als delay.
wer den schaltplan haben will soll mir ne Email schicken (den muss ich halt noch machen ) und das programm schiecke ich dann auch mit!
_________________
MfG Kai Bareis
Es ist noch kein Meister vom Himmel gefallen! Warum einfach wens auch umständlich geht!

[Eisbaer]

Hi,

Also für dieses Problem gibt es eine Sehr gute Seite im Web die sich mit der Ansteuerung des Ports aus QuickBasic, Windows und MS-Dos befasst : http://www.franksteinberg.de/

mfg Eisbaer
_________________
Eigene Webseite:
http://www.eisbaer-studios.de

[M.]

Es drängt mich anzumerken, daß du die Bemerkung von Meister Skilltronic, wir hätten den SMT-Sensor zusammen zum Laufen gebracht, ruhig ironisch auffassen kannst.
Ohne seine Hilfe würde ich immer noch im Lendenschurz in meiner Höhle sitzen, und verzweifelt Basic-Routinen in die Wände meißeln......

Übrigens empfehle ich -wie schon "Eisbaer" - dringend,
http://www.franksteinberg.de/progss.htm
einem zerebralen Integrationsprozeß zu unterziehen.

Gruß
Markus