[EO 2.0/3.0] Serial Number, Redeem Item or etc [Fixed]

[PVJsquad]

http://www.touchofdeathforums.com/community/index.php?/topic/125864-eo-2030-serial-number-redeem-item-or-etc-fixed/

The Tutorial is fixed

Tell me what wrong if still error

[Alerd]

Compile Error (Server)

Sub or Function not defined

**GivePlayerItems** index, Item, Value

[PVJsquad]

> Compile Error (Server)
>
> Sub or Function not defined
>
> **GivePlayerItems** index, Item, Value

replace this Line With

```
GiveInvItem index, Item, Value
```

[Kemerd]

I did this (with some help from others) a thing where you use a command to open a panel. Maybe you could add it the front.

Go to frmMain, make a panel named **redeemcodepanel**, add a textbox and command button. Name them **txtCode** and **cmdClaim**, making sure they are on the inside of the panel. Then, on the corner make a button with the caption **X**, double click it. Add this:

```

Private Sub Close_Click()

reedemcodepanel.Visible = False

End Sub

```

Then double click **cmdClaim** and add this:

```

Dim a As Long

If txtCode.Text = vbNullString Then

txtCode.Text = "Not Valid Code!"

Else

For a = 1 To MAX_SERIAL_NUMBER

If txtCode.Text = Serial(a).Name Then

Call SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)

Call ClearSerial(a)

Call SendSaveSerial(a)

txtCode.Text = "Item Send to your Inv..."

Exit Sub

End If

Next

txtCode.Text = "Not Valid Code!"

End If

```

Then, in modInput, find:

```

Case "/editserial"

If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue

SendRequestSerial

SendRequestEditSerial

```

Place under it

```

Case "/redeemcode"

If frmMain.redeemcodepanel.Visible = True Then

frmMain.redeemcodepanel.Visible = False

Else

frmMain.redeemcodepanel.Visible = True

End If

```

And that should make a good enough menu, and you can modify however you want!

[PVJsquad]

> I did this (with some help from others) a thing where you use a command to open a panel. Maybe you could add it the front.
>
> Go to frmMain, make a panel named **redeemcodepanel**, add a textbox and command button. Name them **txtCode** and **cmdClaim**, making sure they are on the inside of the panel. Then, on the corner make a button with the caption **X**, double click it. Add this:
>
> ```
>
> Private Sub Close_Click()
>
> reedemcodepanel.Visible = False
>
> End Sub
>
> ```
>
> Then double click **cmdClaim** and add this:
>
> ```
>
> Dim a As Long
>
> If txtCode.Text = vbNullString Then
>
> txtCode.Text = "Not Valid Code!"
>
> Else
>
> For a = 1 To MAX_SERIAL_NUMBER
>
> If txtCode.Text = Serial(a).Name Then
>
> Call SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)
>
> Call ClearSerial(a)
>
> Call SendSaveSerial(a)
>
> txtCode.Text = "Item Send to your Inv..."
>
> Exit Sub
>
> End If
>
> Next
>
> txtCode.Text = "Not Valid Code!"
>
> End If
>
> ```
>
> Then, in modInput, find:
>
> ```
>
> Case "/editserial"
>
> If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then GoTo Continue
>
>
>
> SendRequestSerial
>
> SendRequestEditSerial
>
> ```
>
> Place under it
>
> ```
>
> Case "/redeemcode"
>
> If frmMain.redeemcodepanel.Visible = True Then
>
> frmMain.redeemcodepanel.Visible = False
>
> Else
>
> frmMain.redeemcodepanel.Visible = True
>
> End If
>
> ```
>
> And that should make a good enough menu, and you can modify however you want!

I forgot it Thanks

[Kemerd]

It should replace the Client Work you have on the bottom of your tutorial, if someone were to use it.

[WiseRock]

Man its been a while since this tutorial was fixed. Anyways I keep getting an error on Prospekt Source. When I try to save the Serial the Server says it stopped running and asks if you want to close or debug.

[PVJsquad]

> Man its been a while since this tutorial was fixed. Anyways I keep getting an error on Prospekt Source. When I try to save the Serial the Server says it stopped running and asks if you want to close or debug.

