   
  


    ,              Pocket PC.        ,      -      ,    .   ,           Pocket PC.         ,    .

    .





 

   









    .     ,  ,      ,    -,  ZX-Spectrum,  -0010    ,    ,    IBM 8086.      ,       .       ,          .    IBM 486, 133 , 32        256 .      .

    Pocket PC,     .    - .     ,   ,   .        ,  ,  ,      .      ,      .     ,    ,      .

-       ,       Palm,  Palm,   ,  Pocket PC. ,  -,    ,  .   ,   -. Pocket PC ,  .       Windows.   ,         .  ,      ,         .     ,             Tetris,   .         ,      Windows.  Linux       ,    ,  ,   ,       .

   ,  ,     ,    IBM 486,   - .     ,            Doom. ,  Doom     ,               .

   .             ,      ,       .    ,     ?   , ,  ,      Pocket PC?      - ,          .

 ,      ,     .    ,    ,            .      .  ,     ,       Pocket PC,        QBackup,      .                 .      Pocket PC ,   Java,    Pocket PC   ,     .

   ,      ,   Microsoft.      ,        Pocket PC.     Microsoft  ,    .           Visual Basic  Visual C++,    .         Assemler.     ,        ,     .           .

    ,   ,     Pocket PC.   ,        ,      Pocket PC    .         ,            . ,    ,         .   ,        Pocket PC ,          ,      ,         ,   .

      ,              .  ,  ,           .    ,          ,  ,  ,          Pocket PC.          .




 


  ,     ,     

         Pocket PC 2003. ,   Microsoft       ,  ,    Pocket PC 2002,      Pocket PC 2003.  Microsoft   Visual Basic      Pocket PC 2003,       ,    .         eMbedded Visual Basic 3.        eMbedded Visual C++ 3.        eMbedded Visual Tools 3.0 2002 Edition.

     ,    .

1.  -   Microsoft,    http://msdn.microsoft.com/mobility/downloads/updates/default.aspx (http://msdn.microsoft.com/mobility/downloads/updates/default.aspx).

2.   Products & Updates      eMbedded Visual Tools 3.0  2002 Edition     .

3.   ,    Download,     .            evt2002web_min.exe.   .        ,         . ,      ,     Unzip To Folder,      Unzip.

4.        setup.exe   .        ,    .



.

  evt2002web_min.exe  ,              ,        -  .   -      .     .       ,     Download.             evt2002web_min.exe.



     Pocket PC 2002            Pocket PC 2003.      Products & Updates     eMbedded Visual C++ 4.0.       ,      .

        Pocket PC.    Microsoft     ,      Pocket PC 2003.    . NET.   ,    . NET,    Visual Studio 2003. ,        Microsoft,        .

     Visual Studio 2003,    ,   . NET  Pocket PC   .        ,        .




 


 ,         comp@piter.com (mailto:%20comp@piter.com) ( ,  ).

     !

        - : http://www.piter.com (http://www.piter.com/).




 1

Pocket PC    





  Pocket PC


               ,     ,   ,  Pocket PC   .  ,         ,  ,      .

     ,  Pocket PC  ,             .    Pocket PC    ,  ,   ,    .     ,             .  Pocket PC         .

  Pocket PC      :

?TFT-.  Pocket PC    320x240 .     ,  ,        Pocket PC   ,         .

? .

?  .

?  ( ).

? .

?     .

?      .

?   .

?    .

?IRDA-         .

? ( Pocket PC    Wi-Fi   ).

?.

?.

?  .

?    .

?   (    ).

  Pocket PC,   ,            .        ROM  RAM.

Pocket PC        .     80%      ARM,        MIPS  SH.    Microsoft       ,  x86,      ,          -  .

     ,      Windows CE,       Microsoft  : http://www.msembedded.ru/processors.aspx (http://www.msembedded.ru/processors.aspx).




Pocket PC    





Windows CE  Pocket PC


             .   ,      ,     C,        .

     Pocket PC   ,           .    Windows CE 2.11, Windows CE 3.0, Windows CE 4.0, Windows CE 4.1, Windows CE 4.2, Windows CE 5.0, Windows CE.NET, Pocket PC 2000, Pocket PC 2002, Windows Mobile 2003, Windows Mobile 2003 SE  Windows Mobile 5.0.

  ,  Windows CE   ,       ,        .    ,      ,     ,       ,     .    Windows CE      .        Windows CE  .        ,      , ,  .     Pocket PC      Windows Mobile for Pocket PC,      Microsoft Pocket PC.  Windows Mobile      Windows CE,    .

  1.1 ,           .


 1.1.    Pocket PC,  Windows Mobile  Windows CE




  ,  Microsoft       .    Windows CE 3.0,   ,     ,       OS.   ,   Pocket PC 2002,      Pocket PC 2003  ,             .

 Windows CE.NET      Windows CE 4.x.   ,     Windows CE 4.0, Microsoft      Windows CE   . NET        Compact Framework (CF).   Windows CE 4.0 CF     Beta,   4.1   ,    4.2  . NET Framework service pack 2.

  ,  Pocket PC         ,       .   Windows Mobile (Windows CE)     Win32 API    ,        .

  ,    ,   .1.1.




.1.1.   Windows Mobile  Pocket PC.



 ,    ,    .

OAL (OEM Adaptation Layer)   ,   ,         .  OAL          .

GWES (Graphics, Windowing, and Events Subsystem)       (GDI, Graphics Device Interface)    .

Windows CE      API,        OS.

