Welkom,
Gast
. Alsjeblieft
inloggen
of
registreren
.
1 uur
1 dag
1 week
1 maand
blijvend
Login met gebruikersnaam, wachtwoord en sessielengte
Forum
Encyclopedie
Help
Zoek
Kalender
Inloggen
Registreren
Doel:
€250.00
Donaties:
€50.00
Per saldo:
€-200.00
Steun ons nu!
Laatst bijgewerkt
op 03-01-2024
Vacature:
secretaris bestuur
Algemeen
Plaatje uploaden
Vraag en aanbod
Fotowedstrijd
Modelspoorwinkels
Youtube kanaal
Modelspoorkaart
De stichting
De stichting en team
Contact
Financieel
Algemene voorwaarden
Commerciële accounts
Forumregels
Disclaimer
F.A.Q.
Recente berichten
BeneluxSpoor.net forum - Recente berichten
Abonneer op Webslice
Raadplaatje
door
eemstede
Vandaag
om 20:43:38
NS GLY omspuiten en opschriften
door
orientexpress
Vandaag
om 20:42:10
De Hondsrugbaan
door
Noordernet
Vandaag
om 20:38:51
Engelse wagon uit 1930 opgegraven in Antwerpen
door
Entity
Vandaag
om 20:37:25
Hengelo in 1981-1982, maar dan anders: Kassenberg in N
door
1200blauw
Vandaag
om 20:32:41
Onlangs gespot - gefotografeerd, de foto's
door
eemstede
Vandaag
om 20:31:17
Welke Vallejo kleur voor drijfstangen van een DB stoomlocomotief?
door
Ronald69
Vandaag
om 20:00:39
US diorama in H0
door
Wim Vink
Vandaag
om 19:54:20
Toon hier je nieuwe (model-) spooraanwinst(en)...
door
arnout
Vandaag
om 19:53:27
Mijn eerste H0-modeltreinbaan in aanbouw
door
Wim Vink
Vandaag
om 19:52:07
Punt- en hartstukken
door
Klaas Zondervan
Vandaag
om 19:41:21
MARDEC, de Multifunctionele ARduino dcc DECoder.
door
bord4kop
Vandaag
om 19:34:37
De (3d) knutsels van Ronald.
door
gdh
Vandaag
om 19:22:56
Piko NS 2015 stroomafname probleem
door
Ben
Vandaag
om 19:08:30
Bauarbeiten im gange
door
ruudns
Vandaag
om 18:50:26
HSM D1715
door
vpeters1984
Vandaag
om 17:34:25
Beekdaelen in H0
door
Stieven76
Vandaag
om 17:17:41
Al mijn goede ideeën...
door
Monobrachius
Vandaag
om 17:10:33
Gebruik je Arduino zonder te "programmeren" ;)
door
Rsd1000
Vandaag
om 17:07:59
Ombouw/Pimpen Bolle neuzen
door
bollen neus
Vandaag
om 15:58:15
Kleine Baan in H0 (≤ 0.5m²)
door
Jack Black (NS1220)
Vandaag
om 15:06:14
U-vorm beperkte ruimte (H0 C-rails)
door
Jelmer
Vandaag
om 14:58:04
Onlangs gespot - gefotografeerd, de links
door
Jeroen Water
Vandaag
om 14:33:00
N spur scenery elementen maken van gips of klei?
door
Dave.......
Vandaag
om 14:30:06
De overeenkomst tussen een Ovaalramer en een Motorpost.
door
RK
Vandaag
om 14:28:54
BMB-Module: “Corfe Castle Station”
door
Hans van de Burgt
Vandaag
om 14:07:52
welk jaar ging Marklin OVP voor wagons van blauw naar wit
door
Railman
Vandaag
om 13:40:42
GSS Jubileumbaantje (0e / 0n30)
door
MacArthur
Vandaag
om 12:55:30
NTM P1 in Schaal-1
door
MaraNCS
Vandaag
om 11:39:38
Rio Grande Southern - Lizard Head Pass
door
Hans GJ
Vandaag
om 11:30:20
Je bent hier:
BeneluxSpoor.net forum
|
Vraag en antwoord
|
Digitaal
|
P50x commando's
« vorige
volgende »
Print
Pagina's: [
1
]
Omlaag
Auteur
Topic: P50x commando's (gelezen 4122 keer)
**Jelle**
Offline
Berichten: 322
P50x commando's
«
Gepost op:
15 februari 2007, 23:43:13 »
Vandaag bezig geweest met een (mislukt)
experiment. Ik gebruik eigen in Visual Basic geschreven software in combinatie met MrDirect.
De dekoders stonden in MrDirect op 14 snelheidsstappen (type NB), vandaag heb ik dat overgezet naar type N1, dus met 28 snelheidsstappen. Alle dekoders zijn ook omgeprogrammeerd naar 28 snelheidsstappen, dus CV29 op 2 gezet.
Vanuit MrDirect werkte alles weer direkt zonder problemen, maar vanuit mijn besturingsprogramma krijg ik er niet een meer in beweging. Het gekke is dat het omkeren van rijrichting wel werkt, (binnen)verlichting aan en uit werkt ook, maar de snelheidsinformatie komt niet aan in MrDirect. Terwijl dat voorheen wel werkte.
De commando's worden binair doorgegeven aan MrDirect volgens het volgende format:
*** XLok (080h) - length = 1+4 bytes
1st low byte of Lok address
2nd high byte of Lok address
3rd speed (0..127: 0 = Stop, 1 = Stop/Em.Stop)
N.B. bit #7 is reserved for future use!
4th this byte has the following format:
bit# 7 6 5 4 3 2 1 0
+-----+-----+-----+-----+-----+-----+-----+-----+
|ChgF |Force| Dir | FL | F4 | F3 | F2 | F1 |
+-----+-----+-----+-----+-----+-----+-----+-----+
Is iemand wel eens vaker tegen dit probleem aangelopen?
Jelle.
Gelogd
NS, DDW, Edits booster, LocoNet met LbServer, besturing met eigen geschreven software in VB
Wim Ros
BHV
Offline
Berichten: 7820
Alleen de waarheid ligt in het midden.
Re: P50x commando's
«
Reactie #1 Gepost op:
15 februari 2007, 23:57:14 »
Jelle,
Zend je dan ook de snelheids stappen volgens die 28 stappen.
0.127. Als je stap 127 zend zal hij op volle snelheid moeten gaan rijden.
De waardes voor de tussen stappen verschillen met de waardes voor 14 stappen.
Mvg
Wim.
DEFINT A-Z
FUNCTION P50_Speed% (P50X_Speed AS INTEGER)
SELECT CASE P50X_Speed
CASE 0, 1
P50_Speed = 0
CASE ELSE
P50_Speed = INT((P50X_Speed * 2) / 19) + 1
END SELECT
END FUNCTION
(Obvioulsy, it cannot ever happen that P50_Speed() = 15.)
The opposite conversion is performed using a table, indexed by the
P50 speed:
0, 2, 10, 19, 29, 38, 48, 57, 67, 76, 86, 95, 105, 114, 127, 1
The speed conversion routines for the other protocols/speed steps are:
Speed_15:
(FMZ protocol: 0 = Stop, 1..15 = non-stop speed steps)
IF (P50X_Speed = 0) OR (P50X_Speed = 1) THEN
Speed_15 = 0
ELSE
Speed_15 = INT((P50X_Speed + 1) / 9) + 1
ENDIF
Speed_27:
(DCC 27 protocol: 0 = Stop, 1 = Em. Stop, 2..28 = non-stop speed steps)
IF (P50X_Speed = 0) OR (P50X_Speed = 1) THEN
Speed_27 = P50X_Speed
ELSE
IF (P50X_Speed <
THEN
Speed_27 = 2
ELSE
nTemp = P50X_Speed * 2
nTemp1= INT(nTemp / 9)
nTemp2= nTemp - (nTemp1 * 9)
IF (nTemp2 >= 7) THEN
nTemp1 = nTemp1 + 2
ELSE
nTemp1 = nTemp1 + 1
ENDIF
IF nTemp1 > 28 THEN
Speed_27 = 28
ELSE
Speed_27 = nTemp1
ENDIF
ENDIF
ENDIF
Speed_28:
(DCC 28 protocol: 0 = Stop, 1 = Em. Stop, 2..29 = non-stop speed steps)
IF (P50X_Speed = 0) OR (P50X_Speed = 1) THEN
Speed_28 = P50X_Speed
ELSE
Speed_28 = INT(((P50X_Speed - 2) * 2) / 9) + 2
ENDIF
Speed_31:
(Selectrix protocol: 0 = Stop, 1..31 = non-stop speed steps)
IF (P50X_Speed = 0) OR (P50X_Speed = 1) THEN
Speed_31 = 0
ELSE
IF (P50X_Speed < 4) THEN
Speed_31 = 1
ELSE
Speed_31 = INT(P50X_Speed / 4)
ENDIF
ENDIF
«
Laatst bewerkt op: 16 februari 2007, 00:02:10 door Wim Ros
»
Gelogd
Intellibox via LocoNet-Interface met s88 via een s88 naar LocoNet adapter.Of L.NET-S88SD16-N Marklin 6021 via een 63820, LocoNet-Interface en een s88 naar LocoNet adapter. Lenz Digital Plus via LI101F of s88XPressNetLi s88SD16-n.
http://rosoft.boards.net
**Jelle**
Offline
Berichten: 322
Re: P50x commando's
«
Reactie #2 Gepost op:
16 februari 2007, 00:20:39 »
Hallo Wim,
bedankt voor je reaktie. Ik heb net even rechtstreeks in de regel die de lokcommando's verzendt de snelheid op 127 gezet, geen reaktie. In MrDirect bleef de snelheid gewoon 0.
Groetjes, Jelle.
Gelogd
NS, DDW, Edits booster, LocoNet met LbServer, besturing met eigen geschreven software in VB
Wim Ros
BHV
Offline
Berichten: 7820
Alleen de waarheid ligt in het midden.
Re: P50x commando's
«
Reactie #3 Gepost op:
16 februari 2007, 00:47:14 »
En hoe ziet die regel er dan verder uit?
Mvg
Wim.
Gelogd
Intellibox via LocoNet-Interface met s88 via een s88 naar LocoNet adapter.Of L.NET-S88SD16-N Marklin 6021 via een 63820, LocoNet-Interface en een s88 naar LocoNet adapter. Lenz Digital Plus via LI101F of s88XPressNetLi s88SD16-n.
http://rosoft.boards.net
**Jelle**
Offline
Berichten: 322
Re: P50x commando's
«
Reactie #4 Gepost op:
16 februari 2007, 17:09:09 »
Goedendag,
De aanstuurregel om loks aan te sturen vanuit Visual Basic ziet er als volgt uit:
MDIForm1.MrDirectAanst.Output = "X" + Chr$(&H80) + Chr$(DekAdres(LokNo) And &HFF) + Chr$(DekAdres(LokNo) \ 256) + Chr$(AanstSnel) + Chr$(&H80 + &H40 * Force + &H20 * Ri + F14)
Chr$(DekAdres(LokNo) And &HFF), low byte of Lok adress
Chr$(DekAdres(LokNo) \ 256), high byte of Lok adress
Chr$(AanstSnel), snelheid
Chr$(&H80 + &H40 * Force + &H20 * Ri + F14), hierin zit de richting, funkties etc.
Aan deze regel is niets veranderd sinds het omzetten naar 28 rijstappen. De waarde AanstSnel bevat de gewenste snelheid, en deze heeft allerlei waarden tussen 0 en 127 gehad, maar in MrDirect gebeurde niets.
Omzetten rijrichting, funkties etc werkt wel.
Jelle.
Gelogd
NS, DDW, Edits booster, LocoNet met LbServer, besturing met eigen geschreven software in VB
Wim Ros
BHV
Offline
Berichten: 7820
Alleen de waarheid ligt in het midden.
Re: P50x commando's
«
Reactie #5 Gepost op:
16 februari 2007, 18:38:45 »
Dit is een onderdeel van een werkend voorbeeld programma te vinden op
http://groups.yahoo.com/group/IBX/files/Simple_VB6_Program/
Misschien dat je even lid moet worden van de group.
P50XCmd Chr(XLok) + Chr(Adresse% And &HFF) + Chr(Adresse% \ 256) + Chr(Vitesse%) + Chr(&HC0 + (Direction% And &H1) * 32 + (Lumiere% And &H1) * 16 + (F14% And &HF))
De juiste waardes voor Vitesse%
staan in spd
Case "28", "28ADR", "28DAC"
Select Case spd
Case 0: spd = 0
Case 1: spd = 2
Case 2: spd = 7
Case 3: spd = 11
Case 4: spd = 16
Case 5: spd = 20
Case 6: spd = 25
Case 7: spd = 29
Case 8: spd = 34
Case 9: spd = 38
Case 10: spd = 43
Case 11: spd = 47
Case 12: spd = 52
Case 13: spd = 56
Case 14: spd = 61
Case 15: spd = 65
Case 16: spd = 70
Case 17: spd = 74
Case 18: spd = 79
Case 19: spd = 83
Case 20: spd = 88
Case 21: spd = 92
Case 22: spd = 97
Case 23: spd = 101
Case 24: spd = 106
Case 25: spd = 110
Case 26: spd = 115
Case 27: spd = 119
Case 28: spd = 124
'Function to send a P50Xa (P50X ASCII) or P50Xb cmd.
'It returns the ASCII reply to the cmd
Public Function P50XCmd(s As String)
If Programmer.Port.PortOpen Then
send = IIf(Asc(Left(s, 1)) < &H80, s + vbCr, s)
If P50 Then
send = "x" + send
End If
While Programmer.Port.OutBufferCount > 0: Wend
With Programmer.Port
j = Len(send)
For i = 1 To j
Tmp = Left(send, 1)
send = Mid(send, 2)
.Output = Tmp
Next
End With
If Asc(Left(s, 1)) >= &H80 Then
Call Events(s)
else
r$ = ""
Do
t% = WaitRx%()
If t% = -1 Then 'I.e. if rx timeout
Debug.Print (t%)
P50XCmd = ""
Exit Function
Else
r$ = r$ + Chr$(t%)
End If
Loop While t% <> Asc(IB_OK_Prompt): '"]"
P50XCmd = r$
End If
End Function
«
Laatst bewerkt op: 16 februari 2007, 18:55:29 door Wim Ros
»
Gelogd
Intellibox via LocoNet-Interface met s88 via een s88 naar LocoNet adapter.Of L.NET-S88SD16-N Marklin 6021 via een 63820, LocoNet-Interface en een s88 naar LocoNet adapter. Lenz Digital Plus via LI101F of s88XPressNetLi s88SD16-n.
http://rosoft.boards.net
Print
Pagina's: [
1
]
Omhoog
« vorige
volgende »
Je bent hier:
BeneluxSpoor.net forum
|
Vraag en antwoord
|
Digitaal
|
P50x commando's