Escritura en el Puerto paralelo

[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

[srvet_claudio]

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)

[Ismach]

Genial...
Muchas Gracias por su ayuda Dr Claudio

[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

[srvet_claudio]

El &H significan que son números hexadecimal, sustituir en Harbour por 0x

[Ismach]

Noooo!, jeje.. me imaginaba un algoritmo, con operaciones complejas...
muchas gracias Dr,
Saludos