Visual basicde aldığım hata ?

dukkk · 24-04-2007, 19:19

arkadaşlar bu visual basic progamını bana türkçeleştirmeye yardım edebilir misiniz acaba?

Option Explicit

' Variables for positioning the ball.
Private Const BallR = 10 ' Radius.
Private Const BallD = 2 * BallR + 1 ' Diameter.
Private CurX As Single ' Position.
Private CurY As Single
Private OldX As Single
Private OldY As Single
Private VelX As Single ' Velocity.
Private VelY As Single
Private Xmax As Single ' Edge of canvas.
Private Ymax As Single
' Draw the ball at (CurX, CurY).
Private Sub DrawBall()
' Fix the part of the image that was covered.
picCanvas.Line _
(OldX - BallR, OldY - BallR)- _
Step(BallD, BallD), picCanvas.BackColor, BF
OldX = CurX
OldY = CurY

' Redraw the ball.
picCanvas.Circle (CurX, CurY), BallR

' Update the display.
picCanvas.Refresh
End Sub

' Initialize values, and draw the initial ball.
Private Sub Form_Load()
' Make the form fit the picture.
Width = (Width - ScaleWidth) + picCanvas.Width
Height = (Height - ScaleHeight) + picCanvas.Height

Xmax = picCanvas.ScaleWidth - BallR
Ymax = picCanvas.ScaleHeight - BallR

' Set initial position and velocity.
Randomize
CurX = Int((Xmax - BallR + 1) * Rnd + BallR)
CurY = Int((Ymax - BallR + 1) * Rnd + BallR)
OldX = CurX
OldY = CurY
VelX = Int((10 - 5 + 1) * Rnd + 5)
VelY = Int((10 - 5 + 1) * Rnd + 5)

DrawBall
End Sub

' Move the ball.
Private Sub tmrBounce_Timer()
CurX = CurX + VelX
If (CurX > Xmax) Then
CurX = Xmax
VelX = -VelX
' Beep
ElseIf (CurX < BallR) Then
CurX = BallR
VelX = -VelX
' Beep
End If

CurY = CurY + VelY
If (CurY > Ymax) Then
CurY = Ymax
VelY = -VelY
' Beep
ElseIf (CurY < BallR) Then
CurY = BallR
VelY = -VelY
' Beep
End If

DrawBall
End Sub

r@nger · 24-04-2007, 19:42

Alıntı:

dukkk demiş ki;

arkadaşlar bu visual basic progamını bana türkçeleştirmeye yardım edebilir misiniz acaba?

http://www.forumena.com/visual-basic...ti-t35233.html

Yukarıda açtığım konuda türkçeleştirme programı var zaten.

Ayrıca bu tür konular açacağınıza Soru ve Sorunlarınız konusuna açsaydın daha iyi olurdu böyle forum kirleniyor.

Teşekkürler

24-04-2007, 19:19	#1 (permalink)
dukkk EN Açıkgözlü Üyelik Tarihi: 23-04-2007 Yer: ankara Mesajlar: 6 Rep Gücü: 0 Rep Puanı: 250	Visual basicde aldığım hata ? arkadaşlar bu visual basic progamını bana türkçeleştirmeye yardım edebilir misiniz acaba? Option Explicit ' Variables for positioning the ball. Private Const BallR = 10 ' Radius. Private Const BallD = 2 * BallR + 1 ' Diameter. Private CurX As Single ' Position. Private CurY As Single Private OldX As Single Private OldY As Single Private VelX As Single ' Velocity. Private VelY As Single Private Xmax As Single ' Edge of canvas. Private Ymax As Single ' Draw the ball at (CurX, CurY). Private Sub DrawBall() ' Fix the part of the image that was covered. picCanvas.Line _ (OldX - BallR, OldY - BallR)- _ Step(BallD, BallD), picCanvas.BackColor, BF OldX = CurX OldY = CurY ' Redraw the ball. picCanvas.Circle (CurX, CurY), BallR ' Update the display. picCanvas.Refresh End Sub ' Initialize values, and draw the initial ball. Private Sub Form_Load() ' Make the form fit the picture. Width = (Width - ScaleWidth) + picCanvas.Width Height = (Height - ScaleHeight) + picCanvas.Height Xmax = picCanvas.ScaleWidth - BallR Ymax = picCanvas.ScaleHeight - BallR ' Set initial position and velocity. Randomize CurX = Int((Xmax - BallR + 1) * Rnd + BallR) CurY = Int((Ymax - BallR + 1) * Rnd + BallR) OldX = CurX OldY = CurY VelX = Int((10 - 5 + 1) * Rnd + 5) VelY = Int((10 - 5 + 1) * Rnd + 5) DrawBall End Sub ' Move the ball. Private Sub tmrBounce_Timer() CurX = CurX + VelX If (CurX > Xmax) Then CurX = Xmax VelX = -VelX ' Beep ElseIf (CurX < BallR) Then CurX = BallR VelX = -VelX ' Beep End If CurY = CurY + VelY If (CurY > Ymax) Then CurY = Ymax VelY = -VelY ' Beep ElseIf (CurY < BallR) Then CurY = BallR VelY = -VelY ' Beep End If DrawBall End Sub

Konu Yönetim Seçenekleri
Yazdırılacak şekilde göster Sayfayı e-posta ile gönder
Konu Gösterim Seçenekleri
Normal şekilde göster Ağaç şeklinde göster Otomatik konu şeklinde göster

Hafta içi her gün 20:00 - 22:00 arası "DJ ÖZEL" ile "Keyf-i Müzik" programını dinlemek için TIKLAYINIZ

Hafta sonu 15:00 - 18:00 arası "DJ EMRE" ile "Müzik Ekspres" programını dinlemek için TIKLAYINIZ

Visual basicde aldığım hata ?

Visual basicde aldığım hata ?