Programın kaynak kodlarını nasıl görebilirim?

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 :)
 
Kardeş merhaba; benim de buna benzer bir sorunum var bu konuda nasıl yaptığını anlatabilir misin? Python ile yazılmış bir program ver içerisindeki bir modülden kaynak kodlarının bir kısmını alıp kendi yaptığım bir programa uyarlamak istiyorum, yardımcı olabilir misin? Nasıl yapabilirim bunu?

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
 
Kardeş merhaba; benim de buna benzer bir sorunum var bu konuda nasıl yaptığını anlatabilir misin? Python ile yazılmış bir program ver içerisindeki bir modülden kaynak kodlarının bir kısmını alıp kendi yaptığım bir programa uyarlamak istiyorum, yardımcı olabilir misin? Nasıl yapabilirim bunu?
Modülün kendisini kullan import ederek.
 

Yeni konular

Geri
Yukarı