Core OS Interface          ,  , ,  ,  ,   .

 DLL        ,      .  Fiber    ,  .   Memory Management        .  Power Management     .  Message Queue Point-to-Point          ,   .  Process and Thread      ,     .

 Time       ,            . API ToolHelp   ,  API Pointer    .  Stylus      ,     .  Authentication           .      ,   NTLM  Kerberos.  Cryptography    .   , ,   ,      ,   ertificates.  RAS API  Dial-Up Networking      ,            PPP.   Fonts     ,   MLang           .    -  Pocket PC    API Software-Based Input Panel (SIP API).

 JScript 5.5        .    Active Directory Service     Lightweight Directory Access Protocol (LDAP).  Multilingual User Interface (MUI)     .    ,          .   Message Queuing (MSMQ)       .    Network User Interface (NetUI)       .  API Object Exchange Protocol (OBEX)   ,         IrDA  Bluetooth.

              .   Database       Windows CE,      .       , ,      .  File I/0          ,      ,   . API File Mapping             ,          ,          .

  File System Driver (FSD)     (,  )       .  API Registry       .   Pocket Outlook Object Model (POOM)    Pocket Outlook    ,    .          ,    . API Windows Networking API/Redirector        .  Virtual Private Networking   Pocket PC      ,   Waveform Audio    .   HTTP  FTP      WinSock    API Windows Internet Services (WinInet),   ,  API Windows Sockets       .

 ,  Windows CE             .  , ,   Pocket PC,       ,    ,       Windows.     ,   , , COM-    Windows CE ,     .   . -    -      ,      ,            32 .

    Microsoft   ,  Windows CE        .     ,             ,           .




   Pocket PC



 Microsoft     Pocket PC   ,          ,   .           . ,         Microsoft,       2005   Introduction to Development Tools for Windows Mobile-based Devices.

    :

? eMbedded Visual Tools 3.0;

? eMbedded Visual C++ 4.0;

? Visual Studio.NET 2003;

? Visual Studio.NET 2005.




eMbedded Visual Tools 3.0  Pocket PC 2002 SDK


        :

? eMbedded Visual Basic;

? eMbedded Visual C++ 3.0;

? Pocket PC 2002 SDK;

? Smartfone 2002 SDK.

       .


eMbedded Visual Basic

      ,     Pocket PC 2002, Pocket PC 2003  Pocket PC 2003 SE,        .

  ,  Microsoft      ,  ,      ,      Pocket PC.   eVB        ,    ,         ,     .          ,  ,    ,     run-time ,    . ,       ActiveX.

  eVB         ,        .       ,   ,    ,        .


eMbedded Visual C++ 3.0

,   eVC 3.0,       Pocket PC 2002     Pocket PC 2003  Pocket PC 2003 SE,        API.

,   eVC 3.0,   ,  ,   eVB.   eVC       .   ,      ,      ActiveX.  eVC      COM  WinAPI,   MFC           ,   eVB   .     ,          , ,     API        .      ,   Pocket PC           .




eMbedded Visual C++ 4.0 Pocket PC 2003 SDK


 eVC 4.0  Pocket PC 2003 SDK      .  ,        Pocket PC 2003,        Service Pack 2.      eVC 4.0     Pocket PC 2003 SE c  VGA-   192 dpi         ,    Service Pack 4,         Microsoft  Mobile Application Development Toolkit  Developer Resources for Windows Mobile 2003 Second Edition.                 Microsoft,      eVC 4.0.

,     eVC 3.0,     eVC 4.0,    ,         Pocket PC 2003  Pocket PC 2003 SE.   eMbedded Visual Basic        Pocket PC 2003,   Microsoft,    .     ,           . NET CF,      run-time  Visual Basic.




Visual Studio.NET 2003


    ,   Visual Studio.NET 2003      Microsoft.      Microsoft    ,        Pocket PC 2003.        Visual Basic.NET  C#.           . NET Compact Framework.

       .           ,    Pacsal  Java . Visual Basic   -,    ,      .      Visual Studio.NET 2003    .  ,   Visual Studio.NET 2003  .      ,         ,     eVC.




Visual Studio 2005


       Beta,         Microsoft,     SDK (Windows Mobile SDK 5.0).

 Visual Studio 2005, Microsoft          ,       .   Visual Studio 2005  .

?     Windows Mobile 2003, Windows Mobile 2003 Second Edition  Windows Mobile 5.0   C++.

?       . NET Compact Framework 1.0   Windows Mobile 2003, Windows Mobile 2003 Second Edition  Windows Mobile 5.0   C#  Visual Basic.NET.

?       . NET Compact Framework 2.0   Windows Mobile 5.0   C#  Visual Basic.NET.


 1.2.     





 1.3. . NET Compact Framework     




?       . NET Compact Framework 2.0   Pocket PC    Windows Mobile 2003   C#  Visual Basic.NET.

         . 1.2  1.3.




 


    Microsoft      ,       .       ,           Microsoft   .        .

1. Microsoft ActiveSync 4.0.         ActiveSync 4.0     .

2. eMbedded Visual Tools  2002 Edition, Pocket PC 2002 SDK  Smart-phone 2002 SDK.

3. eMbedded Visual C++ 4.0  Service Pack 4.

4. Visual Studio.NET 2003.



.

 Pocket PC 2003   Pocket PC 2003     . NET Compact Framework.         . NET Compact Framework   .      . NET Compact Framework,  ,    .



5. Pocket PC 2003 SDK.

6.             ,      Pocket PC 2003 Second Edition.

7. Developer Resources for Windows Mobile 2003 Second Edition.

8. Visual Studio 2005.

