Visual Basic’te Direnç Hesap Programı Yapımı?

Visual Basic’te Direnç Hesap Programı Yapımı? İyi akşamlar sevgili okurlar, Bu akşam sizlerle visual basic kullanarak bir program daha yazacağız. Programımızın ismi Direnç Hesap Programı. Mesleki liseler’de ve bazı üniversitelerde Temel Elektronik dersi görmüş olanı aranızda muhtemelen vardır.  Temel Elektonik dersinde ki bazı hesaplamaları bende dahil çoğumuza zor gelmiştir. Neyse konumuza dönelim. Malzemelerimiz şekilde altı Adet Label, 5 adet ComboBox, üç adet TextBox ve 1 adet’te Button’a ihtiyacımız var. Şimdi evvela formumuzu tasarlayalım benim tasarladığım form aşağıdaki gibidir; Arkadaşlar, DİRENÇ HESAP PROGRAMI, 4 tane renk ve Tolerans Label’lardan oluşmaktadır. REnklerin ve Toleransın karşılarına ise ComboBox’ı yerşeştiriyoruz. HESAPLA ise CommanButton1’dir. Butonumuzun altındaki ve üzerindeki kutular ise TextBox’tır. Command1’e yani HESAPLA butonuna çift tıklayarak gelen pencereye aşağıdaki kodları yazıyoruz; Private Sub Command1_Click() 1 a = Combo1.ListIndex 2 b = Combo2.ListIndex üç c = Combo3.ListIndex 4 d = Combo4.ListIndex 5 e = Combo5.ListIndex altı sonuc = (a * 100 + b * on + c) * (10 ^ d) 7 8 If (e = 0) Then 9 tolerans = “%5” on tdeger = sonuc * 0.05 11  12 ElseIf (e = 1) Then 13 tolerans = “%10” 14 tdeger = sonuc * 0.1 15  16 Else 17 tolerans = “%20” 18 tdeger = sonuc * 0.2 19 End If 20  21 Text1.Text = sonuc & “ “ & “ ohm dur ve toleransı” & tolerans & “ dir.” 22 Text2.Text = (sonuc - tdeger) & “ “ & “ohm dur” 23 Text3.Text = (sonuc + tdeger) & “ “ & “ohm dur” 24 End Sub Yukarıdaki kodları yazdıktan sonra formumuzu çalıştırdığımızda programımız hazır vaziyette olacaktır. Aşağıda ki resimde çalışır biçiminde çekilen fotoğrafı mevcuttur.


Yapılan Yorumlar
Erdem OFLAZ

Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez.
 Kategoriler
 Popüler yazılar