请问有人做过循环队列吗?VB6里做觉得很麻烦啊.

wiisir

请问有人做过循环队列吗?VB6里做觉得很麻烦啊(移动数据,删除数据,这是传统办法)
电脑一直要接收单片机数据,把这些数据放到循环队列里,以便处理.大神给点思路吧.谢谢啦

lcw_swust

不需移动数据，移动数组的序号即可
我相信以下代码用VB写也不复杂

1. U8 Que_Buf[QBUFSIZE];
   
2. 
   
3. U8 Que_Count=0;//队列元素计数
   
4. U8 Que_Front=0;//队头
   
5. U8 Que_Rear=0;//队尾
   
6. //--------------------------------------------------
   
7. //写队列
   
8. //--------------------------------------------------
   
9. void QueWrite(U8 din)
   
10. {
    
11.         if(Que_Count<QBUFSIZE)
    
12.         {
    
13.                 Que_Count++;
    
14.                 Que_Buf[Que_Rear]=din;
    
15.                 Que_Rear++;
    
16.                 if(Que_Rear>=QBUFSIZE)Que_Rear=0;  
    
17.         }
    
18. }
    
19. //--------------------------------------------------
    
20. //读取队列
    
21. //--------------------------------------------------
    
22. U8 QueRead(void)
    
23. {
    
24.         U8 ret=0;
    
25.         if(Que_Count>0)
    
26.         {
    
27.                 Que_Count--;
    
28.                 ret=Que_Buf[Que_Front];
    
29.                 Que_Front=Que_Front+1;
    
30.                 if(Que_Front>=QBUFSIZE)Que_Front=0;
    
31.         }
    
32.         return ret;
    
33. }
    
34. //--------------------------------------------------
    
35. //队列满（返回1）
    
36. //--------------------------------------------------
    
37. U8 QueFull(void)
    
38. {
    
39.         U8 ret;
    
40.         ret=(Que_Count==QBUFSIZE);
    
41.         return ret;
    
42. }
    
43. //--------------------------------------------------
    
44. //队列空（返回1）
    
45. //--------------------------------------------------
    
46. U8 QueEmpt(void)
    
47. {
    
48.         return (Que_Count==0);
    
49. }
    
50. //--------------------------------------------------
    
51. //队列清空
    
52. //--------------------------------------------------
    
53. void QueClear(void)
    
54. {
    
55.         Que_Count=0;
    
56.         Que_Front=0;
    
57.         Que_Rear=0;
    
58. }

复制代码

modbus

用VB6做很简单，原理和上面一样，可建一个类型，三个成员，一个是数据数组，另两个是指针

pandong

循环队列，以前VB上查过，有的，好好找找。

wiisir

谢谢你们.
"不需移动数据，移动数组的序号即可"。到时存满了，又重头来存？
本人愚钝，不太理解