PVJsquad Posted February 21, 2013 Author Share Posted February 21, 2013 http://www.touchofdeathforums.com/community/index.php?/topic/125864-eo-2030-serial-number-redeem-item-or-etc-fixed/The Tutorial is fixedTell me what wrong if still error Link to comment Share on other sites More sharing options...
Alerd Posted February 23, 2013 Share Posted February 23, 2013 Compile Error (Server)Sub or Function not defined**GivePlayerItems** index, Item, Value Link to comment Share on other sites More sharing options...
PVJsquad Posted February 24, 2013 Author Share Posted February 24, 2013 > Compile Error (Server)> > Sub or Function not defined> > **GivePlayerItems** index, Item, Valuereplace this Line With```GiveInvItem index, Item, Value``` Link to comment Share on other sites More sharing options...
Kemerd Posted March 2, 2013 Share Posted March 2, 2013 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 = FalseEnd Sub```Then double click **cmdClaim** and add this:```Dim a As LongIf txtCode.Text = vbNullString ThentxtCode.Text = "Not Valid Code!"ElseFor a = 1 To MAX_SERIAL_NUMBERIf txtCode.Text = Serial(a).Name ThenCall SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)Call ClearSerial(a)Call SendSaveSerial(a)txtCode.Text = "Item Send to your Inv..."Exit SubEnd IfNexttxtCode.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! Link to comment Share on other sites More sharing options...
PVJsquad Posted March 2, 2013 Author Share Posted March 2, 2013 > 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 Link to comment Share on other sites More sharing options...
Kemerd Posted March 2, 2013 Share Posted March 2, 2013 It should replace the Client Work you have on the bottom of your tutorial, if someone were to use it. Link to comment Share on other sites More sharing options...
WiseRock Posted July 20, 2013 Share Posted July 20, 2013 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. Link to comment Share on other sites More sharing options...
PVJsquad Posted July 20, 2013 Author Share Posted July 20, 2013 > 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? Link to comment Share on other sites More sharing options...
WiseRock Posted July 20, 2013 Share Posted July 20, 2013 that's the weird part no error is displayed not even in the Error log Link to comment Share on other sites More sharing options...
Lzhct Posted July 22, 2013 Share Posted July 22, 2013 Bisa buatkan saya Demo ? pakai Eclipse advanced ? saya memasang ini gagal Link to comment Share on other sites More sharing options...
PVJsquad Posted July 22, 2013 Author Share Posted July 22, 2013 > that's the weird part no error is displayed not even in the Error logIts so hard for find it, why you not try to use other engine :biker:Â > Bisa buatkan saya Demo ? pakai Eclipse advanced ? saya memasang ini gagalitu udah jelas bang, kalo demo ntar lama lagi belum upload lah belum koneksi gagal lah :blink: Link to comment Share on other sites More sharing options...
Lzhct Posted July 23, 2013 Share Posted July 23, 2013 ane error terus -_- Link to comment Share on other sites More sharing options...
PVJsquad Posted July 23, 2013 Author Share Posted July 23, 2013 > ane error terus -_-ulang lagi bang kalo bisa masih seger tuh mesinya (EO atau EA nya) ikuti dengan baik pasti jalan koksaya sudah coba tutorial ini pada EclipseVB (EO) sukses gila bang :D Link to comment Share on other sites More sharing options...
Lzhct Posted July 23, 2013 Share Posted July 23, 2013 Buatin aja lah bang .. Kirim link via PM :3 Link to comment Share on other sites More sharing options...
PVJsquad Posted July 24, 2013 Author Share Posted July 24, 2013 > Buatin aja lah bang .. Kirim link via PM :3kalo ini dibuatin , tutor yang lain bakalan kaga bisa bang mending nyoba dulu kalo error Screen Shot dan kasih tau ane Link to comment Share on other sites More sharing options...
Lzhct Posted July 24, 2013 Share Posted July 24, 2013 Udah si udah tapi yang terakhir```double click the command and add thisDim a As LongIf txtCode.Text = vbNullString ThentxtCode.Text = "Not Valid Code!"ElseFor a = 1 To MAX_SERIAL_NUMBERIf txtCode.Text = Serial(a).Name ThenCall SendSerialGift(MyIndex, Serial(a).Item, Serial(a).ItemValue)Call ClearSerial(a)Call SendSaveSerial(a)txtCode.Text = "Item Send to your Inv..."Exit SubEnd IfNexttxtCode.Text = "Not Valid Code!"End If```nah itu buat form lagi ? ato gimana Link to comment Share on other sites More sharing options...
PVJsquad Posted July 25, 2013 Author Share Posted July 25, 2013 > 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 gimanadobel klik tombol "**cmdClaim**" di frmMain trus masukin tuh kodeOh iya hapus yang tulisan```double click the command and add this``` Link to comment Share on other sites More sharing options...
Lzhct Posted July 25, 2013 Share Posted July 25, 2013 BTW kan gak ada cmdClaim di frmMain .. :3 buatin tutor untuk E A :3 Link to comment Share on other sites More sharing options...
PVJsquad Posted July 26, 2013 Author Share Posted July 26, 2013 > BTW kan gak ada cmdClaim di frmMain .. :3 buatin tutor untuk E A :3Liat "add textbox and command button name it **txtCode** and **cmdClaim"** di Tutorial CLIENT WORKberarti kamu coba buka **frmMain **lalu bikin (tambahin) textbox sama command button ganti nama textbox jadi txtCodeganti nama button tadi jadi **cmdClaim (**Sebelumnya biasanya Command1**)** Link to comment Share on other sites More sharing options...
Lzhct Posted July 26, 2013 Share Posted July 26, 2013 dapet error :DÂ Â :Â [http://prntscr.com/1hlyv8](http://prntscr.com/1hlyv8) Link to comment Share on other sites More sharing options...
PVJsquad Posted July 26, 2013 Author Share Posted July 26, 2013 > 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_ …" SebelumnyaKalo angkanya 5 berarti ```Public Const EDITOR_SERIAL_NUMBER As Byte = 6 'or next number```ganti angka 7 tadi jadi 6 ,gtu mas Link to comment Share on other sites More sharing options...
Lzhct Posted July 26, 2013 Share Posted July 26, 2013 masih :( error kayak gitu : ( gmna ya ? Link to comment Share on other sites More sharing options...
Philosophy Posted July 26, 2013 Share Posted July 26, 2013 Seems to have a lot of errors does anyone know if it is working? Link to comment Share on other sites More sharing options...
WiseRock Posted July 26, 2013 Share Posted July 26, 2013 It works for me Link to comment Share on other sites More sharing options...
Philosophy Posted July 26, 2013 Share Posted July 26, 2013 > It works for meGreat, I might implement it then. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now