1 Konuyu açan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Konu: Grafik - ornek

Baska bir nedenle elimden geciyordu buraya atayim dedim, hem sessizligi biaz bozmus olayim:)

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

*#INCLUDE "mschrt20.h"

#Define VtChChartType3dBar                                0

#Define VtChChartType2dBar                                1

 

#Define VtChLabelComponentValue 1   && The value of the data point appears in the label.

#Define VtChLabelComponentPercent   2   && The value of the data point is displayed in the label as a percentage of the total value of the series.

 

#Define VtOrientationHorizontal 0   && Horizontal text

#Define VtOrientationVertical   1   && Vertical text

#Define VtOrientationUp 2   && Up oriented text

#Define VtOrientationDown   3   && Down oriented text

 

#Define VtChLabelLocationTypeNone   0   && Label Location - None

#Define VtChLabelLocationTypeAbovePoint 1   && Label Location - AbovePoint

#Define VtChLabelLocationTypeBelowPoint 2   && Label Location - BelowPoint

#Define VtChLabelLocationTypeCenter 3   && Label Location - Center

#Define VtChLabelLocationTypeBase   4   && Label Location - Base

#Define VtChLabelLocationTypeInside 5   && Label Location - Inside pie or doughnut

#Define VtChLabelLocationTypeOutside    6   && Label Location - Outside pie or doughnut

#Define VtChLabelLocationTypeLeft   7   && Label Location - Left

#Define VtChLabelLocationTypeRight  8   && Label Location - Right

 

Public loCharter

loCharter = Createobject('myCharter')

loCharter.Show

 

Define Class myCharter As Form

  DataSession = 2

  Height = 600

  Width = 800

  Add Object myGrid As Grid With ;

    left=10,Top=10,Height=580,Width=360,Anchor=1+2+4+128

  Add Object Chart As OleControl With ;

    left=375,Top=10,Height=580,Width=415,Anchor=1+8+4+32, ;

    OleClass="MSChart20Lib.MSChart.2"

 

  Procedure Load

    Use (_samples+'data\Customer')

  Endproc

 

  Procedure Init

    This.UpdateChart()

  Endproc

 

  Procedure myGrid.AfterRowColChange

    Lparameters nColIndex

    * VFP7 and up - earlier no if control

    If This.RowColChange%2 = 1

      Thisform.UpdateChart()

    Endif

  Endproc

 

  Procedure UpdateChart

    Select ;

      emp.First_Name - (' '+emp.Last_Name) As employee,;

      sum(order_net) As totalSale ;

      FROM (_samples+'data\orders') ord ;

      INNER Join (_samples+'data\employee') emp On emp.emp_id = ord.emp_id ;

      WHERE ord.cust_id == customer.cust_id ;

      GROUP By 1 ;

      ORDER By 1 ;

      INTO Cursor crsChartData

    If _Tally > 0

      With Thisform.Chart

        .ChartType = VtChChartType2dBar && VtChChartType2dBar

        rowLabelCount = 1

        rowCount = Reccount()

        columnLabelCount = 0

        ColumnCount = 1

        .DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;

          m.rowCount, m.ColumnCount )

 

        .Column = 1

        Scan

          .Row = Recno()

          .Data = totalSale

          .DataGrid.RowLabel(Recno(),1) = employee

        Endscan

 

        For Each serX In .Plot.SeriesCollection

          With serX.Datapoints.Item(-1).DatapointLabel

            .Component = VtChLabelComponentValue  && Show value

            .LocationType = VtChLabelLocationTypeAbovePoint && Above

            .ValueFormat = '$#,##0.00'

          Endwith

        Endfor

        .Visible = .T.

      Endwith

    Else

      Thisform.Chart.Visible = .F.

    Endif

  Endproc

Enddefine

Son düzenleyen, cetinbasoz (09.09.2008 12:05:46)

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

2 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,189

Re: Grafik - ornek

Evet ya son gunlerde epey sessiz kaldik smile bende yeni yeni pc basinda fazlaca vakit gecirebilmeye basladim disardaki isleri bitirip smile


bu arada ornek cok guzel ellerine saglik , tesekkurler...

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website

3 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Grafik - ornek

çetin bey bu örneğinizi kullanarak bir formda grafik denemesi yapmaya çalıştım
forma mschart ekledim ve bir butonun click ine aşağıdaki gibi kod yazdım

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