9. Windows Mobile 5.0 SDK.




 2

    Pocket PC



   ,       ,   Microsoft,  ,     ,         .      Pocket PC,         ActiveSync,       CabWiz,         ActiveSync, Emulator ActiveSync Connection Tool,     ,    ,    Windows Mobile Developer Power Toys.

            .       .        .








         Pocket PC. ,       ,    ,          Pocket PC   .         ,      .

      ,     Microsoft SDK for Pocket PC 2003.  ,             ,     . ,         .




 


  Microsoft Windows Pocket PC 2003 SDK        eMbedded Visual C++ 4.0 (Service Pack 2),     Visual Studio.NET 2003.              .

  SDK         (.2.1).




.2.1.   Pocket PC 2003 SDK.



      Pocket PC 2003 Emulator,        (.2.2):




.2.2.   Pocket PC 2003.




   


      ,       ,  ,      emul.cmd.     .



start "" "C: \Program Files\Common Files\Microsoft Shared\Windows CE Tools\ Platman\

bin\PBEmulator.exe" /MemorySize 64 /Fastbackground /Skin "C: \Program Files\Windows CE

Tools\wce420\POCKET PC 2003\Emulation\pocket_pc_emulator_skin.xml" /CEImage

C: \Program Files\Windows CE Tools\wce420\POCKET PC 2003\Emulation\ PPC_2003_WWE.bin

/VMName POCKET PC 2003  POCKET PC 2003 Emulator /HostKey 165



    ,           .     ,  .

? /Video   .           .       ,       (skin),         .       .        80  1024 ,    64  768 ,      8, 16  32.

? /Ethernet   .        Ethernet  .       None, Shared, Virtualswitch   media access control (MAC)      .   ,        .        ,      ,     MAC-.     .

None      .

Shared        (  IP-),    .                ,      ,      .

Virtualswitch      IP-   DHCP        ,    ,      .

? /Skin   .  ,    .        XML,        .

? /CEImage   .       .  ,      .

? /MemorySize   .    ,    .    .           32  256 .  Pocket PC 2003       64 .

? /Fastbackground   .       ,       .

? /HostKey   .       ,         ,     .        .

? /VMName   ,    ,    .    ,      .        ,     .

? /VMID   ,       (GUID) .   ,        .




  


 ,             ,           ,     .

?  : Microsoft Windows 2000 Professional  Windows 2000 Server   Service Pack 2, Microsoft Windows XP Home Edition  Windows XP Professional.

?  Intel Pentium II       400 .

?   196   .

?     Microsoft Loopback Adapter.



!

      .        .  ,       ,      ,     .




 Microsoft Loopback Adapter


 Microsoft Loopback Adapter        ,   ,        .   Microsoft Loopback Adapter    .

1.   ?  ?  .

2.       .

3.   ,     ,    .

4.           .

5.   ,    .

6.         .

7.   Microsoft       .

 ,    ,          .          .  ,        .         .          Virtual PC Emulated Ethernet Switch.      .




 


,    ,   Pocket PC.       .

1. ,        ,  TCP\IP.

2.     x86. ,  ,    ,      .             ,       ARM        .           Pocket PC,       .

3.     Pocket PC.        .

4.    ,   ,         .

5.     ,          .




  


         .

?  Host + F     ,          ,         .            .

?  Host + P      .

?  Host + R         .

?  Host + T     .

?  Host + F4   .



!

                 Save Emulator State.      ,      ,       .        .       .      C: \Documents and Settings\\Application Data  . vsv (, {31F6C796-7FD5-43AC-A8C2-A7CDB8C00A3B}.vsv).        .



       Host    ,     /HostKey   .

      . 2.1.


 2.1.      







  Platform Manager


        .           .     Platform Manager          (),            .   Platform Manager        C: \Program Files\ Common Files\Microsoft Shared\Windows CE Tools\Platman\bin\wce420.    Platform Manager     Microsoft,     Pocket PC  Windows CE,     Configure Windows CE Platform Manager,              .

     C: \Program Files\Common Files\Microsoft Shared\ Windows  Tools\Platman\bin\wce420    cefilevw.exe.           .           ,     Connection ? Configure Windows  Platform Manager.           (.2.3).




.2.3.    .



     Pocket PC 2003 Emulator,      Properties.       (.2.4).




.2.4.    Pocket PC 2003.



   Transport    TCP\IP Transport For Windows CE,    Startup Server   Emulator Startup Server.     Configure,     Startup Server,         (.2.5).




.2.5.     .



     ,     .

?  Device ? Image  ,     .          Pocket PC 2003    Pocket PC 2003 Phone Edition    .

?  Video ? Skin  ,      .    Phone Edition       .

?  System ? HostKey    HostKey.

?  Communication        .

 Ethernet   NAT.   Virtual Switch   .

 Serial Port 1    COM-           .

 Serial Port 2    COM-           .

 Parallel Port          .

          OK.        Test.        ,   -    .      ,   Cancel   Testing Device Connection   OK.

      .




ActiveSync



ActiveSync   ,      (Pocket PC)    (.2.6).




.2.6.  ActiveSync.



     ActiveSync.   , ,     .

ActiveSync         ,    ,         Pocket PC.  ,   ActiveSync        Pocket Outlook              .  ,   ActiveSyn  ,    .

1.      ,       .       .

2.      ,         .

3.     .

 , ActiveSync    ,      ,      .     SDK   ,    .      C: \Program Files\Windows CE Tools\wce420\POCKET PC 2003\Activesync.

    .   ActiveSync      ,    .           ActiveSync  ,      .




  ActiveSync


     ActiveSync       ,    .

1.    Microsoft Loopback Adapter.

2. Microsoft.NET Framework 1.1 SDK   .       Microsoft .      Visual Studio.NET,   SDK  .

3.   Platform Manager.

 ,     TCP\IP    Use Fixed Address.

  Startup Server   Emulator Starup Server    Communication ? Ethernet   Virtual Switch.

 Platform Manager.

4.     ActiveSync.       ?  ? Microsoft Pocket PC 2003 SDK ? Pocket PC 2003 SDK.       .       EmuASCfg.exe /    Enter.     ,          (.2.7).




.2.7.      .



!

 EmuASCfg.exe/    ,       ActiveSync.




CabWiz    



          ,     .      .

1.  ,   .

2. ,      ,      .

3.      .

4. ,   - .

5.   - .

6.      .

7.       .

8.    .    ,           .

9.   .     ,     ,      ,      .

       AppInstall ( ),     CabWiz,    (  . cab),       Pocket PC.

    CabWiz     ,        ,       .




  


 CabWiz.exe    C: \Program Files\Windows CE Tools\ wce420\POCKET PC 2003\Tools.  abWiz.exe        .



cabwiz.exe inf_file [/dest dest_directory] [/err error_file][/cpu cpu_type [cpu_type]]

[/platform platform_label [platform_label]]



   .

  inf_file      ( ,   )  . inf,     ,     CabWiz   . ,        . cab,    dest_directory.     ,  . cab    ,     .  ,           ,     error_file.     ,            .    cpu_type      ,        .          C: \Program Files\Windows CE Tools\wce420\POCKET PC 2003\Target. ,    ,     ,    /cpu ARMV4 X86.  platform_label   ,       . cab.       . 2.2.


 2.2.    platform_label







Mobile Developer Power Toys



         ,     ,     Microsoft,   .           .




ActiveSync Remote Display


     Pocket PC    .       ,      ,   .       Remote Display   ,    ,      .     ,   Pocket PC      .       .2.8.




.2.8.  ActiveSync Remote Display.




CECopy


           ,      ActiveSync.  ,    ActiveSync      ,            Mobile Developer Power Toys.

    .



CeCopy [  ] <> <>



   /is  ,     ,   /s      ,       . ,  cecopy /s *.dll dev: \windows     . dll      windows  Pocket PC.




Convert_PPC_DAT_to_SP_XML


 Convert_PPC_DAT_to_SP_XML    . cab  Pocket PC      ,     .




Hopper


                  -     .                  .   -     .

                  .

Hopper              .




JShell


        .       ,      .       .2.9.




.2.9.   JShell.



    ,                .       .

? -r<cmd>        <cmd>.

? -f      60 ,      .

? -m   mi        4 .      miXXX.txt   \ Documents,  XXX   -.

? -w    win        4 .      winXXX.txt   \ Documents,  XXX   -.

       ,        (. .2.9),       .      ,    !.       JShell.

      .

?  win    .

?  gi proc       .

?   #      ,     #.

?  gi thrd    .

?  gi mod     (DLL).

?  gi mod      (DLL),      .

?  mi     .

?  mi full      .

?  s <> <args>  ,         <>.




PPC_Command_Shell


   ,      (.2.10).




.2.10.   .



  arm     Windows   Pocket PC      cmd.exe.      ,    help    Enter.




RAPI_Debug


     .  bugtrap.exe       Windows,   RapiDbg.exe     . ,        ActiveSyn.       RapiDbg.exe          ( ,    ),     ,      ,     Pocket PC.        .2.11.




.2.11.      .




RAPI_Start


          Pocket PC,    ActiveSync.

 ,         RAPI_Start iexplore.exe http://yandex.ru/ (http://yandex.ru/),   Pocket PC   Pocket Explorer      .




TypeIt


     .           .




    


      ,         ,       Pocket PC.

 ,          ,    ,  .  Pocket PC     ,     .       Pocket PC         . ,        ,        .

                        .  ,      Pocket PC             .                 .      ,     .  ,    ,    ,          ,    ,          Microsoft Outlook.     (Greg Keyser),       Microsoft,      Microsoft Mobile DevCon 2004    .     .

1.     ,       .     ,       .      .      ,                ,   Pocket PC     ,     ,    (.2.12).




.2.12.  .



     ,     ,          (     ).

2.    ,     ,   (,     )    .

3.         .

      ,      .

    Pocket PC   ,      ,         .

 ,       ,      .

         .

4.              4x4 .

5.         8 .

6.        20 .

7.    (.2.13)    .




.2.13.   .



   .

       .     .

     .

       8 .

8.,             ,   .

             .

        5     .

        10     .  .2.14   ,       .




.2.14.  .



9.       ,           .

10.        .  ,           ,      .

              Pocket PC.




 3

   Pocket PC   Microsoft eMbedded Visual Basic 3.0





  eMbedded Visual Basic 3.0



        eMbedded Visual Basic 3.0    eVB.

 eVB        ( ?  ? Microsoft eMbedded Visual Tools ? eMbedded Visual Basic 3.0),         (     C: \Program Files\Microsoft eMbedded Tools\EVB\ EVB3.EXE).          (.3.1).




.3.1.     .



      Windows CE for PocketPC    .          ,    .         .

 eVB       ,           (.3.2).




.3.2.      .



           .        .             ,         ,       (.3.3).




.3.3.    .



          ,           .



!

 ,        ,       (SDI),      ,       Tools ? Options ?General ? SDI Development Enviroment.




  


           Toolbars   View.               (.3.4).




.3.4.  Toolbars.



       .

?  Debug     .

?  Edit     .

?  Form Editor      .

?  Standard      .

?  Customize        (.3.5).




.3.5.    .



 Toolbars      ,    .   ,        Shortcut Menus,        .

   New      ,       ,    .




 3.1.     


1.  View ? Toolbars ? Customize.     ,   .3.5.

2.  New.

3.     MyTB.

4.  Close.       .      ,     ,       (.3.6).




.3.6.   .



5.       ,         .

