200----分，求AT24C512写入方法.--解决了，新开帖再给分-CSDN论坛

200----分，求AT24C512写入方法.--解决了，新开帖再给分

硬件/嵌入开发 > 单片机/工控

收藏回复

[问题点数：100分，结帖人haoya]

⋅xmlhttp 疑难期待大侠提供思路 ⋅50分求 MSDN中 VB6.0 VISDATA的源码(打包谢谢)~~~~ ⋅VB ADODB对象 + sybase DB文件问题。。。。大虾快来救命。。 更多帖子 关注私信空间博客 haoya 等级 本版专家分：0 结帖率 92.86%: 我是一个初学者，想制作一个读写AT24C512的电路，和程序。
我采用VB+ DLPORTIO 开发读写程序。
资料借鉴的I2C协议规范 + ATC512的文档
和网上找的一篇帖子。
计算机并口模拟I2C总线的试验<http://www.rs232.net.cn/technic/tech-20.htm>（实验电路，就是用的那个）
但是由于，懂的不多，呵呵，没有成功，而且做出来的软件，在接受应答信号时根本没有错误提示。即使并口没有接入设备，软件写部分都能够正常运行。
所以，望高手，提供一个详细的方案，以及在编程中的注意事项。

小弟将不胜感激！！

2005-08-05 13:38:11

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅xmlhttp 疑难期待大侠提供思路 ⋅50分求 MSDN中 VB6.0 VISDATA的源码(打包谢谢)~~~~ ⋅VB ADODB对象 + sybase DB文件问题。。。。大虾快来救命。。 更多帖子 关注私信空间博客 haoya 等级 本版专家分：0: 或者QQ 39893523联系。
急呀。
大虾们，紧急求助！

2005-08-05 13:51:08

点赞只看TA 引用举报 #1得分 0

⋅LPC4337 双核开发问题，M0启动后，M4启动不了。

⋅stm32 cubemx i2c 之bug的解决办法（供大家参考）

⋅Centos7下Samba配置问题

更多帖子

关注私信空间博客

rzsheng

等级

本版专家分：7039

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！: 不要着急，看看别人的例子

2005-08-05 14:55:02

点赞只看TA 引用举报 #2得分 0

⋅xmlhttp 疑难期待大侠提供思路 ⋅50分求 MSDN中 VB6.0 VISDATA的源码(打包谢谢)~~~~ ⋅VB ADODB对象 + sybase DB文件问题。。。。大虾快来救命。。 更多帖子 关注私信空间博客 haoya 等级 本版专家分：0: 我没有使用API中的sleep延时，我用的for循环，但是，不能收到应答信号，连接是否正常都判断不出来呀。

2005-08-05 15:43:09

点赞只看TA 引用举报 #3得分 0

⋅算法请教，根据2组互斥对，找出一个数组使得和每组互斥对的交集为1

⋅在msingw中编译 textinfo出现 mkdir 参数太多 error

⋅如何在C中调用 Dlg类中函数？

更多帖子

关注私信空间博客

ppcust

等级

本版专家分：6331

勋章

GitHub 绑定GitHub第三方账户获取

黄花 2004年9月硬件/嵌入开发大版内专家分月排行榜第二
2004年8月硬件/嵌入开发大版内专家分月排行榜第二

蓝花 2004年10月硬件/嵌入开发大版内专家分月排行榜第三: 不如在下面加个51单片机。。。这样控制就方便了。。

pc上api对硬件操作很麻烦。时序不好控制

2005-08-05 16:35:48

点赞只看TA 引用举报 #4得分 0

⋅masm 中调用c中结构体数组变量如何声明 ⋅pci总线io地址如何译码? ⋅大家认为一个51开发板需要具备哪些功能 更多帖子 关注私信空间博客 阳春布德泽 等级 本版专家分：1513: 你在pure　ｄｏｓ下看看可否成功！　我认为在ｗｉｎｄｏｗｓ下　＋　你那个端口驱动可能会有问题　或者你用ｐｏｒｔｔａｌｋ试一下

