Linux için Lazarus ta yaptığım ohm Kanunu programı

Başlatan hasanzincir, 17 Temmuz 2009 - 10:59:11

« önceki - sonraki »

0 Üyeler ve 7 Ziyaretçi konuyu incelemekte.

Yazdır
Aşağı git Sayfa1
Kullanıcı Eylemleri

hasanzincir

17 Temmuz 2009 - 10:59:11 Son düzenlenme: 19 Eylül 2009 - 11:54:05 hasanzincir
Daha önce windows ortam için yaptığım Ohm Kanunu programını Lazarus ta tekrar derledim artık linux ta da calışır hale geldi.
Biraz amatör ama uzman arkadaşlar mazur görsünler.

Calıştırma Dosyası ve Lazarus Proje dosyası


[IMG]http://img194.imageshack.us/img194/7938/ohm.jpg[/img]

Acık kaynak Kodları
Kod Seç
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 ExtCtrls, StdCtrls;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;
   ComboBox1: TComboBox;
   ComboBox2: TComboBox;
   ComboBox3: TComboBox;
   ComboBox4: TComboBox;
   Edit1: TEdit;
   Edit2: TEdit;
   GroupBox1: TGroupBox;
   Image1: TImage;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Label5: TLabel;
   procedure Button1Click(Sender: TObject);
   procedure ComboBox3Change(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.ComboBox3Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 //Voltaj Degerlerini Bulma Volt
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=0) then//E=R*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))*1)+ ' Volt'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=0) then//E=I*R
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))*1)+ ' Volt'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=1)AND (ComboBox4.ItemIndex=0) then//E=P/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))*1)+ ' Volt'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=0) then//E=P/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))*1)+ ' Volt'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=0) then//E=KareKök[P*R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text)))*1)+ ' Volt'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=0) then//E=KareKök[P*R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text)))*1)+ ' Volt'
 else
//Direnç Deðerini Bulma  Ohm
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=0) then//R=E/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))*1)+ ' Ohm'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=0) then//R=E/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))*1)+ ' Ohm'
 else
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=0) then//R=E*E/P
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit1.Text))/StrToFloat(Edit2.Text))*1)+ ' Ohm'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=0) then//R=E*E/P
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit2.Text))/StrToFloat(Edit1.Text))*1)+ ' Ohm'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=0) then//R=P/I*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/sqr(StrToFloat(Edit2.Text)))*1)+ ' Ohm'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=0) then//R=P/I*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/sqr(StrToFloat(Edit1.Text)))*1)+ ' Ohm'
 else
//Akým Deðerini Bulma Amper
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=0) then//I=E/R
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))*1)+ ' Amper'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=0) then//I=E/R
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))*1)+ ' Amper'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=0) then//I=P/E
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))*1)+ ' Amper'
 else
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=0) then//I=P/E
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))*1)+ ' Amper'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=0) then//I=KareKök[P/R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text)))*1)+ ' Amper'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=0) then//I=KareKök[P/R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text)))*1)+ ' Amper'
 else
//Güç Deðerini Bulma Wat
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=0) then//P=E*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))*1)+ ' Wat'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=0) then//P=I*E
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))*1)+ ' Wat'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=0) then//P=R*(I*I)
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* sqr(StrToFloat(Edit2.Text)))*1)+ ' Wat'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=0) then//P=(I*I)*R
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit1.Text))* StrToFloat(Edit2.Text))*1)+ ' Wat'
 else
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=0) then//P=(E*E)/I
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit1.Text))/StrToFloat(Edit2.Text))*1)+ ' Wat'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=0) then//P=(E*E)/I
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit2.Text))/StrToFloat(Edit1.Text))*1)+ ' Wat'
 else
//Kilo cinsinden

 //Voltaj Degerlerini Bulma KVolt
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=1) then//E=R*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))/1000)+ ' KVolt'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=1) then//E=I*R
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))/1000)+ ' KVolt'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=1)AND (ComboBox4.ItemIndex=1) then//E=P/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))/1000)+ ' KVolt'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=1) then//E=P/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))/1000)+ ' KVolt'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=1) then//E=KareKök[P*R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text)))/1000)+ ' KVolt'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=1) AND (ComboBox4.ItemIndex=1) then//E=KareKök[P*R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text)))/1000)+ ' KVolt'
 else
