Comenzando con Mikrobasic

[navaismo]

Hi si como quieran si quieren ahcerlo y yo lo pongo, aunque no soy muy ducho en eso de modificar , y si le pasamos la estafeta a los moderadores jajaja para que metan un primer post antes del mio con el indice

[samshiel_pic]

Hola navaismo por el mero hecho de no molestar a los moderadores que yo creo que elmasvital esta con otros quemaderos de cabeza, hago yo el indice y te lo paso completo en un .txt y solo tienes que copiarlo en el primer post ok?

[navaismo]

va, hecho asi quedamos aunque me referia a los moderadores de este subforo, en cuanto lo tengas me lo mandas por privado si quieres

[samshiel_pic]

ea pues ya tenemos indice  

[navaismo]

Esta Genial samsheil gracias a ver si Lord puede hacer una pagina antes para que solo se vea el indice

[samshiel_pic]

ok 

[LordLafebre]

Esta Genial samsheil gracias a ver si Lord puede hacer una pagina antes para que solo se vea el indice

Hola:

Max, el primer post fue creado por ti, asi que eso lo puedes hacer tu luego, ahora voy a copiar el post de samshiel_pic al primer mensaje.

[samshiel_pic]

Hola chicos siguiendo con el hilo me gustaria realizar un dado digital que muestre en el 7 segmentos un numero aleatorio pero no se como conseguir esto.

Hay algun comando especifico para obtener el numero aleatorio? como puede ser en C el srand o otro ejemplo en C de conseguir el numero aleatorio:

Código: C

1. numeroaleatorio=get_rtcc() %x;

donde x es el numero por el cual vamos a dividir y nos dara en numeroaleatorio un numero del cero a x.

[samshiel_pic]

Hola otra vez!!
PAOLA09 o Gio o navaismo o alguien sabe algun ejemplo que muestre el uso del comando Button por que yo  lo he usado pero como no tengo mucha idea me sale mas corto con if´s, yo creo que usando button tendria que ser mas corto no?

veis como me iva a poner pesao con las preguntas? jejejeje 

[LordLafebre]

Hola:

en la ayuda hay ejemplos para cada uno de los comandos, este es el de button:

Código: FreeBasic

1. while true
2.   if Button(PORTB, 0, 1, 1) then
3.     oldstate = 255
4.   end if
5.   if oldstate and Button(PORTB, 0, 1, 0) then
6.     PORTD = not(PORTD)
7.     oldstate = 0
8.   end if
9. wend

Con respecto a lo de Random no se si soporte MKB, busque alguna funcion y no la encontre 

[samshiel_pic]

Hola GIO que tal. Ok, si donde primero mire fue en el help pero me salio ese ejemplo. De echo el programa mio  [ Contador 0 a 9 ascendente (RAO) o descendente (RA1) usando comando button (7seg)] esta hecho asi. pero la duda mia es que hay que usar mas variables y lineas que con dos if, o si es que hubiera otro uso de BUTTON. Era solo eso

[navaismo]

No pues pareceserque no hay funciones random en MKB pero podrias hacer una subfuncion no?

[samshiel_pic]

Bueno pues probaremos a ver que sale. Si alguien tiene una idea de como hacerlo.
 Yo me parece que en ensabler lo hacia cogiendo un valor del TMRO y despues lo dividia por el numero de digitos que quisiera tener ( de 0 a 6 ) y se coje el resto de la operacion. En lenguaje C es de las dos maneras que dije antes, pero en basic ni idea.

[LordLafebre]

Hola:

En especifico este basic no tiene esa funcion, PBP y Proton si la tienen y es Random, pero con MKB no he encontrado nada que se le parezca, no esta ni como random ni de proton como Rnd ni nada, asi que no quedara de otra que crearse una funcion.

[navaismo]

  Mas golpes bajos de MKB  el primero fue que para una comunicacion serie no alcanzo la memoria del PIC16F84A me pase al 877a para que no diga que no hay rom.

Bueno resulta que para usar la comunicacion RS232 mediante software es necesario considerar las interrupciones y la velocidad del crystal, como? pues no se ya cambie el crystal desde 4 a 20 y nada no me da los buads que quiero. alguno idea?? aqui el prog que queria hacer era para un ejejmlo ya llevo 3 que no mas no.

Código: FreeBasic

1. dim i        as byte
2.     data     as byte
3.     datarx   as byte
4.     it       as char[3]
5.     datarxt  as char[3]
6.    
7. sub procedure lcdconfig()
8.  lcd_config(PORTB,0,1,2,3,PORTB,4,5,6)
9.  LCD_CMD(LCD_CURSOR_OFF)
10.  LCD_CMD(LCD_CLEAR)
11. END SUB
12.  
13. sub procedure TX()
14.  lcdconfig()
15.  SOFT_UART_INIT(PORTA,0,1,2400,0) ' COMUNICACION SERIE RX-RAO, TXR-A1, 9600BPS, NO INVERTIDO
16.  
17.   FOR i = 0 to 50
18.    soft_uart_write(i)
19.    bytetostr(i,it)
20.    lcd_out(1,1,"enviando: ")
21.    lcd_out_cp(it)
22.    delay_ms(500)
23.   next i
24. end sub
25.  
26. sub procedure RX()
27.  lcdconfig()
28.  SOFT_UART_INIT(PORTA,0,1,2400,0) ' COMUNICACION SERIE RX-RAO, TXR-A1, 9600BPS, NO INVERTIDO
29.  datarx = soft_uart_Read(data)
30.  bytetostr(datarx,datarxt)
31.  lcd_out(2,1,"Recibido: ")
32.  lcd_out_cp(datarxt)
33.  delay_ms(500)
34. end sub
35.  
36.  
37. main:
38.  
39.  ADCON1 = 7
40.  TRISA  = 9
41.  
42.  IF PORTA.3 = 1 THEN
43.   TX()
44.  ELSE
45.   RX()
46.  END IF
47.  
48. GOTO MAIN
49. END.

hay que anexar al indice el nuevo ejemlo de Samsheil