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

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ı:
-----------------------------

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ı:

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

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 : |