cod visual basic

#1
shory

Posted 14 June 2004 - 08:05

Member

Grup: Members
Posts: 293
Înscris: 18.05.2003

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

Back to top

#2
hErr

Posted 14 June 2004 - 10:26

Member

Grup: Members
Posts: 738
Înscris: 16.12.2003

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

Back to top

#3
shory

Posted 14 June 2004 - 10:42

Member

Grup: Members
Posts: 293
Înscris: 18.05.2003

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

Back to top

#4
hErr

Posted 14 June 2004 - 12:45

Member

Grup: Members
Posts: 738
Înscris: 16.12.2003

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.

Back to top

#5
shory

Posted 14 June 2004 - 12:59

Member

Grup: Members
Posts: 293
Înscris: 18.05.2003

10x ...

Back to top

#6
hip-hop

Posted 22 November 2008 - 13:14

New Member

Grup: Members
Posts: 16
Înscris: 08.11.2008

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

as vre sa invat si eu asa ceva da se pare ca noi invatam powerpoint in clasa a 10 a :worthy:

Back to top

#7
dani.user

Posted 22 November 2008 - 14:17

Guru Member

Grup: Senior Members
Posts: 30,239
Înscris: 24.02.2007

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 :worthy:

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.

Back to top

#8
tudor_turcu

Posted 22 November 2008 - 14:40

Senior Member

Grup: Senior Members
Posts: 2,377
Înscris: 12.09.2003

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.. :rolleyes:

)

Edited by tudor_turcu, 22 November 2008 - 14:41.

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

cod visual basic

#1 shory Posted 14 June 2004 - 08:05

#2 hErr Posted 14 June 2004 - 10:26

#3 shory Posted 14 June 2004 - 10:42

#4 hErr Posted 14 June 2004 - 12:45

#5 shory Posted 14 June 2004 - 12:59

#6 hip-hop Posted 22 November 2008 - 13:14

#7 dani.user Posted 22 November 2008 - 14:17

#8 tudor_turcu Posted 22 November 2008 - 14:40

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
shory

Posted 14 June 2004 - 08:05

#2
hErr

Posted 14 June 2004 - 10:26

#3
shory

Posted 14 June 2004 - 10:42

#4
hErr

Posted 14 June 2004 - 12:45

#5
shory

Posted 14 June 2004 - 12:59

#6
hip-hop

Posted 22 November 2008 - 13:14

#7
dani.user

Posted 22 November 2008 - 14:17

#8
tudor_turcu

Posted 22 November 2008 - 14:40