Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
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 ...

Teii din fața casei

E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...
 Recuperare fișiere dupa form...

Aplicatii stress test RAM

Asigurare auto hibrid

Asus B550M - PC-ul nu porneste di...
 Tzanca Uraganu - Inconjurat de Fe...

explicatie montaj breadboard

3 Doors Down - Kryptonite

Semnalizati cand virati pe un dru...
 

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

Chirurgia spinală minim invazivă 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

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