6.     Customize.       Commands.           ,   .        ,       ,        .     ,    MyTB   (.3.7).




.3.7.    .



         ,            .        ,     Customize    Modify Selection.         (.3.8).




.3.8.   .



     .

?  Reset        .

?  Delete     .

?  Name     .

?  Copy Button Image       .

?  Paste Button Image          .

?  Reset Button Image     .

?  Edit Button Image     .      .

?  Change Button Image       .

?  Default Style        .

?  Text Only (Always)  ,             .

?  Text Only (In menus) ,           ,         .

?  Image and Text ,          ,   .

?  Begin a Group ,          ,   .

 ,       .              ,      .

   Customize  Options   ,     .

?  Large icons     .

?  Show ScreenTips on Toolbars      .

?  Show ShortCut Key on ScreenTips        .

?  Menu Animations       .




  Standard


      ,            .




?        ,    .






?     .






?       .






?       ,     .






?         ,            ,     .






?        (Undo)      (Redo).






?       .           ,   ,      .






?    ,   .






?    ,     .






?      Project Explorer    .






?         .






?       .






?       .




   


        ,     eVB,     .   ,         .       ,          .

    ,         .  Docable        .   Docable ,         .

 Hide  .               View.




     (Toolbox)


         (.3.9).




.3.9.   eVB.



          .           eVB,      General.    ,          .  eVB      ActiveX,       ActiveX,    .     ActiveX    ,       eVB  Windows API      .




 3.2.   


1.      .       (.3.10).




.3.10.    .



2.      Add Tab.          ActiveX,      .  ActiveX               .

3.   ActiveX     .  , ,  .     ,      Components.              (.3.11).




.3.11.     .



  Controls   ,    .         ,    Browse    ,   ,      Windows CE.

4.     ,         Controls.          .

5.        ,    .

6.       ,    Rename Tab  Delete Tab   ,          .



.

       ,    ActiveX    ,    .        .




   


      ,      .

1.      .        .

2.    (   ) ,     ,    .       ,    .

3.         .      ,      .

      ,            Ctrl.                 -    ,      ,        .       ,         ,       .

           Delete.

       ,      .  ,    .               Shift.       ,         Alt.

  ,           .       ,   ,           Shift.




    


               .     eVB   ,    Format.       .

?  Align      .

Lefts             .

Centers            .

Rights             .

Tops             .

Middles            .

Bottoms             .

To Grid             .        ,    Tools ? Options ? General    Align Controls to Grid.    ,        ,           .

?  Make same size    .

Width          .

Heigth         .

Both    ,     .

?  Size to Grid          .

?  Horizontal Spacing      .

Make Equal          .         .

Increase        .

Decrease        .

Remove        .

?  Vertical Spacing      .     ,   Horizontal Spacing.

?  Center in form    .              .     ,             .

?  Order     .

Bring to front          .

Send to Back          .

?  Lock Controls           .




 3.3.   


1.      Shape,   Label,     Timer ,     .3.12.




.3.12.   .



2.    Command1      .             .      ,    3.1.


 3.1

Private Sub Command1_Click()

Label1.Font.Size = 20

Label1.Font.Bold = True

Label1.WordWrap = True

Label1.Alignment = vbCenter

Label1.Caption = , !

Timer1.Interval = 300

Timer1.Enabled = True

Shape1.FillColor = &HFF&

Shape2.FillColor = &HFF&

Shape3.FillColor = &HFF&

End Sub



3.    Timer1            3.2.


 3.2

Private Sub Timer1_Timer()

If (Shape1.FillStyle = 1) Then

Shape1.FillStyle = 0

Shape2.FillStyle = 0

Shape3.FillStyle = 0

Else

Shape1.FillStyle = 1

Shape2.FillStyle = 1

Shape3.FillStyle = 1

End If

End Sub



4.      Pocket PC 2002 (.3.13).




.3.13.  .



5.   Run ? Execute     Ctrl+F5.   ,        .

6.      Command1.      , !,            (.3.14).




.3.14.   .




 


  Tools ? Options        eVB.        .


 Editor

      .

?  Auto Syntax Check        .

?    Require Variable Declaration        Option Explicit,         .

?  Auto List Members     .

?  Auto Quick Info        .

?  Auto Data Tips           .

?  Auto Indent       .

?  Tab Width     .

?  Drag-and-Drop Text Editing        .

?  Default to Full Module View            ,     .

?  Procedure Separator    ,     .


 Editor Format

         .

?  Code Colors   ,         .     (Foreground),   (Background)   (Indicator),    ,       .

?  Font     .

?  Size    .

?  Margin indicator bar       .


 General

     ,        .

?  Show Grid          .

?  Width        .       2  60 .

?  Height        .       2  60 .

?  Align Controls to Grid            .

?  Show ToolTips           ,        .

?  Collapse Proj. Hides Windows  ,        ,           .

?  SDI Development Environment   ,       ,          .


 Docking

       .         , ,   Docable   .


 Environment

     ,          .

?  Prompt for project           eVB.

?  Save Changes              .

?  Prompt To Save Changes                .

?  Do not Save Changes ,               .

?  Show Templates For   ,         Add,     Standard.

?  Templates Directory   ,     .




 .  .    



 eVB  ,    ,   .     ,  Microsoft Visual Studio  Borland Delphi,   eVB      .         .




  


          File.      .

?  New Project        .         .   eVB     .       ,  .

?  Open Project   ,     ,       .

?  Save Project         .

?  Save Project As     ,           .

?  Save      .

?  Save As     ,            .

?  Print         ,     Print Setup.

?  Print Setup       .

?  Make Project     ,           eVB,        . vb.

?  List of Recently-Used Projects   ,  .

?  Exit     eVB.




    


       ,      .

