Deutsch

Воспоминания Embedded ч5 13.12.2024

117  
uscheswoi_82 коренной житель13.12.24 07:11
13.12.24 07:11 

Всем привет!

Сегодня вспомним КПК, или Pocket PC. Выглядел тогда КПК на Windows CE, вот так:



Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение
#1 
uscheswoi_82 коренной житель13.12.24 11:01
NEW 13.12.24 11:01 
в ответ uscheswoi_82 13.12.24 07:11

Сделаем небольшую программу на eMbedded Visual Basic 3.0:

1. Запустим среду eMbedded Visual Basic 3.0, и выберим File->New Project:




2. В диаологовом окне New Project выберем Windows CE for the Pocket PC project:




3. Создасться приложкеие, и появится пустая форма:



4. Сделаем следующее:




5. Напишим код следующий Form1.frm:

Option Explicit

Private Sub cmdSayYourName_Click()
    MsgBox "Hello " + Me.txtYourName.Text + "!", vbInformation, "Your name is"
End Sub

Private Sub Form_OKClick()
    App.End
End Sub

6. Вуаля!






Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение
#2 
uscheswoi_82 коренной житель13.12.24 12:19
NEW 13.12.24 12:19 
в ответ uscheswoi_82 13.12.24 11:01

Продолжим... теперь про 2003 версию.

1. Запустим Visual Studio 2005, и создадим проект Datei->Neu->Projekt...

2. Выберем из диалогового окна Neues Projekt, Intelligentes Gerät->Pocket PC 2003 и Geräteanwendung:



Создастся проект, и появится такое пустое диалоговое окно:



3. Сделаем следующее:




4. Вот код Form1.cs:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace DeviceApplication1 {
  public partial class Form1 : Form {
    public Form1() {
      InitializeComponent();
    }

    private void btnSayName_Click(object sender, EventArgs e) {
      MessageBox.Show("Hello " + txtYourName.Text + "!");
    }
  }
}



5. Вуаля!



Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение
#3