|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Begeo
Páginas: [1]
1
« en: Sábado 17 de Enero de 2009, 17:50 »
Querido amigo, mis habilidades de detective han detectado que no conoces El FTP de Solocodigo. 
2
« en: Miércoles 7 de Enero de 2009, 01:12 »
Busca en google... Busca en google...Busca en google...Busca en google...Busca en google... Busca en google... Busca en google... Busca en google...Busca en google...Saludos. Termine esta tarde una buena parte de mi programa, y pensaba que era un buen momento para meter un huevo de pascua (...). Lo que intento hacer es que se sobreponga una imagen desde un archivo (.png ) con transparencia propia para que se pueda ver la imagen que hay debajo (un control). Llevo ya 3 horas intentandolo. Estaba siguiendo http://www.codeproject.com/KB/GDI-plus/ ... nding.aspx para hacerlo, pero esta en C# (cosa que no tendria que ser un problema). El problema en si reside en que me pierdo con la matriz. O sea, llego a lo de "As New ColorMatrix(crlMatrix)", pero me dice que crlMatrix no existe. Imports System.Drawing.Drawing2D Imports System.Drawing Imports System.Drawing.Imaging Imports System.Drawing.Imaging.ColorMatrix Public Class ColorMatrix Dim AlphaMatrix As Single(,) = { _ {1, 0, 0, 0, 0}, _ {0, 1, 0, 0, 0}, _ {0, 0, 1, 0, 0}, _ {0, 0, 0, 1, 0}, _ {0, 0, 0, 0, 1}} End Class Public Class Battle ',,, aqui va el sub Batte_Load. He ignorado el material sin importancia. 'Loading Easter Eggs Dim LeftOver1 As Image = Image.FromFile(Application.StartupPath + "gfxleftover1.png") LogTXT.Text = "System>Graphics loaded." + vbNewLine + LogTXT.Text Dim AlphaMtx As New ColorMatrix(AlphaMatrix) Dim AlphaAtt As ImageAttributes '...material sin importancia ignorado!
Una ayudita por favor? 
3
« en: Sábado 3 de Enero de 2009, 22:03 »
Saludos. Iba a entrar al chat, y pulse en el enlace, pero le di demasiado pronto a recargar, y ahora no me deja entrar 'porque ya estoy dentro'. Les importa kickearme de la sala? Gracias.
4
« en: Martes 26 de Agosto de 2008, 21:18 »
tsk tsk tsk tsk  No acabo de encontrar el error, sé que tiene que ver algo con una variable que no se escribe, por lo tanto, tiene que ser en MultiplayForm (del cual es el código que escribi en el primer, y siguiente post). Sé que pasa algo con el paquete. No sé qué es a ciencia cierta.
5
« en: Martes 26 de Agosto de 2008, 14:54 »
Bien, veamos, el problema de Player2 y los valores que no se cargan desde el .ini residen en el paquete que no llega (problema que describo al principio del post). Es una cadena de sucesos, y según el último fix que hice, tendría que: Server acepta llamada, y manda paquete "_" Cliente recibe paquete "_" y responde con paquete "C" acompañado de las cartas. Server recibe paquete "C" y devuelve su versión del paquete "C", y de paso carga las cartas y demás datos en TTGameOnline (GameON.frm) Cliente recibe paquete "C" de server y carga TTGameOnline con los datos. El problema aquí es que el server no está recibiendo ningún dato, por algún motivo que desconozco. Entonces, los datos del paquete "C" se escriben en "player.ini", [PLAYER2]. Al no recibirse el paquete, no guarda los datos. Al no guardarse los datos, origina el problema que usted bien ha descrito justo ahora.  El programa tira a las mil maravillas con algo definido, pero se trata de que escriba sin que esté predefinido, para que ambos jugadores puedan tener sus propias cartas ;3
7
« en: Martes 26 de Agosto de 2008, 10:30 »
No le da tiempo a aparecer. Sale el error de conexión. Si quieres te envio al mail el código completo
8
« en: Lunes 25 de Agosto de 2008, 16:29 »
Añádete un evento Winsock1_Connect() y ponle un MsgBox, para ver si la conexión se realiza con éxito. Dependiendo de ello, buscaremos en un sentido u otro. Y en el evento Winsock1_Error() usa Description en vez de Number. Suerte. El msgbox de connect aparece, pero el mensaje de error de _Error no lo hace.
9
« en: Lunes 25 de Agosto de 2008, 13:39 »
Gracias por el interés, moskit0, cuántas veces me habrás ayudado  Ahora me da un error tonto con esta línea: Winsock1.Accept requestID 40020 Invalid operation at current state Pongo el código modificado Public ActAs As String Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpdefault As String, ByVal lpreturnedstring As String, ByVal nsize As Long, ByVal lpfilename As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpString As String, ByVal lpfilename As String) As Long Public Cartejas1 As String Public Cartejas2 As String Public Cartejas3 As String Public Cartejas4 As String Public Cartejas5 As String Public EneCar As String Public ShouldNotPass As Boolean Public ShouldClientNotPass As Boolean Public Sub PutVar(File As String, Header As String, Var As String, Value As String) Call WritePrivateProfileString(Header, Var, Value, File) End Sub Private Sub cOFF_Click() TTGameOffline.Show Me.Hide End Sub Private Function GetVar(File As String, Header As String, Var As String) As String Dim sSpaces As String ' Max string length Dim szReturn As String ' Return default value if not found szReturn = vbNullString sSpaces = Space$(1000) Call GetPrivateProfileString(Header, Var, szReturn, sSpaces, Len(sSpaces), File) GetVar = RTrim$(sSpaces) GetVar = Left(GetVar, Len(GetVar) - 1) End Function Private Sub Connect_Click() If ActAs = "Serve" Then Exit Sub Winsock1.Close Winsock1.RemoteHost = txtIP.Text Winsock1.RemotePort = txtPORT.Text Winsock1.Connect ActAs = "Client" txtIP.Text = "Found match!" End Sub Private Sub CServ_Click() If ActAs = "Client" Then Exit Sub Winsock1.Close ActAs = "Serve" Winsock1.LocalPort = txtPORT.Text Winsock1.Listen txtIP.Text = "Waiting for a rival . . ." End Sub Private Sub Dissc_Click() Winsock1.Close End End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) ShallNotPass = True Winsock1.Accept requestID Dim nombrejugador As String nombrejugador = TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name") TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text) TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin.Text & nombrejugador & " Is acting as SERVER!" & vbCrLf TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text) Winsock1.SendData "1" & nombrejugador & " Is acting as SERVER!" & vbCrLf 'Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1") 'Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2") 'Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3") 'Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4") 'Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5") Debug.Print Cartejas1 Winsock1.SendData "_" txtIP.Text = "Found match!" End Sub Public Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Winsock1.Close MsgBox "Lost connection with game partner. Error:" & Number TTGameOnline.Hide MultiplayForm.Show End Sub Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Buffer As String Winsock1.GetData Buffer If Left(Buffer, 1) = "1" Then Buffer = Mid(Buffer, 2, Len(Buffer)) TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin & Buffer & vbCrLf End If If Left(Buffer, 1) = "z" Then MsgBox "The game partner has left the session." MultiplayForm.Winsock1.Close Me.Show TTGameOnline.Hide End If Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1") Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2") Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3") Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4") Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5") If Left(Buffer, 1) = "C" Then ' If ShouldClientNotPass = True Then Exit Sub ' If Left(Buffer, 2) = "Y" Then ShallNotPass = False ' If ShallNotPass = True Then Exit Sub If ActAs = "Serve" Then ' ShouldClientNotPass = True Winsock1.SendData "CN" & Cartejas1 & Cartejas2 & Cartejas3 & Cartejas4 & Cartejas5 End If 'For i = 1 To 5 ' EneDCards(i) = CInt(Left(Buffer, i + 1)) 'Next i ' Dim i As Integer ' Dim doomstring(1 To 5) As String ' For i = 1 To 5 ' doomstring(i) = Left(Buffer, 2 + i) ' Debug.Print doomstring(i); v ' Next i EneCar = Left(Buffer, 3) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card1", EneCar) EneCar = Left(Buffer, 4) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card2", EneCar) EneCar = Left(Buffer, 5) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card3", EneCar) EneCar = Left(Buffer, 6) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card4", EneCar) EneCar = Left(Buffer, 7) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card5", EneCar) TTGameOnline.Show Me.Hide End If If Left(Buffer, 1) = "_" Then Winsock1.SendData "CY" & Cartejas1 & Catejas2 & Catejas3 & Catejas4 & Catejas5 End If End Sub
10
« en: Lunes 25 de Agosto de 2008, 12:13 »
Saludos. He intentado agregarle funcionalidad multijugador a mi programita, y estoy teniendo varios problemas en lo que respecta al que hace de servidor, esperar a que llegue un paquete, y cargar datos de un ini. Básicamente, el servidor no está reciviendo ningún dato del cliente, pero tampoco esperando a que lo reciba (o eso me parece). He intentado hacer varios fixes pero no he podido al final. Igual ustedes me pueden ayudar a encontrar el error. Private Sub Connect_Click() If ActAs = "Serve" Then Exit Sub Winsock1.RemoteHost = txtIP.Text Winsock1.RemotePort = txtPORT.Text Winsock1.Close Winsock1.Connect ActAs = "Client" txtIP.Text = "Found match!" End Sub Private Sub CServ_Click() If ActAs = "Client" Then Exit Sub Winsock1.Close ActAs = "Serve" Winsock1.LocalPort = txtPORT.Text Winsock1.Listen txtIP.Text = "Waiting for a rival . . ." End Sub Private Sub Dissc_Click() Winsock1.Close End End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close ShallNotPass = True Winsock1.Accept requestID TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text) TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin.Text & TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name") & " Is acting as SERVER!" & vbCrLf TTGameOnline.CHATwin.SelStart = Len(TTGameOnline.CHATwin.Text) Winsock1.SendData "1" & TTGameOnline.GetVar(App.Path & "player.ini", "PLAYER", "Name") & " Is acting as SERVER!" & vbCrLf 'Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1") 'Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2") 'Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3") 'Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4") 'Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5") Debug.Print Cartejas1 Winsock1.SendData "_" txtIP.Text = "Found match!" End Sub Public Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Winsock1.Close MsgBox "Lost connection with game partner. Error:" & Number TTGameOnline.Hide MultiplayForm.Show End Sub Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Buffer As String Winsock1.GetData Buffer If Left(Buffer, 1) = "1" Then Buffer = Mid(Buffer, 2, Len(Buffer)) TTGameOnline.CHATwin.Text = TTGameOnline.CHATwin & Buffer & vbCrLf End If If Left(Buffer, 1) = "z" Then MsgBox "The game partner has left the session." MultiplayForm.Winsock1.Close Me.Show TTGameOnline.Hide End If Cartejas1 = GetVar(App.Path & "player.ini", "PLAYER", "Card1") Cartejas2 = GetVar(App.Path & "player.ini", "PLAYER", "Card2") Cartejas3 = GetVar(App.Path & "player.ini", "PLAYER", "Card3") Cartejas4 = GetVar(App.Path & "player.ini", "PLAYER", "Card4") Cartejas5 = GetVar(App.Path & "player.ini", "PLAYER", "Card5") If Left(Buffer, 1) = "C" Then ' If ShouldClientNotPass = True Then Exit Sub ' If Left(Buffer, 2) = "Y" Then ShallNotPass = False ' If ShallNotPass = True Then Exit Sub If ActAs = "Serve" Then ' ShouldClientNotPass = True Winsock1.SendData "CN" & Cartejas1 & Cartejas2 & Cartejas3 & Cartejas4 & Cartejas5 End If 'For i = 1 To 5 ' EneDCards(i) = CInt(Left(Buffer, i + 1)) 'Next i ' Dim i As Integer ' Dim doomstring(1 To 5) As String ' For i = 1 To 5 ' doomstring(i) = Left(Buffer, 2 + i) ' Debug.Print doomstring(i); v ' Next i EneCar = Left(Buffer, 3) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card1", EneCar) EneCar = Left(Buffer, 4) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card2", EneCar) EneCar = Left(Buffer, 5) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card3", EneCar) EneCar = Left(Buffer, 6) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card4", EneCar) EneCar = Left(Buffer, 7) Call PutVar(App.Path & "player.ini", "PLAYER2", "Card5", EneCar) TTGameOnline.Show Me.Hide End If If Left(Buffer, 1) = "_" Then Winsock1.SendData "CY" & Cartejas1 & Catejas2 & Catejas3 & Catejas4 & Catejas5 End If End Sub
También les dejo el código completo por si quieren echarle un vistazo más de cerca: *cought mejor no, privilegios cought* Espero su respuesta.
11
« en: Domingo 24 de Agosto de 2008, 12:07 »
¿Que factorial se llame a sí mismo no sería otro error? 
12
« en: Sábado 23 de Agosto de 2008, 11:53 »
Creo que veo dos errores:
El primero es que no veo que se le introduzca ningún valor a X nunca - igual me equivoco.
El segundo es que Factorial, al ser una función privada, no podría llamarse fuera de modFunciones.bas, así que al llamarlo desde modPrincipal.bas no se debería de poder usar.
Creo que veo otro más, ¿Que para llamar una función externa no hay que usar "modulo.funcion(datosaqui)"?
13
« en: Viernes 22 de Agosto de 2008, 17:51 »
Sin ejecutarlo, te digo que
1) Te falta el LOOP al final del bucle
Do While VolverAEmpezar = True CartaElegida = CStr(Rand(1, 5)) LOOP
2) El bucle es infinito puesto que en su interior no se cambia la condición de salida.
3) CartaElegida es un entero y le asignas un valor String en
CartaElegida = CStr(Rand(1, 5))
Sobre lo del loop, no lo puse entero, ya que si lo ponia entero tenía también que poner el resto de la función, y eso no es "un pedazito," es un "cacho trozo". Lo que quería era que vieran el error de CStr(). Te invito a que pongas tu una pieza de código erróneo. ^^
14
« en: Jueves 21 de Agosto de 2008, 16:50 »
Saludos. Verán, me di cuenta de que de los errores se aprenden. Así, solemos encontrar nuestros errores a tiempo, mientras que otros más o menos graves son dejados de la mano de dios. La idea de este tópic es, para los que no les importe postear un poco de su código, mostrar pequeños trozos de código mostrando errores que hemos encontrado, para que no sólo nosotros aprendamos, sino también los demás. Empiezo yo con este trozo: Dim CartaElegida As Integer Dim VolverAEmpezar As Boolean VolverAEmpezar = True Do While VolverAEmpezar = True CartaElegida = CStr(Rand(1, 5))
Encuentren los errores ;3
15
« en: Lunes 18 de Agosto de 2008, 14:33 »
Por cierto, ¿te has fijado que en está línea
TemCard = Val(GetVar(App.Path & "cards.ini", "AMMOUNT", "CardAmmount"))
no añades "" a App.Path y que en ésta siguiente sí:
B1.Picture = LoadPicture(App.Path & "GFX" & TemCarRoute)
 Parece lógico, testeando los valores con MsgBox: TemCard = Val(GetVar(App.Path & "cards.ini", "AMMOUNT", "CardAmmount")) MsgBox (TemCard) TemCarNumber = Rand(1, TemCard) MsgBox (TemCarNumber) TemCarNumberStr = "C" & CStr(TemCarNumber) MsgBox (TemCarNumberStr) TemCarRoute = GetVar(App.Path & "cards.ini", TemCarNumberStr, "NameB") MsgBox (TemCarRoute)
