مقسوم عليه مشترك - جدول ضرب

[aleas2]

يه كد ميخواستم كه بزرگترين مقسوم عليه مشترك n و m نمايش بده؟
يه كد دگه هم ميخواستم n و m بگيره جدول ضرب m در n نمايش بده

يه كد دگه هم ميخواستم ساعت دقيقه ثانيه رو بگيره و به ثانيه تبديل كنه
ممنون ميشم هر كه هر كدوم از اين برنامه هارو داره كدشو همينجا تايپ كنه ممنون همگيتون هستم

[سید حمید حق پرست]

يه كد دگه هم ميخواستم ساعت دقيقه ثانيه رو بگيره و به ثانيه تبديل كنه

سلام
درست متوجه نشدم . ساعت رو بگیره و به ثانیه تبدیل کنه؟

[SlowCode]

يه كد دگه هم ميخواستم n و m بگيره جدول ضرب m در n نمايش بده

این رو ببینین: http://wdl.persiangig.com/pages/download/?dl=http://mohsen-nouri.persiangig.com/weblog/Table.rar


يه كد دگه هم ميخواستم ساعت دقيقه ثانيه رو بگيره و به ثانيه تبديل كنه
خوب کاری نداره که ساعت رو ضرب در 3600 کنین بعلاوه دقیقه ضرب در 60 + ثانیه.
سوال اولتون رو هم باید روش فکر کنم.

[MohammadGh2011]

سلام عليکم


يه كد دگه هم ميخواستم ساعت دقيقه ثانيه رو بگيره و به ثانيه تبديل كنه
Private Sub Command1_Click()
hor = Text1
Min = Text2
sec = Text3
h = (hor * 3600)
m = (Min * 60)
sec = (h + m + sec)
Label1.Caption = sec
End Sub

[just4froum]

يه كد ميخواستم كه بزرگترين مقسوم عليه مشترك n و m نمايش بده؟


Private Sub Command1_Click()
Dim KN As Long ' Adade Kuchak
Dim BN As Long ' Adade Bozorg

If CLng(Text1.Text) = CLng(Text2.Text) Then
MsgBox Text1.Text: Exit Sub
ElseIf CLng(Text1.Text) > CLng(Text2.Text) Then
BN = CLng(Text1.Text): KN = CLng(Text2.Text)
ElseIf CLng(Text1.Text) < CLng(Text2.Text) Then
BN = CLng(Text2.Text): KN = CLng(Text1.Text)
End If


Dim x As Long
Dim BMM As Long


For x = 1 To KN
If KN Mod x = 0 Then
If BN Mod x = 0 Then
BMM = x
End If
End If
Next x

MsgBox BMM
End Sub