Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Czy da się w vb zrobić wykres?
anonim




Typ: Nie zarejestrowany
Czy da się w vb zrobić wykres?

sory jeżeli moje pytanie jest lamerskie
ale dopiero zaczynam i mam taki problem:
chcę zrobić program który będzie liczył różne
wartości i rysował wykres (wykres ma być
dość skomplikowany (w. molliera jak by ktoś był w temacie )).
Czy jest jakiś prosty sposób na robienie wykresów w vb?

TIA
Pozdrowiena

14-05-2004 11:25
  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Widziałem gotowy program do robienia wykresów molliera na stronie www.sankom.pl/aud_ix.htm jak przyjrzalem sie wykresowi to na ustach pojawił mi się uśmieszek rzeczywiście wykres ten jest dość skomplikowany proponuję przygotować odpowiednie działania ktore pomogą utworzyć krzywą i manipulować z PictureBoxem Z tego co zauważyłem na wykres składa się wiele danych :
    *  Ciśnienie barometryczne (całkowite) powietrza - dla tej wartości ciśnienia skonstruowany jest aktualnie wyświetlany wykres. Wartość tego ciśnienia można zmieniać w zakresie od 200 do 2000 hPa przy pomocy klawiszy ze strzałkami w oknie edycyjnym ciśnienia barometrycznego.
    * Temperatura termometru suchego,
    * Wilgotność względna,
    * Zawartość wilgoci,
    * Entalpia,
    * Objętość właściwa,
    * Gęstość,
    * Temperatura punktu rosy,
    * Temperatura termometru mokrego,
    * Ciśnienie cząstkowe pary wodnej,
    * Zawartość wilgoci dla punktu nasycenia przy danej temperaturze powietrza,
    * Zawartość mgły w powietrzu,
    * Stan powietrza.
Oprócz tego jeszcze stan wody. Do napisania nawet prostego programu który będzie sporządzał ten wykres potzrebne chyba będzie niezłe przygotowanie merytoryczne ale możemy spróbować ci pomoc


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

15-05-2004 11:12
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
anonim




Typ: Nie zarejestrowany

ok, jakoś sobie radzę, tylko mam pytanie:
zrobiłem PictureBox'a, wykres pięknie mi się rysuje
ale jak go zakryje innym oknem to znika,
i trzeba jeszcze raz rysować go.
Da się coś z tym zrobić?
i jeszcze jedno pytanko: da się taki PictureBox
wyksportować do pliku graficznego?

pozdr.

23-05-2004 20:26
  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Co do pierwzego pytania to musisz zaznaczyć we właściwościach kontrolki PictureBox.AutoRedraw = True i powinno być okej Obraz z PictureBox da się wyeksporotować do bmp funkcją SavePicture
(posłuże sie podobną odpowiedzią Karolinyvb)

SavePicture:
Saves a graphic from the Picture or Image property of an object or control (if one is associated with it) to a file.
z PictureBox do pliku:
Call SavePicture(MyPictureBox.Image, "c:\aaaaaaaa.bmp" )
Call SavePicture(MyPictureBox.Picture, "c:\aaaaaaaa2.bmp" )
z formy do pliku:
Call SavePicture(Me.Image, "c:\aaaaaaaa1.bmp" )



_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

23-05-2004 21:17
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
anonim




Typ: Nie zarejestrowany

wielkie dzięki

24-05-2004 13:46
  
anonim




Typ: Nie zarejestrowany

kolejne 2 pytania
1. narysowałem linie i na tej lini punkt (innym kolorem) jak zrobić aby on był na wierzchu?
2. Jak ustalic kolor to piszemy "p1.ForeColor = vbGreen"
a da się zamiast vbGreen dać np #555555?

24-05-2004 15:39
  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Private Sub Form_Load()
' Nadajemy jakąś normalną grubość linią rysowanym w Pictureboxie
p1.DrawWidth = 3
' Rysuje kilka przykładowych rzeczy w PicturBox nazwanym p1
p1.Line (CInt(p1.Width / 4), CInt(p1.Height / 2))-(CInt(p1.Width / 2), CInt(p1.Height / 4)), &H80000008
' ma kolor czarny
p1.Line (CInt(p1.Width / 2), CInt(p1.Height / 4))-((CInt(p1.Width / 2) + (CInt(p1.Width / 4))), CInt(p1.Height / 2)), &HC000&
' ma kolor zielony
' Składnia metody line:
' object.Line (x1,y1)-(x2,y2),[kolor],[parametry]
' kolor - (nie trzeba uzywac) do okreslania koloru mozesz uzyc i wpisu vbRed i &HFF&
' do koloru mozesz wiec uzywac funkcji RGB (bo wartosc ta jest typu long) i QBColor
' parametry:
' B - (nie trzeba uzywac) linia jest rysowana ze wspolrzednymi definiujacymi przeciwlegle konce PictureBox
' F - nie można użyć bez zastosowania parametru B - powoduje ze PicturBox jest
' wypelniany tym samym kolorem którym zostal "wyrysowany"
p1.Circle (CInt(p1.Width / 2), CInt(p1.Height / 2)), (CInt(p1.Height / 2)), &HFF&
' Co do punktów to muszą one być "rysowane" na samym końcu
' Proponuję używać do tego metod Point i PSet
' Point do sprawdzania czy punkt ma odpowiedni kolor PSEt do ustawiania tego koloru
p1.Circle ((CInt(p1.Width / 4) + (CInt(p1.Width / 8))), CInt(p1.Height / 2)), (CInt(p1.Height / 8)), &HC00000
p1.Circle ((CInt(p1.Width / 2) + (CInt(p1.Width / 8))), CInt(p1.Height / 2)), (CInt(p1.Height / 8)), &HC00000
' Tutaj oczy
p1.DrawWidth = 9 ' robimy nosek
p1.PSet (CInt(p1.Width / 2), CInt(p1.Height / 2)), &H0&
p1.DrawWidth = 3
' Teraz pozostalo nam zrobic buzie
p1.Line (CInt(p1.Width / 4), CInt(p1.Height - (p1.Height / 8)))-(CInt(p1.Width - (CInt(p1.Width / 4))), CInt(p1.Height - (p1.Height / 8)))
' Nie wiem czy widac buzke jezeli nie kojarzy ci sie ten rysuneczeka z buzka to przyjmij ze tak byc powinno
' nie jestem artysta
' Wklej sampelek na i wrzuc tam PictureBox-a nazwanego p1
End Sub


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

26-05-2004 07:52
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1