18-расм. Line услубида координаталарни белгилаш
Point услуби.
Point услуби ну=танинг RGB палитрасидаги рангини ани=лайди. Услубнинг ёзилиш формати =уйидагича:
Object.Point(X,Y)
Object – услуб =ылланиладиган объект. Агар объект кырсатилмаса, у холда объект сифатида форма кырсатилади;
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-расм).
|