?   . ebp     ,      ,      ,  .   ,       .       ,     ,           .

?   . ebf    .        ,      ,     .

?   . frx      .         ,   ,   .     ,   ,    .

?   . bas    .       ,      .

?   . ocx    ,    ActiveX,     eVB.

?   . vbw     eVB.               .

?    ,    ,        .

  ,    ,    Project Explorer,     .3.15.




.3.15.  Project Explorer.



       ,   .       .            .

   ,        ,     ,   .       .      (Form2  Form3),     ,      .     .

  Project Explorer       .       .       .

?      View Object  View Code,     View Code.

?      Print,        ,    .                .

?          Remove,      .




   


 Visual Basic    .       . vb.    ,         ,    .     . vb     Pocket PC   -,     VB    .  ,   . vb           .

    Pocket PC 2002   VB     ,  ,     .  Pocket PC 2003    .       http://msdn.microsoft.com/mobility/windowsmobile/downloads/evbeula.aspx (http://msdn.microsoft.com/mobility/windowsmobile/downloads/evbeula.aspx)     Microsoft     msvbppc.    . cab    PocketPC,      .     VB  .

,      Pocket PC 2003     Pocket PC 2002,         Pocket PC 2003.

    ,     QH+F5       Run ? Execute.      ,        (.3.13).




 


 ,      ,      Project ? Properties.           .    Project ? Properties       (.3.16).




.3.16.    .



      ,    General.

?  Project    .            .

?  Project Name   .      ,           .         ,        .

?   Project Description    .     ,   .

?   Startup Object   ,   ,    .        .

?   Remote Path    ,       .     \Windows\ Start Menu\,          (.3.17).




.3.17.       \Windows\Start Menu\.



?   Run on Target  ,      .              Pocket PC 2002.

?   Configure Target      Platform Manager,       .

?   Frequency        .

?  Always Ask ,          ,    .

?   Component to Update  ,  ,    ,    .

Runtime Files    VB.

Project Components   ActiveX,      .

 Make      ,          .  Platform   ,         .




   eVB





   (Properties Window)


          .      .3.18.




.3.18.   .



                 .

            .

1.  .        .

2.    .

3. .

4.   .      . ,       ShowOK,    ,     ShowOK.         .

5.,        .

   ,    2 (. .3.18)   ,        3,     .




 


 eVB        .

1.        .       .




2.     ,     .        .




3.      .     .      .          ,              .







 Form



  Form

  Form   . 3.1.


 3.1.   Form










  Form

 . 3.2     Form.


 3.2.   Form










  Form

      Form.     . 3.3.


 3.3.   Form







 3.4


       Form.

1.          FormMethods,    FormMethods.ebp.      Form1.

2.  AddForm,            Form2.

3.   Form1   ,     .3.19.




.3.19.     Form1.



4.  ,    Form1  true   AutoRedraw   20   DrawWidth.        .

5.  Project Explorer   Form2.         . 3.4.      .


 3.4.   Form2




6.    .   Form2    Timer,     .3.20.




.3.20.  Form2      .



7.    Timer1     Interval   150.

8.     Timer1            ,    3.3.


 3.3

Private Sub Timer1_Timer()

i=i+a

j=j+b

If i > 1600 Then a =  a: BackColor = &HFF&:

DrawCircle 500, 500, 400, &HFF00FF:

DrawLine 1100, 1100, 1800, 1800, &HFF00FF, vbLineBoxFill

If j > 2500 Then b =  b: BackColor = &HFFFF&:

DrawCircle 500, 500, 400, &HFF00FF:

DrawLine 1100, 1100, 1800, 1800, &HFF00FF, vbLineBoxFill

If i < 0 Then a =  a: BackColor = &HFF00&:

DrawCircle 500, 500, 400, &HFF00FF:

DrawLine 1100, 1100, 1800, 1800, &HFF00FF, vbLineBoxFill

If j < 0 Then b =  b: BackColor = &HFF0000:

DrawCircle 500, 500, 400, &HFF00FF:

DrawLine 1100, 1100, 1800, 1800, &HFF00FF, vbLineBoxFill

Move i, j

End Sub



     DrawCircle, DrawLine  Move  ,    Form2        .

9.         Option Explicit         ,    3.4.


 3.4

Dim a, b, i, j

i=0

j=0

a = 100

b = 50



10.  Project Explorer     Form1.   Command1  Command2  Caption       .

11.    Command1           ,    3.5.


 3.5

Private Sub Command1_Click()

If ShFrm2 Then

Form2.Show

ShFrm2 = False

Command1.Caption = 

Else

Form2.Hide

ShFrm2 = True

Command1.Caption = 

End If

End Sub



     Show  Hide      Form2    Command1.

12.    Command2           ,    3.6.


 3.6

Private Sub Command2_Click()

Cls

Form2.Z0rder vbBringToFront

End Sub



 Cls    Form1     ,   ZOrder   Form2       .      ,      Form1.

13.        ,    3.7.


 3.7

Private Sub Form_Load()

DrawLine 1100, 1100, 9000, 18000, &HFF&

DrawLine 1100, 1100, 18000, 10000, &HFF&

DrawLine 1100, 1100, 18000, 18000, &HFF&

End Sub



        Form1        .

14.         ,     .     ,    3.8.


 3.8

Option Explicit

Dim ShFrm2 As Boolear

ShFrm2 = True



15. .          Pocket PC 2002 Emulation,      Run ? Execute.       Form1     .          Form2       ,        (.3.21).




.3.21.  FormMethods  /



 Form2             .      ,        Form1.             Form2.  ,             .




 3.5


  ,     Form.

1.          FormEvents.