2005-08-05 18:35:39

点赞只看TA 引用举报 #5得分 0

⋅马甲居然还存活 ⋅SQLite数据库如何查询两个日期段内的数据？ ⋅恭喜嵌入式板块的逝去的日子获奖 更多帖子 关注私信空间博客 flowercity 等级 本版专家分：8400: #define PAGE_SIZE 8

sbit sda_rom=P1^3;
sbit clk_rom=P1^2;

void Set_Sda(bit sw)
{
sda_rom=sw;
}

void Set_Scl(bit sw)
{
clk_rom=sw;
}

void Set_Start_Condition()
{
Set_Scl(0);
Set_Sda(1);
Set_Scl(1);
Set_Sda(0);
}

void Set_Stop_Condition()
{
Set_Scl(0);
Set_Sda(0);
Set_Scl(1);
Set_Sda(1);
}

void Send_Byte_Memory(uchar  value)
{
uchar  i,shift;
shift=0x80;
for(i=0;i<8;i++)
{
         Set_Scl(0);
         if(value&shift)
{
          Set_Sda(1);
          }
          else
          {
Set_Sda(0);
          }
shift>>=1;
Set_Scl(1);
}
Set_Scl(0);
Set_Sda(1);
Set_Scl(1);
}

uchar Revice_Byte_Memory()
{
uchar  i,value=0;
       for(i=0;i<8;i++)
{
value<<=1;
Set_Scl(1);
if(sda_rom) value|=1;
Set_Scl(0);
}
return value;
}

bit Write_Device(uint  addr)
{
uchar  i,k;
i=(addr>>8)&0xff;
i<<=1;
i|=0xa0;

for(k=0;k<100;k++)
{
Set_Sda(0);
    Send_Byte_Memory(i);
    if(!sda_rom) goto ack_ok;
}
return 1;
ack_ok:
i=addr&0xff;
Send_Byte_Memory(i);
return 0;
}

//return =0 fail
// =1 success
bit ReadEeprom(uchar *s,int  addr,int  len)
{
int i;
if(Write_Device(addr)) return 0;

      Set_Start_Condition();
      Send_Byte_Memory(0XA1);
      Set_Scl(0);
Set_Sda(1);
s[0]=Revice_Byte_Memory();
for(i=1;i<len;i++)
{
Set_Sda(0);
         Set_Scl(1);
         Set_Scl(0);
         Set_Sda(1);
s[i]=Revice_Byte_Memory();
}

      Set_Sda(1);
Set_Scl(1);
Set_Stop_Condition();
return 1;
}

//return =1 success
// =0 fail
bit WriteEeprom(uchar  *s, int  addr,int  len)
{
uchar temp;

start_label:
if(Write_Device(addr)) return 0;
while(len>0)
{
len--;
Send_Byte_Memory(*s);
temp=addr&PAGE_SIZE;
addr++;
s++;
if(temp==PAGE_SIZE)
{
Set_Stop_Condition();
    goto start_label;
}
}
Set_Stop_Condition();
return 1;
}

2005-08-06 17:22:46

点赞只看TA 引用举报 #6得分 0

⋅xmlhttp 疑难期待大侠提供思路 ⋅50分求 MSDN中 VB6.0 VISDATA的源码(打包谢谢)~~~~ ⋅VB ADODB对象 + sybase DB文件问题。。。。大虾快来救命。。 更多帖子 关注私信空间博客 haoya 等级 本版专家分：0: !!!

2005-08-07 10:30:15

点赞只看TA 引用举报 #7得分 0

⋅xmlhttp 疑难期待大侠提供思路 ⋅50分求 MSDN中 VB6.0 VISDATA的源码(打包谢谢)~~~~ ⋅VB ADODB对象 + sybase DB文件问题。。。。大虾快来救命。。 更多帖子 关注私信空间博客 haoya 等级 本版专家分：0: DLPORT IO 驱动能够在WINDOWS下正常运行，用端口读写软件+万用表测过电压，均正常。
我在每一个端口操作语句间都加入了一个延时函数，采用的FOR循环延时。
页写模式的页延时用API SLEEP延时。
Sub Sleep(ByVal thistime As Integer)
   Dim i As Integer
   For i = 1 To thistime
   Next i
