Page 1 of 1
Escritura en el Puerto paralelo
Posted: Mon Mar 21, 2016 8:11 pm
by Ismach
Estoy migrando un programa realizado en VB6 que escribe sobre puerto paralelo y me encontreé con 2 inconvenientes
1) cual es el valor o mejor dicho a que equivalen los valors &H0 y &HF0 en Harbour? (aclaro que asi estaba en VB6)
Code: Select all
PTOut( OutPort, &H0 ) // 'coloco "0000" en DATA 0 3 del LPT
PTOut( OutPort, &HF0 ) // 'disparo los FlipPlop para grabar el dato
Pause()
PTOut( OutPort, &H0 ) // 'dejo nuevamente en cero todas las salidas del LPT
2) en VB6 podias asignar con OR asi :
Code: Select all
OutByte = OnePaso(Paso (1) ) Or &H10
en harbour se puede utilizar esa logica?
Chas Gracias
Re: Escritura en el Puerto paralelo
Posted: Mon Mar 21, 2016 8:33 pm
by srvet_claudio
Ismach wrote:Estoy migrando un programa realizado en VB6 que escribe sobre puerto paralelo y me encontreé con 2 inconvenientes
1) cual es el valor o mejor dicho a que equivalen los valors &H0 y &HF0 en Harbour? (aclaro que asi estaba en VB6)
Code: Select all
PTOut( OutPort, &H0 ) // 'coloco "0000" en DATA 0 3 del LPT
PTOut( OutPort, &HF0 ) // 'disparo los FlipPlop para grabar el dato
Pause()
PTOut( OutPort, &H0 ) // 'dejo nuevamente en cero todas las salidas del LPT
2) en VB6 podias asignar con OR asi :
Code: Select all
OutByte = OnePaso(Paso (1) ) Or &H10
en harbour se puede utilizar esa logica?
Chas Gracias
1) en Harbour equivalen a 0x00 y 0xF0
2) a = hb_bitOR (b , c)
Re: Escritura en el Puerto paralelo
Posted: Mon Mar 21, 2016 8:45 pm
by Ismach
Genial...
Muchas Gracias por su ayuda Dr Claudio
Re: Escritura en el Puerto paralelo
Posted: Tue Mar 22, 2016 2:33 pm
by Ismach
Dr Claudio
Sere curioso, como haces para averiguar el valor?
Porque ahora me tope con estos: &H10, &H20, &H40, &H80
Code: Select all
OutByte := hb_bitOR( OneStep[ Paso[ 1 ] ], &H10 )
OutByte := hb_bitOR( OneStep[ Paso[ 2 ] ], &H20 )
OutByte := hb_bitOR( OneStep[ Paso[ 3 ] ], &H40 )
OutByte := hb_bitOR( OneStep[ Paso[ 4 ] ], &H80 )
y en otra funcion me quedo la signacion de la direccion del puerto paralelo
en VB6 es &H378, &H278 o &H3BC como seria en Harbour?
Code: Select all
Do Case
Case nValue = 1
OutPort := &H378
Case nValue = 2
OutPort := &H278
Case nValue = 3
OutPort := &H3BC
Case Otherwise
OutPort := &H378
EndCase
desde ya muchas gracias
Re: Escritura en el Puerto paralelo
Posted: Tue Mar 22, 2016 3:37 pm
by srvet_claudio
El &H significan que son números hexadecimal, sustituir en Harbour por 0x
Re: Escritura en el Puerto paralelo
Posted: Tue Mar 22, 2016 4:32 pm
by Ismach
Noooo!, jeje.. me imaginaba un algoritmo, con operaciones complejas...
muchas gracias Dr,
Saludos