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;

 

 

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.

 

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?
Benzer Yazılar
Bir yorum yazın
Siz de düşüncenizi belirtebilirsiniz.

Web Tasarım Blog Teması ES | Tüm hakları © Emre Supçin'e aittir.