Contoh Jawaban

Jawaban soal #5.
Kode program LDmicro:

Tampilan StampPlot:

Kode makro StampPlot:

Kode program LDmicro dan kode makro StampPlot untuk gambar di atas dapat diambil di sini.

Jawaban soal #18.
Kode program LDmicro:

Kode program LDmicro untuk gambar di atas dapat diambil di sini

Jawaban soal +10.

Berikut program LDmicronya:

Berikut kode program VBnya:

Public Class Form1

    Dim datamu As String

    Dim dataku As Integer

    Dim tabelku As New DataTable

    Dim counterku As Integer

    Dim xmin, xmax, ymin, ymax As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        SerialPort1.PortName = "COM4"

        SerialPort1.Open()

        SerialPort1.ReceivedBytesThreshold = 1

        SerialPort1.Encoding = System.Text.Encoding.Default

        CheckForIllegalCrossThreadCalls = False

        ProgressBar1.Maximum = 255

        Timer1.Enabled = True

        tabelku.Columns.Add("x", GetType(Integer))

        tabelku.Columns.Add("y", GetType(Integer))

    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        datamu = SerialPort1.ReadExisting()

        If Len(datamu) = 1 Then dataku = Asc(datamu)

        Label1.Text = dataku

        ProgressBar1.Value = Label1.Text

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        With Chart1.ChartAreas(0)

            .AxisX.Minimum = 0 + xmin

            .AxisX.Maximum = 100 + xmax

            .AxisY.Minimum = 0 + ymin

            .AxisY.Maximum = 255 + ymax

        End With

        tabelku.Rows.Add(counterku, dataku)

        counterku = counterku + 1

        With Chart1.Series(0)

            .Points.DataBind(tabelku.DefaultView, "x", "y", Nothing)

            .ChartType = DataVisualization.Charting.SeriesChartType.FastLine

        End With

        If counterku Mod 100 = 0 Then

            xmin += 100

            xmax += 100

            ymin += 0

            ymax += 0

        End If

    End Sub

End Class

Berikut tampilan programnya:

Kode program LDmicro dan program VB untuk soal +10 di atas dapat diambil di sini.