XProfan

- Page 1 -

Web
Scanner

Auja - Fein

Danke!

Genau sowas habe ich gesucht. Werde ich heute mal probieren ob das geht.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

- Page 2 -

Web Scanner

Irgendwie ist das Textfile sehr schlecht lesbar.

Drum nutze per Codes besser das [ code ] - Tag, oder [...]

bzw. [...]

Z.B.:
Kompilieren Markieren Separieren

Dieser Source stammt von http://www.activevb.de
und kann frei verwendet werden. Für eventuelle Schäden
wird nicht gehaftet.
Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
Ansonsten viel Spaß und Erfolg mit diesem Source!
------------- Anfang Projektdatei Project1.vbp -------------
--------- Anfang Formular Form1 alias Form1.frm  ---------
Steuerelement: Timersteuerelement Timer1
Steuerelement: Schaltfläche Command1
Steuerelement: Beschriftungsfeld Label1
Option Explicit
Private Declare Function BlockInput Lib user32 (ByVal fBlock _
As Long) As Long
Const API_FALSE As Long = 0&
Const API_TRUE As Long = 1&
Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
Call BlockInput(API_TRUE)
End Sub
Private Sub Timer1_Timer()
Static Cnt As Long
Cnt = Cnt + 1

If Cnt > 10 Then

    Cnt = 0
    Timer1.Enabled = False
    Call BlockInput(API_FALSE)
    Label1.Caption =

Else

    Label1.Caption = Verbleibende Zeit bis zur Rückstellung:  _
    & Format$(CStr((10 - Cnt)) / 2, 0.0)
    End If
    End Sub
    ---------- Ende Formular Form1 alias Form1.frm  ----------
    -------------- Ende Projektdatei Project1.vbp ------------>--

RGH

... und so sieht der Code nach XProfan konvertiert aus:
Kompilieren Markieren Separieren

Dieser Source stammt von http://www.activevb.de
und kann frei verwendet werden. Für eventuelle Schäden
wird nicht gehaftet.
Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
Ansonsten viel Spaß und Erfolg mit diesem Source!
------------- Anfang Projektdatei Project1.vbp -------------
--------- Anfang Formular Form1 alias Form1.frm  ---------
Steuerelement: Timersteuerelement Timer1
Steuerelement: Schaltfläche Command1
Steuerelement: Beschriftungsfeld Label1
cls
var Command1& = create(Button, %hWnd, Push Me!, 10, 10,  80, 20)
var Label1&   = create(Text,   %hWnd, ,         10, 40, 400, 20)
var cnt&      = 0
Def BlockInput(1) !user32.dll,BlockInput
Def &API_FALSE 0
Def &API_TRUE  1

Proc Command1_Click

    SetTimer 500
    BlockInput(&API_TRUE)

EndProc

PROC Timer1_Timer

    Cnt& = Cnt& + 1

    If Cnt& > 10

        Cnt& = 0
        KillTimer
        BlockInput(&API_FALSE)
        SetText Label1&,

    Else

        SetText Label1&, Verbleibende Zeit bis zur Rückstellung:  + Format$(0.0, (10 - Cnt&) / 2)

    EndIf

EndProc

---------- Ende Formular Form1 alias Form1.frm  ----------
-------------- Ende Projektdatei Project1.vbp --------------
HAUPTPROGRAMM
-------------

While 1

    WaitInput

    If Clicked(Command1&)

        Command1_Click

    EndIf

    Timer1_Timer

EndWhile

4 href='./../../function-references/xprofan/end/'>End

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Web
Scanner

Sauber,
vielen Dank Roland, da hab ich jetzt gleich zwei Varianten zum testen.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

ich kenne ja deine Schaltungsdaten nicht, aber hast du schonmal überprüft ob die max. Frequenz mit deiner max. Frequenz vom Schrittmotor übereinstimmt ?

Hast du die 20ms Multitasking vom Windows berücksichtigt ?

Hast du mit einem Oszilloskop dein Steuersignal angesehen ?

Die Schnittstelle gibt nur max. 3,3 Volt aus.Reicht dies per deine Schaltung?(Eingangsspannung)
Hast du eine saubere Masseverbindung von Schnittstelle zur Motorschaltung ?

