Foros Agroterra.com

Hola buenas estoy desarrollando un software agricola, os pido opinión sobre posibles apartados que podria incluir como control de cosechas, de fertilizantes, etc gracias  si quereis informacion os puedo mandar una demo para que le echeis un vistazo mandarme email:altea1978@hotmail y os mando demo de la aplicacion, lo estoy intentando hacer que sea de manejar sencillo para aquellos agricultores que no estan muy puestos en la informatica.Edumar197838731,0680902778

Edumar, hablanos un poco más del sofware que quieres desarrollar y a que te refieres con control de cosechas fertilizantes, ... que aquí entre todos te ayudamos.
Un saludo

yo estoy haciendo otro pero en plan un poco "cutre"

  Eres una maquina alimaa  a ver que sale

ya lo tengo casi en version beta cuando lo ponga a ver que opinion dais, busco opiniones de uso y de ingenieros o tecnicos agricolas para saber si esta bien hecho el calculo

  Si te sirve la modesta opinión de un economista aquí estamos

Y si quieres la de un informatico aqui estoy

Pues de un modesto agricultor que tambien hago mis pinitos con la informatica, tambien te dare mi opinio.
Una pregunta, en que trabajais, Access, Visual u otro lenguaje.
 

lo que queria era saber como se hace elcalculo del abonado, tengo un libro pero es un poco basico

   Yo soy arquitecto, no se si te podre ayudar, pero si algun dia quieres hacer una casa..........

No os parece q primero habria q hacer un sofware para calcular cuanto nos van a pagar de PAC? REALMENTE. pq si no no sabemos ni si va a haber dinero para hacer las proximas labores y para abonos simientes y herbicidas si sigue el precio del trigo a 20 pts. Lo mejor seria q desapareceria la pac de golpe y porrazo y subiera el precio del trigo a 40 pts claro esta q para ello habria q adoptar medidas proteccionistas y limitar las importaciones, aun asi el estado no saldria tan mal, nosotros salimos bien el se ahorra la pac y ademas nos hacemos todavia mas autosuficientes. Ademas para poder conseguir esto las empresas de abonos y herbicidas deberian ser estatales (no privadas) y no inflar los precios de estos productos.Y SI NO, ACABAREMOS LOS AGRICULTORES TRABAJANDO EN ALGUNA FABRICA A 4 TURNOS Y CON UN CONTRATO EVENTUAL DE UNA SEMANA POR ETT. Os lo imaginais? q futiro mas jodido nos espera, al mal tiempo buena cara asi q ánimo chavales.

A ver, si realmente queremos crear un programa para el campo, lo primero que debemos saber es que queremos que haga, por tanto, ahora lo que propongo es que vayamos indicando lo que cada uno piensa que sea últil que el programa hiziera. Por ejemplo, calcular la cantidad de abono que vamos a tirar, segun lo que hemos sembrado ver los beneficios, en fin, lo que penseis que puede ser útil, eso si, sin pasarse, el programa no va a ir a sembrar, jejeje, con esto quiero decir que debemos ser un poco realistas a la hora de elegir lo que es útil.
Esper vuestras opiniones y Edumar, como vas a hacer el programa??? sobre que lenguaje?
 

lo he terminado hoy  lo he hecho en visual basic, ya que con c++ solo se en consola
¿alguien sabe algun sitio o forma donde pueda subir el programa para poder verlo todos?

Aimaa
Si pedias un ing Tec agicola soy agromono aunque del campo se aprende pisando terrones, pregunta
tecnicamente el abonado se calcula en fución del tipo de suelo (analisis) y de la producción que esperas y que la planta consume en unidades por tonelada de producto
Bueno pregunta y si lo se te lo respondo

aqui esta!!!!!!!!!!!
http://www.agroterra.com/foro/foros/datos/AgroNPK.exe
descargarlo a ver que os parece
 
 

habla de unidades fertilizantes no de kgrs de NPK y los datos q me dan no me parecen correctos
En Patata que he visto muchas

pues por eso queria corregirlo

en el 8-24-24 esta confundido