Can you tell me where the error?

[WiseRock]

that's the weird part no error is displayed not even in the Error log

[Lzhct]

Bisa buatkan saya Demo ? pakai Eclipse advanced ? saya memasang ini gagal

[PVJsquad]

> that's the weird part no error is displayed not even in the Error log

Its so hard for find it, why you not try to use other engine :biker: 

> Bisa buatkan saya Demo ? pakai Eclipse advanced ? saya memasang ini gagal

itu udah jelas bang, kalo demo ntar lama lagi belum upload lah belum koneksi gagal lah :blink:

[Lzhct]

ane error terus -_-

[PVJsquad]

> ane error terus -_-

ulang lagi bang kalo bisa masih seger tuh mesinya (EO atau EA nya) ikuti dengan baik pasti jalan kok

saya sudah coba tutorial ini pada EclipseVB (EO) sukses gila bang  :D

[Lzhct]

Buatin aja lah bang .. Kirim link via PM :3

[PVJsquad]

> Buatin aja lah bang .. Kirim link via PM :3

kalo ini dibuatin , tutor yang lain bakalan kaga bisa bang 

mending nyoba dulu kalo error Screen Shot dan kasih tau ane

[Lzhct]

Udah si udah tapi yang terakhir

```
double click the command and add this
Dim a As Long
If txtCode.Text = vbNullString Then
txtCode.Text = "Not Valid Code!"
Else
For a = 1 To MAX_SERIAL_NUMBER
If txtCode.Text = Serial(a).Name Then
Call SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)
Call ClearSerial(a)
Call SendSaveSerial(a)

txtCode.Text = "Item Send to your Inv..."
Exit Sub
End If
Next
txtCode.Text = "Not Valid Code!"
End If

```
nah itu buat form lagi ? ato gimana

[PVJsquad]

> Udah si udah tapi yang terakhir
>
> ```
> double click the command and add this
> Dim a As Long
> If txtCode.Text = vbNullString Then
> txtCode.Text = "Not Valid Code!"
> Else
> For a = 1 To MAX_SERIAL_NUMBER
> If txtCode.Text = Serial(a).Name Then
> Call SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)
> Call ClearSerial(a)
> Call SendSaveSerial(a)
>
> txtCode.Text = "Item Send to your Inv..."
> Exit Sub
> End If
> Next
> txtCode.Text = "Not Valid Code!"
> End If
>
> ```
> nah itu buat form lagi ? ato gimana

dobel klik tombol "**cmdClaim**" di frmMain trus masukin tuh kode

Oh iya hapus yang tulisan

```

double click the command and add this
```

[Lzhct]

BTW kan gak ada cmdClaim di frmMain .. :3 buatin tutor untuk E A :3

[PVJsquad]

> BTW kan gak ada cmdClaim di frmMain .. :3 buatin tutor untuk E A :3

Liat "add textbox and command button name it **txtCode** and **cmdClaim"** 

di Tutorial CLIENT WORK

berarti kamu coba buka **frmMain **lalu bikin (tambahin) textbox sama command button 

ganti nama textbox jadi txtCode

ganti nama button tadi jadi **cmdClaim (**Sebelumnya biasanya Command1**)**

[Lzhct]

dapet error :D   :  [http://prntscr.com/1hlyv8](http://prntscr.com/1hlyv8)

[PVJsquad]

> dapet error :D   :  [http://prntscr.com/1hlyv8](http://prntscr.com/1hlyv8)

udah masukin ini di modConstants

"Public Const EDITOR_SERIAL_NUMBER As Byte = 7 'or next number"

Angka 7 bukan berarti harus tujuh liat "Public Const EDITOR_ …" Sebelumnya

Kalo angkanya 5 berarti 

```

Public Const EDITOR_SERIAL_NUMBER As Byte = 6 'or next number

```
ganti angka 7 tadi jadi 6 ,gtu mas

[Lzhct]

masih :( error kayak gitu : ( gmna ya ?

[Philosophy]

Seems to have a lot of errors does anyone know if it is working?

[WiseRock]

It works for me

[Philosophy]

> It works for me

Great, I might implement it then.