Hesap Makinesi Nasıl Yapılır?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ILKER06
    ILKER06's avatar
    Kayıt Tarihi: 15/Ağustos/2005
    Erkek

    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.
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tabela Fatihi
    kaygusuz
    kaygusuz's avatar
    Kayıt Tarihi: 06/Nisan/2007
    Erkek

    picle programlayıp yapabilirsin.


    Aldananlar aldanmaktan zevk aldıkları için hile ortaya çıkmıyordu Tolstoy
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    PsychoDawn
    PsychoDawn's avatar
    Kayıt Tarihi: 01/Nisan/2007
    Erkek

    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

  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    1234567B
    1234567B's avatar
    Kayıt Tarihi: 04/Şubat/2010
    Erkek

     

    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
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ILKER06
    ILKER06's avatar
    Kayıt Tarihi: 15/Ağustos/2005
    Erkek

    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.
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    RitmFarbRacourci
    RitmFarbRacourci's avatar
    Kayıt Tarihi: 14/Mart/2008
    Erkek

    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...
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek

    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!
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tabela Fatihi
    kaygusuz
    kaygusuz's avatar
    Kayıt Tarihi: 06/Nisan/2007
    Erkek

    http://www.elektrotekno.com/userpix/6304_adsz_2.jpg

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


    Aldananlar aldanmaktan zevk aldıkları için hile ortaya çıkmıyordu Tolstoy
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mescarine
    mescarine's avatar
    Kayıt Tarihi: 13/Eylül/2007
    Erkek

    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şı..
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ILKER06
    ILKER06's avatar
    Kayıt Tarihi: 15/Ağustos/2005
    Erkek

    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.
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    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.
Toplam Hit: 12677 Toplam Mesaj: 15