Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
teava rezistenta panou apa calda

Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...
 Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD

Cost abonament clinica privata
 Tremura toata, dar nu de la ro...

Renault Android

Recomandare bicicleta e-bike 20&#...

Bing-Content removal tool
 Nu pot accesa monitorulsv.ro de l...

Cum sa elimini urmele de acnee?

Wc Geberit

Routere detinute in trecut si in ...
 

cod visual basic

- - - - -
  • Please log in to reply
7 replies to this topic

#1
shory

shory

    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

#2
hErr

hErr

    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


#3
shory

shory

    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

#4
hErr

hErr

    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.

#5
shory

shory

    Member

  • Grup: Members
  • Posts: 293
  • Înscris: 18.05.2003
10x ...

#6
hip-hop

hip-hop

    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: :cursing: :confuzzled:

#7
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 30,189
  • Î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: :cursing: :confuzzled:

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
tudor_turcu

tudor_turcu

    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.


Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate