Saya ngga tahu jelas sistem yang mas bangun, tapi coba mas, ganti kode
if datainp1 then ... menjadi if datainput="1" then .., karena tipe variabel datainput adalah string.
caringinblk <[EMAIL PROTECTED]> wrote:
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 masukannya
Relax. Yahoo! Mail virus scanning helps detect nasty viruses!
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
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
