Articles by "kilo"
kilo etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
ABD’de 500 kişinin katılımıyla gerçekleştirilen araştırmada Facebook’taki arkadaş listesi kalabalık olan kişiler çok insanla iletişim kurunca kendilerini mutlu hissediyor.

ntvmsnbc'nin haberine göre; mutlu olan kullanıcılar da kendilerini şımartmak için para harcamaya ve ihtiyacından daha çok yemek yemeye başlıyor.

Columbia Üniversitesi ve Pitsburgh Üniversitesi’nin ortaklaşa düzenlediği çalışmayı yürüten ekipten Keith Wilcox konuyla ilgili Daily Mail gazetesine konuşarak şunları söyledi: 

“Kendinize güveniniz ne kadar çok olursa kontrol yeteneğiniz o kadar azalır. ‘Bugün iyi hissediyorum, kendime bir ödül vereyim” deyip yemek yemeğe başlanıyor.” 
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Kilo Kontrol

Program İçin Gerekli Eklentiler 1- 2 Ad. Buton 2- 6 Ad. TextBox 

Private Sub Command1_Click()
On Error Resume Next
a = Text1.Text
b
= Text2.Text
If Text1.Text = "" Then
MsgBox "BOYUNUZU GİRİNİZ!.."
End If
If Text2.Text = "" Then
MsgBox "KİLONUZU GİRİNİZ!.."
End If
c = (a - 150) / 4 + 100
d = a - c
e
= b - d
Text4.Text
= d
Text3.Text
= " Kilogram Olmanız Gerekli."
Text6.Text
= e
Text5.Text
= " Kilo Farkı Kapatınız."
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Form_Load()
End Sub
Private Sub Label5_Click()
Shell ("explorer.exe http://www.accesstr.net")
End
Sub