Senin, 21 Maret 2016

Menghitung Hambatan Total, Arus Total, Arus R1, R2 dan R3 Menggunakan Program VB 6.0

Struktur Program
source koding nya :

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(Text4)
e = Val(Text5)
f = Val(Text6)
g = Val(Text7)
h = Val(Text8)
i = (a * b * c) / ((a * b) + (a * c) + (b * c))
Text6 = i
j = d / i
Text5 = j
k = d / a
Text7 = k
l = d / b
Text8 = l
m = d / c
Text9 = m
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Ini hasil programnya...
TERIMAKASIH SEMOGA BERMANFAAT..... :)

Related Posts:

  • RANGKUMAN ILMU BUDAYA DASAR1. RUANG LINGKUP ILMU BUDAYA DASAR Menurut Kamus Besar Bahasa Indonesia Ruang Lingkup adalah luasnya subjek yang tercakup. dua masalah pokok bisa dipakai sebagi bahan pertimbangan untuk menentukan niang lingkup kajian mata ku… Read More
  • RUMAH SOEKARNO-MONUMEN TUGU KEBULATAN TEKAD ini pada saat saya mengunjungi monumen kebulatan tekad. ini adalah bagian dalam rumah. alhamdulillah ngeblog lagi kawan. oke yoo lanjuut langsung saja :) pada tanggal 14 januari 2014 alhamdulillah saya bisa mengunjungi… Read More
  • Manusia Dan Tanggung Jawab Normal 0 false false false IN X-NONE X-NONE MicrosoftInternetExplorer4 … Read More
  • REVOLUSI KEBUDAYAANJika dilihat dari sudut pandang pengertian dari revolusi adalah perubahan sosial dan perubahan yang berlangsung secara cepat dan menyangkut dasar atau pokok-pokok kehidupan masyarakat, sedangkan kebudayaan adalah suatu cara h… Read More
  • Manusia dan harapan Normal 0 false false false IN X-NONE X-NONE MicrosoftInternetExplorer4 … Read More

0 komentar:

Posting Komentar