Hesap Makinesi Nasıl Yapılır?

11/Şub/10 23:30

Kısayol

Şikayet

Özel Mesaj

ILKER06

Kayıt Tarihi: 15/Ağustos/2005

ewet arkadaslar sorum bu hesap makınesı nasıl yapılır az once dukkanda calısmayan bı makıne buldum actım ıcını sadece bı ekran vardı belkı tamır ederım dedım iice mahvettım o arada mrk ettım nasıl programlıyolar yada nası yapıyolar sadece ekran kaldı elımde pılı degdırınce 0 yazısı cıkıyo ben belkı buraya ısım falan yazabılırmıyım ekrana programlayarak bılgısı olan hocalar aydınlatırsa sevınırım ..

saygılar

Hayattaki en güzel şeyler : Ya kanun dışı, ya ahlak dışı ya da şişmanlatıcıdır.

Alıntı yap

12/Şub/10 00:05

Kısayol

Şikayet

Özel Mesaj

Tabela Fatihi
kaygusuz

Kayıt Tarihi: 06/Nisan/2007

picle programlayıp yapabilirsin.

Türkiye’deki emekli yaşlı insanları sevmiyorum. Ailemde emekli olanlarda dahil. Geleceğimizin çalınmasına izin verdiler. Umarım ızdırap dolu bir çileli hayat çekip elveda deyip bu dünyadan gidersiniz. Siz gençleri zırnık düşünmediniz hayallerini mahvettiniz.14.500TL ile hiçbirşey almadan karnınızı doyurun gelecek nesili düşünmeden yaşadığınızı sanıp gidin bu dünyadan.

Alıntı yap

12/Şub/10 00:05

Kısayol

Şikayet

Özel Mesaj

PsychoDawn

Kayıt Tarihi: 01/Nisan/2007

ILKER06 bunu yazdı:
-----------------------------

ya yok yok leblebı degıl yazdırmak ben bu ekranı söktüm oraya ya kodlayarak artık nası yapılırsa anlataıblecek varsa yada baska sekılde pili takınca oradan ılker yada artık ne yazarsam o cıksın ıstıyorum :S :D

-----------------------------
hesap makinesiin ekranı uygun değil onun için , lcd paneller var kasaya süsolsn diye yapıyorlar bazen , Ha birde bu var http://www.beceriklialetler.com/store/ProductDetails.aspx?productId=74569

Alıntı yap

12/Şub/10 00:06

Kısayol

Şikayet

Özel Mesaj

1234567B

Kayıt Tarihi: 04/Şubat/2010

Visual Basic'i açıp Standart exe'yi seçiyoruz. Formumuza 3 adet Label, 3 adet TextBox, 4 adet OptionButton koyuyoruz.

kod:
Dim ilk, ikinci As Long

Private Sub Command1_Click()
ilk = Text1.Text
ikinci = Text2.Text
If Option1.Value = True Then
Text3.Text = ilk + ikinci
End If
If Option2.Value = True Then
Text3.Text = ilk - ikinci
End If
If Option3.Value = True Then
Text3.Text = ilk * ikinci
End If
If Option4.Value = True Then
Text3.Text = ilk / ikinci
End If
End Sub

Private Sub Form_Load()
BorderStyle = 1
Caption = "Buraya istediğinizi yazın"
Left = "4740"
Top = "4155"
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = ""
Label1.Caption = "1. Sayı"
Label2.Caption = "2. Sayı"
Label3.Caption = "Sonuç"
Command1.Caption = ">>>"
Option1.Caption = "Toplama"
Option2.Caption = "Çıkarma"
Option3.Caption = "Çarpma"
Option4.Caption = "Bölme"
Option1.Value = True
End Sub

arbeit macht frei

Alıntı yap

12/Şub/10 00:09

Kısayol

Şikayet

Özel Mesaj

ILKER06

Kayıt Tarihi: 15/Ağustos/2005

PsychoDawn kardesım cok saolasın ewet guzel bu da bunu ben kendım yapamam mı ne gerek yapmak ıcın

kaygusuz kardesım pic i arastırayım o zaman duymustum aslında bıraz kurcalayım sanada cok tesekkur ederım

buraqgo bılıyom hesap makınesı yazmayı :D bu baska :D