End Sub
Sub I2cStart()
    'I2c开始指令
    DlPortWritePortUchar &H378, &HFF
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFD
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFC
    Sleep DelayTime
End Sub
Sub CalcBinary(ByVal s As Byte)
    Dim i As Integer, m As Integer
    i = Val(s)
    For m = 7 To 0 Step -1
        ByteBit(m) = i Mod 2
        i = i \ 2
    Next m
End Sub
Sub I2cStop()
    'I2c停止指令
    DlPortWritePortUchar &H378, &HFC
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFD
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFF
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFE
    Sleep DelayTime
End Sub
Sub MainAsk()
    '主机发送应答信息
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFC
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFD
    Sleep DelayTime
    DlPortWritePortUchar &H378, &HFC
End Sub
Function WriteByte(ByVal s As Byte) As Variant
     Dim i As Integer, e As Byte
     CalcBinary s
     DlPortWritePortUchar &H378, &HFC
     Sleep DelayTime
     For i = 0 To 7
         If (ByteBit(i)) = 1 Then
             DlPortWritePortUchar &H378, &HFE
             Sleep DelayTime
             DlPortWritePortUchar &H378, &HFF
         Else
             DlPortWritePortUchar &H378, &HFC
             Sleep DelayTime
             DlPortWritePortUchar &H378, &HFD
         End If
     Next i
     '接受应答
     Sleep DelayTime
     DlPortWritePortUchar &H378, &HFE
     Sleep DelayTime
     DlPortWritePortUchar &H378, &HFF
     Sleep DelayTime
     DlPortWritePortUchar &H378, &HFC
     Sleep DelayTime
     e = DlPortReadPortUchar(&H379)
     CalcBinary e
     If ByteBit(3) = 0 Then '第4位
        WriteByte = 0
        Exit Function
     Else
        WriteByte = "写错误，无应答！"
     End If
End Function
Function ReadByte() As Byte
     Dim i As Integer, e As Byte, m As Integer
     For i = 0 To 7
        Sleep DelayTime
        DlPortWritePortUchar &H378, &HFE
        Sleep DelayTime
        DlPortWritePortUchar &H378, &HFF
        Sleep DelayTime
        e = DlPortReadPortUchar(&H379)
        CalcBinary e
        m = m + ByteBit(3) * (2 ^ (7 - i))
        DlPortWritePortUchar &H378, &HFE
        Sleep DelayTime
     Next i
     ReadByte = Char(m)
End Function

2005-08-07 10:37:12

点赞只看TA 引用举报 #8得分 0

⋅xmlhttp 疑难期待大侠提供思路 ⋅50分求 MSDN中 VB6.0 VISDATA的源码(打包谢谢)~~~~ ⋅VB ADODB对象 + sybase DB文件问题。。。。大虾快来救命。。 更多帖子 关注私信空间博客 haoya 等级 本版专家分：0: 这个是写入数据的主程序m_cFileRead是一个2进制块读出类。

Dim nActual As Long
   Dim lpBuf As Long
   Dim e As Long, m As Integer, s As Variant, i As Integer, o As Integer
   CommonDialog1.ShowOpen
   Text1 = CommonDialog1.FileName
   lpBuf = VarPtr(aBuf(0))
   ProgressBar1.Min = 1
   ProgressBar1.Max = 128 * 4
   ProgressBar1.Value = 1
   If Not m_cFileRead.OpenBinary(Text1.Text) Then MsgBox "打开文件失败！" & Text1.Text
   Do
    nActual = m_cFileRead.ReadBlock(lpBuf, BUFFER_SIZE)
    For i = 1 To 128
        I2cStart
        WriteByte Asc(160)
        WriteByte Asc((e And 65280) \ 255)
        WriteByte Asc(e And 255)
        For m = 1 To 128
           s = WriteByte(aBuf(m * i - 1))
           If s <> 0 Then
              Label1 = s
              GoTo myerror
           End If
        Next m
        e = e + 128
        ProgressBar1.Value = i + o * 128
        Sleep 1
    Next i
        o = o + 1
   Loop Until nActual < BUFFER_SIZE '当实际读取字节数小于缓冲区大小的时候，就不需要再读啦,已读完啦
   Label1 = "写完成"
