Hesap Makinesi Nasıl Yapılır?
-
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
-
picle programlayıp yapabilirsin.
-
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 -
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
-
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
-
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.
-
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
-
örnek şekil veriyorum. googleden picle hesap makinesi diye arat bulursun..
-
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...
-
kaygsuzu kardesım senın kı daha acıklayıcı oldu cok tesekkur ederım bıraz daha arastırayım saolasın
-
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 Subdasjkjlajpakhlşasfşlş, hocaa adam hesap makinesini sormuş şu elle tutulandan : |