Author Topic: Ada yang punya User Guide Timbangan Digital GST-9600 ?  (Read 4854 times)

0 Members and 1 Guest are viewing this topic.

Offline Subiyantoro

  • Senior Member
  • *
  • Posts: 594
  • Selesaikan codingmu dulu baru pake FB
Ada yang punya User Guide Timbangan Digital GST-9600 ?
« on: January 14, 2012, 07:45:21 AM »
Foxer mania,

Saat ini saya dapat kerjaan bikin program timbangan digital. Dulu pernah bikin dan udah bisa jalan tapi merk dan tipe timbngannya beda dengan yang saat ini saya tangani. Merk Timbangannya GST-9600, sewaktu saya coba program saya ternyata tidak bisa jalan. Masalahnya nih timbangan beli bekas dan buku manualnya udah nggak ada.
  Selama ini mereka mengoperasikan timbangan dicatat secara manual nilai yang keluar dari timbangan.
Mohon dari rekan-rekan jika punya bukunya atau link untuk download buku manual sekiranya mau berbagi ?

Trima kasih....

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #1 on: January 14, 2012, 10:39:44 AM »
coba pake mscomm32.ocx aja untuk baca apa pun digits yang keluar dari port-nya yang tersedia/bisa di-tap oleh PC, lalu buat sendiri aja "driver"-nya... gimanapun kan data yang diperlukan dari device itu cuman angka "jumlah berat dalam satuan yang benar", lainnya dari PC/aplikasi kita

Offline Subiyantoro

  • Senior Member
  • *
  • Posts: 594
  • Selesaikan codingmu dulu baru pake FB
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #2 on: January 14, 2012, 12:12:45 PM »
Apa semua timbangan digital sama seting Parity nya, P. DM ? Saya biasanya pake "9600,N,8,1". Trus kalo merk AND pada timbangannya ada setingan khusus untuk mengirim data ke komputer atau ke LPT1 langsung. Apakah pada tipe ini juga ?

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #3 on: January 14, 2012, 05:15:45 PM »
ya jelas dong!

jelas-jelas saya ngga tau !

Offline Subiyantoro

  • Senior Member
  • *
  • Posts: 594
  • Selesaikan codingmu dulu baru pake FB
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #4 on: January 15, 2012, 09:46:34 AM »

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #5 on: January 15, 2012, 10:53:22 AM »
ngga segitunya juga sih... 9800,N,8,1 itu setting paling standar untuk komunikasi Com.. dan hampir semua alat tidak masalah dengan itu, kecuali ya kenyataan itu adalah standar kecil, sedangkan alat kemungkinan punya speed jauh melebihi 9800 yang jadul itu

soal AND kebanding merek lain ya saya nggak tau... dulu waktu masih punya kiosk di pasar kan timbangan cuman dipake, nggak di obok2 belakang atau bawahnya

Offline Subiyantoro

  • Senior Member
  • *
  • Posts: 594
  • Selesaikan codingmu dulu baru pake FB
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #6 on: January 17, 2012, 01:26:56 PM »
 :blob10: :blob3: :blob5: :blob6: :blob7: :blob9: :blob8: :blob1:
Sundul...sundul...

Offline samsul

  • Junior Member
  • *
  • Posts: 179
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #7 on: January 17, 2012, 06:12:30 PM »
@subiantoro

coba pakai setting ini :
2400,e,7,1


Offline Subiyantoro

  • Senior Member
  • *
  • Posts: 594
  • Selesaikan codingmu dulu baru pake FB
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #8 on: January 18, 2012, 07:51:25 AM »
@samsul: Trims pak, akan saya coba dulu ke TKP

Offline arietsh

  • Junior Member
  • *
  • Posts: 127
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #9 on: January 27, 2012, 11:40:55 AM »
oh ngomong masalah timbangan gst
aq juga menggunakan indikator model seperti  itu.  dan pake strin "2400,E,7,1"

cuma aq sedikit agak kesulitan nangkap data dari indikator tsb blm bisa munculkan angka sesuai apa yg terjadi di
indikator. untuk saat  ini harus nunggu angka dari indikator itu berhenti baru aq munculkuan di form.

di even klik saya pake code seperti ini :
   !*   set step on
   ThisForm.Olecontrol1.CommPort = 1
   ThisForm.Olecontrol1.Settings = "2400,E,7,1"
   ThisForm.Olecontrol1.InputLen = 0
   ThisForm.Olecontrol1.PortOpen = .t.
   bb=1
   q= thisform.olecontrol1.commevent
   inkey(1)
   x= thisform.olecontrol1.oncomm()
   ThisForm.Olecontrol1.PortOpen = .f.
   teks= SUBSTR(x,9,6)
   teks1=VAL(teks)
   thisform.txtbruto.Value=teks1
      thisform.txttimbang.Value=teks1
     


************
  Mohon pencerahan/koreksi di code yg saya buat ... bagaimana teks itu selalu up to date seperti di indikatornya. tanpa
  menunggu dulu angkanya berhenti baru di ambil.
 
 terimakasih.

Offline Subiyantoro

  • Senior Member
  • *
  • Posts: 594
  • Selesaikan codingmu dulu baru pake FB
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #10 on: January 27, 2012, 01:00:43 PM »
@arietsh : Benar saya kemarin udah nemu setingannya : 2400,E,7,1

untuk script anda lebih baik nya :

Quote
   ThisForm.Olecontrol1.CommPort = 1
   ThisForm.Olecontrol1.Settings = "2400,E,7,1"
   ThisForm.Olecontrol1.InputLen = 0
   ThisForm.Olecontrol1.PortOpen = .t.

Anda letakkan pada form.init sebab script diatas untuk mengkoneksikan timbangan dengan komputer

Sedangkan  "OnComm" itu adalah event ketika ada kiriman data dari timbangan ke RS-232


Offline samsul

  • Junior Member
  • *
  • Posts: 179
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #11 on: January 27, 2012, 03:39:18 PM »
@subiantoro

baguslah kalau setting itu udah km coba dan benar.

@ariets
 form init :
WITH thisform.mscomm1
IF .portOpen =.F.
   .Settings = "9600,e,7,1"   
   .CommPort = 1   
   .PortOpen = .T.
ENDIF

mscomm1 procedure oncomm :


WITH thisform
    .mybuffer=SPACE(0)
 
IF this.commEvent=2
   .mybuffer = .mybuffer + This.Input
ENDIF

IF INLIST(LEFT(.mybuffer ,2),'ST','US')
   .qbruto.Value = VAL(SUBSTR(.mybuffer,8,7))
    
   IF .qbruto.Value#0
         .hit_netto
   ENDIF
ENDIF

ENDWITH


procedure oncomm tergantung keluaran dari timbangan
kebetulan saya menggunakan ini :
IF INLIST(LEFT(.mybuffer ,2),'ST','US')
   .qbruto.Value = VAL(SUBSTR(.mybuffer,8,7))
    
   IF .qbruto.Value#0
         .hit_netto
   ENDIF
ENDIF


monggo ....

Offline arietsh

  • Junior Member
  • *
  • Posts: 127
Re: Ada yang punya User Guide Timbangan Digital GST-9600 ?
« Reply #12 on: February 10, 2012, 10:38:07 AM »
@ Subiyantoro & samsul Terimakasih atas infonya...

saya akan coba lagi...