With Thisform.Chart

      .ChartType = 1 &&VtChChartType2dBar

      rowLabelCount = 1

      rowCount = Reccount()

      columnLabelCount = 0

      ColumnCount = 1

      .DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;

        m.rowCount, m.ColumnCount )

      .Column = 1

      .visible = .t.

      Scan

        .Row = Recno()

        .Data = pres  &&totalSale

        .DataGrid.RowLabel(Recno(),1) = aylar &&employee

        *.titletext = "AYLIK ÜRETİM MİKTARLARI"

        

      ENDSCAN

      

      For Each serX In .Plot.SeriesCollection

        With serX.Datapoints.Item(-1).DatapointLabel

          .Component = 1&& Show value

          .LocationType = 1 && Above

           .ValueFormat = '###.###'

               

        Endwith

      Endfor

    Endwith


sizin procedur updatechart  ' ın aynısı yani
1- y exsenindeki değerlerin formatını nasıl ayarlayabilirim
0
5.000.000
10.000.000
....
50.000.000 olacak şekilde sıralamak istiyorum
maksimum scale , minumum scale, division
bunları bir türlü ayarlayamadım birde sayıları 5E+006 , 1E+007,1.5+007 şeklinde gösteriyor
uğraştım ama birtürlü düzeltemedim,düzeltme için ne yapabilirim(foruma resim olarak ekleyecektim ama nasıl eklendiğini bulamadım)

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

4 Cevaplayan ozcan

  • ozcan
  • Üye
  • Offline
  • Kayıt Tarihi: 01.12.2006
  • İleti: 245

Re: Grafik - ornek

min ve max scale için aşağıdaki şekilde bir kullanım deneyebilirsin.

Visual Fox Pro
1

2

3

4

5

6

7

8

9

SELECT Grafikler

APPEND GENERAL puang CLASS MSGraph.Chart DATA lcData

WITH Thisform.OleBoundControl01 AS "MSGraph.Chart"

    .ControlSource = "grafikler.puang"

    .HasLegend = .t.

    .autoformat(-4100,1)

    .Axes(2).MinimumScale = 10

    .Axes(2).MaximumScale = 100

ENDWITH

5 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Grafik - ornek

özcan yazdıklarını denedim ama olmadı , ole control hatası veriyor
msgraph ile değil mschartla oluşuyor grafik

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

6 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: Grafik - ornek

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

#INCLUDE "mschrt20.h"

 

Public loCharter

loCharter = Createobject('myCharter')

loCharter.Show

 

Define Class myCharter As Form

  DataSession = 2

  Height = 600

  Width = 800

  Add Object myGrid As Grid With ;

    left=10,Top=10,Height=580,Width=360,Anchor=1+2+4+128

  Add Object Chart As OleControl With ;

    left=375,Top=10,Height=580,Width=415,Anchor=1+8+4+32, ;

    OleClass="MSChart20Lib.MSChart.2"

 

  Procedure Load

    Use (_samples+'data\Customer')

  Endproc

 

  Procedure Init

    This.UpdateChart()

  Endproc

 

  Procedure myGrid.AfterRowColChange

    Lparameters nColIndex

    * VFP7 and up - earlier no if control

    If This.RowColChange%2 = 1

      Thisform.UpdateChart()

    Endif

  Endproc

 

  Procedure UpdateChart

    Select ;

      emp.First_Name - (' '+emp.Last_Name) As employee,;

      sum(order_net*5000) As totalSale ;

      FROM (_samples+'data\orders') ord ;

      INNER Join (_samples+'data\employee') emp On emp.emp_id = ord.emp_id ;

      WHERE ord.cust_id == customer.cust_id ;

      GROUP By 1 ;

      ORDER By 1 ;

      INTO Cursor crsChartData

    If _Tally > 0

      With Thisform.Chart

        .ChartType = VtChChartType2dBar && VtChChartType2dBar

        rowLabelCount = 1

        rowCount = Reccount()

        columnLabelCount = 0

        ColumnCount = 1

        .DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;

          m.rowCount, m.ColumnCount )

 

        .Column = 1

        Scan

          .Row = Recno()

          .Data = totalSale

          .DataGrid.RowLabel(Recno(),1) = employee

        Endscan

 

        For Each serX In .Plot.SeriesCollection

          With serX.Datapoints.Item(-1).DatapointLabel

            .Component = VtChLabelComponentValue  && Show value

            .LocationType = VtChLabelLocationTypeAbovePoint && Above

            .ValueFormat = '$#,##0.00'

          Endwith

        Endfor

        For Each oLabel In .Plot.Axis(VtChAxisIdY).Labels

          oLabel.Format = '$#,##0.00'

        Endfor

        For Each oLabel In .Plot.Axis(VtChAxisIdY2).Labels

          oLabel.Format = '$#,##0.00'

        Endfor

        With .Plot.Axis(VtChAxisIdY).ValueScale

          .Auto = .F.

          .Minimum = 0

          .Maximum = 50000000

          .MajorDivision = 10 && 10 parca - 5 000 000

          .MinorDivision = 5 && 5 parca - 1 000 000

        Endwith

        With .Plot.Axis(VtChAxisIdY2).ValueScale

          .Auto = .F.

          .Minimum = 0

          .Maximum = 50000000

          .MajorDivision = 5 && 5 parca - 10 000 000

        Endwith

 

        .Visible = .T.

      Endwith

    Else

      Thisform.Chart.Visible = .F.

    Endif

  Endproc

