Responsive Reklam Alanı

İyi akşamlar sevgili okurlar,

Bu akşam sizlerle visual basic kullanarak bir program daha yazacağız. Programımızın adı 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 olarak 6 Adet Label, 5 adet ComboBox, 3 adet TextBox ve 1 adet’te Button’a ihtiyacımız var. Şimdi öncelikle formumuzu tasarlayalım benim tasarladığım form aşağıdaki gibidir;

FormTasarimi emresupcin - Visual Basic'te Direnç Hesap Programı Yapımı?

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 üstündeki 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
3  c = Combo3.ListIndex
4  d = Combo4.ListIndex
5  e = Combo5.ListIndex
6  sonuc = (a * 100 + b * 10 + c) * (10 ^ d)
7
8  If (e = 0) Then
9  tolerans = "%5"
10 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 halinde çekilen fotoğrafı mevcuttur.

Program emresupcin - Visual Basic'te Direnç Hesap Programı Yapımı?

Paylaşmak Güzeldir
Yazar
Yazar
İddaa Maçları Artık Canlı Yayınla Nesine.com’da Bilgisayarınızın Neden Yavaşladığını Bir Türlü Çözemediniz mi?
Bir yorum yazın
Siz de düşüncenizi belirtebilirsiniz.

Emre Supçin * Ecceplus WordPress Themes