İ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.

 

Yazar
Yazar
Bilgisayar Programcısı, Web Tasarımcı, Üniversite Öğrencisi...
Twitter Facebook Google Linkedin Flickr YouTube

Önceki Yazı:İddaa Maçları Artık Canlı Yayınla Nesine.com’da

Sonraki Yazı:Bilgisayarınızın Neden Yavaşladığını Bir Türlü Çözemediniz mi?

BENZER YAZILAR
YORUMLAR
SİZ DE CEVAP YAZABİLİRSİNİZ
Bu yazı hakkında görüşünüzü belirtin.

ES Web Tasarım Web Tasarım Blog Teması Emre Supçin Bu tema ES Web Tasarım tarafından düzenlenmiştir. Hiçbir şekilde kopyalanamaz.