XProfan

- Page 1 -

Web
Scanner

Auja - nice

Thank you!

very something like have I sought. will be I today time try whether the goes.

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

- Page 2 -

Web Scanner

somehow is the Textfile very badly readable.

thatswhy use for Codes rather the [ code ] - day, or [...]

or. [...]

In example.:
Compile Mark Separation

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

... and so sees the code to XProfan konvertiert from:
Compile Mark Separation

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

Greeting
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

tidy,
many Thanks Roland, there Have I now same two mutants to that testing.

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

I know Yes your Schaltungsdaten not, but have you got Schonmal screen whether The max. frequency with your max. frequency of Schrittmotor übereinstimmt ?

have you got The 20ms Multitasking of windows berücksichtigt ?

have you got with a Oszilloskop your command respected ?

The interface gives only max. 3,3 Volt from.Reicht this for your Circuit?(Eingangsspannung)
have you got a tidy Masseverbindung of interface to Motorschaltung ?

have you got a Funk or. Lasermaus ? Störstrahlung into Motorplatine ?
exit the Completed: another PC on ?

How big is your momentum/Pausenverhältnis ?
How steep are your Impulsflanken ?

If only a thing Grenzwertig is, can The smallest Änderung einwirken.

with such things are Ferndiagnosen always badly.

Hello
Georg

P.s. i'd over The interface one Atmel Mikrocontroler only Frequenzänderungen send, this created then the new frequency and gives then tidy Rechteckimpulse the new frequency on your Schrittmotorkarte.

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

[...]

Web
Scanner

Hello Georg,

soviele ask, The whom core the thing very meet

means,

rumble we the whole of hinten on.
an Atmelsteuerung is then already the 2.step and integrally sure the professionellste lane.
everything else is inaccurate and not 100%, the white I..
but first I will only over windows and the para. interface The expenses make.

my Circuit is of Ostermann:

www.nc-step.de

These Circuit processing The parallelen signals for Schrittmotore.

The max. frequency the Schrittmotoren access I do not. this is neither absolutely the target.
Schrittmotore having with high Drehzahl plenty less strength as with less Drehzahl.

20ms Multitasking of windows -- sorry, ähh what's this thing Please?

have you got with a Oszilloskop your command respected ?
- yet not, comes but yet dran

Circuit functions 1a. with others Programs already tested

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

means Schonmal no Eigenbau.

If with others Programs The Circuit goes, lying it on your Übrtragungsprotokoll; speak your Program.

now would interestingly to know, what The others programs on your ticket Send and How the looks what You send .

I can but not present the The others programs something of PC turn off.

Nochwas: with many companies sustain one Ansteuerungsprogrammbeispiele too in a Basicdialekt.have you got something like already ?

Hello
Georg

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

[...]

Web
Scanner

would like only short feedback give. The Sperrung over Blockinput has The
thing already definitive correct.

thanks on any, for Info.
in the momentum hit I I really and its conversion around .
Hex in Sting and inverse etc...

I use a OUT(378h,XX) routine.
The Parallelportadresse I will by a Variable supplant, I
any 3 LPT Ports address - can - would like.
I get but ums verecken The 378h not a variable stuffed.
knows someone council?

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

06/23/08 ▲

Mach but Please NEN new Thread if itself the Topic roughly changes.

378h is in XProfan $378, if 378h in the string lying can this simply by val($+s) to z.B. float or long transfiguring because the h becomes of val ignoring. finds val one $ first thing characters so becomes it The follow up number as Hex viewing and a dezimalen Return Value zurückliefern.
Compile Mark Separation

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

If you it as Constant in the code have nimmste simply the h hinten lane and setting one $ in front heran - $378.

06/23/08 ▲

RGH

Hi,

376h means here a Hexadezimalen worth, in XProfan means $376:
Compile Mark Separation

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

to that Weiterlesen recommended: The XProfan-Help, chapter 7.9 Zahlensysteme.

Greeting
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

06/23/08 ▲