Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
cod visual basic
Last Updated: Nov 22 2008 14:40, Started by
shory
, Jun 14 2004 08:05
·
0
#1
Posted 14 June 2004 - 08:05
eu nu stiu de loc visual basic, dar imi trebuie pt la scoala rezolvare la urmatoare pb; codul nici nu trebuie macar sa se compileze, ca il dau pe foaie, deci doar sa fie macar aproximativ corect
problema : Pt o societate, care are filiale in 30 de orase ale tarii se cunosc pentru fecare filiala : denumirea localitatii, volumul vanzarilor inregistrate de societate la sfarsitul anului. Sa se calculeze volumul total al vanzarilor inregistrate de societate si procentul de vanzari pentru fiecare filiala daca e cineva care ma poate ajuta ar fi super |
#2
Posted 14 June 2004 - 10:26
ceva simplu, scris la repezeala...
Dim vinzari(1 To 30) As Long, totalv as long Dim nume(1 To 30) As String dim i as integer Open "VINZARI.TXT" For Input As #1 ' deschide fisier pt citire for i = 1 to 30 ' citeste 30 de inregistrari din fisier if EOF(1) then exit for Input #1, nume(i), vinzari(i) ' citeste datele din fisier in cele 2 variabile totalv = totalv + vinzari(i) ' insumeaza totalul vinzarilor next Close #1 ' inchidere fisier for i = 1 to 30 ' afisaza % vinzarilor pt fiecare filiala in parte print nume(i), (vinzari(i) *100 / totalv) & "%" next |
#3
Posted 14 June 2004 - 10:42
mersi mult....sper sa fie de ajuns desi nu vad inceputul de program sau ceva de genu...minimele mele cunostinte in materie de VB sunt:
10 BEGIN deci ma gandeam ca poate ar trebui sa fie si un inceput de program... oricum multumesc de ajutor! 10x |
#4
Posted 14 June 2004 - 12:45
BEGIN nu exista in VB, ci doar in Pascal, insa exista END. poate vrei sa zici:
10 REM *** PROGRAM CALCUL PROCENT VINZARI *** la vremea mea am invatat GW Basic unde numerotarea liniilor era obligatorie, in VB este optionala. daca o folosesti ai sanse mari sa iei 10. profesorii adora programele care sint scrise asa cum au invat ei in tinerete. |
#6
Posted 22 November 2008 - 13:14
hErr, on Jun 14 2004, 10:26, said: ceva simplu, scris la repezeala... Dim vinzari(1 To 30) As Long, totalv as long Dim nume(1 To 30) As String dim i as integer Open "VINZARI.TXT" For Input As #1 ' deschide fisier pt citire for i = 1 to 30 ' citeste 30 de inregistrari din fisier if EOF(1) then exit for Input #1, nume(i), vinzari(i) ' citeste datele din fisier in cele 2 variabile totalv = totalv + vinzari(i) ' insumeaza totalul vinzarilor next Close #1 ' inchidere fisier for i = 1 to 30 ' afisaza % vinzarilor pt fiecare filiala in parte print nume(i), (vinzari(i) *100 / totalv) & "%" next |
#7
Posted 22 November 2008 - 14:17
hip-hop, on Nov 22 2008, 13:14, said: as vre sa invat si eu asa ceva da se pare ca noi invatam powerpoint in clasa a 10 a http://www.google.ro...lient=firefox-a Te apuci si inveti singur ca nu e asa greu. Daca te bazezi pe ce faci in liceu nu ajungi prea departe. |
#8
Posted 22 November 2008 - 14:40
Si ca sa nu cauti prea mult pe Google, pentru cineva care incepe la ora actuala, merita sa inveti versiunea actuala a limbajului, Visual Basic 2008 (9.0): http://msdn.microsof...y/90h82b3x.aspx
al carui IDE+compilator il poti downloada gratis de la http://www.microsoft...vb/default.aspx La scoala se prea poate sa foloseasca o versiune mai "antica", precum VB 6.0 (care a aparut cam acum 10 ani), si care e suficient de diferit pentru a fi considerat un limbaj diferit, desi s-au pastrat unele asemanari.. (pt @herr - nu-l mai zapaci cu GWBasic, Quick Basic, Turbo Basic sau alte chestii care deja tin de arheologie - multi am invatat programare pe acele versiuni, dar deja e vorba de exponate de muzeu.. ) Edited by tudor_turcu, 22 November 2008 - 14:41. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users