Enddefine

MSChart dokumentasyonu var:

http://msdn.microsoft.com/en-us/library … S.71).aspx

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

7 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Grafik - ornek

çetin bey yazdıklarınız uyguladım ama halen sayıları 5E+006 , 1E+007,1.5+007  şeklinde gösteriyor . 6 haneli sayılarda problem yok 7 hane olunca problem oluyor sanki

[img]C:\Documents and Settings\user\Belgelerim\Resimlerim\grf2.jpeg[/img]

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

8 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: Grafik - ornek

Bende olmuyor. Bilmiyorum. Aynen o kodu calistirdim ben.

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

9 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Grafik - ornek

birde buna bakabilirmisiniz,acaba benim ayarlarımdamı bir problem var

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

#INCLUDE "mschrt20.h"

Public loCharter

loCharter = Createobject('myCharter')

loCharter.Show

 

Define Class myCharter As Form

  DataSession = 2

  Height = 600

  Width = 800

  Add Object myGrid As Grid With ;

    left=10,Top=10,Height=580,Width=360,Anchor=1+2+4+128

  Add Object Chart As OleControl With ;

    left=375,Top=10,Height=580,Width=415,Anchor=1+8+4+32, ;

    OleClass="MSChart20Lib.MSChart.2"

 

Procedure Load

 

CREATE CURSOR crsgrf  ( aylar c(20),miktar1 n(10),miktar2 n(10) )

 INSERT INTO crsgrf VALUES ( "OCAK",28000000,6000000)

 INSERT INTO crsgrf VALUES ( "ŞUBAT",33000000,12000000)

 INSERT INTO crsgrf VALUES ( "MART",37000000,9000000)

 INSERT INTO crsgrf VALUES ( "NİSAN",35000000,15000000)

 INSERT INTO crsgrf VALUES ( "MAYIS",0,0)

 INSERT INTO crsgrf VALUES ( "HAZİRAN",0,0)

 INSERT INTO crsgrf VALUES ( "TEMMUZ",0,0)

 INSERT INTO crsgrf VALUES ( "AĞUSTOS",0,0)

 INSERT INTO crsgrf VALUES ( "EYLÜL",0,0)

 INSERT INTO crsgrf VALUES ( "EKİM",0,0)

 INSERT INTO crsgrf VALUES ( "KASIM",0,0)

 INSERT INTO crsgrf VALUES ( "ARALIK",0,0)

Endproc

 

  Procedure Init

    This.UpdateChart()

  Endproc

 

   Procedure UpdateChart

  

      With Thisform.Chart

        .ChartType = 1 && VtChChartType2dBar

        rowLabelCount = 1

        rowCount = Reccount()

        columnLabelCount = 0

        ColumnCount = 1

        .DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;

          m.rowCount, m.ColumnCount )

         .Column = 1

        Scan

          .Row = Recno()

          .Data = miktar1

          .DataGrid.RowLabel(Recno(),1) = aylar

        Endscan

 

        For Each serX In .Plot.SeriesCollection

          With serX.Datapoints.Item(-1).DatapointLabel

            .Component = 1  && Show value

            .LocationType = 1 && Above

            .ValueFormat = '##.###.###'

          Endwith

        Endfor

        For Each oLabel In .Plot.Axis(miktar1).Labels

          oLabel.Format = '##.###.###'

        Endfor

       

        With .Plot.Axis(miktar1).ValueScale

          .Auto = .F.

          .Minimum = 0

          .Maximum = 50000000

          .MajorDivision = 5 && 10 parca - 5 000 000

          .MinorDivision = 2 && 5 parca - 1 000 000

        Endwith

     Endwith

      Thisform.Chart.Visible = .t.

  Endproc
Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

