[new] Tutorial mig33Flood

Subyek: [new] Tutorial mig33Flood Sat Mar 26, 2011 9:40 pm

nih ada sedikit source untuk belajar bikin app mig33 untuk pc.
media yang digunakan adalah VisualBasic 6

didalam source itu, nanti anda akan melihat code seperti ini

I ♥
|¯¯) /¯¯\ /¯¯' |_/
|¯¯\ \__/ \__, |¯\ ! ! ! ! !

★▣▣▣▣▣▣▣▣▣▣▣▣▣★

*\
**\
***
|||
|||
|||
||| . . . /\
||| . . ./*\
||| . . /**\
|||_/****\
|||******/
---*****/
°°°***/
***ф**/
***ф**\
****ф**\
********|
¯\******|
. . \****/
. . . \**/
. . . . \/
▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄
▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄
▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄

Code:: [color=cyan]Private Sub Command1_Click()
For k = 1 To listnick.ListItems.Count
pluuuud (k)
Next k
End Sub[/color]

itu yang nanti'a akan berfungsi untuk send text ke room
itu hanya akan mengirim text 1x saja.
cara untuk bisa mengirim lebh dari 1x dalam 1x klik, silakan tambahkan code'a menjadi seperti ini

Code:: [color=olive]Private Sub Command1_Click()
for i = 0 to 10
For k = 1 To listnick.ListItems.Count
pluuuud (k)
Next k
next i
End Sub[/color]

kita lihat bagian function pluuuud

Code:: [color=orange]Public Function pluuuud(ByVal xxt As Variant)
Rsize = Len(RoomName)
Rname = AsciiToHex(RoomName)
Tisi = AsciiToHex(Text1)
Tsize = Len(Text1)
Uname = listnick.ListItems.Item(xxt).Text
Usize = Len(Uname)
B = Usize + 40
B = B + Rsize
B = B + Tsize
Psize = Hex(B)
a = Len(Psize)
If a < 2 Then Psize = "0" & Psize
Usize = Hex(Usize)
a = Len(Usize)
If a < 2 Then Usize = "0" & Usize
Rsize = Hex(Rsize)
a = Len(Rsize)
If a < 2 Then Rsize = "0" & Rsize
Tsize = Hex(Tsize)
a = Len(Tsize)
If a < 2 Then Tsize = "0" & Tsize
Uname = AsciiToHex(Uname)
Coder = "02 01 F4 00 0B 00 00 00 " & Psize & " 00 08 00 00 00 " & Tsize & " " & Tisi & " 00 06 00 00 00 02 00 01 00 04 00 00 00 " & Rsize & " " & Rname & " 00 03 00 00 00 01 03 00 02 00 00 00 " & Usize & " " & Uname & " 00 01 00 00 00 01 01"
DatOut = HexToAscii(Coder)
SendData (xxt)
End Function[/color]

jelas disana akan mengirim text yang ada di Text1, yang arti'a, text yang dikirim akan sama smua, dan jika terus mengirim text yang sama, maka akan tidak bsa mengirim text selama beberapa saat, untuk itu, kita harus menambahkan sedikit text dibelakang (suffix), sehingga text yang dikirim tidak sama.

cara'a , buat lah 1 textbox bernama suffix isikan text'a dengan "0"
kemudian, pada fungsi pluuud, tambahkan

Code:: suffix = suffix + 1

dan pada bagian

Code:: Tisi = AsciiToHex(Text1)
Tsize = Len(Text1)

kita ubah Text1 menjadi Text1 & suffix

dengan cara seperti itu, maka send text akan berbeda.

demikianlah sedikit penjelasan dari saya.
untuk source'a silakan donlod di
[You must be registered and logged in to see this link.]

silakan coba sobat m-f