XProfan

- Página 1 -

Web
Scanner

Auja - Fein

Gracias!

Exactamente algo como Yo gesucht. Werde Yo heute veces probieren si el va.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

- Página 2 -

Web Scanner

Irgendwie es el Textfile muy schlecht lesbar.

Drum nutze para Codes mejor el [ code ] - Tag, oder [...]

o. [...]

Z.B.:
Kompilieren Marca Separación

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

... y así sieht el Code después de XProfan konvertiert de:
Kompilieren Marca Separación

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

Saludo
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, como tener Yo ahora igual zwei Varianten para testen.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

Yo saber sí deine Schaltungsdaten no, aber hast du schonmal überprüft si el max. Frequenz con deiner max. Frequenz vom Schrittmotor übereinstimmt ?

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

Hast du con un Oszilloskop dein Steuersignal angesehen ?

El Schnittstelle son sólo max. 3,3 Volt de.Reicht dies para deine Schaltung?(Eingangsspannung)
Hast du una saubere Masseverbindung de Schnittstelle a Motorschaltung ?

Hast du una Funk o. Lasermaus ? Störstrahlung en el Motorplatine ?
Tritt el problema con un otro PC auch en ?

Como groß es dein Impuls/Pausenverhältnis ?
Como steil son deine Impulsflanken ?

Wenn sólo una Sache Grenzwertig es, kann el kleinste Änderung einwirken.

En solchen Sachen son Ferndiagnosen siempre schlecht.

Servus
Georg

P.S. Yo sería en Schnittstelle una Atmel Mikrocontroler sólo Frequenzänderungen enviar, dieser producido entonces el neue Frequenz y son entonces saubere Rechteckimpulse el neuen Frequenz a deine Schrittmotorkarte.

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

[...]

Web
Scanner

¡Hola Georg,

soviele Fragen, el el Kern el Sache genau treffen

Also,

rollen wir todos de hinten en.
Un Atmelsteuerung es entonces ya el 2.Schritt y bastante sicher el professionellste Weg.
Alles otro es ungenau y no 100%, el weiß Yo..
Aber primero voluntad Yo sólo encima Windows y el para. Schnittstelle el Ausgaben hacer.

Mi Schaltung es de Ostermann:

www.nc-step.de

Diese Schaltung verarbeitet el parallelen Signale para el Schrittmotore.

El max. Frequenz el Schrittmotoren erreiche Yo no. Es auch no necesariamente el Ziel.
Schrittmotore haben en hoher Drehzahl viel weniger Kraft como en geringer Drehzahl.

20ms Multitasking vom Windows -- sorry, ähh qué es el Por favor,?

Hast du con un Oszilloskop dein Steuersignal angesehen ?
- Noch no, kommt aber todavía dran

Schaltung funktioniert 1a. Mit otro Programmen ya getestet

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

also schonmal kein Eigenbau.

Wenn con otro Programmen el Schaltung va, liegt lo a deinem Übrtragungsprotokoll; sprich deinem Programa.

Nun wäre interessant a wissen, lo que el otro Programas a deine Karte senden y cómo el aussieht qué du sendest .

Puedo me pero no vorstellen el el otro Programas algo vom PC abschalten.

Nochwas: En vielen Firmen erhält uno Ansteuerungsprogrammbeispiele auch en un Basicdialekt.Hast du algo como ya ?

Servus
Georg

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

[...]

Web
Scanner

möchte sólo kurze Rückmeldung geben. El Sperrung encima Blockinput ha el
Sache ya entscheidend mejorado.

Gracias a Alle, para el Infos.
Im Moment schlage I, con Variables y deren Umwandlung herum .
Hex en Sting y umgekehrt usw...

Yo nutze una OUT(378h,XX) Rutina.
El Parallelportadresse voluntad Yo por una variable sustituir, como Yo
todos 3 LPT Ports ansprechen - puede - möchte.
Yo bekomme aber ums verecken el 378h no en una variable gestopft.
Weiss alguien Rat?

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

23.06.2008 ▲

Mach aber Por favor, nen neuen Hilo si se el Thema grob ändert.

378h es en XProfan $378, si 378h en el String liegt kannst esta simplemente por val($+s) después de z.B. float oder long umwandeln porque el h se de val ignoriert. Findet val una $ como erstes Signo así lo el nachfolgende Zahl como Hex betrachten y una dezimalen Rückgabewert zurückliefern.
Kompilieren Marca Separación

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

Si usted lo como Konstante en el Code hast nimmste simplemente el h hinten weg y setzt una $ vorne heran - $378.

23.06.2008 ▲

RGH

¡Hola,

376h bedeutet hier una Hexadezimalen Valor, en XProfan also $376:
Kompilieren Marca Separación

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

Zum Weiterlesen empfohlen: El XProfan-Ayuda, Kapitel 7.9 Zahlensysteme.

Saludo
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 ▲