UgurOzturk Posted March 7, 2011 Share Posted March 7, 2011 (edited) Öncelikle Herkeze iyi Akşamlar, Aslında Basit olan yardım isteyeceğim konuyu nedense yapamadım :\ php biraz biliyorum fakat Visual Basic de php dili tutmadı tabiki Yapmam Gereken şu ; 1 Tane Timer ve 1 Tane Label olucak, Timer Ayarlanmış Zaman bittikten sonra Label deki değer 1 Artıcak. Yani Timer 5 sn ayarlanmış olsun, Label de Başlangıç 0 olsun, 5sn yede 1 kere Label deki Sayı 1 artıcak Bunun için Yardımcı olabilicek var mı acaba ? Edited March 7, 2011 by taran9313 Quote Link to comment Share on other sites More sharing options...
galetis Posted March 7, 2011 Share Posted March 7, 2011 Label ve timer ekledin varsayıyorum. Timer'in süresini ayarladıktan sonra içine şu kodları gir. [code] Label1.Text = Label1.Text + 1 [/code] Form1_Load bölümünede şu kodları girmen yeterli olacaktır [code] Label1.Text = 1 Timer1.Start() [/code] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 7, 2011 Share Posted March 7, 2011 Bu konu "Webmaster İstek" forumundan "Yazılım" forumuna taşınmıştır. Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted March 7, 2011 Administrator Share Posted March 7, 2011 Label1.text değil Labe1l.caption olacak tabiki. Quote Link to comment Share on other sites More sharing options...
UgurOzturk Posted March 7, 2011 Author Share Posted March 7, 2011 Sayın galetis'in dediğini Yaptım Visual Basic 2010 da çalıştı Aklımda Değişik bir tane proje var da iframe yöntemiyle Link kısaltıp para kazandıran sitelerde uygulama yapıcam, Program'ı kurdum Şimdi sıra geldi farklı ip lerden girme Yöntemini bulmaya bu sayede link kısaltarak para kazandıran sitelerden tek ip den 1 puan verme sistemini aşmaya çalışıcağım. [code]Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = 0 WebBrowser1.Hide() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Label1.Text + 1 WebBrowser1.Refresh() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.tlinkpara.com/l/MzU4ODYz") Timer1.Start() End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub End Class [/code] DipNot: Eğer Düşüncem Kesinlikle uygunsuz ve Ceza verilebilicek birşey ise Lütfen Uyarınız Quote Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted March 7, 2011 Administrator Share Posted March 7, 2011 VB6 sanmıştım Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.