myerror:
   m_cFileRead.CloseFile

2005-08-07 10:40:13

点赞只看TA 引用举报 #9得分 0

⋅VB2010 Slider控件找不到？ ⋅瑞萨R8C C语言与汇编的对应关系 ⋅51单片机做从I2C，能做到400KHz的通讯速度吗？ 更多帖子 关注私信空间博客 shen_guang_wu 等级 本版专家分：1674: Dim t, i As Long
Dim FileNumber
Public Da(0 to 65535) as Byte

FileNumber = FreeFile(0)
Open "a.bin" For Binary Access Read Lock Read As #FileNumber
t = LOF(FileNumber)
If t > 65536 Then t = 65536
For i = 1 To t
Get #FileNumber, i, Da(i - 1)
Next i
Close #FileNumber

2005-08-08 16:25:01

点赞只看TA 引用举报 #10得分 100

收起

收藏回复

haoya

等级：

关注私信 TA的帖子

STM32HAL库学习笔记--硬件I2C读写AT24C512: 摘要：由于需要实现掉电存储功能，在无线传输模块上增加了一块EEPROM芯片，因为工程使用CubeMx配置并生成，为了方便不再使用IO口模拟I2C，而是使用f1... AT24C512 5.0.1 关键词：硬件I2C，HAL库，EEPROM存...

AT24C02的使用说明和完整代码-51单片机: at24c02的原理及使用方法在其说明资料中已有充分的讲述，本篇仅对其使用的关键步骤进行罗列，以及说明一下具体的使用代码。 at24c02使用iic驱动，需要对其进行启动、停止、等待相应、写字节、读字节的操作 iic...

AT24C512驱动调试中碰到的坑: 测试AT24C512已经两周，期间碰到个各种坑进行总结。 1，第五字符不正确问题。后来发现是读数据错误，使用地址偏移后，可以读出第五个数，但是新的第五个数打印输出继续错误。而使用数组直接赋值时，测试发现串口...

【STM32】HAL库 STM32CubeMX教程十二---IIC(读取AT24C02 ): IIC 简介 IIC(Inter－Integrated Circuit)总线是一种由NXP（原PHILIPS）公司开发的两线式串行总线，用于连接微控制器及其外围设备。多用于主控制器和从器件间的主从通信，在小数据量场合使用，传输距离短，任意时刻...

EEPROM - AT24C02: 文章目录引言一、EEPROM简介二、EEPROM-AT24C02三、AT24C02写入操作引言单片机运行时的数据都存在于RAM (随机存储器)中,在掉电后RAM中的数据是无法保留的,那么怎样使数据在掉电后不丢失呢?这就需要使用EEPROM或...

STM32-I2C驱动-AT24C01-EEPROM: #define AT24C01 //24C01,I2C的时序和普通的有点不同 #define EEPROM_ADDR0xA0 #define I2C_PAGESIZE4 //24C01/01A页缓冲是4个 void I2C_Configuration(void) { I2C_InitTypeDef I2C_InitStructure; GPIO_...

AT24C512地址特性: 还有就是正确认识了AT24C512的地址特性： 1，AT24C512的一页为128字节，在写数据的时候，如果一个写周期内字节数超过128个，会在当前页地址内循环写数据，也就是说，超过128字节的数据会把本页开始写的数据覆盖掉。...

