تبلیغات 
VPN با قیمتی باور نکردنی
http://afshinnet.blogfa.com
vbking.utc.ir جنون برنامه نویسی
درباره وبلاگ
آرشیو
آخرین پستها
پیوندها
نویسندگان
نظرات()
نوشته شده توسط :وحید
شنبه 2 بهمن 1389-01:28
این مطلب رمزدار است، جهت مشاهده باید کلمه رمز این مطلب را وارد کنید.
نوشته شده توسط :وحید
سه شنبه 14 اردیبهشت 1389-21:34
این مطلب رمزدار است، جهت مشاهده باید کلمه رمز این مطلب را وارد کنید.
نوشته شده توسط :وحید
جمعه 27 فروردین 1389-22:40
سلام این کد را به درخواست یکی از دوستان در وبلاگ گذاشتم
دانلود
نوشته شده توسط :وحید
شنبه 29 اسفند 1388-01:06
سلام به دوستان عزیز
برای شما نرم افزاری آوردم که شما می توانید فایل یا درایو خوصوصی خودتان را مخفی کنید
و این هم ناگفته نماند که هیچ نرم افزاری قادر به بازگرداندن آن فایل های مخفی شده نمی باشد
طراح و برنامه نویسش هم خودم هستم اگر مشکلی داشتید می توانید از طریق ایمیل به من اطلاع دهید 
دانلود
نوشته شده توسط :وحید
چهارشنبه 26 اسفند 1388-22:14
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Command1_Click()
If IsNetworkAlive(CResult) = 0 Then
MsgBox "Not Connected", vbInformation, "www.vbking.mihanblog.com"
Else
MsgBox "Connected To the Internet", vbInformation, "www.vbking.mihanblog.com"
End If
End Sub
Private Sub Command1_Click()
If IsNetworkAlive(CResult) = 0 Then
MsgBox "Not Connected", vbInformation, "www.vbking.mihanblog.com"
Else
MsgBox "Connected To the Internet", vbInformation, "www.vbking.mihanblog.com"
End If
End Sub
نوشته شده توسط :وحید
سه شنبه 29 دی 1388-22:04
نوشته شده توسط :وحید
سه شنبه 22 دی 1388-22:45
می توانید بفهمید کدام عدد بزرگ تر است
Dim x As Byte
Private Sub Command1_Click()
x = StrComp(Text1.Text, Text2.Text, 0)
If x = 1 Then
Label1.Caption = Text1.Text + "is greater"
End If
If x = -1 Then
Label1.Caption = Text2.Text + "is greater"
End If
If x = 0 Then
Label1.Caption = "åÑ Ïæ ÈÇåã ÈÑÇÈÑ ÇäÏ"
End If
End Sub
Private Sub Command1_Click()
x = StrComp(Text1.Text, Text2.Text, 0)
If x = 1 Then
Label1.Caption = Text1.Text + "is greater"
End If
If x = -1 Then
Label1.Caption = Text2.Text + "is greater"
End If
If x = 0 Then
Label1.Caption = "åÑ Ïæ ÈÇåã ÈÑÇÈÑ ÇäÏ"
End If
End Sub
نوشته شده توسط :وحید
سه شنبه 15 دی 1388-12:17
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Timer1_Timer()
On Error Resume Next
Dim s As Long
Dim k As Long
Dim Caption As String
s = GetForegroundWindow
Caption = Space$(128)
k = GetWindowText(s, Caption, 128)
Caption = Left(Caption, k)
Label1.Caption = Caption
End Sub
نوشته شده توسط :وحید
یکشنبه 6 دی 1388-22:51
حتما دانلودش کنید خیلی جالب
دانلود
نوشته شده توسط :وحید
سه شنبه 1 دی 1388-17:47
یک اسکرین ستاره ای
Dim X(100), Y(100), Z(100) As Integer
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer
Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1
For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub
Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub
Dim tmpX(100), tmpY(100), tmpZ(100) As Integer
Dim K As Integer
Dim Zoom As Integer
Dim Speed As Integer
Private Sub Form_Activate()
Speed = -1
K = 2038
Zoom = 256
Timer1.Interval = 1
For i = 0 To 100
X(i) = Int(Rnd * 1024) - 512
Y(i) = Int(Rnd * 1024) - 512
Z(i) = Int(Rnd * 512) - 256
Next i
End Sub
Private Sub Timer1_Timer()
For i = 0 To 100
Circle (tmpX(i), tmpY(i)), 5, BackColor
Z(i) = Z(i) + Speed
If Z(i) > 255 Then Z(i) = -255
If Z(i) < -255 Then Z(i) = 255
tmpZ(i) = Z(i) + Zoom
tmpX(i) = (X(i) * K / tmpZ(i)) + (Form1.Width / 2)
tmpY(i) = (Y(i) * K / tmpZ(i)) + (Form1.Height / 2)
Radius = 1
StarColor = 256 - Z(i)
Circle (tmpX(i), tmpY(i)), 5, RGB(StarColor, StarColor, StarColor)
Next i
End Sub
نوشته شده توسط :وحید
یکشنبه 29 آذر 1388-23:03
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 93 Then
Text1.Locked = True
MsgBox ("no keyboard")
Text1.Locked = False
End If
End Sub
If KeyCode = 93 Then
Text1.Locked = True
MsgBox ("no keyboard")
Text1.Locked = False
End If
End Sub
ادامه کد در ادامه مطلب
ادامه مطلب
نوشته شده توسط :وحید
چهارشنبه 25 آذر 1388-21:24
دوستان سلام
امروز برای شما کدی اوردم که شما که شما می توانید یک دایره متحرک هفت رنگ خیلی قشنگ درست کنید
این کد حتما را اجرا کنید خیلی حال میکنی
Private Sub Command1_Click()
For i = 1000 To 1 Step -0.02
Circle (3000, 3000), i * 2, RGB(i * Rnd, i * Rnd, i * Rnd)
Next
For j = 1 To 1000 Step 0.02
Circle (3000, 3000), j * 2, RGB(j * Rnd, j * Rnd, j * Rnd)
Next
End Sub
For i = 1000 To 1 Step -0.02
Circle (3000, 3000), i * 2, RGB(i * Rnd, i * Rnd, i * Rnd)
Next
For j = 1 To 1000 Step 0.02
Circle (3000, 3000), j * 2, RGB(j * Rnd, j * Rnd, j * Rnd)
Next
End Sub
نوشته شده توسط :وحید
چهارشنبه 25 آذر 1388-21:00
Private Sub Command1_Click()
Me.Cls
Me.FontSize = 14
x = 1000
y = 300
For i = 0 To 20
ForeColor = RGB(0, 0, 0)
x = x - 1
y = y - 1
CurrentX = x
CurrentY = y
Print "vbking.mihanblog.com"
Next i
ForeColor = RGB(123, 90, 24)
x = x + 1
CurrentX = x - 120
CurrentY = y - 150
Print "vbking.mihanblog.com"
End Sub
نوشته شده توسط :وحید
یکشنبه 22 آذر 1388-22:19
سلام
این بار برای شما کدی اوردم که شما می توانید اعداد تصادفی تولید کنید
x = Int(Rnd * (6 - 1))
Text1.Text = x
که بدرد ساختن تاس می خوره
نوشته شده توسط :وحید
شنبه 21 آذر 1388-13:43