arman_holy
شنبه 06 اردیبهشت 1393, 01:13 صبح
سلام دوستان
من یه برنامه ی شبیه ساز خودپرداز می خوام بسازم.تو یه کار کوچیک ولی کاربردی گیر کردم.
118358
حالا با توجه به تصویر می خوام کاربر یکی از دکمه های رادیویی که انتخاب کنه و با زدن دکمه برداشت از موجودی که پایین قرار داره کم بکنه{mojudi.text}
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
اینم کدی هست که من نوشتم :افسرده:
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Private Sub bardasht_Click(sender As Object, e As EventArgs) Handles bardasht.Click
If r1.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r1.Text)
ElseIf r2.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r2.Text)
ElseIf r3.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r3.Text)
ElseIf r4.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r4.Text)
Else
mojudi.Text = (mojudi.Text) - (text_del.Text)
End If
End Sub
من یه برنامه ی شبیه ساز خودپرداز می خوام بسازم.تو یه کار کوچیک ولی کاربردی گیر کردم.
118358
حالا با توجه به تصویر می خوام کاربر یکی از دکمه های رادیویی که انتخاب کنه و با زدن دکمه برداشت از موجودی که پایین قرار داره کم بکنه{mojudi.text}
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
اینم کدی هست که من نوشتم :افسرده:
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Private Sub bardasht_Click(sender As Object, e As EventArgs) Handles bardasht.Click
If r1.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r1.Text)
ElseIf r2.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r2.Text)
ElseIf r3.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r3.Text)
ElseIf r4.Enabled = True Then
mojudi.Text = (mojudi.Text) - (r4.Text)
Else
mojudi.Text = (mojudi.Text) - (text_del.Text)
End If
End Sub