//Direnç Deðerini Bulma  KOhm
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=1) then//R=E/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))/1000)+ ' KOhm'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=1) then//R=E/I
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))*1)+ ' KOhm'
 else
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=1) then//R=E*E/P
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit1.Text))/StrToFloat(Edit2.Text))/1000)+ ' KOhm'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=1) then//R=E*E/P
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit2.Text))/StrToFloat(Edit1.Text))/1000)+ ' KOhm'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=1) then//R=P/I*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/sqr(StrToFloat(Edit2.Text)))/1000)+ ' KOhm'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=3) AND (ComboBox4.ItemIndex=1) then//R=P/I*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/sqr(StrToFloat(Edit1.Text)))/1000)+ ' KOhm'
 else
//Akým Deðerini Bulma KAmper
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=1) then//I=E/R
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))/1000)+ ' KAmper'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=1) then//I=E/R
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))/1000)+ ' KAmper'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=1) then//I=P/E
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))/1000)+ ' KAmper'
 else
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=1) then//I=P/E
 Label3.Caption:= FloatToStr((StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text))/1000)+ ' KAmper'
 else
 if (ComboBox1.ItemIndex=0) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=1) then//I=KareKök[P/R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text)))/1000)+ ' KAmper'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=0) AND (ComboBox3.ItemIndex=2) AND (ComboBox4.ItemIndex=1) then//I=KareKök[P/R]
 Label3.Caption:= FloatToStr((sqrt(StrToFloat(Edit2.Text)/StrToFloat(Edit1.Text)))/1000)+ ' KAmper'
 else
//Güç Deðerini Bulma KWat
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=1) then//P=E*I
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))/1000)+ ' KWat'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=1) then//P=I*E
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text))/1000)+ ' KWat'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=2) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=1) then//P=R*(I*I)
 Label3.Caption:= FloatToStr((StrToFloat(Edit1.Text)* sqr(StrToFloat(Edit2.Text)))/1000)+ ' KWat'
 else
 if (ComboBox1.ItemIndex=2) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=1) then//P=(I*I)*R
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit1.Text))* StrToFloat(Edit2.Text))/1000)+ ' KWat'
 else
 if (ComboBox1.ItemIndex=1) AND (ComboBox2.ItemIndex=3) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=1) then//P=(E*E)/I
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit1.Text))/StrToFloat(Edit2.Text))/1000)+ ' KWat'
 else
 if (ComboBox1.ItemIndex=3) AND (ComboBox2.ItemIndex=1) AND (ComboBox3.ItemIndex=0) AND (ComboBox4.ItemIndex=1) then//P=(E*E)/I
 Label3.Caption:= FloatToStr((sqr(StrToFloat(Edit2.Text))/StrToFloat(Edit1.Text))/1000)+ ' KWat'
else
ShowMessage('Hatalı veya Eksik Giriş Yaptınız! Resimdeki Tablodan Faydalanınız.');

end;

initialization
 {$I unit1.lrs}

end.
                                 

heartsmagic

#1
17 Temmuz 2009 - 21:05:41
Amatör veya profesyonel olması değil, paylaşılması önemli şu anda. Eline sağlık.
Hayattan çıkarı olmayanların, ölümden de çıkarı olmayacaktır.
Hayatlarıyla yanlış olanların ölümleriyle doğru olmalarına imkân var mıdır?

Böylece yalan, dünyanın düzenine dönüştürülüyor.

Yusuff

#2
17 Temmuz 2009 - 21:51:17
Eline sağlık! Peki bizim işimize yarar mı ? Yani demek istediğim bununla bir şey hesaplayabilir miyiz? :)

Kusura bakma valla ne olduğunu bilmiyorum :D
Linux Registered User #493230  Ubuntu User #28068

ebubekirs