Hayattaki en güzel şeyler : Ya kanun dışı, ya ahlak dışı ya da şişmanlatıcıdır.

Alıntı yap

12/Şub/10 00:10

Kısayol

Şikayet

Özel Mesaj

RitmFarbRacourci

Kayıt Tarihi: 14/Mart/2008

ILKER06 bunu yazdı:
-----------------------------

amac yenısını almak degıl bu hesapmakınesının ekranını kullanıp pille baglayınca ısmımı yazdırmak gıbı bı cabam var yapabılırmıyım nası yapabılırım

-----------------------------

nasil yapilıyor. bir deneyimim yok ancak bilim teknigin bazi pdf lerinde senin bu dediginin nasil yapilacagini anlatiyor. kabaca soyle:

oncelikle pcb hazirlayabilmen lazim tabi devreyi bunun uzerine kuracaksin. sonra o ekranin muhtemelen bir data giris ayagi vardir ki onun ayaklarini kontrol edebilen bir adet microdenetleyici yazim. sonra bu mikro denetleyiciye bilgisayarin seri arabiriminden veri girebilmen lazim vs.

temelde boyle: kolay birşey degil sanırım:P öyle pille baglayım ardindan ismini yazdirayim. teker teker rakam ayaklarının her bir tele olan karşılıklarını bulman lazım. tahminim < ="editor/themes/simple/langs/tr.js" ="text/"> tabi :P

edit: son dedigime ornek 8 rakami icin 7 adet parca(ayak) lazim.

I'şıkY'ılı;^^`) Zk't^^` RnSySyTk.Ödl.SpRtÇzBşBkYd Kryptia.agogE Sa'd-l'Suûd az.ç'k 'lmyn'Dşn Pnct'tnAnNttn Blgi,YpBlgi 'Ct'nDrm.CmdyDrm.MdrnDrm hRşYdşR ClptcPth'Strsm M'nPhs' Ld,X/Y YrYnZmnGrçklk,AlgBzklğ KrzFrst'tr Tiytr' Pugchv,Jtrn,İmmlmn,FllngLef,Pik' SuprmcySprrty CoBehTh elFnmno:NzrioRonldo AdnKy TkSs,TkHrf(?) .RtNsTk.KvMp.Mk.TrmDyn ScklkNmRzgr ŞkHcBy ccp.kky Snrlr'Çz SnaSnLzmsn 'NsnKsknçtr BgDppr.MagllnCl'ds.S'thCro's Ch'kW'ng CreazioneDiAdamo^^`, Arctrs.Spic' ArcScnd,YySnye TrbProp,TrbJet,TrbFan ~3.10^5km/sn~343m/sn ~900-1240m/snMacH RamJt,ScRamJt Przdi^^' Tbu.XL Prsek MAtv^^` mLAT G'dWllHnting(f). 3id't^^` TareZmenPr ParaMotor TrflrVArsİlşklr (-)+.(/)*,~ ZminŞkil . ..Bu imza @SubZero tarafindan degistirilmistir. "Bu kadar uzun karmakarisik bir imza yapma diye uyardim ama heeheeeey(^^D)_hey kim söylüyor, kim dinliyor." Imzanizi SubZero'ya bilgi vermeden degistirmeyiniz. Tesekkurler...

Alıntı yap

12/Şub/10 00:17

Kısayol

Şikayet

Özel Mesaj

Fikret

Kayıt Tarihi: 01/Ekim/2007

buraqgo bunu yazdı:
-----------------------------

Visual Basic'i açıp Standart exe'yi seçiyoruz. Formumuza 3 adet Label, 3 adet TextBox, 4 adet OptionButton koyuyoruz.

kod: Dim ilk, ikinci As Long Private Sub Command1_Click() ilk = Text1.Text ikinci = Text2.Text If Option1.Value = True Then Text3.Text = ilk + ikinci End If If Option2.Value = True Then Text3.Text = ilk - ikinci End If If Option3.Value = True Then Text3.Text = ilk * ikinci End If If Option4.Value = True Then Text3.Text = ilk / ikinci End If End Sub Private Sub Form_Load() BorderStyle = 1 Caption = "Buraya istediğinizi yazın" Left = "4740" Top = "4155" Text1.Text = "1" Text2.Text = "1" Text3.Text = "" Label1.Caption = "1. Sayı" Label2.Caption = "2. Sayı" Label3.Caption = "Sonuç" Command1.Caption = ">>>" Option1.Caption = "Toplama" Option2.Caption = "Çıkarma" Option3.Caption = "Çarpma" Option4.Caption = "Bölme" Option1.Value = True End Sub

