Menggabungkan Digital dan Analog (mengirim dan menerima sinyal data Digital dan Analog) dengan VB 6

Di sini akan diberikan contoh bagaimana mengirimkan dan menerima sinyal data Digital dan Analog pada program komputer.

Di sisi komputer, dengan program VB6:

• Data Input Digital dinyatakan oleh objek Command Button
• Data Input Analog dinyatakan oleh objek Slider
• Data Output Digital dinyatakan oleh objek Shape
• Data Output Analog dinyatakan oleh objek Picture Box.

Berikut program VB6:

Private Sub drawscale(var As Long)

Picture1.Cls

Picture1.Line (0, 0)-(var, Picture1.ScaleHeight), vb3shadow, BF

End Sub

Private Sub Command1_Click()

Dim statusled As String

If Option1 = True Then

statusled = "b"

Else

statusled = "a"

End If

MSComm1.Output = statusled

End Sub

Private Sub Form_Load()

Slider1.Max = 255

Slider1.Min = 0

Slider1.TickFrequency = 10

Slider1.LargeChange = 10

MSComm1.RThreshold = 3

MSComm1.InputLen = 3

MSComm1.Settings = "9600,n,8,1"

MSComm1.CommPort = 6

MSComm1.PortOpen = True

MSComm1.DTREnable = False

Picture1.ScaleWidth = 1000

Picture1.AutoRedraw = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

MSComm1.PortOpen = False

End Sub

Private Sub Slider1_Change()

MSComm1.Output = Chr$(Slider1.Value)

Label3.Caption = Slider1.Value

End Sub

Private Sub MSComm1_OnComm()

Dim sData As String

Dim highbyte As Long

Dim lowbyte As Long

Dim word As Long

Dim tombol As String

If MSComm1.CommEvent = comEvReceive Then

    sData = MSComm1.Input

    tombol = Mid$(sData, 1, 1)

    highbyte = Asc(Mid$(sData, 2, 1))

    lowbyte = Asc(Mid$(sData, 3, 1))

    word = (highbyte * &H100) Or lowbyte

    Label1.Caption = CStr(word)

    drawscale word

    Label2.Caption = tombol

    If tombol = "a" Then

    Shape1.FillColor = vbYellow

    Else

    Shape1.FillColor = vbRed

    End If

End If

End Sub

Keterangan Objek yang digunakan::

• 1 Form
• 1 Mscomm (diperoleh dari Project / Components / Controls / Microsoft Comm Control 6.0)
• 1 Shape
• 3 Label
• 1 Picture Box
• 1 Slider (diperoleh dari Project / Components / Controls / Microsoft Windows Common Controls 6.0)
• 2 Option Button
• 1 Command Button  

http://arduinodanvb.blogspot.com/2010/10/interface-3-menggabungkan-digital-dan.html