STM32内部温度传感器试验——串口 delphi上位机

家里气温15度 我对着芯片用力哈气 把他哈到了 20度

下位机要害代码
int main(void)
{
double v,temp,Value;

/* System clocks configuration ———————————————*/
RCC_Configuration();

/* GPIO configuration ——————————————————*/
GPIO_Configuration();

/* USARTx configured as follow:
– BaudRate = 9600 baud
– Word Length = 8 Bits
– One Stop Bit
– No parity
– Hardware flow control disabled (RTS and CTS signals)
– Receive and transmit enabled
*/
USART_InitStructure.USART_BaudRate = 9600;
USART_InitStructure.USART_WordLength = USART_WordLength_8b;
USART_InitStructure.USART_StopBits = USART_StopBits_1;
USART_InitStructure.USART_Parity = USART_Parity_No;
USART_InitStructure.USART_HardwareFlowControl = USART_HardwareFlowControl_None;
USART_InitStructure.USART_Mode = USART_Mode_Rx | USART_Mode_Tx;

USART_Init(USART1, &USART_InitStructure);
/* Enable USART1 */
USART_Cmd(USART1, ENABLE);

/* DMA1 channel1 configuration ———————————————-*/
DMA_DeInit(DMA1_Channel1);
DMA_InitStructure.DMA_PeripheralBaseAddr = ADC1_DR_Address;
DMA_InitStructure.DMA_MemoryBaseAddr = (uint32_t)&ADCConvertedValue;
DMA_InitStructure.DMA_DIR = DMA_DIR_PeripheralSRC;
DMA_InitStructure.DMA_BufferSize = 1;
DMA_InitStructure.DMA_PeripheralInc = DMA_PeripheralInc_Disable;
DMA_InitStructure.DMA_MemoryInc = DMA_MemoryInc_Disable;
DMA_InitStructure.DMA_PeripheralDataSize = DMA_PeripheralDataSize_HalfWord;
DMA_InitStructure.DMA_MemoryDataSize = DMA_MemoryDataSize_HalfWord;
DMA_InitStructure.DMA_Mode = DMA_Mode_Circular;
DMA_InitStructure.DMA_Priority = DMA_Priority_High;
DMA_InitStructure.DMA_M2M = DMA_M2M_Disable;
DMA_Init(DMA1_Channel1, &DMA_InitStructure);

/* Enable DMA1 channel 1 */
DMA_Cmd(DMA1_Channel1, ENABLE);

/* ADC1 configuration ——————————————————*/
ADC_InitStructure.ADC_Mode = ADC_Mode_Independent;
ADC_InitStructure.ADC_ScanConvMode = ENABLE;
ADC_InitStructure.ADC_ContinuousConvMode = ENABLE;
ADC_InitStructure.ADC_ExternalTrigConv = ADC_ExternalTrigConv_None;
ADC_InitStructure.ADC_DataAlign = ADC_DataAlign_Right;
ADC_InitStructure.ADC_NbrOfChannel = 1;
ADC_Init(ADC1, &ADC_InitStructure);

/* ADC1 regular channel 14 configuration */
//################改为 Channel 10(电位器)###### 内部温度传感器 改为 Channel 16 ###################
ADC_RegularChannelConfig(ADC1, ADC_Channel_16, 1, ADC_SampleTime_55Cycles5);
//内部温度传感器 增加这一句
/* Enable the temperature sensor and vref internal channel */
ADC_TempSensorVrefintCmd(ENABLE);

/* Enable ADC1 DMA */
ADC_DMACmd(ADC1, ENABLE);

/* Enable ADC1 */
ADC_Cmd(ADC1, ENABLE);

/* Enable ADC1 reset calibaration register */ //运用之前一定要校准
ADC_ResetCalibration(ADC1);
/* Check the end of ADC1 reset calibration register */
while(ADC_GetResetCalibrationStatus(ADC1));

/* Start ADC1 calibaration */
ADC_StartCalibration(ADC1);
/* Check the end of ADC1 calibration */
while(ADC_GetCalibrationStatus(ADC1));

/* Start ADC1 Software Conversion */
ADC_SoftwareStartConvCmd(ADC1, ENABLE);

while (1)
{

//printf(“The ADC1 Converted Value is %d \r\n”,ADCConvertedValue);
//v= ADCConvertedValue*3.30/4096;
//printf(“The Voltage is %f \r\n”,v );

Value=ADC_Filter();
//printf(“The ADC_Filter Value is %d \r\n”,(int)Value);

temp=(1.42 – Value*3.3/4096)*1000/4.35 + 25;
//printf(“The Temperature is %f \r\n”,temp );
printf(“%s%c%c%c%c%c%s”,”#**”,(int)Value/256,(int)Value%256,&,(int)((temp-(int)temp)*100),(int)temp,”**%”);

for(v=0;v<5000;v++);for(v=0;v<5000;v++);for(v=0;v<5000;v++);
}
}
——————————————————————-
上位机要害代码
procedure TMainForm.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
//iq :Integer;
p :Pchar;

begin
viewstring:= ;

move(buffer^,pchar(@rbuf)^,bufferlength);

p := StrPos(pchar(@rbuf), #**);

//if (p <> nil) and (p[9]=*) and ( p[10]=*) and (p[11]=%) then //
if (p <> nil) and (p[5]=&) and (p[8]=*) and ( p[9]=*) and (p[10]=%) then
begin

{
printf(“%s%c%c%c%c%c%s”,
“#**”,
(int)Value/256,(int)Value%256,
&,
(int)((temp-(int)temp)*100),(int)temp,
“**%”);
}

Value :=Ord(p[3])*256 + Ord(p[4]) ; //Ord() 字符–>ASCII码

//Temp:= Float( Ord(p[7]) ) +Float( Ord(p[6]) ) /Float(100.0) ;
Temp:=(1.42 – (Value)*3.3/4096)*1000/4.35 + 25;

viewstring:=The ADC_Filter Value is:;
viewstring:=viewstring+IntToStr(Value);
viewstring:=viewstring+ +The Temperature is:;
viewstring:=viewstring+FloatToStr(Temp);

memo1.lines.add(viewstring);
memo1.lines.add( );

RzLEDDisplay.Caption := inttostr(Value)+ ;
Temp:=int(Temp*1000)/1000;
RzLEDDisplay1.Caption := floattostr(Temp);

end;
end;