单片机入门（四）----I2C和AT24C02 用AT24C02做秒表: I2C和AT24C02I2CAT24C02秒表 I2C 下面展示一些内联代码片。 I2C.c #include<STC15F2K60S2.H> sbit I2C_SCL=P2^0; sbit I2C_SDA=P2^1; /** * @brief I2C开始 * @param 无 * @retval 无 */ void...

stm32-关于AT24C02这个芯片的坑点: 如标题所述，这个鬼芯片有一个很大的坑点在里面，请看下图。手册上写的是1k 和 2k 是8byte，之后的是16byte，这一点一定要看清楚，一定要看清楚，...ErrorStatus writeAt24C02(uint16_t address,void *writeBuff,u...

51库-AT24C02驱动程序（四-一）: AT24C02 AT24CXX.h EEPROM驱动头文件 #ifndef __AT24CXX_H #define __AT24CXX_H #include "sim_i2c.h" #include "core51_uart.h" //-----------EEPROM的地址定义-----------// #define AT24C02_ADD 0xA0 void At...

STM32-I2C驱动-AT24C02-EEPROM: SOC：STM32F103RCT6 PB10作为SCL和AT24C02相连，PB11作为SDL和AT24C02相连。软件平台：STM官方库V3.5.0 开发工具：Keil AT24C022C访问代码（轮询） I2C这里使用轮询方法，不是中断，请留意。首先，给出I2C控制器...

EEPROM(AT24C512)调试总结: 这两周一直在测试AT24C512，之前用的EEPROM是AT24C16，与其相比，AT24C512有一些改动： 1，寻址空间变大，数据地址由8位变为16位，因此写入时序需要加入高、低位地址写入; 2，C16是单地址操作，不能并联使用，...

STM32-I2C驱动-AT24C01A-EEPROM: #define AT24C01A //24C01A,I2C时序和往后的24C02一样 #define EEPROM_ADDR0xA0 #define I2C_PAGESIZE4 //24C01/01A页缓冲是4个 void I2C_Configuration(void) { I2C_InitTypeDef I2C_InitStructure; GPIO_InitTy...

基于AVR单片机的AT24C01-512eeprom读写程序: 针对AT24Cxx系列eeprom存储器，写的时候有越页功能，不用考虑页边界，I2C用软件模拟实现，完善中… #define SDA1() PORTC|=1< #define SDA0() PORTC&=~(1< #define SDAout() DDRC|=1< #define ...

AT24C02---EEPROM 掉电存储（指定地址，指定字节数）: main.c /************************头文件***********************/ #include<reg52.h> #include<string.h> #include <delay.h> #include &...#inclu...

stm32单片机读写EEPROM AT24C512: 移植的正点原子的代码，开始使用的AT24C02，读写没问题，但是换了AT24C512之后发现，写入成功，但读出的数据一直是FF，通过修改IIC停止信号的延时时间立即可以了，遇到类似问题的小伙伴可以注意下。 ...

IO模拟IIC----结合AT24C02（IIC操作EEPROM): IIC总线，是一种十分常见的总线通讯协议，他的又是主要是一条总线上可以存在多个主机和从机，这样就可以实现多对多的数据交互，我们通过IO模拟IIC的方式深入了解IIC基本知识，现在，很多MCU都是自带IIC,不过也有部分...

EEPROM 之 AT24C16 - 备忘录: 因为论坛里看到STM的I2C有点小bug，所以这里采用的是模拟I2C时序 ...对AT24C16的操作有读和写，读又分为CURRENT ADDRESS READ、RANDOM READ、SEQUENTIAL READ ，写又分为BYTE WRITE、PAGE WRITE。 WRITE...

STM32F4 读写 AT24C512问题: 移植正点原子对IC2，驱动程序读数据正确（使用写好的AT24C512测试，说明器件地址没有问题），但无法写入数据，驱动函数中，数据写入的用到的函数，数据读取都用的到，示波器检查IO配置正确（不正确的话，数据读取也...

