Türkçe Forum - Girburaya.net

Geri git   Türkçe Forum - Girburaya.net > Webmaster > Programlama > Pascal
Kayıt ol Yardım Üye Listesi Ajanda Arama Bugünki Mesajlar Bütün Forumları okunmuş kabul et

Pascal Pascal Hakkında Aradığınız Herşey.. Pascal Kodları..

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler
Alt 01-04-08, 16:15   #1 (permalink)
DeJiN
 
Mesajlar: n/a
Standart Grafik ekranda iki çevreli devredeki akımları bulma


GELİŞTİRME ORTAMI:
INTEL P4 1.4 Mhz bir bilgisayarda Windows XP işletim sisteminde Turbo C ++ 3.0 ’da yazılmıştır.

ÇALIŞMA ŞEKLİ:
Programın kaynak dosyası "ELDEV.C dir. Mouse kullanımı için MOUSE.C header kaynak dosyasına ihtiyaç duymaktadır." dır.
Çalıştırılabilir dosya ise edevrev10.exe'dir.Grafik ekrana geçmek için EGAVGA.bgi dosyasına ihtiyaç duymaktadır

DEĞİŞKEN,SABİT VE ALT PROGRAMLAR
void dirx(int x,int y) // Yatay direnç çizer.
void diry(int x,int y) // Dikey direnç çizer.
void voltx(int x,int y) // Yatay üreteç çizer.
void voltxx(int x,int y) // Yatay üreteç zıt kutuplu çizer.
void volty(int x,int y) // Dikey üreteç çizer.
void voltyy(int x,int y) // Dikey üreteç zıt kutuplu çizer.
void devre() // Devrenin şeklini çizer.
void koy(int xy,int s,int eleman,int x,int y) // Devredeki istenilen düğüm tıklandığında devre elemanını çiziyor.
void fare(int x1,int y1,int x2,int y2) // Farenin istenilen koordinatlarda olup olmadığını denetliyor.
void heyecan(int x,int y) // Farenin istenilen koordinatlarda olup olmadığını denetliyor.
void inputopen() // Klavyeden veri girişi için pencere açar.
void inputclose() // Açılan pencereyi kapatıyor.
void oklar() // Devrenin akim değerlerini bulduğunda akımların yönünü ok çizerek gösteriyor.
void degeryaz(int konum,int x,int y,int deger) // Dirence yada Üretece girilen değeri ekrana yazar.
int x[]= Devre üzerindeki elemanların x koordinatını veriyor
int y[]=Devre üzerindeki elemanların y koordinatını veriyor
int xy[]=Devre üzerindeki elemanların yatay mı dikey mi olduğunu belirtiyor.
int konum[]=Devre üzerindeki elemanların değerlerinin ne tarafına yazılacağını belirtiyor.
R[21]= Direnç değer dizisi
E[21]= Üreteç değer dizisi
I1=I1 akım değeri
I2=I2 akım değeri
I3=I3 akım değeri
R1=Sol koldaki dirençlerin toplamı
R2= Orta koldaki dirençlerin toplamı
R3= Sağ koldaki dirençlerin toplamı
E1= Sol koldaki üreteçlerin toplamı
E2= Orta koldaki üreteçlerin toplamı
E3= Sağ koldaki üreteçlerin toplamı

PROGRAMIN MANTIĞI
Program devreyi çizdikten sonra bir döngü içine giriyor.Döngüden sürekli farenin belirlenen koordinatlar içinde olup olmadığı denetleniyor.

1.düğüm tıklanmışsa 1. düğümün yatay dikey durumuna bakılır ona göre 1. düğümün koordinatlarına bir direnç koyulur(tabi önceden devre elemanlarından direnç seçilmişse) ve değeri girilir.

Bütün düğümler için bu kural geçerlidir.

Bul tıklanıldığında bütün kollardaki dirençler ve üreteçlerin değerleri toplanır.Gerekli işlemler yapılır ve akım değerleri ekrana yazılır.

Sil tıklanıldığında devredeki değerler silinir yeni temiz bir devre gelir.

