Panduan Teknis



Panduan   untuk membaca/menulis  data  ke  Counter Produksi (mikroCounter , Andon 7 segment dan Andon led matrik ) 



Untuk mengkases Data  yang tersimpan di Counter Produksi dapat  dilakukan dengan 2 cara :


1. Koneksi  melalui jaringan komputer / LAN



Komunikasi antara aplikasi dan counter  menggunakan komunikasi Client-Server.  Counter berlaku sebagai Server dan aplikasi  Vb.net atau C#  yang kita buat sebagai client.




Untuk  mengakses data counter menggunakan aplikasi VB.Net atau C#  anda akan diberikan class library untuk setiap pembelian counter produksi. Dengan class library ini pemrograman VB.net atau C# untuk mengakses data counter menjadi  mudah  dilakukan.




- Contoh  kode  VB.Net membaca data counter :

Imports counterproduksi.com.Counter Lan         'counter class library


Dim counter1 As counterproduksi.com.Counter Lan = New counterproduksi.com.Counter Lan

  Private Sub Button2_Click()
        Try
            Counter1.ReadDataCounter( 1, 0, 10)  //  baca  10 data di counter1
            Catch [error] As SystemException
            MessageBox.Show([error].Message)
        End Try
    End Sub

-----------------------------------------------------------------------------------------------------------------

- contoh code C#  membaca data counter : 

Using  counterproduksi.com.Counter Lan    //counter class library

 private void btnReadCounter_Click()
        {
            try
            {
               Counter1.ReadDataCounter( 1, 0, 10)    // membaca  10 data di counter1

            }
            catch (Exception Ex)
            {
                throw Ex;
            }
            finally
            {
             
            }
       
        }


2. Koneksi melalui komnikasi serial RS232 / RS-485



berikut sekilas potongan code program membaca data counter

Imports counterproduksi.com.CounterSerial 


Public Class Form1

Dim counter1 As counterproduksi.com.CounterSerial  counter1  = New counterproduksi.com.CounterSerial


Private Sub Button1_Click( )
If  counter1.Open("COM2", 9600, 8, 2, 1) = True Then
txtstatus.Text = counter1.counterStatus
Else
txtstatus.Text = counter1.counterStatus
End If

End Sub



Private Sub cmdread_Click()

Dim datat(3) As Short    '  buffer array  untuk menampung  3 data hasil pembacaan

If  Counter1.ReadDataCounter(1, 0, 3, data) = True Then        //baca 3 data counter1

txtPlan.Text = data(0).ToString
txtaktual.Text = data(1).ToString
txtTarget.Text = data(2).ToString
Else
txtstatus.Text = counter1.counterStatus

End If

End Sub

End Class



*Penjelasan detail instalasi dan pemrograman ada di   dokument  Manual yang disertakan saat pembelian.