Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Dirençlerin Renklerini Bulma  (Okunma sayısı 3440 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı SsEeRrCcAaNn

  • Delphi XE2 Level 1
  • *
  • İleti: 703
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Delphi and JALv2 programmer
Dirençlerin Renklerini Bulma
« : 14 Eylül 2008 18:53:31 »
Bir Projemde kullanmak üzere denemek için yazdığım bu program 4 Bantlı ve 5 Bantlı Direncin değerini ohm cinsinden verdiğinizde size en yakın standart renkleri sunmaktadır..Açık kaynak olarak paylaşıyorum isteyen kişiler geliştirebilir..

Kolay gelsin..



« Son Düzenleme: 16 Eylül 2008 19:40:16 by SsEeRrCcAaNn »
Kayıtlı
Artık bir insanın önüne bir bilgisayar koyarak onu daha üretici yapamıyoruz. O günler geride

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Dirençlerin Renklerini Bulma
« Yanıtla #1 : 15 Eylül 2008 23:10:49 »
Sercan eline emeğine sağlık çok hoş olmuş. Devamını temenni edereiz.
Kayıtlı

Çevrimdışı SsEeRrCcAaNn

  • Delphi XE2 Level 1
  • *
  • İleti: 703
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Delphi and JALv2 programmer
Ynt: Dirençlerin Renklerini Bulma
« Yanıtla #2 : 16 Eylül 2008 12:29:52 »
Alıntı yapılan: Kocaturk - 15 Eylül 2008 23:10:49
Sercan eline emeğine sağlık çok hoş olmuş. Devamını temenni edereiz.

Teşekkür ederim hocam dediğim gibi tamamen demek amaçlı yazdım başlangıçta projemde kullanmadan önce bağımsız olarak yazarım ve denerim neyse asıl projem güzel elektrik elektronik adı altında bir çok işe yarayacak programı bir projede kendim kodlayarak birleştiriyorum..İnş en kısa zamanda bitiririm...

Kolay gelsin..
Kayıtlı
Artık bir insanın önüne bir bilgisayar koyarak onu daha üretici yapamıyoruz. O günler geride

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: Dirençlerin Renklerini Bulma
« Yanıtla #3 : 18 Eylül 2008 14:54:24 »
Hadi hayırlısı, bekliyoruz projeni.
Kayıtlı

Çevrimdışı hasanzincir

  • Delphi 1 Level 1
  • *
  • İleti: 7
  • Rep: +0/-0
  • Sleepy Meslegini seviyorsan işini dogru yapıyorsan
Ynt: Dirençlerin Renklerini Bulma
« Yanıtla #4 : 07 Temmuz 2009 09:04:37 »
Bende kendi yaptıgım programın Renk e göre Omaj bulma programı paylasıyorum.
Biraz acemice ama su delphi yeteneklerim bununla sınırlı ama gün gün ögreniyorum.



Buradan İndiriniz

Buda kodları İsteyen arkadaslar bu kodları gelistirebilir.(Cokta ciddi program degil ama nacizane ugrasmak istiyen olabilir.

Kod:  (Unknown Language)
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, jpeg, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Image1: TImage;
  12.     ComboBox1: TComboBox;
  13.     ComboBox2: TComboBox;
  14.     ComboBox3: TComboBox;
  15.     ComboBox8: TComboBox;
  16.     Button1: TButton;
  17.     Label1: TLabel;
  18.     procedure FormActivate(Sender: TObject);
  19.     procedure FormClick(Sender: TObject);
  20.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure ComboBox1Change(Sender: TObject);
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure ComboBox2Change(Sender: TObject);
  25.     procedure ComboBox3Change(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.   Kab1Sayi,Kab2Sayi,Kab_tolerans,Kab_sonuc,Met1Sayi,Met2Sayi,
  35.   Met3Sayi,Met_tolerans,Met_sonuc:integer;
  36.   Kab_carpan,Met_carpan:String;
  37.  
  38. implementation
  39.  
  40.  
  41.  
  42. {$R *.dfm}
  43.  
  44. procedure TForm1.FormActivate(Sender: TObject);
  45. begin
  46. Showmessage('Eyvallah Buyur')
  47. end;
  48.  
  49. procedure TForm1.FormClick(Sender: TObject);
  50. begin
  51. ShowMessage('Orayla burayla oynama')
  52. end;
  53.  
  54. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  55. begin
  56. ShowMessage('Hoşcakal')
  57. end;
  58.  
  59. procedure TForm1.FormCreate(Sender: TObject);
  60. begin
  61. Showmessage('Hoşgeldin birader')
  62. end;
  63.  
  64. procedure TForm1.ComboBox1Change(Sender: TObject);
  65. begin                         //Kablolu direnç icin comboBox degerleri degiskene
  66. if comboBox1.ItemIndex=0 then //yazma.
  67. Kab1Sayi:=0;
  68. if comboBox1.ItemIndex=1 then
  69. Kab1Sayi:=1;
  70. if comboBox1.ItemIndex=2 then
  71. Kab1Sayi:=2;
  72. if comboBox1.ItemIndex=3 then
  73. Kab1Sayi:=3;
  74. if comboBox1.ItemIndex=4 then
  75. Kab1Sayi:=4;
  76. if comboBox1.ItemIndex=5 then
  77. Kab1Sayi:=5;
  78. if comboBox1.ItemIndex=6 then
  79. Kab1Sayi:=6;
  80. if comboBox1.ItemIndex=7 then
  81. Kab1Sayi:=7;
  82. if comboBox1.ItemIndex=8 then
  83. Kab1Sayi:=8;
  84. end;
  85.  
  86. procedure TForm1.Button1Click(Sender: TObject);
  87. begin
  88. ShowMessage(IntToStr(Kab1Sayi)+IntToStr(Kab2Sayi)+Kab_carpan+'Ohm');
  89. end;
  90.  
  91. procedure TForm1.ComboBox2Change(Sender: TObject);
  92. begin
  93. if comboBox2.ItemIndex=0 then
  94. Kab2Sayi:=0;
  95. if comboBox2.ItemIndex=1 then
  96. Kab2Sayi:=1;
  97. if comboBox2.ItemIndex=2 then
  98. Kab2Sayi:=2;
  99. if comboBox2.ItemIndex=3 then
  100. Kab2Sayi:=3;
  101. if comboBox2.ItemIndex=4 then
  102. Kab2Sayi:=4;
  103. if comboBox2.ItemIndex=5 then
  104. Kab2Sayi:=5;
  105. if comboBox2.ItemIndex=6 then
  106. Kab2Sayi:=6;
  107. if comboBox2.ItemIndex=7 then
  108. Kab2Sayi:=7;
  109. if comboBox2.ItemIndex=8 then
  110. Kab2Sayi:=8;
  111. end;
  112.  
  113. procedure TForm1.ComboBox3Change(Sender: TObject);
  114. begin
  115. if comboBox3.ItemIndex=0 then
  116. Kab_carpan:='';
  117. if comboBox3.ItemIndex=1 then
  118. Kab_carpan:='0';
  119. if comboBox3.ItemIndex=2 then
  120. Kab_carpan:='00';
  121. if comboBox3.ItemIndex=3 then
  122. Kab_carpan:='000';
  123. if comboBox3.ItemIndex=4 then
  124. Kab_carpan:='0000';
  125. if comboBox3.ItemIndex=5 then
  126. Kab_carpan:='00000';
  127. if comboBox3.ItemIndex=6 then
  128. Kab_carpan:='000000';
  129. if comboBox3.ItemIndex=7 then
  130. Kab_carpan:='0000000';
  131. if comboBox3.ItemIndex=8 then
  132. Kab_carpan:='00000000';
  133. end;
  134.  
  135. end.
  136.  
« Son Düzenleme: 07 Temmuz 2009 14:20:14 by Kocaturk »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »