Khalem: Lo editamos para orientar gente nueva
creas 5 captions (labels, preferiblemente que sean invisibles) en el FRMMAIN sobre las barritas, las cuales nombraremos:
despues buscas en el mod_tcp:
en ese case abajo de donde dice:
pones:
creas 5 captions (labels, preferiblemente que sean invisibles) en el FRMMAIN sobre las barritas, las cuales nombraremos:
Código:
ManaBar, StaBar, HpBar, agubar y hambar
despues buscas en el mod_tcp:
Código:
Case "EST" ' >>>>> Actualiza Estadisticas de Usuario :: EST
en ese case abajo de donde dice:
Código:
UserMaxHP = Val(ReadField(1, Rdata, 44))
UserMinHP = Val(ReadField(2, Rdata, 44))
UserMaxMAN = Val(ReadField(3, Rdata, 44))
UserMinMAN = Val(ReadField(4, Rdata, 44))
UserMaxSTA = Val(ReadField(5, Rdata, 44))
UserMinSTA = Val(ReadField(6, Rdata, 44))
pones:
Código:
frmMain.HPBAR.Caption = "" & UserMinHP & " / " & UserMaxHP & ""
frmMain.MANABAR.Caption = "" & UserMinMAN & " / " & UserMaxMAN & ""
frmMain.STABAR.Caption = "" & UserMinSTA & " / " & UserMaxSTA & ""
frmMain.HAMBAR.Caption = "" & UserMinHAM & " / " & UserMaxHAM & ""
frmMain.AGUBAR.Caption = "" & UserMinAGU & " / " & UserMaxAGU & ""