Воспоминание Embedded ч3 28.11.2024

222

uscheswoi_82 коренной житель28.11.24 23:24

28.11.24 23:24

Всем привет!

А тут сегодня вспомним про Palm OS, и программирование на NS Basic.

1. Запустим NS Basic/Palm и выберем в диалоговом окне "Открыть" Project File:

2. Вот новый проект:

3. Сделаем так:

4. Напишим код на бейсике, похож сильно на Visual Basic 6.0:

Sub object1007()
  MsgBox("Privet " + Field1005.Text + "!") 
End Sub

5. Запустим, вуаля!

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

uscheswoi_82 коренной житель28.11.24 23:29

NEW 28.11.24 23:29

в ответ uscheswoi_82 28.11.24 23:24

Вот про Palm/Palm OS:

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

uscheswoi_82 коренной житель15.12.24 11:08

NEW 15.12.24 11:08

в ответ uscheswoi_82 28.11.24 23:29

Продолжем. Microsoft выпустила так-же Windows CE Palm-Size см. https://www.pocketpcfaq.com/wce/20/pict20.jpg, но это было непопулярно.

Сделаем так.

1. Запустим Microsoft eMbedded Visual Basic 3.0.

2. Создадим новый проект File->New Project, и выберем в диалоговом окне New Project Window CE Palm Size Project см.:

3. Дальше сделаем так см.:

4. Вот код:

Option Explicit

Private Sub cmdSayMyName_Click()
    MsgBox "Hello " + Me.txtYourName.Text + "!"
End Sub

5. Вуаля! А вот результат см.:

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