蓝桥杯突击7-AT24C02(使用蓝桥杯官方提供的库函数并且修正了错误): 学习CT107D上搭载的AT24C02(EEPROM)芯片: 比赛时虽然给出了IIC的驱动程序, 但是程序里面有点小错误, 里面的时序延时时间太短. 我们要将驱动库函数中的somenop改为如下: #define somenop {_nop_();_nop_();_nop...

STM32F407 模拟IIC读写EEPROM -- AT24C02: 一.I2C 简介 I2C（内部集成电路）总线接口用作微控制器和 I2C 串行总线之间的接口。它提供多主模式功能，可以控制所有 I2C 总线特定的序列、协议、仲裁和时序。它支持标准和快速模式。它还与 SMBus 2.0 兼容。...

MCS-51单片机总结——No4.存储之AT24C04A: AT24C04A芯片基础知识当51单片机应用系统需要存放一些在掉电后需要保存的数据时，可以使用E2^{2}2PROM。AT24C04是很常用的E2^{2}2PROM芯片。 AT24C04A是Atmel公司出品的I2^{2}2C总线接口E2^{2}2PROM，有8KB的内部...

51单片机——AT24C02_EEPROM驱动-模拟IIC通讯32页8字节缓存1.1版本: 1、优化上节《51单片机——AT24C02_EEPROM驱动-模拟IIC通讯32页8字节缓存1.0》里的代码。 2、增添了读取AT24C02的状态、增添了有多少个AT24C02器件。 3、主要优化读、写，页读、页写，擦除里的代码，减少不必要的...

STC51入门笔记(郭天祥C语言)---第七节：l2C总线AT24C02芯片应用: 声明：本篇文章只是个人知识盲区、知识弱点、重点部分的归纳总结，望各位大佬不喜勿喷。梳理顺序是按照书籍的实际顺序梳理，转载请注明出处。 ...l2C总线(InterICBus)由PHI....

STM32系列课程总结3---IIC---IIC+AT24C02---IIC+OLCD: ==================================== IIC ========================= 一、概述 IIC 即Inter-Integrated Circuit(集成电路总线），这种总线类型是由飞利浦半导体公司在八十年代初设计出来的一种简单、双向、...

基于 AT24C02 2-Wire serial EEPROM 的 I2C 协议说明: 一、I2C总线通信协议 1.线路 I2C通信结构中的两个线路：时钟线 SCL 数据线 SDA 2.协议内容数据传送过程中，在时钟线SCL为高电平时间段内，要想成功传输数据，数据线 SDA 必须为固定状态（要么高要么低），不允许有...

蓝桥杯第十七个程序IIC At24c02的储存与读取.rar: CT107D单片机综合训练平台蓝桥杯单片机开发程序，此代码是本人参加蓝桥杯比赛前训练所写！

读写AT24C512的问题: 需要移植AT24C512的驱动，做了一下几种实验： 1.利用内核自带的驱动，内核driver/misc下面的at.c就包含了ATMEL系列的EEPROM的驱动，只需要在BROAD_INFO改下名字。然后要选中menuconfig下的misc下的eeprom选项，最后...

AT24C16 读写: at24c16 有8块 256字节组成，共2K字节16K bit I2C开始信号后，第一个字节为器件地址，由1010+3位块地址+1位读写标志组成， 3位块地址刚好可以表示 8个块，所以一次写完256字节，换到下一下块的时候，要重新更改...

RT-Thread Studio使用笔记（五）：I2C设备及AT24C256的使用: 打开框架层支持 board.h中打开宏定义，并根据原理图设定IO口 #define BSP_USING_I2C1 #ifdef BSP_USING_I2C1 #define BSP_I2C1_SCL_PIN 22 //PB6 #define BSP_I2C1_SDA_PIN 23 //PB7 #endif ...

相关热词 c# 系统托盘图标 c#结构体定义 c# 根据网络定位 c# 清除html标签 c# uwp最小化 c#和java的区别 64位转换 c# 十进制 c# 点击保存草稿的实现 c# 如何切换图片 c# 界面隐藏部分