soy nuevo estoy haciendo un programa sencillo lo compilo no de error lo paso a hex lo grabo con un grabador pic k 150 y no funciona tengo windows 7 64 bit

[luisgoenaga]

[Anobium]

English translation.

I am new I am making a simple program I compile it with no error I pass it to hex I record it with a pic k 150 recorder and it does not work I have windows 7 64 bit

[Anobium]

soy nuevo estoy haciendo un programa sencillo lo compilo no de error lo paso a hex lo grabo con un grabador pic k 150 y no funciona tengo windows 7 64 bit

Soy nuevo en traducir al español con Google Translate. :-)

¿Puede adjuntar su programa a su publicación de respuesta?
Necesitamos verte programar. A veces, algunas personas publican en este foro cuando usan otro compilador que no sea Great Cow BASIC.

Entonces, publique el código.

---

I am new to translating into Spanish using Google Translate. :-)

Can you please attach your program to your response post ?
We need to see you program. Sometimes, some folks post to this forum when using another compiler other than Great Cow BASIC.

So, post the code.

[luisgoenaga]

te adjunto los 3 archivos

[Anobium]

Good, but the do is incorrect.

Try this - note the different wait until

Evan

;Chip Settings
#chip 16F84A,4
#config OSC=XT,PWRTE=ON
#option Explicit

;Defines (Constants)
#define BOTON PORTA.0
#define LUZ PORTB.0

DIR BOTON IN
DIR LUZ OUT

Do
  wait Until BOTON

  SET LUZ ON
  Wait 10 s
  SET LUZ OFF
  Wait 10 s

Loop

[luisgoenaga]

ya probare pero lo he copiado de un ejemplo que hay en inthernet en español
introduccion al great cow basic

[Anobium]

Entonces, propondría que el ejemplo es incorrecto.

Comparta la URL del ejemplo.

[JANIS]

Sí, un ejemplo de ayuda es:

Syntax:

Do [{While | Until} condition]
...
program code
...
<condition> Exit Do
...
Loop [{While | Until} condition]

Example 1:

'This code will flash a light until the button is pressed
#chip 12F629, 4

#define BUTTON GPIO.3
#define LIGHT GPIO.5

Dir BUTTON In
Dir LIGHT Out

Do Until BUTTON = 1
  PulseOut LIGHT, 1 s
  Wait 1 s
Loop

El comando do while !button en mi código se está ejecutando

[luisgoenaga]

funciona pero en el ejemplo no aparece nada de explicit ni wait until
cada chip tiene sus parametros?

[Anobium]

Pero, ¿cómo sabes que funciona?

¿Quieres decir que se compila?

[Anobium]

Intentemos algo sencillo.

Quiero asegurarme de que el OSC esté conectado correctamente.

Try this code. And, ONLY this code.

;Chip Settings
#chip 16F84A,4
#config OSC=XT
#option Explicit

;Defines (Constants)
#define LUZ PORTB.0


Do

  PULSEOUT LUZ, 100 ms
  Wait 100 ms

Loop

¿El LED parpadea? Lo hace aquí.

[luisgoenaga]

lo he probado en un simulador hardware funciona
tu test del osc no te falta un dir y tambien me da error
en PULSEOUT
XT.gcb (7): Error: Delay units not specified
XT.gcb (7): Error: Incorrect parameters in Set, expected: Set variable.bit status

[Anobium]

Post your exact code.

[luisgoenaga]

perdona compila bien voy a grabar y probar en el simulador

[luisgoenaga]

parece que destella pero tengo algun problema en el simulador algun mal contacto voy a revisar todo y lo comprobare otra vez
se puede ver el programa com funciona
yo tengo alguna experiencia con los plc siemens ejemplo
se puede ver como va el programa

[Anobium]

No estoy seguro de cómo tiene un problema de "contacto" con el simulador. Pero, "contacto" puede ser un error en el traductor de Google.

You now know this simple example works. 😃

I would NOT recommend that very old chip. Use something new.

[luisgoenaga]

tengo algunos en stock para probar
lo de contacto puede ser un soldadura mala
te adjunto las 2 fotos

[luisgoenaga]

te mando la otra

[Anobium]

See https://sourceforge.net/p/gcbasic/discussion/579126/thread/64e00f6c/#6f0a

So, for the examples see you Demo folder and I would recommend using the latest Help for the example code.

Where did the tutorial come from?

---

Entonces, para los ejemplos, vea su carpeta de demostración y recomendaría usar la última Ayuda para el código de ejemplo.

¿De dónde vino el tutorial?

[stan cartwright]

soy nuevo estoy haciendo un programa sencillo lo compilo no de error lo paso a hex lo grabo con un grabador pic k 150 y no funciona tengo windows 7 64 bit.
we would need the soy source... sorry, couldn't resist.

[luisgoenaga]

todos los ejemplos funciona perfectamente
tengo una duda se programa igual que un plc
es decir si una entrada es ON
otra salida ON
com puedo hacer una or de 2 entradas y que me de una salida
hay que poner end despues de unprograma siempre

[Anobium]

Las demostraciones son un gran recurso, ya que la Help.

Para configurar el puerto como entrada use DIR porta.0 IN", para configurar el puerto como salida useDIR porta.0 OUT '. El compilador hará todo el trabajo duro por usted.

Para establecer un estado de puerto de salida dependiendo del estado de dos entradas, use algo como

#chip 16F88
#option Explicit

#Define Input1 porta.0
#Define Input2 porta.1
#Define Output1 porta.2

DIR Input1  IN
DIR Input2  IN
DIR Output1 OUT


#OPTION Volatile Output1   'this will ensure a test the state of Output1 is made before the state change is made.  So, this stops Output1 being unset/set on every loop. If you look using an oscilloscope you can see this in action.

Do
    Output1 = Input1  AND Input2
Loop


End

End
'

Considerando "End". El compilador agrega automáticamente, pero siempre debe verificar que el estado final sea el que desea.

[William Roth]

Alternatively ...

#chip 16F88 
#option Explicit

#Define Input1 PortA.0 
#Define Input2 PortA.1 
#Define Output1 PortA.2

DIR Input1 IN
DIR Input2 IN 
DIR Output1 OUT

Do
    IF Input1 = 1 OR Input2 = 1 then
        Set Output1 ON
    ELSE
        SET Output1 OFF
    END IF
Loop

[William Roth]

In the examples above you could AND, OR, XOR depending upon what you need.

[luisgoenaga]

gracias

funcion amuy bien

se puede poner un and con una entrada como condicion de la or
ejemplo
si tengo siempre la entrada 3 y tengo o la 1 o la 2 salida ON
si no tengo la 3 salida 0ff