Podrias colgar el codigo fuente para echarle un vistazo?

 
Private Sub agradecimientos_Click()MsgBox "www.agroterra.com y a todos sus foreros"End Sub
Private Sub boton3_Click()Frame4.Visible = FalseText5.Visible = FalseIf boton3.Caption = "Abrir Gráfico" ThenPicture1.Visible = Trueboton3.Caption = "Cerrar Gráfico"ElsePicture1.Visible = Falseboton3.Caption = "Abrir Gráfico"End IfEnd Sub
 
 
 
 
 
 
Private Sub Combo6_Click()If Combo6.Text = "7-12-7" ThenText5.Text = "bien"End If
End Sub
Private Sub Command1_Click()Frame4.Visible = TrueText5.Text = ""If Combo5.Text = "Tipo de tierra" ThenText2.Text = 0MsgBox "Introduce el tipo de tierra y vuelve a intentarlo"End If
If Combo5.Text = "Arcilloso calizo" ThenText2.Text = 100Text12.Text = 100End IfIf Combo5.Text = "Arcilloso no calizo" ThenText2.Text = 70Text12.Text = 100End IfIf Combo5.Text = "Arenoso calizo" ThenText2.Text = 70Text12.Text = 60End IfIf Combo5.Text = "Arenoso no calizo" ThenText2.Text = 50Text12.Text = 60End IfIf Combo5.Text = "Franco no calizo" ThenText2.Text = 60Text12.Text = 75End IfIf Combo5.Text = "Franco calizo" ThenText2.Text = 80Text12.Text = 75End IfIf Combo1.Text = "Nitrógeno" ThenMsgBox "Introduce el nitrógeno y vuelve a intentarlo"End IfIf Combo2.Text = "Fósforo" ThenMsgBox "Introduce el fósforo y vuelve a intentarlo"End IfIf Combo3.Text = "Potasio" ThenMsgBox "Introduce el potasio y vuelve a intentarlo"End If
If Combo4.Text = "Cultivo" ThenText6.Text = 0Text7.Text = 0Text8.Text = 0MsgBox "Introduce el cultivo y vuelve a intentarlo"End If
If Combo4.Text = "Ajo" ThenText6.Text = 6.6Text7.Text = 2.6Text8.Text = 6.6End IfIf Combo4.Text = "Alcachofa" ThenText6.Text = 8Text7.Text = 7Text8.Text = 16End IfIf Combo4.Text = "Alfalfa" ThenText6.Text = 14Text7.Text = 16Text8.Text = 24End IfIf Combo4.Text = "Algodón" ThenText6.Text = 100Text7.Text = 160Text8.Text = 84End IfIf Combo4.Text = "Arroz" ThenText6.Text = 22Text7.Text = 16Text8.Text = 23End IfIf Combo4.Text = "Avena" ThenText6.Text = 30Text7.Text = 28Text8.Text = 36End IfIf Combo4.Text = "Calabaza" ThenText6.Text = 1.5Text7.Text = 3.2Text8.Text = 1.6End IfIf Combo4.Text = "Caña de Azúcar" ThenText6.Text = 1.6Text7.Text = 1.6Text8.Text = 3End IfIf Combo4.Text = "Cebada" ThenText6.Text = 24Text7.Text = 22Text8.Text = 21End IfIf Combo4.Text = "Cebolla" ThenText6.Text = 3Text7.Text = 2Text8.Text = 3.2End IfIf Combo4.Text = "Centeno" ThenText6.Text = 19Text7.Text = 26Text8.Text = 18End IfIf Combo4.Text = "Coliflor" ThenText6.Text = 4Text7.Text = 3.2Text8.Text = 5End IfIf Combo4.Text = "Colza" ThenText6.Text = 44Text7.Text = 50Text8.Text = 24End IfIf Combo4.Text = "Espárrago" ThenText6.Text = 24Text7.Text = 16Text8.Text = 28End IfIf Combo4.Text = "Espinaca" ThenText6.Text = 5.5Text7.Text = 3Text8.Text = 7.5End IfIf Combo4.Text = "Garbanzo" ThenText6.Text = 20Text7.Text = 32Text8.Text = 60End IfIf Combo4.Text = "Girasol" ThenText6.Text = 50Text7.Text = 36Text8.Text = 100End IfIf Combo4.Text = "Guisante" ThenText6.Text = 20Text7.Text = 30Text8.Text = 36End IfIf Combo4.Text = "Haba" ThenText6.Text = 20Text7.Text = 32Text8.Text = 39End IfIf Combo4.Text = "Judía" ThenText6.Text = 20Text7.Text = 40Text8.Text = 32End IfIf Combo4.Text = "Lechuga" ThenText6.Text = 3.5Text7.Text = 3Text8.Text = 7End IfIf Combo4.Text = "Maíz" ThenText6.Text = 28Text7.Text = 22Text8.Text = 23End IfIf Combo4.Text = "Melón" ThenText6.Text = 3.5Text7.Text = 2Text8.Text = 4.5End IfIf Combo4.Text = "Patata" ThenText6.Text = 3.5Text7.Text = 32Text8.Text = 65End IfIf Combo4.Text = "Pimiento" ThenText6.Text = 3.8Text7.Text = 1.6Text8.Text = 5End IfIf Combo4.Text = "Pradera Artificial" ThenText6.Text = 22Text7.Text = 18Text8.Text = 20End IfIf Combo4.Text = "Pradera Natural" ThenText6.Text = 130Text7.Text = 70Text8.Text = 110End IfIf Combo4.Text = "Remolacha" ThenText6.Text = 4.5Text7.Text = 3.2Text8.Text = 6.5End IfIf Combo4.Text = "Repollo" ThenText6.Text = 7Text7.Text = 4Text8.Text = 7.5End IfIf Combo4.Text = "Soja" ThenText6.Text = 30Text7.Text = 50Text8.Text = 42End IfIf Combo4.Text = "Sorgo" ThenText6.Text = 35Text7.Text = 28Text8.Text = 33End IfIf Combo4.Text = "Tabaco" ThenText6.Text = 70Text7.Text = 24Text8.Text = 100End IfIf Combo4.Text = "Tomate" ThenText6.Text = 3.5Text7.Text = 1.6Text8.Text = 5End IfIf Combo4.Text = "Trébol" ThenText6.Text = 15Text7.Text = 16Text8.Text = 24End IfIf Combo4.Text = "Trigo" ThenText6.Text = 28Text7.Text = 28Text8.Text = 20End IfIf Combo4.Text = "Viña" ThenText6.Text = 9Text7.Text = 8Text8.Text = 12End IfIf Combo4.Text = "Zanahoria" ThenText6.Text = 4Text7.Text = 2.2Text8.Text = 6End If
If Text1.Text = "¿KG por hectarea?" ThenMsgBox "Introduce los kilos por hectarea y vuelve a intentarlo"Text1.Text = 0End If
If Text1.Text = "" ThenMsgBox "Introduce los kilos por hectarea y vuelve a intentarlo"Text1.Text = 0End If
Text9.Text = Text1 / 1000 * Text6Text10.Text = Text1 / 1000 * Text7Text11.Text = Text1 / 1000 * Text8
If Combo2.Text = "Bajo" ThenText10.Text = (Text10.Text) + (Text2.Text / 1)End IfIf Combo2.Text = "Medio" ThenText10.Text = (Text10.Text) + (Text2.Text / 2)End If
If Combo3.Text = "Bajo" ThenText11.Text = (Text11.Text) + (Text12.Text / 1)End IfIf Combo3.Text = "Medio" ThenText11.Text = (Text11.Text) + (Text12.Text / 2)End If
If Combo1.Text = "Medio" ThenText9.Text = Text9.Text - 10End IfIf Combo1.Text = "Alto" ThenText9.Text = Text9.Text - 20End If
If CInt(Text10.Text) < CInt(Text11.Text) ThenText3.Text = 1Text4.Text = Round(Text11.Text / Text10.Text, 0)
End IfIf CInt(Text10.Text) > CInt(Text11.Text) ThenText4.Text = 1Text3.Text = Round(Text10.Text / Text11.Text, 0)End If
Picture1.Visible = FalseText5.Visible = Trueboton3.Caption = "Abrir Gráfico"
If Text3.Text = 2 And Text4.Text = 1 ThenText5.Text = Text5.Text + "7-12-7 = "Text13.Text = Round((Text11.Text / 7) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 7)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "8-18-8 = "Text13.Text = Round((Text11.Text / 8) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "8-24-16 = "Text13.Text = Round((Text11.Text / 16) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "12-24-12 = "Text13.Text = Round((Text11.Text / 12) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 12)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
End If
 
If CInt(Text4.Text) >= 3 Then
Text5.Text = Text5.Text + "8-10-30 = "Text13.Text = Round((Text11.Text / 30) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
End If
If Text3.Text = 1 And Text4.Text = 1 Then
Text5.Text = Text5.Text + "8-15-15 = "Text13.Text = Round((Text11.Text / 15) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "8-24-24 = "Text13.Text = Round((Text11.Text / 24) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "15-15-15 = "Text13.Text = Round((Text11.Text / 15) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 15)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
End If
If Text3.Text = 1 And Text4.Text = 2 Then
Text5.Text = Text5.Text + "8-16-30 = "Text13.Text = Round((Text11.Text / 30) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "9-18-27 = "Text13.Text = Round((Text11.Text / 27) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 9)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "10-12-24 = "Text13.Text = Round((Text11.Text / 24) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 10)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
Text5.Text = Text5.Text + "12-12-24 = "Text13.Text = Round((Text11.Text / 24) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 12)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "
End IfIf CInt(Text3.Text) >= 3 Then
Text5.Text = Text5.Text + "8-24-8 = "Text13.Text = Round((Text11.Text / 8) * 100, 0)Text5.Text = Text5.Text + Text13.TextText5.Text = Text5.Text + " Kg/hectarea + "Text14.Text = Round(((Text9.Text - ((Text13.Text / 100) * 8)) / 27) * 100, 0)Text5.Text = Text5.Text + Text14.TextText5.Text = Text5.Text + " Kg  27%N  "End If
 
 
End Sub
 
Private Sub Command2_Click()EndEnd Sub
Private Sub Command3_Click()If Combo6.Text = "7-12-7" ThenText5.Text = "bien"End If
End Sub
Private Sub Correo_Click()MsgBox "logv12@hotmail.com"End Sub
Private Sub manejo_Click()MsgBox "Solo tienes que seleccionar los niveles de NPK y el cultivo con la producción deseada y pulsar aceptar"
End Sub
 
 
Private Sub Picture1_Click()Picture1.Visible = Falseboton3.Caption = "Abrir Gráfico"End Sub
Private Sub Picture2_Click()
End Sub
Private Sub Text1_Click()Text1.Text = ""End Sub
Private Sub Usuarios_Click()MsgBox "Todo aquel que quiera usarlo xD"End Sub