Hast du eine Funk bzw. Lasermaus ? Störstrahlung in die Motorplatine ?
Tritt das Problem mit einem anderen PC auch auf ?

Wie grande ist dein Impuls/Pausenverhältnis ?
Wie steil sind deine Impulsflanken ?

Wenn nur eine Sache Grenzwertig ist, kann die kleinste Cambiamento einwirken.

Bei solchen Sachen sind Ferndiagnosen immer schlecht.

Servus
Georg

P.S. Ich würde circa die Schnittstelle einem Atmel Mikrocontroler nur Frequenzänderungen schicken, dieser erzeugt dann die neue Frequenz und gibt dann saubere Rechteckimpulse der neuen Frequenz an deine Schrittmotorkarte.

Windows7 Xprofan 8,9,10 [...]

[...]

Web
Scanner

Hallo Georg,

soviele Fragen, die den Kern der Sache genau treffen

Also,

rollen wir das ganze von hinten auf.
Eine Atmelsteuerung ist dann schon der 2.Schritt und ganz sicher der professionellste Weg.
Alles andere ist ungenau und nicht 100%, das weiß ich..
Aber erstmal will ich nur circa Windows und die para. Schnittstelle die Ausgaben machen.

Meine Schaltung ist von Ostermann:

www.nc-step.de

Diese Schaltung verarbeitet die parallelen Signale per die Schrittmotore.

Die max. Frequenz der Schrittmotoren erreiche ich nicht. Das ist auch nicht unbedingt das Ziel.
Schrittmotore haben bei hoher Drehzahl viel weniger Kraft als bei geringer Drehzahl.

20ms Multitasking vom Windows -- sorry, ähh was ist das bitte?

Hast du mit einem Oszilloskop dein Steuersignal angesehen ?
- Noch nicht, kommt aber noch dran

Schaltung funktioniert 1a. Mit anderen Programmen bereits getestet

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

also schonmal kein Eigenbau.

Wenn mit anderen Programmen die Schaltung geht, liegt es an deinem Übrtragungsprotokoll; sprich deinem Programm.

Nun wäre interessant zu wissen, was die anderen Programme an deine Karte senden und wie das aussieht was du sendest .

Ich kann mir aber nicht vorstellen das die anderen Programme irgendwas vom PC abschalten.

Nochwas: Bei vielen Firmen erhält man Ansteuerungsprogrammbeispiele auch in einem Basicdialekt.Hast du sowas schon ?

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Web
Scanner

möchte nur kurze Rückmeldung geben. Die Sperrung circa Blockinput hat die
Sache schon entscheidend verbessert.

Danke an Alle, per die Infos.
Im Moment schlage ich mit Variablen und deren Umwandlung herum .
Hex in Sting und umgekehrt usw...

Ich nutze eine OUT(378h,XX) Routine.
Die Parallelportadresse will ich durch una variabile ersetzen, da ich
alle 3 LPT Ports ansprechen - können - möchte.
Ich bekomme aber ums verecken die 378h nicht in una variabile gestopft.
Weiss jemand Rat?

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

23.06.2008 ▲

Mach aber bitte nen neuen Thread wenn sich das Thema grob ändert.

378h ist in XProfan $378, wenn 378h im String liegt kannst diesen einfach per val($+s) nach z.B. float oder long umwandeln denn das h wird von val ignoriert. Findet val ein $ als erstes Zeichen so wird es die nachfolgende Zahl als Hex betrachten und einen dezimalen Rückgabewert zurückliefern.
Kompilieren Markieren Separieren

s$=378h
var a&=val($+s$)e>

Wenn Du es als Konstante im Code hast nimmste einfach das h hinten weg und setzt ein $ vorne heran - $378.

23.06.2008 ▲

RGH

Ciao,

376h bedeutet hier einen Hexadezimalen Wert, in XProfan also $376:
Kompilieren Markieren Separieren

Declare Mein Port%
MeinPort% = $376
OutP(MeinPort&, 123)re>

Zum Weiterlesen empfohlen: Die XProfan-Aiuto, Kapitel 7.9 Zahlensysteme.

Saluto
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

23.06.2008 ▲