Panduan Teknis



Panduan   untuk membaca/menulis  data  ke  Counter Produksi 



Untuk mengkases Data   Counter  melalui komputer dapat  dilakukan dengan 2 cara :


1. Koneksi  melalui LAN  atau  Wifi


Koneksi Melalui  Ethernet LAN






Koneks melalui Wifi


Komunikasi antara aplikasi dan counter  menggunakan komunikasi Client-Server.  Counter berlaku sebagai Server dan aplikasi  monitoring di komputer  sebagai client.  Untuk aplikasibisa di coba dengan yg sudah disediakan versi free https://www.counterproduksi.com/p/download.html

Setting  SSID , PAssword dan IP   

Sebelum Counter dgn fitur  Wifi  digunakan harus disetting  SSID , ,Password    dan IP melalaui serial komunikasi yg tersedia menggunakan aplikasi yg disediakan sbb:

Aplikasi Setting Counter Wifi dan Counter Ethernet LAN

Supaya IP tidak berubah rubah seting  DHCP di  router akses pointnya  diset Disable.

Sedangkan untuk Counter  ethernet LAN  hanya diset alamat IP saja .  masih menggunakan aplikasi Andon setting diatas.






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.