Ucsktr
Hectopat
- Katılım
- 7 Ekim 2019
- Mesajlar
- 1.015
- Makaleler
- 1
- Çözümler
- 2
Kaynak kodları buldum.
Kod:Manzara[1] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/11.jpg" Manzara[2] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/91.jpg" Manzara[3] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/2210.jpg" Manzara[4] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/34.jpg" Manzara[4] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/1.jpg" Manzara[5] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/5.jpg" Manzara[6] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/101.jpg" Manzara[7] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/122.jpg" Manzara[8] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/319.jpg" Manzara[9] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/414.jpg" Manzara[10] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/325.jpg" Çiçek[1] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100147-8a1836e6-th.jpg" Çiçek[2] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100159-40c8049f-th.jpg" Çiçek[3] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100153-242c1920-th.jpg" Çiçek[4] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100100-fb00f6dd-th.jpg" Çiçek[5] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095903-1fa971cc-th.jpg" Çiçek[6] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095909-fced8732-th.jpg" Çiçek[7] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095731-b6b2af20-th.jpg" Çiçek[8] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095717-06ae0683-th.jpg" Çiçek[9] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095721-1d372552-th.jpg" Çiçek[10] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095711-e69dc926-th.jpg" Araba[1] = "https://resimdiyari.com/_data/i/upload/2012/12/29/20121229161939-397f1968-th.jpg" Araba[2] = "https://resimdiyari.com/_data/i/upload/2012/12/29/20121229161936-80ca89f8-th.jpg" Araba[3] = "https://resimdiyari.com/_data/i/upload/2012/10/10/20121010151422-472857aa-th.jpg" Araba[4] = "https://resimdiyari.com/_data/i/upload/2012/10/10/20121010150901-fc8cdadc-th.jpg" Araba[5] = "https://resimdiyari.com/_data/i/upload/2012/10/10/20121010150603-1345f358-th.jpg" Araba[6] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630174112-516eb4ff-th.jpg" Araba[7] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630173554-25418cfe-th.jpg" Araba[8] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630173131-fc786069-th.jpg" Araba[9] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630172440-c2361b9f-th.jpg" Araba[10] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630171435-820b764a-th.jpg" Modern[1] = "https://www.kocaali.com/images/album/1_10.jpg" Modern[2] = "https://www.kocaali.com/images/album/15_3.jpg" Modern[3] = "https://www.kocaali.com/images/album/6_9.jpg" Modern[4] = "https://www.kocaali.com/images/album/2_9.jpg" Modern[5] = "https://www.kocaali.com/images/album/5_9.jpg" Modern[6] = "https://www.kocaali.com/images/album/4_9.jpg" Modern[7] = "https://www.kocaali.com/images/album/18_3.jpg" Modern[8] = "https://www.kocaali.com/images/album/3_9.jpg" Modern[9] = "https://www.kocaali.com/images/album/12_3.jpg" Modern[10] = "https://www.kocaali.com/images/album/16_3.jpg" GraphicsWindow.BackgroundColor = "Black" GraphicsWindow.BrushColor = "Cyan" GraphicsWindow.Title = "DKD Duvar Kâğıdı Düzenleyici" GraphicsWindow.Width = 800 GraphicsWindow.Height = 400 GraphicsWindow.FontSize = 20 GraphicsWindow.DrawText(300,100,"Seçimizi yaptıktan sonra 10 saniye") GraphicsWindow.DrawText(300,130,"görüntü gelmesi için beyleyin lütfen") GraphicsWindow.BrushColor = "Red" GraphicsWindow.FontSize = 12 Ma = Controls.AddButton("Manzara",25,50) Ci = Controls.AddButton("Çiçek",25,100) Ar = Controls.AddButton("Araba",25,150) Mo = Controls.AddButton("Modern",25,200) Du = Controls.AddButton("Duvar Kâğıdı olarak seç"25,300) Controls.SetSize(Ma,150,25) Controls.SetSize(Ci,150,25) Controls.SetSize(Ar,150,25) Controls.SetSize(Mo,150,25) Controls.ButtonClicked = Tıkla Sub Tıkla If Controls.LastClickedButton = Ma Then x = Math.GetRandomNumber(10) Network.DownloadFile(Manzara[x]) Network.GetWebPageContents(Manzara[x]) GraphicsWindow.DrawResizedImage(Manzara[x],200,10,590,380) Kaydet = Manzara[x] EndIf If Controls.LastClickedButton = Ci Then x = Math.GetRandomNumber(10) Network.DownloadFile(Çiçek[x]) Network.GetWebPageContents(Çiçek[x]) GraphicsWindow.DrawResizedImage(Çiçek[x],200,10,590,380) Kaydet = Çiçek[x] EndIf If Controls.LastClickedButton = Ar Then x = Math.GetRandomNumber(10) Network.DownloadFile(Araba[x]) Network.GetWebPageContents(Araba[x]) GraphicsWindow.DrawResizedImage(Araba[x],200,10,590,380) Kaydet = Araba[x] EndIf If Controls.LastClickedButton = Mo Then x = Math.GetRandomNumber(10) Network.DownloadFile(Modern[x]) Network.GetWebPageContents(Modern[x]) GraphicsWindow.DrawResizedImage(Modern[x],200,10,590,380) Kaydet = Modern[x] EndIf If Controls.LastClickedButton = Du Then ImageList.LoadImage(Kaydet) Desktop.SetWallPaper(Kaydet) EndIf EndSub
Çok komikmiş gerçekten, başarıların daim olsun