Paules-PC-Forum.de - XProfan http://www.paules-pc-forum.de/forum/ Alles rund um die Programmiersprache XProfan. de Thu, 02 Sep 2010 18:04:33 GMT vBulletin 5 http://www.paules-pc-forum.de/forum/images/misc/rss.jpg Paules-PC-Forum.de - XProfan http://www.paules-pc-forum.de/forum/ Signal an LPT ausgeben (Win98SE) http://www.paules-pc-forum.de/forum/xprofan/132216-signal-lpt-ausgeben-win98se.html Sun, 29 Aug 2010 15:12:33 GMT Hallo zusammen. Als erstes sollte gesagt werden, dass Programmieren für mich ziemliches Neuland ist. Bisher bin ich aber mit Profan relativ gut... Hallo zusammen. Als erstes sollte gesagt werden, dass Programmieren
für mich ziemliches Neuland ist. Bisher bin ich aber mit Profan relativ
gut gefahren. Eigentlich habe ich damit nur als Mittel zum Zweck begonnen,
da mir dies als einfachste Art uns Weise erschien einen Schrittmotortreiber
direkt anzusteuern.

Dafür brauche ich ein spezielles Signal am Parallelausgang.

= heißt aus
_ heißt an

Port1: =_=_=_=_=_=_=_=_= (Takt, ich glaub ca 5ms an, 5ms aus)
Port2: __________________ (bzw immer aus: für die Drehrichtung)


da ich den Computer, auf dem das "Programm" endgültig laufen soll erst
in nächster Zeit bekomme (Win98) und die Hardware auch noch nicht
bestellt habe (Wochenende ;) )habe ich ein wenig mit Profan rumgespielt.

Code:
Proc Test

Declare Ende%
     
      SetTimer 2
      Clear Ende%
      WhileNot Ende%
        Print "888,3"
        Case %wmTimer:Ende% = 1
      EndWhile
      KillTimer
     
      SetTimer 2
      Clear Ende%
      WhileNot Ende%
        Print "888,1"
        Case %wmTimer:Ende% = 1
      EndWhile
      KillTimer
     
      SetTimer 2
      Clear Ende%
      WhileNot Ende%
        Print "888,3"
        Case %wmTimer:Ende% = 1
      EndWhile
      KillTimer
     
      SetTimer 2
      Clear Ende%
      WhileNot Ende%
        Print "888,1"
        Case %wmTimer:Ende% = 1
      EndWhile
      KillTimer
     
endproc

Cls
Test
waitkey
end
Eigentlich wollte ich nur mal gucken ob das so funktioniert. Dabei ist mir
aber aufgefallen, dass das "888,1" bzw. "888,3" (das steht doch für Port
1+2, oder?) in unregelmäßigen zeitlichen Abständen "geprintet" wird.
(Also ein Mal wurde zum Beispiel 20x "888,1" ausgegeben, wärend 888,3
über 30x ausgegeben wurde)

Frage:
Liegt das daran, dass das "printen" unterschiedlich lang dauert und das
signal richtig ausgegeben wird, nämlich je 5ms lang, oder ist das signal
immer unterschiedlich lang.

Andere Frage:
Würde der obrige Code so funktionieren, wenn ich das Print gegen OutPB
ersetzen würde (nicht an 2k, XP, Vista, 7 ;) )?

Es grüßt boqopod ]]> XProfan boqopod http://www.paules-pc-forum.de/forum/xprofan/132216-signal-lpt-ausgeben-win98se.html