Rastgele sayıları rastgele dört işlem ile yapma

[alisan1]

Rastgele sayıları rastgele dört işlem ile yapma ÇÖZÜLDÜ

Merhaba;
yapmak istediği biraz karışık işin içinden çıkamadım yardımcı olabilirmisiniz.
yapılması gereken işlem sıralaması
_ ilk başta rastgele rakam alınacak
_ toplama çıkartma işlemide rastgele gelecek
_ ikinci rastgele rakam verilecek
_ bulunan rakama rastgele toplama çıkartma ve yeni sayı ile işlem yapılacak
ekranda userform üzerinde bunlar iki veya üç saniye görünecek
işlem durdurulduğunda ise sonuç rakam gösterilecek
bana zor geldi yapamadım yapılabilir mi ?

 

[Huseyinkis]

Ekli Dosyayı incelermisiniz.

 

[alisan1]

Toplama çıkartma işlemi için dosya ektedir

hüseyin bey

Örneğinizden faydalanarak yeni bir dosya yaptım.
ilginize teşekkür ederim.

gönderdiğim dosya sadece toplama çıkartma yapıyor.

 

[leumruk]

Merhaba,
Örneği inceleyiniz.

Sub Karistir()
Randomize
deg = Array("", "+", "-", "*", "/")
For x = 1 To 3 Step 2
  sayi = Int((100 * Rnd) + 1)
Controls("TextBox" & x) = sayi
Next
TextBox2 = deg(Int((4 * Rnd) + 1))
End Sub
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "SONUÇ" Then
TextBox5 = Evaluate("=" & Val(TextBox1) & TextBox2 & Val(TextBox3))
CommandButton1.Caption = "Yeni İşlem"
Else
Karistir
TextBox5 = "?"
CommandButton1.Caption = "SONUÇ"
End If
End Sub

Private Sub UserForm_Activate()
CommandButton1_Click
End Sub

 

[Osmanselim]

sayın leumruk,
verdiğiniz örneğe ilave yapmak istedim ancak 3. 4. ve 5. rakamları atayamadım ayrıca sonucun Sıfır ın altına inmesine engel olabilirmiyiz? yardımlarınız için teşekkürler,








kod;
Sub Karistir()
Randomize
deg = Array("", "+", "-")
For x = 1 To 3 Step 2
sayi = Int((100 * Rnd) + 1)
Controls("TextBox" & x) = sayi
Controls("TextBox" & x) = sayi
Controls("TextBox" & x) = sayi
Controls("TextBox" & x) = sayi

Next
TextBox2 = deg(Int((2 * Rnd) + 1))
TextBox6 = deg(Int((2 * Rnd) + 1))
TextBox8 = deg(Int((2 * Rnd) + 1))
TextBox10 = deg(Int((2 * Rnd) + 1))


End Sub
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "SONUÇ" Then
TextBox5 = Evaluate("=" & Val(TextBox1) & TextBox2 & Val(TextBox3) & TextBox6 & Val(TextBox7) & TextBox8 & Val(TextBox9) & TextBox10 & Val(TextBox11))
CommandButton1.Caption = "Yeni İşlem"
Else
Karistir
TextBox5 = "?"
CommandButton1.Caption = "SONUÇ"
End If
End Sub

Private Sub UserForm_Activate()
CommandButton1_Click
End Sub

 

[Osmanselim]

Alişan bey- Hüseyin bey siz yardımcı olabilirmisiniz.

teşekkürler

 

[leumruk]

Merhaba,

Sub Karistir()
Randomize
deg = Array("", "+", "-")
tekrar:
For x = 1 To 5
Controls("textbox" & x) = Int((100 * Rnd) + 1)
If x < 5 Then
Controls("label" & x) = deg(Int((2 * Rnd) + 1))
End If
Next
sonuc = Evaluate("=" & Val(TextBox1) & Label1.Caption & Val(TextBox2) & Label2.Caption _
& Val(TextBox3) & Label3.Caption & Val(TextBox4) & Label4.Caption & Val(TextBox5))
If sonuc < 0 Then GoTo tekrar
End Sub

 

[Osmanselim]

sayın Leumruk,
ilginize çok teşekkürler ellerinize sağlık