2.    TextBox, ListBox    CommandButton ,     .3.22.




.3.22.    .



3.         .      . 3.5.


 3.5.   




4.     .       . 3.6.


 3.6.   




5.   Project Explorer   Form1.       ,      View Code    ,    3.9.


 3.9

Rem     Form2  

Private Sub Command1_Click()

Form2.Show

End Sub



Rem     Form2

Private Sub Command2_Click()

Form2.Hide

End Sub



Rem      Form2

Private Sub Command3_Click()

If Form2.Height > 2500 Then

Form2.Height = 1000: Form2.Width = 1000

Else

Form2.Height = 3000: Form2.Width = 3000

End If

End Sub



Private Sub Form_OKClick()

App.End

End Sub



Rem        

Private Sub List1_DblClick()

List1.Clear

End Sub



Rem        

Private Sub Form_SIPChange(ByVal IsV As Boolean)

If IsV Then

List1.AddItem  

Else

List1.AddItem  

End If

End Sub



Rem         

Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal shift As Integer)

List1.AddItem Text1_KeyDown

End Sub



Private Sub Form_KeyPress(ByVal KeyAscii As Integer)

List1.AddItem Text1_KeyPress

End Sub



Private Sub Form_KeyUp(ByVal KeyCode As Integer, ByVal shift As Integer)

List1.AddItem Text1_KeyUp

End Sub



Private Sub Form_MouseDown(ByVal button As Integer, ByVal shift As Integer, x, y)

List1.AddItem Form_MouseDown

End Sub



Private Sub Form_MouseUp(ByVal button As Integer, ByVal shift As Integer, _x, y)

List1.AddItem Form_MouseUp

End Sub



Rem      ,   

Rem          

Private Sub Form_MouseMove(ByVal button As Integer, ByVal shift As Integer, x, y)

If button = 1 Then List1.AddItem Form_MouseMove

End Sub



6.   Project Explorer   Form2.      ,    3.10.


 3.10

Private Sub Form_QueryUnload(ByVal cancel As Integer, unloadmode)

Form1.List1.AddItem Form2 QueryUnload

End Sub



Private Sub Form_Activate()

Form1.List1.AddItem Form2 Activate

End Sub

Private Sub Form_Deactivate()

Form1.List1.AddItem Form2 Deactivate

End Sub

Private Sub Form_GotFocus()

Form1.List1.AddItem Form2  

End Sub

Private Sub Form_LostFocus()

Form1.List1.AddItem Form2  

End Sub

Private Sub Form_Paint()

Form1.List1.AddItem Form2 

End Sub



Private Sub Form_Load()

Form1.List1.AddItem Form2 

End Sub



Private Sub Form_Resize()

Form1.List1.AddItem  Form2 Resize

End Sub



7.   Run ? Execute     .      .

8.   1      ,   ListBox     ,      .

9.  Form2 ,      .       ,   .

10.  3.          Form1,   Form2  .     ,   Form2 ,  ,    ,      .   ,      ,     .

11.  2.     ,     .

12.    .   3.    Form2    .   ,    ,     .

13.      Form1   .     ,       .

14.    TextBox      .     .        .    - ,    ,         ,     Down.          Down, Press  Up.    eVB     ,     ,         Microsoft.

15.       .

16.  ,        Form2    Hide         .      QueryUnload.



.

 ,        eVB, ,   .           ,   (  )     .       ,      ,     ,             ,  ,               .



17. ,       ,     QueryUnload,     3.11.


 3.11

Private Sub Form_QueryUnload(cancel, unloadmode)

Form1.List1.AddItem Form2 QueryUnload

cancel = 0

End Sub

Private Sub Form_Unload(cancel)

Form1.List1.AddItem Form2 Unload

End Sub



 cancel    ,   , ,    .  ,    ,    .      ,   , ,      .



!

     Unload     cancel = 0,      .




  


 .3.23     eVB.       .               .




.3.23.    eVB.



1.Shape.          (, , , ,      ).       Shape.    Move, Refresh  ZOrder    Shape    .  Shape       .    Shape .

2.Line.        ,   .     .  Move   Line ,            .

3.Label.       .      Caption       1024 .      Autosize (       )  WordWrap ( ,    ,       ).          Font       Alignment.  Label    Change,       Caption.             Move, Refresh  ZOrder.

4.TextBox.          .         Text.  MultiLine       .       2048 ,         32 .     ( Font)    ( Alignment).      ,            ScrollBars.   Text           ,   , ,     .             SelLength (  ), SelStart ( ,    )  SelText (,   ). ,          .       ,      (KeyDown, KeyPress  KeyUp).  ,     eVB    .          3.5.

5.Frame. -,         .   .       .     Frame    OptionButton,       .

6.CommandButton.  ,         .     Click     CommandButton.

7.CheckBox. ,          .      Value.  0 ,    ,  1 ,    ,   2   ,    .    CheckBox   Click,       Value,    ,          .

8.OptionButton. ,        ,   .     ,    OptionButton      CheckBox.       ,   ,      OptionButton,     .

9.ComboBox.  ,      ,        .      .       ,  ,         Custom.             (ListData)    (ItemData).       ,        ListData,    ItemData       .  Style          .           (SelLength, SelStart, SelText),     TextBox.             .  List  ,   .  ListCount     .  ListIndex     .  NewIndex      ,   TopIndex        .            . ,  Sorted    true         .            AddItem  RemoveItem,         .  Clear   .

  ComboBox    .  Change        .  Click     .      Scroll.

10.ListBox.   ComboBox    TextBox  ListBox,  ,   ,      ListBox.  ListBox   .         ,     .     ,    ListBox       .      MultiSelect  1       2       .

