Comenzando con Mikrobasic

[navaismo]

pues segun la ayuda no hace falta pero deja checo ambas lo de C que me dice aitopes y lo del DIM
-------------------------

Les digo que MKB parece nena, de todo hace un pancho en las lineas de los ifs no mas por no poner parentesis me mando al egg, ya se los puse y ahora donde quiero meter el valor de X en el delay tambien asi que voy a revisar a fondo el prog.

PD: si funciono cambiando la C y la P por otras y tambien funciono anexando a cada una su DIM y probare con la instruccion Vdelay_Ms haber si sirve

------------------------------------------------------------

  me carga el payaso. ya lo modifique pero noto como no se sale de la rutina adc(), ya intente mucho ya lei y nada mi cerebro murio.

aqui les dejo lo que intentaba hacer.

Código: FreeBasic

1. program ADCBlink
2.  
3. dim n       as byte
4. dim x       as byte
5. dim tiempo  as word
6. dim tiempot as string[5]
7. dim msj     as char[20]
8.  
9.  
10. sub procedure adc()
11.  
12. tiempo = adc_read(0)
13. wordtostr(tiempo,tiempot)
14. lcd_out(1,5,tiempot)
15. lcd_out(2,5,msj)
16.  
17.  if tiempo <= 200 then
18.   x = 1000
19.   n=1
20.  end if
21.  
22.  if (tiempo > 200) AND (tiempo <= 500) then
23.   x = 500
24.   n=2
25.  end if
26.  
27.  If (tiempo > 500) AND (tiempo <= 1024) then
28.   x = 250
29.   n=3
30.  end if
31.  
32.  select case n
33.   case 1
34.    msj = "Lento"
35.   case 2
36.    msj = "Medio"
37.   case 3
38.    msj = "Rapido"
39. end select
40. end sub
41.  
42. SUB PROCEDURE BLINK()
43.   PORTB = 255
44.  Vdelay_ms(x)
45.  PORTB = 0
46.  Vdelay_ms(x)
47. END SUB
48.  
49. main:
50.  
51.  ADCON1 = 142
52.  TRISA = 1
53.  TRISB = 0
54.  
55.  Lcd_Config(PORTD,3,2,1,0,PORTD,4,5,6)
56.  Lcd_Cmd(LCD_CURSOR_OFF)
57.  Lcd_Cmd(LCD_CLEAR)
58.  
59.  adc()
60.  BLINK()
61.  delay_ms(1000)
62. goto main
63. end.

Haber si alguien lo pule mejor k yo ya que tengo que terminar otras cosas jejejejeje
Mejor dicho haber si me echan la manita a ver cual es el problema

[navaismo]

Oye Pao dices ser Nueva en esto y yo te veo como pez en el agua, ya veo que a los masters masters en todo. Que bueno es que se unan personas como tu y los demas para apoyar a estos hijos de la desolacion.

[julio_vmd]

Hola a todos, me alegro mucho de que le esteis metiendo caña a Mikrobasic por aqui, os ofrezco mi ayuda en lo que necesiteis, tambien aprobecho para decios que en mi web (biblioteca) hay codigos y utilidades muy utiles para Mkb.

-Control de 8, 16 y 24 servos para Mkb con interrupcion del timer0
-RC5 (envio y recepcion)
-Ayuda para enlazar Mkb y Winpic800
-Ayudas

Saludos y animo con esto 

[aitopes]

Hola!
Al final, ayer antes de ir al encuentro de la almohada logre hacer duncionar el 16F628A con Mikrobasic...tenia algunos fuses mal, pero ya esta.

Ahora tengo una duda: comence a usar funciones, sin problemas, realmente son muy utiles.

Pero....(siempre hay un "pero") cuando intento llamar a una funcion desde dentro de otra obtengo resultados incorrectos, y viendo la ayuda nada dice de que se pueda hacer esto (llamar a una funcion desde otra). Alguien tiene idea si esto es asi?