KARŞILAŞILAN ZORLUKLAR VE ÇÖZÜM AŞAMALARI
Akımları buldurmak gerçekten zor oldu.Birde Mouse kullanımında problem yaşadım.Sorunu C bir fonksyondan geri değer göndermek yerine genel bir değişken kullanarak çözdüm.

ÇALIŞMA ŞEKLİ
edevrev10.exe'yi çift tıkladığımızda karşınıza iki çevreli bir devre ve Devre elemanları kutusu çıkacaktır.Devre elemanları kutusundan istediğiniz birini seçin ve devredeki düğümlerin üzerine gelip tıklayın elemanınız seçtiğiniz düğüme yerleşecektir.Akımları bulmak için bulu tıklayın..Ekran görüntüleri veremiyorum çünkü grafik ekran.

SONUÇ VE YORUM
C de etkin bir şekilde mouse kullanımını öğrenmiş oldum grafik ekranda uygulama geliştirme olaylarını biraz daha geliştirdim.Ayrıca devre çözüm yöntemlerini de hatırlamış oldum.

KAYNAKLAR
Galip ÖZEL “C ile Programlama Teknikleri” ,Türkmen Kitabevi
Rıfat Çölkesen “İşte C Programlama Dili” ,Papatya Yayıncılık Yayınları
  Alıntı ile Cevapla
Yeni Konu aç  Cevapla



Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Yetkileriniz
Yeni Mesaj yazma yetkiniz aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz aktif değil dir.

Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar son Mesaj
Grafik Programları Cansu Grafik - Resim Araçları 4 03-09-08 04:11
Negatif-Pozitif Sayıyı Bulma DeJiN Pascal 0 01-04-08 16:04
Harf Notunu Bulma DeJiN Pascal 0 01-04-08 16:03
Net Maaşı Bulma DeJiN Pascal 0 01-04-08 16:02
Sayının negatif yada pozitif oldugunu bulma DeJiN Java 0 12-27-07 15:20


Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 14:36 .


Powered by: vBulletin Version 3.6.8 (Türkçe)
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
Türkçeye: Girburaya.Net tarafından çevrilmiştir.
GirBuraya.Net

oyun komedi sohbet siteleri
mirc mırc sohbet chat çet sohbet chat canlı tv


7, 427, 6, 5, 106, 107, 9, 10, 11, 12, 14, 15, 16, 17, 202, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 32, 397, 34, 35, 36, 341, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 198, 50, 51, 52, 53, 54, 123, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 76, 77, 78, 79, 80, 81, 82, 112, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 108, 109, 110, 113, 115, 116, 117, 118, 119, 120, 122, 121, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 249, 184, 187, 248, 188, 189, 247, 190, 191, 429, 192, 193, 194, 195, 196, 197, 199, 200, 201, 203, 204, 205, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 221, 222, 223, 224, 225, 227, 228, 229, 230, 231, 232, 234, 235, 237, 238, 346, 240, 242, 243, 246, 250, 251, 252, 253, 254, 255, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 297, 298, 299, 300, 301, 302, 303, 307, 308, 321, 315, 314, 317, 322, 338, 318, 323, 324, 325, 326, 327, 328, 330, 331, 336, 332, 333, 334, 337, 335, 339, 340, 342, 343, 344, 345, 363, 348, 347, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 373, 382, 374, 369, 370, 375, 376, 377, 380, 385, 384, 386, 394, 388, 389, 390, 391, 392, 393, 396, 409, 398, 399, 400, 401, 403, 404, 405, 406, 410, 411, 412, 413, 414, 415, 417, 416, 418, 419, 420, 421, 423, 425, 426, 434, 428, 430, 432, 431, 435, 433, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445,
XXX.Kokotskej.Net HeyList.Com Toplist | Siteni Ekle Hitine Hit Kat! B2Brank.com - Pagerank Anzeige ohne Toolbar nti racing list , neolist Pirveli Top Топ 100 | DJ Pacolya Rank Erotico War rock France .:: Top clans ::.
dating service