11.HScrollBar.     .       ,       .  Max    ,     Value.       .  Min   ,     Value.  Value  ,      .  LargeChange   ,     ,      .  SmallChange              .  ,      Scrollbar      Scroll (   )  Change (       Value  ).

12.VScrollBar.     .     HScrollBar.

13.Timer.        Timer  ,    Interval.  Interval       1  65 535.     ,     Enabled  false.

      eVB      ,  ,          .     ,    ,      ,         .     .

  , , .       ActiveX.  ActiveX    ,     eVB   . Visual Basic      COM-,        ,      ActiveX.




  ActiveX





  ActiveX


     ActiveX   ,        .       Project ? Components     Ctrl+T.       ActiveX-   (. .3.11).        ,     ,    OK.         .  .3.24 ,      MenuBar Control.




.3.24.  MenuBar,   .




    ActiveX


    ,           ,  ActiveX  COM-,              ,    .

          .      ,         eVB.          .            ,     .

?    Project ? Project Properties.

?   General    Frequency  Always,    Component to Update   Project Components.

             ActiveX   .       , ,    ,    .   ,    ,   .

      ActiveX    Control Manager.       .

?    Tools ? Remote Tools ? Control Manager.     ,      .3.25.




.3.25.   Control Manager.



?      ,       (   Pocket PC 2002 Emulation).       ,      (    Microsoft CE Grid Control).              Install to Target.     .

,         .        (   File Viewer  ActiveSync),       RegSvrCE.exe.       C: \Windows  Files\wce300\Pocket PC 2002\target\arm    C: \Windows  Files\wce300\Pocket PC 2002\target\x86.   arm      ,    8     .        .        arm  8  C: \Program File\Windows  Files\wce300\Pocket PC 2002\controls.

?  ,   RegSvrCE.exe    ,   ,     ,    RegSvrCE.exe.      ,      .3.26.




.3.26.   RegSvrCE.exe.



?         ,   ,   Register    .

?    ,       (.3.27).




.3.27.    .



      .   ,          .

        .        .         .




 MenuBar


          Pocket PC.

          ,     .   ,         .       ,    .          .

 Enabled        .         false.    NewButton   true,          New.       .




 3.6


1.          EnPhrase   EnPhrase.ebp.

2.    Caption    ,    Height    7050.      ,  ,    VScrollBar.

3.    Frame.       3.7.


 3.7.   Frame




4.     Label.       . 3.8.


 3.8.    Label1, Label2  Label3




5.     CommandButton.       . 3.9.


 3.9.    Command1, Command2, Command3  Command4




6.    ListBox.       . 3.10.


 3.10.    ListBox




7.     .       ,     .3.28.




.3.28.  .



8. ,    ,   ,        ,     Change   VScroll.       3.12.


 3.12

Private Sub VScroll1_Change()

Frame1.Top = -200  VScroll1.Value

End Sub



       ,         .    Value   ,        ,      .   -200   ,              .

9.     ,       .      Project ? Components      Microsoft Pocket PC MenuBar Control.              Project ? Project Properties|Update Components ? Always|Component to Updates ? Project Components.

10.       ,      ,   MenuBar     .   NewButton    false.         .     ,     ,  ,     .        Form_Load().

11.    ,     MenuBar.        ( MenuBarMenu)   ( MenuBarButton),         Pocket PC.    MenuBar,    ,    Collection,      ,   ImageList,     ,     .  ButtonClick, MenuClick  NewClick       ,     New .

        AddButton  AddMenu  Collection.         ,     ,          .

12.      Form_Load().      3.13.    ,       .        .


 3.13

Rem 1

Dim mnuFile As MenuBarMenu

Rem 2

Dim mnuSep, mnuClrl, mnuClr2, mnuClr3 As MenuBarButtor

Rem 3

Set mnuFile = MenuBarl.Controls.'", mnuFile)

Rem 4

mnuFile.Items.Add 1, itFont,  

Rem 5

mnuFile.Items.Item(1). SubItems.Add 1, itBold, 

mnuFile.Items.Item(1). SubItems.Add 2, itItal, 

mnuFile.Items.Item(1). SubItems.Add 3, itSize, 

Rem 6

mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 1, it8, * 8

mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 2, it10, 10

mnuFile.Items.Item(1). SubItems.Item(3). SubItems.Add 3, it12, 12

Rem 7

mnuFile.Items.Add 2, "", ""

mnuFile.Items.Item(2). Style = mbrMenuSeparator

Rem 8

mnuFile.Items.Add 3, itOpen, 

Rem 9

mnuFile.Items.Add 5, "", ""

mnuFile.Items.Item(5). Style = mbrMenuSeparator

Rem 10

mnuFile.Items.Add 6, itExit,  

Rem 11

Set mnuSep = MenuBar1.Controls.AddButton(mnuSep)

mnuSep.Style = mbrSeparator

Rem 12

Set mnuClr1 = MenuBar1.Controls.AddButton("1")

mnuClr1.Style = mbrButtonGroup

mnuClr1.Caption = " 1

Set mnuClr2 = MenuBar1.Controls.AddButton("2")

mnuClr2.Style = mbrButtonGroup

mnuClr2.Caption = " 2

Set mnuClr3 = MenuBar1.Controls.AddButton("3")

mnuClr3.Style = mbrButtonGroup

mnuClr3.Caption = " 3

Rem 13

Frame1.Top = -200

List1.Clear

End Sub



13.     .         .

1)   MenuBarMenu.  , ,        .




  .


   .

   ,     (https://www.litres.ru/vladimir-volkov/programmirovanie-dlya-karmannyh-komputerov/)  .

      Visa, MasterCard, Maestro,    ,   ,     ,  PayPal, WebMoney, ., QIWI ,       .