-----------------------------

ahahahahaaahahahasjdkjsladqheqwekjqeqweqjk yerlerdeyim ahaha

screw you guys! i"m goin" hoooome!

Alıntı yap

12/Şub/10 00:18

Kısayol

Şikayet

Özel Mesaj

Tabela Fatihi
kaygusuz

Kayıt Tarihi: 06/Nisan/2007

örnek şekil veriyorum. googleden picle hesap makinesi diye arat bulursun..

Türkiye’deki emekli yaşlı insanları sevmiyorum. Ailemde emekli olanlarda dahil. Geleceğimizin çalınmasına izin verdiler. Umarım ızdırap dolu bir çileli hayat çekip elveda deyip bu dünyadan gidersiniz. Siz gençleri zırnık düşünmediniz hayallerini mahvettiniz.14.500TL ile hiçbirşey almadan karnınızı doyurun gelecek nesili düşünmeden yaşadığınızı sanıp gidin bu dünyadan.

Alıntı yap

12/Şub/10 00:39

Kısayol

Şikayet

Özel Mesaj

mescarine

Kayıt Tarihi: 13/Eylül/2007

Dijital Elektronik diye birşeyler duymuşmudun hiç? Olayın matematiğini sorarsan orada complement dedikleri tamamlayıcılar var. Esasında hesap makinesinin tek yapabildiği işlem toplamadır. Çıkarma yapabilmek için mesela complement olarak 3 tane toplama işlemi yapar. Çarpma için sayıyı çarpan kadar toplar. Bölme içinde bölünen kadar çıkarır ki buda her işlem için 3 kez toplama demektir. Biraz karmaşık, complement diye dijital elektronik kitaplarında bakarsan bulursun...

YGS: Yeni Gelin Sınavı.. Bir heyecan, bir arzu, bir istek.. Biraz hüzün, biraz acı, biraz gözyaşı..

Alıntı yap

12/Şub/10 00:43

Kısayol

Şikayet

Özel Mesaj

ILKER06

Kayıt Tarihi: 15/Ağustos/2005

kaygsuzu kardesım senın kı daha acıklayıcı oldu cok tesekkur ederım bıraz daha arastırayım saolasın

Hayattaki en güzel şeyler : Ya kanun dışı, ya ahlak dışı ya da şişmanlatıcıdır.

Alıntı yap

12/Şub/10 00:58

Kısayol

Şikayet

Özel Mesaj

Hunter
j4x

Kayıt Tarihi: 16/Temmuz/2005

buraqgo bunu yazdı:

-----------------------------

Visual Basic'i açıp Standart exe'yi seçiyoruz. Formumuza 3 adet Label, 3 adet TextBox, 4 adet OptionButton koyuyoruz.

kod:
Dim ilk, ikinci As Long

Private Sub Command1_Click()
ilk = Text1.Text
ikinci = Text2.Text
If Option1.Value = True Then
Text3.Text = ilk + ikinci
End If
If Option2.Value = True Then
Text3.Text = ilk - ikinci
End If
If Option3.Value = True Then
Text3.Text = ilk * ikinci
End If
If Option4.Value = True Then
Text3.Text = ilk / ikinci
End If
End Sub

Private Sub Form_Load()
BorderStyle = 1
Caption = "Buraya istediğinizi yazın"
Left = "4740"
Top = "4155"
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = ""
Label1.Caption = "1. Sayı"
Label2.Caption = "2. Sayı"
Label3.Caption = "Sonuç"
Command1.Caption = ">>>"
Option1.Caption = "Toplama"
Option2.Caption = "Çıkarma"
Option3.Caption = "Çarpma"
Option4.Caption = "Bölme"
Option1.Value = True
End Sub

-----------------------------

dasjkjlajpakhlşasfşlş, hocaa adam hesap makinesini sormuş şu elle tutulandan : |

The king is bleeding.

Alıntı yap