Turkhackteam.net/org - Turkish Hacking & Security Platform...  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform... >
Programlama
> Visual Basic



Dereceyi; Derece-Dakika-Saniyeye Çevirme Konusunu Okumaktasınız...

Visual Basic Kategorisi


Yeni Konu aç Cevapla
 
Seçenekler Stil
Alt 11-09-2007   #1
  • Offline
  • Asteğmen
  • Genel Bilgiler
Üyelik tarihi
Sep 2007
Mesajlar
Konular
4
Ettiği Teşekkür
0
Thanked 1 Time in 1 Post
  
Thumbs up Dereceyi; Derece-Dakika-Saniyeye Çevirme



'4 textbox(text1=hesaplayacagımız derece,text2=derece,text3=dak,text4=saniye),2comma nd butonu(biri hesapla digerı temızle)
Private Sub Command1_Click()

Dim a, b, c As Double 'ondalık sayılarıda bunyemızde barındıracagı
'ıcın double belırledık degıskenı
If Text1.Text = "" Then 'eger derece girilmezse bir hata msj olusturduk
h = MsgBox("geçerli sayı giriniz", vbCritical, "hata")
Text1.SetFocus 'tekrar imlecimizi derece text ine gnderdik

End If


a = Fix(Val(Text1.Text)) 'fix komutu bır sayıdakı ondalıkları atar
Text2.Text = a 'derece kısmımız tamam
b = Fix((Val(Text1.Text) - Val(Text2.Text)) * 60) 'burası dakika kısmı
Text3.Text = b
c = ((Val(Text1.Text) - Val(Text2.Text)) * 60 - Val(b)) * 60 'son olarakta saniye bolumu
Text4.Text = Round(c, 5) 'round komutu ile gırdıgımz sayının
'vırgulden son kac basamak oldgunu belırleyebılıyoruz.

End Sub

Private Sub Command2_Click()
Text1 = "": Text2 = "": Text3 = "": Text4 = "" 'temızle butonumuzun kodu
Text1.SetFocus


End Sub



Facebook sayfamızı beğenin.
    
Offline  
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler
Stil

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından açılmaktadır.
Bu konular yönetimimiz tarafından takip edilsede gözden kaçabilen telif hakkı olan veya mahkeme kararı çıkmış konular sitemizde bulunabilir. Bu tür konuları bize turkhackteamiletisim[at]gmail.com adresine mail atarak bildirdiğiniz takdirde en kısa sürede konular hakkında gerekli işlemler yapılacaktır.
Please Report Abuse, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim[at]gmail.com


Hiçbir zafer amaç değildir. Zafer, ancak kendisinden daha büyük bir amacı elde etmek için belli başlı bir vasıtadır. (M.KEMAL ATATÜRK)

Sitemize reklam vermek için turkhackteamiletisim[at]gmail.com adresine mail gönderebilirsiniz.



Powered by vBulletin® Copyright ©2000 - 2013
Tema Desteği: www.tr-vBulletin.com
Altyapı Sponsoru: Uzman Çözümler İnt. Hiz. Sistem Yönetimi: Sunucuoptimizasyon.com
İletişim - Güvenlik & Hack & Bilgisayar Platformu - (2001-2013) - Arşiv - Yukarı git

Search Engine Friendly URLs by vBSEO 3.6.0 ©2011, Crawlability, Inc.