[Servidor/Cliente] Clases Contructoras Elijen Cantidad
Funcionamiento: Al crear con carpinteria o herreria ponemos la cantidad en un text box asi se ahorra el tiempo
Testeado en 0.11.2 y 9.9z
Carpintero
Cliente
En el frmCarp Buscamos
[vb]
Private Sub Command3_Click()
On Error Resume Next
Call SendData("CNC" & ObjCarpintero(lstArmas.ListIndex))
Unload Me
End Sub[/vb]
Y Lo Reemplazamos por
[vb]
Private Sub Command1_Click()
On Error Resume Next
Dim Cantidad As String
Cantidad = txtCantidad.Text
Call SendData("CNC" & ObjCarpintero(lstArmas.ListIndex) & " " & Cantidad)
Unload Me
End Sub[/vb]
Y Si No Queremos Que Pongan Letras en el TectBox Ponemos
[vb]
Private Sub txtCantidad_Change()
If Val(txtCantidad.Text) < 0 Then
txtCantidad.Text = 1
End If
If Val(txtCantidad.Text) > MAX_INVENTORY_OBJS Then
txtCantidad.Text = 1
End If
If Not IsNumeric(txtCantidad.Text) Then txtCantidad.Text = "1"
End Sub[/vb]
Servidor
Buscamos
[vb]
Case "CNC" ' Construye carpinteria
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(rdata)
If X < 1 Or ObjData(X).SkCarpinteria = 0 Then Exit Sub
Call CarpinteroConstruirItem(UserIndex, X)
Exit Sub[/vb]
Y Lo Reemplazamos Por
[vb]
Case "CNC"
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(ReadField(1, rdata, 32))
Arg1 = CInt(ReadField(2, rdata, 32))
If Arg1 < 1 Then Exit Sub
If X < 1 Or ObjData(X).SkCarpinteria = 0 Then Exit Sub
Call CarpinteroConstruirItem(UserIndex, X, val(Arg1))
Exit Sub[/vb]
Y Asi Terminamos con el Carpintero
Herrero
Cliente
En el frmHerrero Buscamos
[vb]
Private Sub Command3_Click()
On Error Resume Next
If lstArmas.Visible Then
Call SendData("CNS" & ArmasHerrero(lstArmas.ListIndex))
Else
Call SendData("CNS" & ArmadurasHerrero(lstArmaduras.ListIndex))
End If
Unload Me
End Sub[/vb]
Y Lo Reemplazamos Por [vb]
Private Sub Command3_Click()
On Error Resume Next
Dim Cantidad As String
Cantidad = txtCantidad.Text
If lstArmas.Visible Then
Call SendData("CNS" & ArmasHerrero(lstArmas.ListIndex) & " " & Cantidad)
Else
Call SendData("CNS" & ArmadurasHerrero(lstArmaduras.ListIndex) & " " &Cantidad)
End If
Unload Me
End Sub[/vb]
Y Si No Queremos Que Pongan Letras en el TectBox Ponemos
[vb]
Private Sub txtCantidad_Change()
If Val(txtCantidad.Text) < 0 Then
txtCantidad.Text = 1
End If
If Val(txtCantidad.Text) > MAX_INVENTORY_OBJS Then
txtCantidad.Text = 1
End If
If Not IsNumeric(txtCantidad.Text) Then txtCantidad.Text = "1"
End Sub[/vb]
Servidor
Buscamos
[vb]
Case "CNS" ' Construye herreria
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(rdata)
If X < 1 Then Exit Sub
If ObjData(X).SkHerreria = 0 Then Exit Sub
Call HerreroConstruirItem(UserIndex, X)
Exit Sub[/vb]
Y Lo Reemplazamos Por
[vb]
Case "CNS"
Dim Arg5 As Integer
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(ReadField(1, rdata, 32))
Arg5 = CInt(ReadField(2, rdata, 32))
If Arg5 < 1 Then Exit Sub
If X < 1 Then Exit Sub
If ObjData(X).SkHerreria = 0 Then Exit Sub
Call HerreroConstruirItem(UserIndex, X, val(Arg5))
Exit Sub
[/vb]
Y Listo el Herrero
Funcionamiendo del Codigo: El Clienjte Aparte de Enviar que Debe Contruir Envia la Cantidad , Si El User No Tiene los Materiales necesarios le dice "No Tienes Sufieciente Madera/Lingotes"
Suerte , Supongo que en la 0.11.5 Anda , Prueben
Funcionamiento: Al crear con carpinteria o herreria ponemos la cantidad en un text box asi se ahorra el tiempo
Testeado en 0.11.2 y 9.9z
Carpintero
Cliente
En el frmCarp Buscamos
[vb]
Private Sub Command3_Click()
On Error Resume Next
Call SendData("CNC" & ObjCarpintero(lstArmas.ListIndex))
Unload Me
End Sub[/vb]
Y Lo Reemplazamos por
[vb]
Private Sub Command1_Click()
On Error Resume Next
Dim Cantidad As String
Cantidad = txtCantidad.Text
Call SendData("CNC" & ObjCarpintero(lstArmas.ListIndex) & " " & Cantidad)
Unload Me
End Sub[/vb]
Y Si No Queremos Que Pongan Letras en el TectBox Ponemos
[vb]
Private Sub txtCantidad_Change()
If Val(txtCantidad.Text) < 0 Then
txtCantidad.Text = 1
End If
If Val(txtCantidad.Text) > MAX_INVENTORY_OBJS Then
txtCantidad.Text = 1
End If
If Not IsNumeric(txtCantidad.Text) Then txtCantidad.Text = "1"
End Sub[/vb]
Código:
Despues Agregamos en el frmCarp un TextBox Llamado "txtCantidad.Text"
Servidor
Buscamos
[vb]
Case "CNC" ' Construye carpinteria
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(rdata)
If X < 1 Or ObjData(X).SkCarpinteria = 0 Then Exit Sub
Call CarpinteroConstruirItem(UserIndex, X)
Exit Sub[/vb]
Y Lo Reemplazamos Por
[vb]
Case "CNC"
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(ReadField(1, rdata, 32))
Arg1 = CInt(ReadField(2, rdata, 32))
If Arg1 < 1 Then Exit Sub
If X < 1 Or ObjData(X).SkCarpinteria = 0 Then Exit Sub
Call CarpinteroConstruirItem(UserIndex, X, val(Arg1))
Exit Sub[/vb]
Y Asi Terminamos con el Carpintero
Herrero
Cliente
En el frmHerrero Buscamos
[vb]
Private Sub Command3_Click()
On Error Resume Next
If lstArmas.Visible Then
Call SendData("CNS" & ArmasHerrero(lstArmas.ListIndex))
Else
Call SendData("CNS" & ArmadurasHerrero(lstArmaduras.ListIndex))
End If
Unload Me
End Sub[/vb]
Y Lo Reemplazamos Por [vb]
Private Sub Command3_Click()
On Error Resume Next
Dim Cantidad As String
Cantidad = txtCantidad.Text
If lstArmas.Visible Then
Call SendData("CNS" & ArmasHerrero(lstArmas.ListIndex) & " " & Cantidad)
Else
Call SendData("CNS" & ArmadurasHerrero(lstArmaduras.ListIndex) & " " &Cantidad)
End If
Unload Me
End Sub[/vb]
Y Si No Queremos Que Pongan Letras en el TectBox Ponemos
[vb]
Private Sub txtCantidad_Change()
If Val(txtCantidad.Text) < 0 Then
txtCantidad.Text = 1
End If
If Val(txtCantidad.Text) > MAX_INVENTORY_OBJS Then
txtCantidad.Text = 1
End If
If Not IsNumeric(txtCantidad.Text) Then txtCantidad.Text = "1"
End Sub[/vb]
Código:
Despues Agregamos en el frmHerrero un TextBox Llamado "txtCantidad.Text"
Servidor
Buscamos
[vb]
Case "CNS" ' Construye herreria
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(rdata)
If X < 1 Then Exit Sub
If ObjData(X).SkHerreria = 0 Then Exit Sub
Call HerreroConstruirItem(UserIndex, X)
Exit Sub[/vb]
Y Lo Reemplazamos Por
[vb]
Case "CNS"
Dim Arg5 As Integer
rdata = Right$(rdata, Len(rdata) - 3)
X = CInt(ReadField(1, rdata, 32))
Arg5 = CInt(ReadField(2, rdata, 32))
If Arg5 < 1 Then Exit Sub
If X < 1 Then Exit Sub
If ObjData(X).SkHerreria = 0 Then Exit Sub
Call HerreroConstruirItem(UserIndex, X, val(Arg5))
Exit Sub
[/vb]
Y Listo el Herrero
Funcionamiendo del Codigo: El Clienjte Aparte de Enviar que Debe Contruir Envia la Cantidad , Si El User No Tiene los Materiales necesarios le dice "No Tienes Sufieciente Madera/Lingotes"
Suerte , Supongo que en la 0.11.5 Anda , Prueben