Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: danielinhu
  • Order by date
  1. danielinhu

    What's the importance of module's??

    Can somebody help me?
  2. danielinhu

    What's the importance of module's??

    Hello guys, firts of all, I want to thank u for this great forum that is helping a lot like a programmer! :) And my doubt is why modules are important, and what they do in a program?? Greetings
  3. danielinhu

    How can I introduce a new mineral from a list

    Yes that's it! It is not deleting the mineral from the list! But mikrom already helped me! Thank u both! Now I will start writing option 5! Greetings
  4. danielinhu

    My objective is to do a database

    ...newmineral character(50):: apagamineral integer:: opcao=1, i, ok, fim_fich,n, nminerais=0 integer::nummineral write(*,*) "*.*.*.*.*.*.*.*.* BASE DE DADOS DE MINERAIS *.*.*.*.*.*.*.*.*" do while(opcao/=0) print "('')" print "('1-Load...
  5. danielinhu

    How can I introduce a new mineral from a list

    My program is : You have 5 or 6 options i don't know yet! so the 1st option is to load the file with the minerals to the program. the 2nd is to watch the file in the program the 3rd is to insert a new mineral in the file the 4th(and that is the one that isn't working) - is to insert a name of a...
  6. danielinhu

    How can I introduce a new mineral from a list

    Can u help me please???? Greetings
  7. danielinhu

    How can I introduce a new mineral from a list

    ...newmineral character(50):: apagamineral integer:: opcao=1, i, ok, fim_fich,n, nminerais=0 integer::nummineral write(*,*) "*.*.*.*.*.*.*.*.* BASE DE DADOS DE MINERAIS *.*.*.*.*.*.*.*.*" do while(opcao/=0) print "('')" print "('1-Load...
  8. danielinhu

    How can I introduce a new mineral from a list

    Sorry my option 4 still not workin! :S I looked and I can't understand why that its happening!! Is that problem in the subroutine?? Can u help me please??
  9. danielinhu

    How can I introduce a new mineral from a list

    ...type (mineral):: newmineral character(50):: apagamineral integer:: opcao=1, i, ok, fim_fich,n, nminerais=0 integer::nummineral write(*,*) "*.*.*.*.*.*.*.*.* BASE DE DADOS DE MINERAIS *.*.*.*.*.*.*.*.*" do while(opcao/=0) print "('')" print "('1-Load Baseadados.txt')" print...
  10. danielinhu

    How can I introduce a new mineral from a list

    ...1 Error: Rank mismatch in argument 'minerais' at (1) (1 and 0) What is happening?? My code is: case(4) ! print *,"ano a apagar?" read (*,*)apagamineral call apagar_min(newmineral,nummineral,apagamineral) contains ! subroutine to delete a record in the matrix...
  11. danielinhu

    How can I introduce a new mineral from a list

    I already know why that happened! :) I need a counter everytime I insert or delete a new mineral so that why the option didnt show up! Yoopie! xD
  12. danielinhu

    How can I introduce a new mineral from a list

    ...the data, but now i have a new problem! That is really stupid!! In my case(3) i have this: case(3) ! Insere novo registo write(*,*) "Introduza as caracteristicas do novo mineral - Numero, nome, cor, brilho e dureza!" read(*,*) newmineral% numero, & !Criei um novo type porque o...
  13. danielinhu

    How can I introduce a new mineral from a list

    Thanks man!! That is awesome! :) But i didnt really understood why it didn't work with the array basedados?? And onther doubt if now i want to for manipulate the data present in the txt file, i work with the sentence like this: newmineral&nome, newmineral%cor etc isn't it?? Greetings and...
  14. danielinhu

    How can I introduce a new mineral from a list

    ...real :: dureza end type mineral type (mineral), dimension(10) :: basedados integer:: opcao, i, ok, fim_fich, basemineral=0,n write(*,*) "___________BASE DE DADOS DE MINERAIS_____________" do while(opcao/=0) print "('')" print "('1-Ver lista de minerais')" print "('2-Inserir novo...
  15. danielinhu

    How can I introduce a new mineral from a list

    ...i saved in the file what i wrote in the program! But i want to write in the keyboard and save it in the file. Something like this: case(2) write(*,*) "Enter the mineral characteristics" read(*,*) ( NOW I WANT TO SAVE THESE CHARACTERISTICS IN THE FILE ) Is that possible?? And thanks for...
  16. danielinhu

    How can I introduce a new mineral from a list

    open (2, file="basedados.txt", iostat = ok, status='old', access='append') write(2,*) "Introduza numero, nome mineral etc" read(2,*) basedados%numero, basedados%nome close(2) Doesn't work either! :s appears an error like this - At line 50 of file basedados.f95 (unit = 2, file =...
  17. danielinhu

    How can I introduce a new mineral from a list

    That dont work! there is what i put: case(2) !2-Inserir novo mineral open(2,access='append') write(2,*) "Introduza numero, nome mineral etc" read(2,*) basedados%numero, basedados%nome close(2) That isnt working! :S what is wrong??
  18. danielinhu

    How can I introduce a new mineral from a list

    ...line in my list how can i do it?? my program is: .... select case(opcao) case(1) ! This first option open the file with the data write(*,*) "Numero do Mineral | Nome | Cor | Brilho | Dureza " open (2, file="basedados.txt", iostat = ok, status='old') ! Abre a lista de minerais if...
  19. danielinhu

    My objective is to do a database

    Allright! I will keep working in the program and after I will show it here, and i will keep in touch to get some help! And thank u ! :)
  20. danielinhu

    My objective is to do a database

    Does someone have a program like the one I need to do? Because I want to see some parts! Greetings

Part and Inventory Search

Back
Top