Şimdi Ara

Kesir sadelestirme uygulamasi(visual basics)

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Charged Surge 4 Erkek Gri Koşu Ayakkabısı 3027000-106 : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0BZXSY2TR 19 sa. önce paylaşıldı

Charged Surge 4 Erkek Gri Koşu Ayakkabısı 3027000-106 : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B0BZXXR3X9 19 sa. önce paylaşıldı

CAMPER Erkek Pelotas XLF Ayakkabı Bej 45 : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B005AXCO3I 12 ay önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

3 Misafir - 3 Masaüstü

5 sn

5
Cevap

0
Favori

1.081
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Kullaciya iki numara yazip o kesirleri tam sayi olana kadar sadelestirmek istiyorum. Kodum burada

\outl0\strokewidth0 \strokec2 VERSION 5.00\
Begin VB.Form frmReduceFraction \
Caption = "Reduce Fraction"\
ClientHeight = 4485\
ClientLeft = 120\
ClientTop = 450\
ClientWidth = 5055\
LinkTopic = "Form1"\
ScaleHeight = 4485\
ScaleWidth = 5055\
StartUpPosition = 3 'Windows Default\
Begin VB.CommandButton cmdDone \
Caption = "Done"\
Height = 855\
Left = 2880\
TabIndex = 5\
Top = 3360\
Width = 1695\
End\
Begin VB.CommandButton cmdReduce \
Caption = "Reduce"\
Height = 855\
Left = 480\
TabIndex = 4\
Top = 3360\
Width = 1695\
End\
Begin VB.TextBox txtDen \
Height = 495\
Left = 3000\
TabIndex = 1\
Top = 1320\
Width = 1935\
End\
Begin VB.TextBox txtNum \
Height = 495\
Left = 3000\
TabIndex = 0\
Top = 480\
Width = 1935\
End\
Begin VB.Label lblAnswer \
Height = 1095\
Left = 240\
TabIndex = 6\
Top = 2040\
Width = 4455\
End\
Begin VB.Label lblMessage2 \
Caption = "Enter the denominator:"\
Height = 495\
Left = 120\
TabIndex = 3\
Top = 1320\
Width = 2775\
End\
Begin VB.Label lblMessage1 \
Caption = "Enter the numerator:"\
Height = 495\
Left = 120\
TabIndex = 2\
Top = 480\
Width = 2655\
End\
End\
Attribute VB_Name = "frmReduceFraction"\
Attribute VB_GlobalNameSpace = False\
Attribute VB_Creatable = False\
Attribute VB_PredeclaredId = True\
Attribute VB_Exposed = False\
Option Explicit\
\
Private Sub Command2_Click()\
\
End Sub\
\
Private Sub cmdDone_Click()\
Unload Me\
End Sub\
\
Private Sub cmdReduce_Click()\
Dim intNum As Integer\
Dim intDen As Integer\
Const intCounter As Integer = 2\
\
intNum = txtNum.Text\
intDen = txtDen.Text\
\
Call Reduce(intNum, intDen, intCounter)\
End Sub\
Sub Reduce(ByVal intNum As Integer, ByVal intDen As Integer, ByVal intCounter As Integer)\
Do While (intNum Mod intCounter <> 0) Or (intDen Mod intCounter <> 0)\
intCounter = intCounter + 1\
\
\
\
End Sub\

Sub reduce procedure a do while loop yada for next loop ile bir kod yazmam lazimki sayilar bolunebildikleri kadar bolunsun. Sinif bittiginden tamamlayamamistim kodu zaten dogrumu gidiyordum emin degilim hocaya soracaktim zaman yetmedi adam baskasi ile konusuyordu. Kafam cok karisik nasil yapabilecegim hakkinda bir fikriniz varmi?

< Bu ileti tablet sürüm kullanılarak atıldı >