Toto Sugiarto wrote:
> Halo Bung Andri,
> Maaf saya bukannya menjawab malah bertanya :-)
>
> Saya juga lagi mengembangkan kirim sms via vb, dan Alhamdulillah ada
> kemajuan. Namun, rasanya kok lambat ya. Dari mulai klik sampai muncul
> MsgBox
> "Selesai" sekitar 3 - 4 detik. Padahal settingnya sudah mentok di
> 115200,N,8,1.
> Kalau Bung Andri berapa detik?
>
> NB: saya pakai Nokia 30
>
> 'Kodingnya sbb:
>
> Private Sub Command1_Click()
> MSComm1.PortOpen = True
>
> MSComm1.Output = "AT+CMGF=1" & Chr(13)
> isi = ""
> Do Until InStr(1, isi, "OK") <> 0
> DoEvents
> isi = isi & MSComm1.Input
> Loop
>
> MSComm1.Output = "AT+CMGS=" & Chr(34) & "+628123456789" & Chr(34) &
> ",145" & Chr(13)
> isi = ""
> Do Until InStr(1, isi, ">") <> 0
> DoEvents
> isi = isi & MSComm1.Input
> Loop
>
> MSComm1.Output = "Isi SMS-nya di sini" & Chr(26) & Chr(13)
> isi = ""
> Do Until InStr(1, isi, "OK") <> 0
> DoEvents
> isi = isi & MSComm1.Input
> Loop
>
> MsgBox "Selesai"
> MSComm1.PortOpen = False
>
> End Sub
>
>
> Terima kasih sebelumnya
> Toto
>
> ----- Original Message -----
> From: "Andritona Munaf" <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>>
> To: <[email protected] <mailto:[email protected]>>
> Sent: Saturday, June 25, 2005 10:49 AM
> Subject: [Programmer-VB] Short Code Programming (SMS), mohon petunjuk..
>
>
> > Teman2, saya sedang membuat aplikasi SMS menggunakan VB 6.0, dengan
> > koneksi ke telpon seluler GSM biasa, alhamdulilah sudah bisa
> > berfungsi.. namun yang ingin saya tanyakan adalah, apakah bisa
> > melakukan "mask" atas no kita, mis : +62815888xxxx menjadi sender :
> > ProgrammerVB / apa saja...... Hal ini bisa dilakukan dari sisi
> > programming saja atau harus melakukan kerjasama dengan suatu operator
> > seluler/perusahaan jasa telekomunikasi laiinya...??
> >
> > Terima kasih banyak sebelumnya atas perhatian teman2...
> >
> > Regards,
> > Andri
> ------------------------------------------------------------------------
> -------------------------------------------------------------------------------------------------------------------------
> "Transmisi ini mungkin berisi informasi yang bersifat pribadi, rahasia
> dan tertutup untuk
> dipublikasikan berdasarkan Hukum dan Peraturan Perundang-undangan yang
> berlaku di
> wilayah Republik Indonesia. Jika Anda bukanlah penerima yang dituju,
> bersama ini Anda
> diperingatkan bahwa semua publikasi, penggandaan, pendistribusian,
> atau penggunaan
> informasi yang ada disini (berikut semua informasi yang terkait)
> adalah SANGAT
> TERLARANG. Jika Anda menerima transmisi ini tanpa disengaja, harap
> segera hubungi
> pengirim dan hapus material ini seluruhnya, baik dalam bentuk
> elektronik maupun
> dokumen cetak. Terima kasih."
> -------------------------------------------------------------------------------------------------------------------------
>
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB>" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
coba pakai FBUS komponen aja om....
saya udah pake yang versi lite-nya, rumayan juga bisa cepat jika versi
Pro-nya harus bayar, ini webnya www.softwarecave.com
salam
cybervox...
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
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/