#3
17 Temmuz 2009 - 22:25:42
Paylaşım için çok teşekkürler, elinize sağlık
Dünyaya gelen de benim, dünyadan giden de benim

hasanzincir

#4
18 Temmuz 2009 - 08:15:09
Alıntı yapılan: yusufsan21 - 17 Temmuz 2009 - 21:51:17
Eline sağlık! Peki bizim işimize yarar mı ? Yani demek istediğim bununla bir şey hesaplayabilir miyiz? :)

Kusura bakma valla ne olduğunu bilmiyorum :D

:D :D Bununla ancak voltaj,güc,akım,direnc hesabı yaparız.
Ama inanın insanların kullanacagı basit porgramlar yapacagım ve bunlar linux sistemlerde calısacak
örnek tel rehberi ne bilim döviz kuru programı falan filan kendi capımda yapıcam biseyler.

Bedreddin

#5
18 Temmuz 2009 - 10:30:40
Elinize sağlık. :) Bu insanların işine yaramıyormuş gibi bakmayın, belki de forumu okuyucu olarak takip eden, elektrik/elektronik işiyle uğraşan birileri vardır.
Yaşamak bir ağaç gibi tek ve hür
ve bir orman gibi kardeşçesine,
      bu hasret bizim!

mustafa.tr

#6
18 Temmuz 2009 - 10:37:28
Ya da belki birisi Google'da "Linux için ohm kanunu programı" diye arar ve buraya ulaşır. Elinize sağlık.

http://www.google.com.tr/search?hl=tr&q=linux+i%C3%A7in+ohm+kanunu+program%C4%B1&btnG=Google%27da+Ara&meta=&aq=f&oq=

bytan

#7
18 Temmuz 2009 - 12:29:54
Formül çemberini çok beğendim. Elinize sağlık.
Umut en büyük kötülüktür; işkenceyi uzatır. - F.N.

Bir şey ne ise odur, bu kadar. Öyleyse, iki şey arasında bağdaşıklık varsa, bu aralarında iletişim kuruyorlar demek değildir.
"... kavrayışını bilgi ile derinleştir ..."
PF @ ST

hasanzincir

#8
20 Temmuz 2009 - 10:58:02
Teşekkürler arkadaşlar Lazarus u daha yeni yeni uygulama yazmaya basladım.
Bir program daha tamamladım.

Hepimiz elektronik kartlar üzerindeki renkli renkli direnç leri biliriz. Ve bu direnç renkleri ile direncin Ohmaji analşılır.
Buna nazaran ufak bir uygulama programı yaptım Nacizane!

Ayrı Bir konu acmaya gerek duymadım!

Hataları ve eleştirilerinizi eksik tutmayın lütfen gelişmeme yardımcı olur!



Program:Direnc Renk Kodundan Omaj Bulma

Uygulama ve Acık kaynak proje dosyası

[IMG]http://img195.imageshack.us/img195/8535/lazarusdirencrenkkodu.jpg[/img]


