|
-расм. Line услубида координаталарни белгилаш
|
| bet | 18/21 | | Sana | 03.12.2023 | | Hajmi | 4,07 Mb. | | #110428 |
Bog'liq Vizual maruza file (23), 1-kurs. Majmua IQTISOD, Chrome бўйича инструкция, 2-амалий, 1,Qishloq xo\'jaligi va sanoat sohasidagi o\'zgarishlar. Reja Qishl, Baslawish klass (2), Mustaqil ish2 MT A, KAMOLIDDIN KOMPYUTERNI TASHKIL ETISH, 596 10.11.2023, O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi t, KICHIK BIZNESNI SOLIQQA TORTISHNING UMUMIY TAVSIFI., 1-Mavzu “Milliy g„oya asosiy tushuncha va tamoyillar” fanining-fayllar.org, TEST18-расм. Line услубида координаталарни белгилаш
Point услуби.
Point услуби ну=танинг RGB палитрасидаги рангини ани=лайди. Услубнинг ёзилиш формати =уйидагича:
Object.Point(X,Y)
Print услуби.
Print услуби кырсатилган объектда матн хосил =илиш учун =ылланилади. Услубнинг ёзилиш формати =уйидагича:
Object.Print[outputlist]
Object - услуб =ылланиладиган объект. Агар объект кырсатилмаса, у холда объект сифатида форма кырсатилади;
OutputList – объектда хосил =илинувчи сатрли ифода ёки ифодалар рыйхати.
Pset услуби.
Pset услуби объектнинг кырсатилган ну=тасини рангини белгилайди. Ушбу услубни Point нинг тескариси дейиш хам мумкин. Ёзилиш формати =уйидагича:
Object.Pset(x,y),[color]
Object - услуб =ылланиладиган объект. Агар объект кырсатилмаса, у холда объект сифатида форма кырсатилади;
х,у – объектдаги ну=та координатаси;
color – ну=танинг RGB палитрадаги ранги.
Ю=орида кыриб ытилган услублар ёрдамида кичик дастурни мисол сифатида кыриб ытайлик.
Формага битта command ва Picture объектларини ырнатамиз ва уларнинг хусусиятларини =уйидагича ызгартирамиз:
Form1
-
Picture1
-
Command1
-
Command1тугмаси устида сич=онча тугмаси икки марта тез босиш билан кодлар ойнасида тегишли процедура хосил былади. Хосил былган процедурада =уйидагича ызгартиришларни амалга оширамиз:
Private Sub Command1_Click()
Picture1.Circle (30, 30), 12 ‘айлана
Picture1.Line (10, 50)-(60, 100) ‘ты\ри чизи=
Picture1.Line (80, 50)-(130, 100), , B ‘ты\ри тыртбурчак
Picture1.Line (150,50)-(200,100),,BF ‘быялган ты\ри тыртбурчак
Picture1.PSet (70, 30), 15 ‘ну=та
End Sub
Шундан сынг /5 тугмасини босамиз, дастур ишга тушади. Chizish тугмасини босганимиздан кейин, экранда дастур натижасини кыришимиз мумкин (19-расм).
|
| |
