mismatch bisa terjadi karena kesalahan tipedata/ variabel
coba dicek lagi tipedatanya
misalkan: datainput="1"
IpinZ
----- Original Message -----
From: "caringinblk" <[EMAIL PROTECTED]>
> terima kasih nich sblm atas masukan rekan milis ttg remote program yg
> pernah saya tanyakan. Tapi kemudian ada persoalaan yg mucul dari
> proses clien server tsb. Ilustrasinya begini client1 mengirim data
> angka 1 ke server program berjalan baik, kemudian client2 mengirim
> data angka 2 program berjalan baik. Tapi error data mismatch muncul
> ketika client1 mencoba mengirim data lagi ke server. Program yg buat
> sbb:
> server : dim datainput as string
> Sub Winsock1_dataarrival(index as integer, byval..)
> winsock1(index).getdata datainput, vbstring
> if datainput=1 then option1.setfocus 'no.10
> elseif datainput = 2 then option2.setfocus
> end if
> client 1-dstnya : dim unit,pesan as string
> sub form load
> unit=inputbox("unit ke") 'ditulis unit ke 1 atau 2
> text1.text=unit
> end sub
> sub command1_click
> pesan=text1.text
> winsock1.senddata pesan
> end sub
> error mismatch muncul pada no.10. Terima kasih sebelumnya atas
> bantuannya.
>
>
>
>
>
>
>
> Wahana Programmer Groups Links
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