Kaynak Kodları
Kod Seç
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
 ExtCtrls, StdCtrls;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;
   Sayi1: TComboBox;
   Sayi2: TComboBox;
   Carpan: TComboBox;
   Tolerans: TComboBox;
   Image1: TImage;
   Direnc: TLabel;
   procedure Button1Click(Sender: TObject);
   procedure CarpanChange(Sender: TObject);
   procedure FormClick(Sender: TObject);
   procedure Sayi1Change(Sender: TObject);
   procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
   procedure FormCreate(Sender: TObject);
   procedure Sayi2Change(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;
 Kab1Sayi,Kab2Sayi,Kab_tolerans,Kab_sonuc,Met1Sayi,Met2Sayi,
 Met3Sayi,Met_tolerans,Met_sonuc:Integer;
 Kab_carpan,Met_carpan:String;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
Showmessage('Hoşgeldiniz');
end;

procedure TForm1.Sayi2Change(Sender: TObject);
begin
 if Sayi2.ItemIndex=0 then
Kab2Sayi:=0;
if Sayi2.ItemIndex=1 then
Kab2Sayi:=1;
if Sayi2.ItemIndex=2 then
Kab2Sayi:=2;
if Sayi2.ItemIndex=3 then
Kab2Sayi:=3;
if Sayi2.ItemIndex=4 then
Kab2Sayi:=4;
if Sayi2.ItemIndex=5 then
Kab2Sayi:=5;
if Sayi2.ItemIndex=6 then
Kab2Sayi:=6;
if Sayi2.ItemIndex=7 then
Kab2Sayi:=7;
if Sayi2.ItemIndex=8 then
Kab2Sayi:=8;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
ShowMessage('Hoşçakal');
end;

procedure TForm1.Sayi1Change(Sender: TObject);
begin
if Sayi1.ItemIndex=0 then //yazma.
Kab1Sayi:=0;
if Sayi1.ItemIndex=1 then
Kab1Sayi:=1;
if Sayi1.ItemIndex=2 then
Kab1Sayi:=2;
if Sayi1.ItemIndex=3 then
Kab1Sayi:=3;
if Sayi1.ItemIndex=4 then
Kab1Sayi:=4;
if Sayi1.ItemIndex=5 then
Kab1Sayi:=5;
if Sayi1.ItemIndex=6 then
Kab1Sayi:=6;
if Sayi1.ItemIndex=7 then
Kab1Sayi:=7;
if Sayi1.ItemIndex=8 then
Kab1Sayi:=8;
end;

procedure TForm1.CarpanChange(Sender: TObject);
begin
 if Carpan.ItemIndex=0 then
Kab_carpan:='';
if Carpan.ItemIndex=1 then
Kab_carpan:='0';
if Carpan.ItemIndex=2 then
Kab_carpan:='00';
if Carpan.ItemIndex=3 then
Kab_carpan:='000';
if Carpan.ItemIndex=4 then
Kab_carpan:='0000';
if Carpan.ItemIndex=5 then
Kab_carpan:='00000';
if Carpan.ItemIndex=6 then
Kab_carpan:='000000';
if Carpan.ItemIndex=7 then
Kab_carpan:='0000000';
if Carpan.ItemIndex=8 then
Kab_carpan:='00000000';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(Kab1Sayi)+IntToStr(Kab2Sayi)+Kab_carpan+'Ohm');
end;

procedure TForm1.FormClick(Sender: TObject);
begin
ShowMessage('Orayla burayla oynama :)))');
end;

initialization
 {$I unit1.lrs}

end.
                   

ironic

#9
20 Temmuz 2009 - 11:36:19
Elinize sağlık.  :)

erginemr

#10
20 Temmuz 2009 - 11:37:45
Elinize sağlık. Burası komik olmuş:  :P
Alıntı YapShowMessage('Orayla burayla oynama :)))');

s7e7v7e7n

#12
27 Aralık 2009 - 00:16:08
@hasanzincir ; teşekkürler böyle bir program arıyordum basit birşey elektronikci bir tanıdık için lazımdı bu ilaç gibi geldi ama bu sadece linux altındamı çalışıyor ? o arkadaş malesef Linux'un L sini bilmez :)
Ubuntu Desktop 11.10 Oneiric Ocelot

maydin95

#13
07 Şubat 2010 - 15:05:53
arkadaşlar kırtasiyede bir kitap gördüm delphi8 kitabı. galiba delphi sadece windows için değil miydi. Eğer delphi ile birşey yazdığımız zaman linux için de derlenebiliyorsa kitabı almayı düşünüyorum. linux için derlenebiliyor mu??
Din; ilimle birleşirse nefaset, cehaletle birleşirse rezalet, siyasetle birleşirse de felaket olur.

erginemr

#14
08 Şubat 2010 - 13:03:45
Alıntı yapılan: maydin95 - 07 Şubat 2010 - 15:05:53
arkadaşlar kırtasiyede bir kitap gördüm delphi8 kitabı. galiba delphi sadece windows için değil miydi. Eğer delphi ile * bir şey yazdığımız zaman linux için de derlenebiliyorsa kitabı almayı düşünüyorum. linux için derlenebiliyor mu??

