25-08-2023, Saat: 09:58
Merhaba üstatlar,
Yapmak istediğim şey ilkokul düzeyinde öğrenciler için hızlıca 4 işlemle ilgili çalışma kağıtları hazırlamak. Raporlama için FastReport kullanıyorum. Örneğin 100'ü geçmeyen rastgele sayılarla toplama, çıkarma, çarpma ve kalansız bölme işlemleri hazırlayıp bir PDF dosyası olarak çıktı almak, öğrencilerden alıştırmaların verilmeyen alanlarını çözmeleri istemek...
Bu konuda kaynak kodları açık örnek bir proje varsa harika olur. Kendim yapmaya çalışıyorum ancak olayın çok gerisindeyim. Şu anlık şöyle bir yöntemle toplama ve çarpma örnekleri hazırlayabilirim ama çıkarma ve bölme işlemleri konusunda başarılı olmaktan çok uzağım. Muhtemelen doğru bir yöntemle olaya başlamadım.
Tecrübelerinizi paylaşırsanız çok makbule geçer. Destekleriniz için şimdiden teşekkürler.
Yapmak istediğim şey ilkokul düzeyinde öğrenciler için hızlıca 4 işlemle ilgili çalışma kağıtları hazırlamak. Raporlama için FastReport kullanıyorum. Örneğin 100'ü geçmeyen rastgele sayılarla toplama, çıkarma, çarpma ve kalansız bölme işlemleri hazırlayıp bir PDF dosyası olarak çıktı almak, öğrencilerden alıştırmaların verilmeyen alanlarını çözmeleri istemek...
Bu konuda kaynak kodları açık örnek bir proje varsa harika olur. Kendim yapmaya çalışıyorum ancak olayın çok gerisindeyim. Şu anlık şöyle bir yöntemle toplama ve çarpma örnekleri hazırlayabilirim ama çıkarma ve bölme işlemleri konusunda başarılı olmaktan çok uzağım. Muhtemelen doğru bir yöntemle olaya başlamadım.
Tecrübelerinizi paylaşırsanız çok makbule geçer. Destekleriniz için şimdiden teşekkürler.
procedure TForm1.FormCreate(Sender: TObject); begin frxUserDataSet1.RangeEnd := reCount; frxUserDataSet1.RangeEndCount := 15; end; procedure TForm1.frxUserDataSet1GetValue(const VarName: string; var Value: Variant); var a, b: Integer; begin if VarName = 'Sutun1' then begin a := Random(100); Value := a; end else if VarName = 'Sutun2' then begin b := Random(100); Value := b; end else if VarName = 'Sutun3' then Value := Null; end; procedure TForm1.Button1Click(Sender: TObject); begin frxReport1.ShowReport; end;