10 Cevaplayan ozcan

  • ozcan
  • Üye
  • Offline
  • Kayıt Tarihi: 01.12.2006
  • İleti: 245

Re: Grafik - ornek

sonlardaki bölümü değiştirerek dener misin. Miktar1 yerine (1) kullanarak

Visual Fox Pro
1

2

3

4

5

6

For Each oLabel In .Plot.Axis(1).Labels

          oLabel.Format = '#.###.###.###'

        Endfor

        For Each oLabel In .Plot.Axis(2).Labels

          oLabel.Format = '#.###.###.###'

        Endfor

11 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Grafik - ornek

hay Allah razı olsun,kaç gündür evir çevir, tutturamadım bi türlü.
peki bu grafikte  miktar1 ve miktar 2 yi birlikte göstermek için ne yapabilirim

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

12 Cevaplayan ozcan

  • ozcan
  • Üye
  • Offline
  • Kayıt Tarihi: 01.12.2006
  • İleti: 245

Re: Grafik - ornek

For Each döngüsünden öncesini şöyle değiştirip deneyebilir misin.

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

ColumnCount = 2

        .DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;

          m.rowCount, m.ColumnCount )

         .Column = 1

        Scan

          .Row = Recno()

          .Data = miktar1

          .DataGrid.RowLabel(Recno(),1) = aylar

        Endscan

         .Column = 2

        Scan

          .Row = Recno()

          .Data = miktar2

          .DataGrid.RowLabel(Recno(),1) = aylar

        Endscan

13 Cevaplayan tarik

  • tarik
  • Üye
  • Offline
  • Kayıt Tarihi: 13.09.2006
  • İleti: 180

Re: Grafik - ornek

özcan çok teşekkür ederim buda halloldu. son bişey daha sorayım, bunun çıktısını n asıl alacağız yani frx te rapor haline nasıl getireceğiz.

Yüzü dost,özü düşmandan usandım.
Dili mü'min kalbi şeytandan usandım.
Dostum, herkesin kahrı çekilir de ;
Ben DAVASIZ MÜSLÜMANDAN Usandım

14 Cevaplayan cetinbasoz

  • cetinbasoz
  • Moderatör
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 2,314

Re: Grafik - ornek

O kadar yazdim gonder diyince "yetkiniz yok" gibisinden bir mesajla yazdiklarim gitti @#!@$$.

http://windows-tech.info/9/4ec7cc4760082e8a.php

Yen yaz 1907'ye yolla FB gelsin evinde yensin.
(sonra salaklar ciksin alin terine şike desin)

cetinbasoz's Website

15 Cevaplayan metin

  • metin
  • Moderatör
  • Offline
  • Yer: istanbul
  • Kayıt Tarihi: 16.10.2006
  • İleti: 1,449

Re: Grafik - ornek

cetinbasoz yazdı:

O kadar yazdim gonder diyince "yetkiniz yok" gibisinden bir mesajla yazdiklarim gitti @#!@$$.

http://windows-tech.info/9/4ec7cc4760082e8a.php

ben bunu daha önce de defalarca Soykan'a söyledim ama malesef... Bir mesajı belli bir süre içinde yazmazsan kabul etmiyor. önce copy edeceksin. sonra tekrar yeni mesaj butonunu tıklayıp paste ve kaydet diyeceksin. Biraz gıcık bir durum.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

metin's Website

16 Cevaplayan soykanozcelik

  • soykanozcelik
  • -
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,189

Re: Grafik - ornek

konuyu Ahmet e havale edicem smile

http://www.soykansoft.com/images/twitter.jpghttp://www.soykansoft.com/images/wp.jpghttp://www.soykansoft.com/images/blogger.jpg

soykanozcelik's Website