Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Memoryhackers'ta denemeyiniz ! :D
Gerekenler :
1 Adet Label
1 Adet Textbox
1 Adet Richtextbox
Bunları ekledikten sonra fotoğrafa benzer bir çalışma yapın.
Birde Button ekleyip şu kodu yazınız. (BUTONUN İÇİNE)
Siteyi yazıp veriyi çek dediğinizde veri gelicektir.
Dim client As New...
Beyler kod budur. Dilerseniz hilenizde filan kullanabilirsiniz. Orası size kalmış.
Private Sub Command1_Click()
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor =...
Gerekenler:1 adet label,1adet timer
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = “iSTEDİGİNİZİ YAZINIZ “
End Sub
Private Sub Timer1_Timer()
If Format(Now(), “s”) = 5 Then
Label1.ForeColor = &HFF&
End If
If Format(Now(), “s”) = 10 Then
Label1.ForeColor = &H80000012...
Gereken malzemeler olmassa olmaz : 1 adet buton,2 adet shape,2 adet label ,1 adet timer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 50
Shape1.Left = 100
Shape2.Left = 100
End Sub...
Gerekenler: Project menüsünden components(ctrl + t) tıklayın gelen bölümde Microsoft Agent Control 2.0 seçin
Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"
Private Sub Command1_Click()
merlin.Speak "MONİTÖRÜN CAMINA TIKLIYORUM"
merlin.Play "GetAttention" 'MONİTÖRÜN...
Gerekenler: 4 adet command,2 adet text, 1 adet label
Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Label1.Caption =...
Gerekenler: 1 adet timer,1 adet label
Private Sub Form_Load()
Timer1.Interval = 10
AutoRedraw = True
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Dim x, y
Static i
i = (i + 1) Mod 360
y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 +...
Komutumuz sayesinde desen yapabiliyoruz.
Option Explicit
Private Der As Long, Izq As Long, Abj As Long, k As Long
Private ColorBorder As Long, Bot As Long, A As Long
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Cls
Show
Height = 6855
Width = 6855
ScaleMode = 3...
1- jamieoliver
Yemek fotoğrafçısıJamie Oliver, aynı zamanda türününen başarılı şefleri arasında. Instagram’da yemek fotoğrafçılığı denildiğinde de birçok otoriteye göre ondan daha iyisi yok. 2,2 milyon takipçili hesabında 60 bin beğeniye kadar ulaşan fotoğraflar paylaşan bu büyük aşçının...