Delphi sadece Windows altında kullanılan bir dil. Linux'te Delphi'ye benzer Lazarus var, yine aynı Object Pascal dili kullanılıyor ama grafik kütüphaneleri Windows'unkinden çok farklı. Delphi için yazılan bir program kodu, doğrudan Lazarus'ta kullanılamıyor, kodda değişiklikler yapmak gerekiyor diye biliyorum.

Sonuç itibariyle, Linux altında program yazmak için "Delphi 8" kitabı almak doğru bir seçim olmayacaktır.

maydin95

#15
12 Şubat 2010 - 21:50:17
Şimdiye kadar araştırdım, galiba en iyi dil C, zaten şimdiki dillerde C'den yazılıyormuş. Ayrıca Bilgisayar Olimpiyatlarında C uygulaması olması açısından da C iyi bir dil. Ama C mi C++ mı yoksa C#(tavsiye edilmiyor diye duydum) hangisini seçsem diye düşünüyorum. Neyse ben bu konuyu C de açayım.

Ayrıca Linux ve diğer sistemler altında uyumlu dillerden önerir misiniz? + - lerini merak ediyorum. Mesela oyun için en iyisi, Hesaplama için en iyisi, ağ için en iyisi vs.
Din; ilimle birleşirse nefaset, cehaletle birleşirse rezalet, siyasetle birleşirse de felaket olur.

hasanzincir

#16
14 Eylül 2010 - 16:50:20
Alıntı yapılan: erginemr - 08 Şubat 2010 - 13:03:45
Alıntı yapılan: maydin95 - 07 Şubat 2010 - 15:05:53
arkadaşlar kırtasiyede bir kitap gördüm delphi8 kitabı. galiba delphi sadece windows için değil miydi. Eğer delphi ile * bir şey yazdığımız zaman linux için de derlenebiliyorsa kitabı almayı düşünüyorum. linux için derlenebiliyor mu??

Delphi sadece Windows altında kullanılan bir dil. Linux'te Delphi'ye benzer Lazarus var, yine aynı Object Pascal dili kullanılıyor ama grafik kütüphaneleri Windows'unkinden çok farklı. Delphi için yazılan bir program kodu, doğrudan Lazarus'ta kullanılamıyor, kodda değişiklikler yapmak gerekiyor diye biliyorum.

Sonuç itibariyle, Linux altında program yazmak için "Delphi 8" kitabı almak doğru bir seçim olmayacaktır.

Aslında aynı programın windoz altında calışanınıda yaptım ama burda yayınlamak istemiyorum bu nezih linux dünyasına pis windoz sokmuyalım!


Mesaj tekrarı yüzünden mesajınız birleştirildi. Bu mesajın gönderim tarihi : 14 Eylül 2010 - 16:51:56

Alıntı yapılan: maydin95 - 12 Şubat 2010 - 21:50:17
Şimdiye kadar araştırdım, galiba en iyi dil C, zaten şimdiki dillerde C'den yazılıyormuş. Ayrıca Bilgisayar Olimpiyatlarında C uygulaması olması açısından da C iyi bir dil. Ama C mi C++ mı yoksa C#(tavsiye edilmiyor diye duydum) hangisini seçsem diye düşünüyorum. Neyse ben bu konuyu C de açayım.

Ayrıca Linux ve diğer sistemler altında uyumlu dillerden önerir misiniz? + - lerini merak ediyorum. Mesela oyun için en iyisi, Hesaplama için en iyisi, ağ için en iyisi vs.

Eğer linux altında güclü tam uyumlu dil arıyorsanız python öneririm!

gnukarabatak

#17
11 Aralık 2014 - 02:53:10
@hasanzincir;
Bağlantı çalışmıyor. Ayrıca sadece pas dosyasının kodunu vermişsiniz. lfm dosyasının kodunu da yayınlarsanız daha rahat inceleme şansımız olur.
Linux kullanmak bir farklılık, linux'te kod yazmak ise ayrıcalıktır.
Yazdır
Yukarı git Sayfa1
Kullanıcı Eylemleri