开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <stdlib.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "CSPIN"
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::UpDn(bool up,TEdit *Ed)
  19. {
  20.   double aa;
  21.   if(up)
  22.   {
  23.     aa=GetNumFromEdit(Ed);
  24.     aa=aa+0.1;
  25.     if(aa>100)aa=100;
  26.     Ed->Text=FloatToStr(aa)+"厘米";
  27.   }
  28.   else
  29.   {
  30.     aa=GetNumFromEdit(Ed);
  31.     aa=aa-0.1;
  32.     if(aa<0)aa=0;
  33.     Ed->Text=FloatToStr(aa)+"厘米";
  34.   }
  35. }
  36. //---------------------------------------------------------------------------
  37. double __fastcall TForm1::GetNumFromEdit(TEdit *Ed)
  38. {
  39.   double aa;
  40.   aa=atof(Ed->Text.c_str());
  41.   return aa;
  42. }
  43. //---------------------------------------------------------------------------
  44. void __fastcall TForm1::CSpinButton3DownClick(TObject *Sender)
  45. {
  46.   UpDn(False,EdLeft);
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TForm1::CSpinButton3UpClick(TObject *Sender)
  50. {
  51.   UpDn(True,EdLeft);
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::CSpinButton5DownClick(TObject *Sender)
  55. {
  56.   UpDn(False,EdRight);
  57. }
  58. //---------------------------------------------------------------------------
  59. void __fastcall TForm1::CSpinButton5UpClick(TObject *Sender)
  60. {
  61.   UpDn(True,EdRight);
  62. }
  63. //---------------------------------------------------------------------------
  64. void __fastcall TForm1::CSpinButton4DownClick(TObject *Sender)
  65. {
  66.   UpDn(False,EdTop);
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::CSpinButton4UpClick(TObject *Sender)
  70. {
  71.   UpDn(True,EdTop);
  72. }
  73. //---------------------------------------------------------------------------
  74. void __fastcall TForm1::CSpinButton6DownClick(TObject *Sender)
  75. {
  76.   UpDn(False,EdBottom);
  77. }
  78. //---------------------------------------------------------------------------
  79. void __fastcall TForm1::CSpinButton6UpClick(TObject *Sender)
  80. {
  81.   UpDn(True,EdBottom);
  82. }
  83. //---------------------------------------------------------------------------