XProfan

- page 1 -

Web
Scanner

Auja - délicat

merci!

oui c'est ca quelque chose comme habe je gesucht. Werde je aujourd'hui la fois essayer si cela allez.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

- page 2 -

Web Scanner

Irgendwie ist cela Textfile très mal lesbar.

Drum nutze pour Codes besser cela [ code ] - journée, ou bien [...]

bzw. [...]

Z.B.:
Kompilieren Marque Séparation

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

... et so sieht qui Code pour XProfan konvertiert aus:
Kompilieren Marque Séparation

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/'>Fin

Salut
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

net,
vielen Dank Roland, là hab je maintenant juste deux Varianten zum testen.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

je connais oui deine Schaltungsdaten pas, mais la hâte du Schonmal überprüft si qui max. Frequenz avec deiner max. Frequenz vom Schrittmotor übereinstimmt ?

la hâte du qui 20ms Multitasking vom Windows berücksichtigt ?

la hâte du avec einem Oszilloskop dein Steuersignal angesehen ?

qui Schnittstelle gibt seulement max. 3,3 Volt aus.Reicht ca pour deine Schaltung?(Eingangsspannung)
la hâte du une saubere Masseverbindung de Schnittstelle zur Motorschaltung ?

la hâte du une Funk bzw. Lasermaus ? Störstrahlung dans qui Motorplatine ?
Tritt cela Problem avec einem anderen PC aussi sur ?

comment grand ist dein impulsion/Pausenverhältnis ?
comment steil sommes deine Impulsflanken ?

si seulement une l'affaire Grenzwertig ist, peux qui kleinste Changement einwirken.

chez solchen Sachen sommes Ferndiagnosen toujours mal.

salut
Georg

P.S. je serait sur qui Schnittstelle einem Atmel Mikrocontroler seulement Frequenzänderungen envoyons, cette erzeugt ensuite qui neue Frequenz et gibt ensuite saubere Rechteckimpulse qui neuen Frequenz à deine Schrittmotorkarte.

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

[...]

Web
Scanner

allô Georg,

soviele Fragen, qui den Kern qui l'affaire oui c'est ca rendez-vous

Alors,

rollen wir cela ganze de hinten sur.
une Atmelsteuerung ist ensuite déjà qui 2.Schritt et entier sûrement qui professionellste Weg.
Alles autre ist ungenau et pas 100%, cela sais je..
mais erstmal veux je seulement sur Windows et qui para. Schnittstelle qui Ausgaben faire.

mon Schaltung ist de Ostermann:

www.nc-step.de

cet Schaltung verarbeitet qui parallelen Signale pour qui Schrittmotore.

qui max. Frequenz qui Schrittmotoren erreiche je pas. c'est aussi pas absolument cela but.
Schrittmotore avons chez hoher Drehzahl viel moins Kraft comme chez geringer Drehzahl.

20ms Multitasking vom Windows -- sorry, ähh qu'est-ce que c'est s'il te plaît?

la hâte du avec einem Oszilloskop dein Steuersignal angesehen ?
- encore pas, venez mais encore tour

Schaltung funktioniert 1a. avec anderen Programmen bereits getestet

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

GDL

Hi,

alors Schonmal ne...aucune Eigenbau.

si avec anderen Programmen qui Schaltung allez, liegt es à deinem Übrtragungsprotokoll; sprich deinem Programme.

eh bien wäre intéressant trop savons, quoi qui anderen Programme à deine carte senden et comment cela aussieht quoi du sendest .

je peux mir mais pas présenter cela qui anderen Programme irgendwas vom PC débrancher.

Nochwas: chez vielen Firmen erhält on Ansteuerungsprogrammbeispiele aussi dans einem Basicdialekt.la hâte du quelque chose comme déjà ?

salut
Georg

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

[...]

Web
Scanner

voudrais seulement kurze Rückmeldung donner. qui Sperrung sur Blockinput hat qui
l'affaire déjà entscheidend verbessert.

merci à Alle, pour qui Infos.
Im Moment schlage je avec Variablen et en Umwandlung herum .
Hex dans Sting et renversé usw...

je nutze une OUT(378h,XX) Routine.
qui Parallelportadresse veux je par une variable ersetzen, là je
alle 3 LPT Ports ansprechen - peut - voudrais.
je bekomme mais ums verecken qui 378h pas dans une variable gestopft.
Weiss quelqu'un conseil?

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

23.06.2008 ▲

Mach mais s'il te plaît nen neuen Fil si sich cela Thema grob ändert.

378h ist dans XProfan $378, si 378h im String liegt peux cette simple per val($+s) pour z.B. float ou bien long transformer car cela h wird de val ignoriert. Findet val un $ comme erstes marque so wird es qui nachfolgende numéro comme Hex betrachten et une dezimalen Rückgabewert zurückliefern.
Kompilieren Marque Séparation

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

si Du es comme Konstante im Code la hâte nimmste simple cela h hinten weg et mets un $ vorne heran - $378.

23.06.2008 ▲

RGH

Salut,

376h bedeutet ici une Hexadezimalen Wert, dans XProfan alors $376:
Kompilieren Marque Séparation

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

Zum Weiterlesen empfohlen: qui XProfan-Aider, le chapitre 7.9 Zahlensysteme.

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