Gracias!

[aitopes]

Me autorrespondo: SI SE PUEDE!

Tenia unas comillas inncesarias, y por eso me "hacia cosas extrañas" al llamar la funcion.

  Esto esta.....BARBARO!!!!

Saludos.

[olotill]

Heyyy hermanos...

Hace 2 dias di la idea de empezar el tuto de ejemplitos de MKB y ya lo tienen avanzadisimo 

Q excelente, asi con tanta gente activa como no darle duro a este compilador...

BUeno pues vamos para adelante, ya estaremos posteando lo que vaya aprendiendo  ..

UN ABRAZO

[navaismo]

Hola a todos, me alegro mucho de que le esteis metiendo caña a Mikrobasic por aqui, os ofrezco mi ayuda en lo que necesiteis, tambien aprobecho para decios que en mi web (biblioteca) hay codigos y utilidades muy utiles para Mkb

  Hola Julio VMD bienvenido, lo que no entiendo es como no eras parte de esta comunidad, tu pagina la conocia hace ya un rato y es muy util. Que bueo que te nos unas

[navaismo]

  sigo con mis dudas y problemas, pero esta vez solo quiero saber si alguien sabe donde puedo encontrar como quitar o como solucionar eso de los warnings, aunque te dejan compilar, a veces no funciona el programa.

15:19 W-9 Warning: Implicit typecast performed from word to real Termometro.pbas ese el el warning que deseo saber y solo en la ayuda llegan hasta el 5 pero aun asi no dice nada.

[aitopes]

Hola navaismo!

Por el texto del mensaje, me suena a un posible conflicto de tipos, entre "word" y "real"....

Podes postear el codigo?

Saludos!

[Flugplatz]

Bueno, por causas desconocidas llegaron a mis manos dos chips de estos: Controlador serie para pantallas LCD, SYM20AA de MSE ... Por si a alguien le interesa es un 16f627 con 5 euritos de conocimiento ... 

Aquí teneis un sencillo código en MikroBasic para hacerlo funcionar.

Evidentemente, es bastante probable que no tengáis el chip, y en ese caso, vale para extrapolar el uso de algunas cosas; como por ejemplo, el uso de la USART, manejo de algunas funciones para strings y de procedimientos.

Me alegro de que salga adelante este compilador. Yo hace tiempo que lo uso, ya que para hobby es ideal.  A lo mejor, para hacer proyectos profesionales no vale, cosa que habría que estudiar en profundidad, pero al menos, tiene funciones y procedimientos, los primeros 2kBytes son gratis (0000h-03FFFh), es barato, tiene un debuger por software y está en continua evolución ...

Código: vb.net

1. program prueba_sym
2.  
3. dim txt as string[16]
4. dim j as word
5. dim i as word
6.  
7. const BAUD_RATE = 19200
8.  
9. sub procedure Locate(dim x,y as byte)
10.     Usart_write(138)
11.     Usart_write(x)
12.     Usart_write(y)
13. end sub
14.  
15. sub procedure Cursor_Off
16.     Usart_write(131)
17. end sub
18.  
19. sub procedure Cursor_On
20.     Usart_write(130)
21. end sub
22.  
23. sub procedure Cls
24.     Usart_write(12)
25. end sub
26.  
27. main:
28.      ADCON1 = 7
29.      delay_ms(200)
30.      Usart_init(BAUD_RATE)
31.      Cursor_Off
32.      Cls
33.      txt = "prueba_sym.bas"
34.      Usart_write_text(txt)
35.      delay_ms(3000)
36.      Cls
37.      i=0
38.      j=0
39. bucle:
40.      WordToStr(j,txt)
41.      Locate(1,1)
42.      Usart_write_text(txt)
43.      WordToStr(i,txt)
44.      Locate(2,1)
45.      Usart_write_text(txt)
46.      j=j+1
47.      if j = 0 then
48.         i = i + 1
49.         Cls
50.      end if
51.      goto bucle
52. end.

