Плизззз VB\VC++ и ASM51 (нужна программа из 5 строк) Опции

[IncreMan]

Люди добрые, спасите...

Надо написать малюсенькую программу но вот как это реализовать не знаю.

Вот что нужно:
1. На VisualBasic или VisualC++ написать малюсенькую программу в которой будет 2 строки ввода, каждая ограничена до 16 символов. Нажимая на кнопку send инфа из этих строк отправляестья в COM1 порт.

2. На Assembler-51 (для микроконтроллера 8051/31) написать прогу которая будет принимать эту инфу.

Всё это необходимо для того, чтобы отобразить на 2 строчках LCD то, что написали в компе. Программа для вывода на LCD уже есть, осталось вышеперечисленное. Наверное также важно чтобы к строкам в программе на VB или VC++ добавлялся какой-то символ обозначающий для проги на asm-51 что это 1 или 2 строка. Мне сказали что реально реализовать за счёт внутреннего RAM в микроконтроллере 8031, поэтому думаю будет наилучьшим вариантом, запись полученной инфы из компа в адреса RAM, а оттуда будет выдоваться всё на LCD.

Буду признателен любой помощи!!!!
Плиззз, очень надо!!!!

Заранее благодарен!

[andron86]

А там C++помоему и нету - простой С и API функции.
Тебе тут и надо-то диалоговый проект создать, button и editcontrol положить, ну а потом eventи обработать и всё. Вот тебе ссылка, там есть и VisualC++, думаю сам быстро разберёшся!

Сообщение отредактировал andron86 - Apr 4 2006, 16:47

[IncreMan]

Я только взглянул мне в глазах потемнело.

У меня есть приблизительный код на VB который отправляет эксадецимальное значение, а мне надо не значение а 2 строки по 16 символов, а вот какой функцией перевернуть все 16 символов в ascii код и отправить их по одному не знаю.

Мне больше половины всего кода не надо, надо только 2 поля ввода ограниченных до 16 символов, а при нажатии на send они переводяться в ascii код (потом видимо в hex) и отправляються на com1port!

Вот код который у меня есть:

Код

Public dat As String
Public tim As String
Public CurrentTime As String
Public x, z As Integer

Private Sub Command3_Click()

End Sub

Private Sub Form_Load()
    Timer2.Enabled = True       'Show clock and date'
    Combo1.AddItem "Summer"
    Combo1.AddItem "Winter"
    Combo1.AddItem "Manual"
    Combo1.AddItem "Activate"
     ' MSComm1.CommPort = 1
     ' MSComm1.Settings = "9600,n,8,1"
   If MSComm1.PortOpen = True Then
      MSComm1.PortOpen = False
   End If
End Sub
Private Sub Command1_Click()                 'Manual'
  dat = Text1.Text
  tim = Text2.Text
  Label2.Caption = dat & " " & tim
  Command1.Enabled = False
  Command2.Enabled = True
End Sub
Private Sub Command2_Click()                     'Start'
   x = 0
   z = 0
   Timer1.Enabled = True
   Command2.Enabled = False
   Combo1.Enabled = False
End Sub
Private Sub Combo1_Click()                          'Choosing the Mode'
  CurrentTime = Format(Time, "hh:mm")
  Select Case Combo1.ListIndex
     Case 0
        tim = "20:09"
        Label2.Caption = "Every day at: " & tim
        Command2.Enabled = True
     Case 1
        tim = "19:58"
        Label2.Caption = "Every day at: 19:00"
        Command2.Enabled = True
     Case 2
       Label2.Caption = " "
       Command1.Enabled = True
      ' Command2.Enabled = True
     Case 3
       tim = CurrentTime
       Command2.Enabled = True
    End Select
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub MSComm1_OnComm()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text3_Change()

End Sub

Private Sub Text4_Change()

End Sub

Private Sub Timer1_Timer()              'Main Timer'
    CurrentTime = Format(Time, "hh:mm")
    x = x + 1
   ' Text1.Text = x
    Text2.Text = tim
    Text3.Text = CurrentTime
    
    If CurrentTime = tim Then
      If z = 0 Then                            'Checks if sent '
        If MSComm1.PortOpen = False Then
           MSComm1.PortOpen = True
        End If
        MSComm1.Output = Hex(255)
        Text1.Text = Hex(255)
        z = 1
        x = 0
      End If
      Call cw
    End If
  
End Sub
Public Function cw()
  Label2.Caption = "Evrithing vorks "
  Text4.Text = x
  
  If x = 5 Then                    ' Time period in sec - x'
   If MSComm1.PortOpen = False Then
      MSComm1.PortOpen = True
   End If
   MSComm1.Output = Hex(170)
   Text1.Text = Hex(170)
   Label2.Caption = "  "
   MSComm1.PortOpen = False
   Combo1.Enabled = True
   Timer1.Enabled = False
  End If
End Function
Private Sub Timer2_Timer()           'Secondary timer for clock and date '
Label1.Caption = Date & "  " & Time
End Sub

Сообщение отредактировал IncreMan - Apr 4 2006, 17:22