FInghiLiSh

[moh3en_f1]

با سلام خدمت تمام مهندسان و برنامه نویسان فارسی زبان ایرانی


من میخواستم یه برنامه ای بنویسم که وقتی توش حروف انگلیسی تایپ میکنی حروف کوچیک و بزرگش به صورت رندوم تایپ بشه.

مثلا وقتی می نویسم barnamenevis اینجوری بنویسه BArNameNEvIs


سوال دیگه ای که داشتم این بود که میخواستم برنامه ای با کمک آرایه ها بنویسم که اعداد 1000 رقمی ( محدودیتی وجود نداشته باشه هر چند رقمی ) رو با هم جمع و تفریق و ضرب و تقسیم کنه. من خیلی رو این فکر کردم ولی نتونستم کاملش کنم خواهش میکنم اگه کسی این برنامه رو قبلا نوشته یا سورسش را داره بزاره برای دانلود.

از همتون ممنونم :قلب:

[Babak.Hassanpour]

سلام این کد رو بزن و برو نوشتم.روش کار کن کارت رو راه بنداز:البته رندوم نیست.یکی در میون بزرگ و کوچیکه


Dim i

Private Sub Form_Load()
i = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
i = i + 1
If i Mod 2 = 0 Then
Text2 = Text2 & UCase(Chr(KeyAscii))
Else
Text2 = Text2 & LCase(Chr(KeyAscii))
End If
End Sub

[moh3en_f1]

سلام این کد رو بزن و برو نوشتم.روش کار کن کارت رو راه بنداز:البته رندوم نیست.یکی در میون بزرگ و کوچیکه


Dim i

Private Sub Form_Load()
i = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
i = i + 1
If i Mod 2 = 0 Then
Text2 = Text2 & UCase(Chr(KeyAscii))
Else
Text2 = Text2 & LCase(Chr(KeyAscii))
End If
End Sub




خیلی ازت ممنونم به خاطر پاسخگویی سریعت


برنامه خوبی نوشتی و تا 80 درصد کار رو انجام دادی ولی من میخوام رندوم بشه چون اینش سخته

راستی برنامه دومی چی اون رو کسی حوصله داره بنویسه


با تشکر از همه ی دوستان

[butterfly8528]

سلام .

دوست عزیز این هم یک راه دیگه که به ذهن من رسید . فقط یک تکست باکس بزار رو فرمت و از کد زیر استفاده کن .



Option Explicit

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long


Private Const VK_CAPITAL = &H14
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Private kbArray As KeyboardBytes

Private Function CapsLock() As Integer
CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function


Private Sub caps_on()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 1
SetKeyboardState kbArray
End Sub

Private Sub caps_off()
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 0
SetKeyboardState kbArray
End Sub




Private Sub Text1_Change()
Dim i As Integer

Randomize Timer
i = Int(Rnd * 100)

If i Mod 2 = 0 Then
Call caps_on
Else
Call caps_off
End If
End Sub





موفق باشید .

[xxxxx_xxxxx]

من میخواستم یه برنامه ای بنویسم که وقتی توش حروف انگلیسی تایپ میکنی حروف کوچیک و بزرگش به صورت رندوم تایپ بشه.
یک راه راحت تر برای این کار:


Private Sub Text1_KeyPress(KeyAscii As Integer)
Randomize
n = Round(Rnd)
If n = 0 Then KeyAscii = Asc(LCase(Chr(KeyAscii)))
If n = 1 Then KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub



سوال دیگه ای که داشتم این بود که میخواستم برنامه ای با کمک آرایه ها بنویسم که اعداد 1000 رقمی ( محدودیتی وجود نداشته باشه هر چند رقمی ) رو با هم جمع و تفریق و ضرب و تقسیم کنه. من خیلی رو این فکر کردم ولی نتونستم کاملش کنم خواهش میکنم اگه کسی این برنامه رو قبلا نوشته یا سورسش را داره بزاره برای دانلود.
دقت کنید درخواست برنامه در سایت ممنوع هست. و همچنین مطرح کردن چند موضوع در یک تاپیک.
فکر می کنم این برنامه قبلاً تو سایت گذاشته شده، جستجو کنید.