Este código vale para cualquier chip que tenga USART integrada, a 40 Mhz o menos, ya que así lo requiere el BRG para los 19200 baudios. En mi caso probé con 18F242 a 10x4Mhz (40Mhz) y funciona estupéndamente.

Mario

PD: perdonad que lo haya editado varias veces, pero es que con los colores que le ha puesto el SuperAdmin al Geshi Freebasic, al menos yo, que veo menos que un gato de escayola, no veo ni pijo. 

[navaismo]

Hola navaismo!

Por el texto del mensaje, me suena a un posible conflicto de tipos, entre "word" y "real"....

Podes postear el codigo?

es este codigo

Código: OpenOffice.org Basic

1. program Termo1
2.  
3. dim temp  as float
4.        tempt as string[17]
5.  
6. sub procedure configlcd()
7.  lcd_config(portd,3,2,1,0,portd,4,5,6)
8.  lcd_cmd(lcd_cursor_off)
9.  lcd_cmd(lcd_clear)
10. end sub
11.  
12. sub procedure sensado()
13.   configlcd()
14.  
15.  temp = adc_read(0)
16.  temp = temp*(5.0/1024.0)
17.  
18.  floattostr(temp,tempt)
19.  lcd_out(1,2,tempt)
20. end sub
21.  
22. main:
23.  adcon1 = 143
24.  trisa.0  = 1
25.  
26.  sensado()
27.  delay_ms(1000)
28. goto main
29. end.

en genral ese es el codigo, ya que aun no prendo el vmware jajaja el warning apunta a esta linea TEMP = adc_read(0) y si cambio temp por word todo va bien, y yo que queria poner un ejemplo con flotantes. jajajajaj

PD no trabaja asi como esta no se ve nada en el lcd.

[Veguepic]

Ya me esta dando dolor de cabeza. 

No logro entender el uso de las interrupciones, sera que estoy acostumbrado al asm.

Uso la siguiente expresion antes del main.

sub procedure interrupt
   xxxxx                          aqui supongo debe ir lo que quiero que haga
  INTCON = $20               supongo que esto elimina el flag de la interrupcion o debo usar mejor ClearBit(INTCON,RBIF)
end sub

Esta rutina se activa cuando ocurre la interrupcion? is pruebas salen que no pero supongo que algo estoy haciendo mal.

Tendran algun ejemplo con interrupciones como para poder destriparlo. 

Gracias y saludos.

[beatAurex1]

SI que me he atrasado por lo que veo, ya tiene avanzadisimo este tutorial de MIKROBASIc, y yo aun no termino de aprende todo lo de picbasic,, me podrian decir  cuales son algunas de  las ventajas mas importantes de migrar a mikrobasic??

SALUDOS DESDE MEXICO

[aitopes]

Hola Amigo!

Las ventajas que yo le veo son fundamentalmente:

1) Un IDE muy compelto, con pantallas con estadisticas de la memoria usada por cada funcion, etc...Excelente.
2) Las librerias!!! Tenes disponibles librerias para manejo de 1Wire, RS485, MMC/SD, LDC, GLCD,memorias Flas, teclados PS/2, y un lrguisimo etcetera.
3) Ayuda y ejemplos muy completos
4) Es gratis para codigo de hasta 2Kb
5) Se esta actualizandoi permanentemente.
6) Hay un grupo de gente que esta aprendiendo a usarlo en TodoPic!

Saludos!

[navaismo]

Hola esto va dirigido hacia los novatotes como yo en esto del MKB y es un primer video de una miniguia que estoy ahceindo para aquellos que como yo nos es dificl entender el Ingles o mas bien que nos da flojera. Espero hacer otro al ratillo y subirlo en la noche. Este es para ir aprendiendo lo mas mas basico del MKB

aqui el link :
 http://rapidshare.de/files/32405921/miniguia1.rar.html