TemCard = 0 TemCarnumber = 1 TemCarNumberStr = C1 TemCarRoute = "" (Null, vamos.) Así que por el precio de uno, nos llevamos 2 bugs. Probemos TemCard con el añadido: TemCard = 1 Gracias moskit0, pero creo que el problema de que no lee la ruta aún está ahí Probemos con . . . TemCard = Val(GetVar(App.Path & "cards.ini", "AMMOUNT", "CardAmmount")) TemCarNumber = Rand(1, TemCard) TemCarNumberStr = "C" & CStr(TemCarNumber) TemCarRoute = GetVar(App.Path & "cards.ini", TemCarNumberStr, "NameB") B1.Picture = LoadPicture(App.Path & "GFX" & TemCarRoute)
¿Funcionará? ¿Si? ¿No? Veamos... TemCarRoute = BA215.jpg Gracias moskit0 por la idea para solventarlo ^-^
16
« en: Lunes 18 de Agosto de 2008, 12:59 »
Saludos. Me dirijo a ustedes para intentar solventar ese problema con mi pequeño proyecto. Dim TemCard As Integer Dim TemCarNumber As Integer Dim TemCarRoute As String Dim TemCarNumberStr As String TemCard = Val(GetVar(App.Path & "cards.ini", "AMMOUNT", "CardAmmount")) TemCarNumber = Rand(1, TemCard) TemCarNumberStr = "C" & CStr(TemCarNumber) TemCarRoute = GetVar(App.Path & "cards.ini", TemCarNumberStr, "NameB") B1.Picture = LoadPicture(App.Path & "GFX" & TemCarRoute)
No encuentro el problema aquí, ya que teóricamente, la salida de "B1.Picture = LoadPicture(App.Path & "GFX" & TemCarRoute)" tendría que ser App.PathGFXBA215.jpg ( BA215.jpg es el valor de NameB en cards.ini). Pero, en la práctica, la línea "TemCarRoute = GetVar(App.Path & "cards.ini", TemCarNumberStr, "NameB")" no devuelve ningún valor. Ayuden, si no les importa. Más cosas que podrían ser útiles: cards.ini [AMMOUNT] CardAmmount=1 [C1] NameB=BA215.jpg NameR=RA215.jpg Up=10 Left=2 Right=1 Down=5
Función para leer .ini Public Function GetVar(File As String, Header As String, Var As String) As String Dim sSpaces As String ' Max string length Dim szReturn As String ' Return default value if not found szReturn = vbNullString sSpaces = Space$(1000) Call GetPrivateProfileString(Header, Var, szReturn, sSpaces, Len(sSpaces), File) GetVar = RTrim$(sSpaces) GetVar = Left(GetVar, Len(GetVar) - 1) End Function
17
« en: Sábado 2 de Febrero de 2008, 16:06 »
Me dijeron que tenía que poner variable[numeroarray] = {valor} , pero no me sirvió. C has no string handling facilities built in and so the following are all illegal:
char firstname[50],lastname[50],fullname[100];
firstname= "Arnold"; /* Illegal */
lastname= "Schwarznegger"; /* Illegal */
fullname= "Mr"+firstname
+lastname; /* Illegal */
http://www.cplusplus.com/doc/tutorial/ntcs.html Muchas gracias, ya resolví el problema. Gracias su -. Esperen no se resolvió. No lo borra el nombre >w< He aquí el código: if (opution == 1){ char kyara_1_name[7] = "EMPTY"; kyara_1_level = 0; kyara_1_power = 0; kyara_1_hp = 0; kyara_1_mp = 0; } if (opution == 2){ char kyara_2_name[7] = "EMPTY"; kyara_2_level = 0; kyara_2_power = 0; kyara_2_hp = 0; kyara_2_mp = 0; } if (opution == 3){ char kyara_3_name[7] = "EMPTY"; kyara_3_level = 0; kyara_3_power = 0; kyara_3_hp = 0; kyara_3_mp = 0; }
18
« en: Sábado 2 de Febrero de 2008, 13:37 »
Soy una inútil, lo sé.
Bueno, pues me dió por ahi a hacer un programa de práctica. Llevo ya 189 y bla bla bla bla.
Me encuentro con el problema de que tengo que formatear/reasignar un valor a una cadena CHAR. (Sé que no soy la mejor usando vocabulario técnico...)
Me dijeron que tenía que poner variable[numeroarray] = {valor} , pero no me sirvió.
Uso linux.
No quiero usar string.h porque, aparte de que es una libreria bastante gorda, no me carga.
¿Ayuda?
19
« en: Domingo 20 de Enero de 2008, 19:21 »
Hola. Empecé a mirarme guías de programación de kernel para linux, y encontré una bastante buena. Llegué al punto 2.2, e hice el "hello world" tal y como dijo el tutorial: /* My first kernel module OMFG */ #include <linux/module.h> /*It's required for modulessssssss!*/ #include <linux/kernel.h> /*It's required to give the errooooooor */ int init_module(void) { printk("<1>Hello world 1.\n"); // Let's see, this tutorial says that not returning 0, means the module cant be loaded. Great. return 0; } void cleanup_module(void) { printk(KERN_ALERT "OMFG THE WORLD GONE TO SHIT!.\n"); }
El problema está en los #include, exactamente #include <linux/module.h>, que no me lo reconoce el compilador de gcc. Leí por ahí que tenia que tener mi propia versión del kernel compilado, pero no tengo ni idea de cómo hacerlo (Help plox?).¿Me pueden decir cómo puedo solucionar mi problema? gcc '/home/begeo/デスクトップ/kernelmod.c' -W -Wall -Wstrict-prototypes -Wmissing-prototypes -isystem /lib/modules'uname -r'/build/include -02 -DMODULE -D__KERNEL__ ${WARN} ${INCLUDE}
gcc: unrecognized option '-02'
/home/begeo/デスクトップ/kernelmod.c:3:64: error: linux/module.h: No such file or directory
/home/begeo/デスクトップ/kernelmod.c:7: 警告: no previous prototype for ‘init_module’
/home/begeo/デスクトップ/kernelmod.c: In function ‘init_module’:
/home/begeo/デスクトップ/kernelmod.c:8: 警告: implicit declaration of function ‘printk’
/home/begeo/デスクトップ/kernelmod.c: トップレベル:
/home/begeo/デスクトップ/kernelmod.c:15: 警告: no previous prototype for ‘cleanup_module’
/home/begeo/デスクトップ/kernelmod.c: In function ‘cleanup_module’:
/home/begeo/デスクトップ/kernelmod.c:16: error: ‘KERN_ALERT’ undeclared (first use in this function)
/home/begeo/デスクトップ/kernelmod.c:16: error: (Each undeclared identifier is reported only once
/home/begeo/デスクトップ/kernelmod.c:16: error: for each function it appears in.)
/home/begeo/デスクトップ/kernelmod.c:16: error: expected ‘)’ before string constant ¿Ayuda? PD: Estoy intentando usar el kernel de linu, compilando desde linux.
20
« en: Domingo 13 de Mayo de 2007, 20:35 »
Buenas.
1. No creo q nadie te valla programar un juego asi como asi (o sea gratis) sin tener en cuenta que no es nada sencillo.
2. Si tienes la idea de hacer un juego en VB, sinceramente no creo q valla a llegar muy lejos.
Saludos 1 No es gratis (¿Que no es suficiente recomensa conocer gente, practicar VB sobre campo real, y poder salir y entrar del grupo de desarrollo a placer? 2 Eso es información especifica del GD. Lo siento. Gracias por responder.
21
« en: Miércoles 9 de Mayo de 2007, 18:30 »
Saludos.
Soy una chica y tengo bastante interés en la programación dirigida a videojuegos, escribir, e idiomas.
En mi grupo de desarrollo, tenemos interés en lanzar una prebeta de nuestro juego para ir abriendo el apetito al público hasta que salga el motor que queremos usar.
El caso es que ninguno de nosotros sabemos suficiente VB6 (yo la que más, pero me quedo corta x_xU) para hacer el sistema clave sobre el motor que usaremos para la prebeta. He intentado hacerlo mediante el sistema de scripting del motor (SadScripting), pero me quedo corta con los comandos. He ido preguntando a varias personas que conozco cercanamente, pero por un motivo u otro no pueden. Pero me dejaron saber que hacerlo por el sistema de scripting seria muchisimo más duro que programarlo directamente sobre el motor.
¿Alguien se ofrece?
PD: Perdonen las molestias, no tengo costumbre de hacer de leecher x_xU
Páginas: [1]
|
|
|
Mostrar Mensajes
