:S bende yapmak istedim ama çok karışık bi program yaw yinede çok saol

Print

hangi kodu hangi commanda veya texte yazcağımızıda bi açıklasan çok makbule geçecek

Line Input

'Formun üzerine 3 tane button eklenir. 'CmdKaydet, CmdBul, CmdCikis 'Formun üzerine 2 adet Index'i 0 olan TextBox eklenir. 'TxtBas, TxtSon 'Alingment = 2 - Center 'Appearance = 0 - Flat 'BorderStyle = 0 - None 'MaxLenght = 1 yapılırsa ekranda daha güzel görünür. 'Form Sadece Ekrandan bilgi almak ve göstermek için kullanılır. 'Çözümü programa eklene module içindedir. Form Buradan Başlıyor. Option Explicit Sub TextDuzenle Dim I As Byte Dim J As Byte Dim K As Byte Dim L As Long Dim T As Long TxtBas(0). Height = 285 TxtBas(0). Width = 345 K = 0 T = 30 For I = 1 To 9 L = 30 For J = 1 To 9 K = K + 1 Load TxtBas TxtBas . Visible = True TxtBas . Left = L TxtBas . Top = T If (InStr("123789", CStr > 0 And InStr("123789", CStr > 0) Or _ (InStr("456", CStr > 0 And InStr("456", CStr > 0) Then TxtBas . BackColor = RGB(255, 255, 240) End If L = L + 345 Next J T = T + 285 Next I TxtSon(0). Height = 285 TxtSon(0). Width = 345 K = 0 T = 30 For I = 1 To 9 L = 3500 For J = 1 To 9 K = K + 1 Load TxtSon TxtSon . Visible = True TxtSon . Left = L TxtSon . Top = T If (InStr("123789", CStr > 0 And InStr("123789", CStr > 0) Or _ (InStr("456", CStr > 0 And InStr("456", CStr > 0) Then TxtSon . BackColor = RGB(255, 255, 240) End If L = L + 345 Next J T = T + 285 Next I End Sub Private Function YukariIndexBul As Integer Dim YInd As Integer YInd = InStr("

çok uzun bea

eee yapacaksan uzun kısa tanımayacaksın. bulduğunu kullanacaksın

End Sub Sub Yukle Dim K As Byte Dim Sayi As String Dim Dizi As String If Dir = "" Then Exit Sub End If Open App. Path & "\S. Txt" For Input As

dewam... Module Buradan Başlıyor Option Explicit Public Type TypeTablo Icerik As Byte Sabit As Boolean Kilitli As Boolean KacTane As Byte Neler(9) As Byte BasSat(3) As Byte BitSat(3) As Byte BasSut(3) As Byte BitSut(3) As Byte End Type Public T As TypeTablo Sub CozumBul Call NelerOlur End Sub Sub NelerOlur(ByRef GT As TypeTablo) Dim N As TypeTablo Dim I As Byte Dim J As Byte Dim K As Byte Dim L As Byte Dim M As Byte Dim P As Byte Dim Q As Byte Dim R As Byte Dim S As Byte Dim T As Byte Dim Say As Byte Dim Var As Boolean Dim TekVar As Boolean ReDim N(9, 9) As TypeTablo For I = 1 To 9 For J = 1 To 9 N . Icerik = GT . Icerik N . KacTane = GT . KacTane N . Kilitli = GT . Kilitli N . Sabit = GT . Sabit For K = 1 To 9 N . Neler = GT . Neler Next K For K = 1 To 3 N . BasSat = GT . BasSat N . BitSat = GT . BitSat N . BasSut = GT . BasSut N . BitSut = GT . BitSut Next K Next J Next I 'Her Bir Hücre İçin Kontrol For I = 1 To 9 For J = 1 To 9 If N . Icerik = 0 Then N . KacTane = 0 For P = 1 To 9 Var = False For K = 1 To 3 For L = N . BasSat To N . BitSat For M = N . BasSut To N . BitSut If N . Icerik = P Then Var = True Exit For End If Next M Next L If Var Then Exit For Next K If Not Var Then N . KacTane = N . KacTane + 1 N . Neler(N . KacTane) = P End If Next P End If Next J Next I 'Sadece 1 şansı olanları kontrol et TekVar = False For I = 1 To 9 For J = 1 To 9 If N . Icerik = 0 Then For K = 1 To N . KacTane S = N . Neler For L = 1 To 3 Say = 0 For M = N . BasSat To N . BitSat For P = N . BasSut To N . BitSut If N . Icerik = 0 Then For Q = 1 To N . KacTane T = N . Neler If S = T Then Say = Say + 1 End If Next Q End If Next P Next M If Say = 1 Then TekVar = True N . Icerik = S N . KacTane = 0 For M = 1 To 9 N . Neler = 0 Next M Call CozumYaz Call NelerOlur Exit For End If Next L If N . Icerik > 0 Then Exit For End If Next K End If Next J Next I For I = 1 To 9 For J = 1 To 9 GT . Icerik = N . Icerik GT . KacTane = N . KacTane GT . Kilitli = N . Kilitli GT . Sabit = N . Sabit For K = 1 To 9 GT . Neler = N . Neler Next K For K = 1 To 3 GT . BasSat = N . BasSat GT . BitSat = N . BitSat GT . BasSut = N . BasSut GT . BitSut = N . BitSut Next K Next J Next I End Sub Function CozumBulundu(ByRef GT As TypeTablo) As Boolean Dim I As Byte Dim J As Byte CozumBulundu = True For I = 1 To 9 For J = 1 To 9 If GT . Icerik = 0 Then CozumBulundu = False Exit Function End If Next J Next I End Function Function SifirVar(ByRef GT As TypeTablo) As Boolean Dim I As Byte Dim J As Byte SifirVar = False For I = 1 To 9 For J = 1 To 9 If GT . Icerik = 0 And GT . KacTane = 0 Then SifirVar = True Exit Function End If Next J Next I End Function Sub CozumYaz(ByRef GT As TypeTablo) Dim I As Byte Dim J As Byte Dim S As Byte S = 0 For I = 1 To 9 For J = 1 To 9 S = S + 1 Form1. TxtSon . Text = IIf(GT . Icerik > 0, GT . Icerik, "") Next J Next I DoEvents Form1. Refresh End Sub Function CozumeDevamEt(ByRef GT As TypeTablo) As Boolean Dim N As TypeTablo Dim M As TypeTablo Dim I As Byte Dim J As Byte Dim K As Byte Dim I1 As Byte Dim J1 As Byte Dim K1 As Byte Dim Z As Byte Dim IJAdet As Byte Dim ISira(81) As Byte Dim JSira(81) As Byte CozumeDevamEt = False ReDim N(9, 9) As TypeTablo ReDim M(9, 9) As TypeTablo ReDim S(9, 9) As TypeTablo For I = 1 To 9 For J = 1 To 9 N . Icerik = GT . Icerik N . KacTane = GT . KacTane N . Kilitli = GT . Kilitli N . Sabit = GT . Sabit For K = 1 To 9 N . Neler = GT . Neler Next K For K = 1 To 3 N . BasSat = GT . BasSat N . BitSat = GT . BitSat N . BasSut = GT . BasSut N . BitSut = GT . BitSut Next K Next J Next I IJAdet = 0 For I = 1 To 81 ISira = 0 JSira = 0 Next I

Bu da son... For I = 1 To 9 For J = 1 To 9 If N . Icerik = 0 Then IJAdet = IJAdet + 1 ISira = I JSira = J End If Next J Next I Z = 1 Do I = ISira J = JSira For I1 = 1 To 9 For J1 = 1 To 9 M(I1, J1). Icerik = N(I1, J1). Icerik M(I1, J1). KacTane = N(I1, J1). KacTane M(I1, J1). Kilitli = N(I1, J1). Kilitli M(I1, J1). Sabit = N(I1, J1). Sabit For K1 = 1 To 9 M(I1, J1). Neler(K1) = N(I1, J1). Neler(K1) Next K1 For K1 = 1 To 3 M(I1, J1). BasSat(K1) = N(I1, J1). BasSat(K1) M(I1, J1). BitSat(K1) = N(I1, J1). BitSat(K1) M(I1, J1). BasSut(K1) = N(I1, J1). BasSut(K1) M(I1, J1). BitSut(K1) = N(I1, J1). BitSut(K1) Next K1 Next J1 Next I1 For K = 1 To N . KacTane N . Icerik = N . Neler Call CozumYaz Call NelerOlur Call CozumYaz If SifirVar = False Then If CozumBulundu = True Then For I1 = 1 To 9 For J1 = 1 To 9 GT(I1, J1). Icerik = N(I1, J1). Icerik GT(I1, J1). KacTane = N(I1, J1). KacTane GT(I1, J1). Kilitli = N(I1, J1). Kilitli GT(I1, J1). Sabit = N(I1, J1). Sabit For K1 = 1 To 9 GT(I1, J1). Neler(K1) = N(I1, J1). Neler(K1) Next K1 For K1 = 1 To 3 GT(I1, J1). BasSat(K1) = N(I1, J1). BasSat(K1) GT(I1, J1). BitSat(K1) = N(I1, J1). BitSat(K1) GT(I1, J1). BasSut(K1) = N(I1, J1). BasSut(K1) GT(I1, J1). BitSut(K1) = N(I1, J1). BitSut(K1) Next K1 Next J1 Next I1 CozumeDevamEt = True Exit Function Else If CozumeDevamEt = True Then For I1 = 1 To 9 For J1 = 1 To 9 GT(I1, J1). Icerik = N(I1, J1). Icerik GT(I1, J1). KacTane = N(I1, J1). KacTane GT(I1, J1). Kilitli = N(I1, J1). Kilitli GT(I1, J1). Sabit = N(I1, J1). Sabit For K1 = 1 To 9 GT(I1, J1). Neler(K1) = N(I1, J1). Neler(K1) Next K1 For K1 = 1 To 3 GT(I1, J1). BasSat(K1) = N(I1, J1). BasSat(K1) GT(I1, J1). BitSat(K1) = N(I1, J1). BitSat(K1) GT(I1, J1). BasSut(K1) = N(I1, J1). BasSut(K1) GT(I1, J1). BitSut(K1) = N(I1, J1). BitSut(K1) Next K1 Next J1 Next I1 CozumeDevamEt = True Exit Function End If End If End If For I1 = 1 To 9 For J1 = 1 To 9 N(I1, J1). Icerik = M(I1, J1). Icerik N(I1, J1). KacTane = M(I1, J1). KacTane N(I1, J1). Kilitli = M(I1, J1). Kilitli N(I1, J1). Sabit = M(I1, J1). Sabit For K1 = 1 To 9 N(I1, J1). Neler(K1) = M(I1, J1). Neler(K1) Next K1 For K1 = 1 To 3 N(I1, J1). BasSat(K1) = M(I1, J1). BasSat(K1) N(I1, J1). BitSat(K1) = M(I1, J1). BitSat(K1) N(I1, J1). BasSut(K1) = M(I1, J1). BasSut(K1) N(I1, J1). BitSut(K1) = M(I1, J1). BitSut(K1) Next K1 Next J1 Next I1 Next K For I1 = 1 To 9 For J1 = 1 To 9 N(I1, J1). Icerik = M(I1, J1). Icerik N(I1, J1). KacTane = M(I1, J1). KacTane N(I1, J1). Kilitli = M(I1, J1). Kilitli N(I1, J1). Sabit = M(I1, J1). Sabit For K1 = 1 To 9 N(I1, J1). Neler(K1) = M(I1, J1). Neler(K1) Next K1 For K1 = 1 To 3 N(I1, J1). BasSat(K1) = M(I1, J1). BasSat(K1) N(I1, J1). BitSat(K1) = M(I1, J1). BitSat(K1) N(I1, J1). BasSut(K1) = M(I1, J1). BasSut(K1) N(I1, J1). BitSut(K1) = M(I1, J1). BitSut(K1) Next K1 Next J1 Next I1 Exit Do Loop End Function Function CozumuKontrolEt(ByRef GT As TypeTablo) As Boolean Dim I As Byte Dim J As Byte Dim K As Byte Dim L As Byte Dim M As Byte Dim Z As Byte CozumuKontrolEt = True For I = 1 To 9 For J = 1 To 9 Z = GT . Icerik For K = 1 To 3 For L = GT . BasSat To GT . BitSat For M = GT . BasSut To GT . BitSut If Not Then If Z = GT . Icerik Then CozumuKontrolEt = False Exit Function End If End If Next M Next L Next K Next J Next I End Function 'Module Burada Bitiyor alıntıdır.

cok saol kardes bencede cok uzun deyil ya bunu ne uzun programları var ya bunu ne sanıyonuz ki You must log in or register to reply here. Alakalı Olabilecek Konular I Vb6 Msflexgrİd nesnesine Txt dosyasını okutma Hk. ikayserili 11 Şubat 2021 Yanıt 0 Gösterim 2K 11 Şubat 2021 ikayserili I Forum Programlama Visual Basic Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/vb-ile-kesin-sudoku-cozumu.87980\/", "headline": "VB ile Kesin Sudoku Çözümü", "articleBody": "'Formun üzerine 3 tane button eklenir.\r\n'CmdKaydet, CmdBul, CmdCikis\r\n\r\n'Formun üzerine 2 adet Index'i 0 olan TextBox eklenir.\r\n'TxtBas, TxtSon\r\n'Alingment = 2 - Center\r\n'Appearance = 0 - Flat\r\n'BorderStyle = 0 - None\r\n'MaxLenght = 1 yapılırsa ekranda daha güzel görünür.\r\n\r\n'Form Sadece Ekrandan bilgi almak ve göstermek için kullanılır.\r\n'Çözümü programa eklene module içindedir.\r\n\r\n\r\n\r\n\r\nForm Buradan Başlıyor.\r\n\r\n\r\n\r\nOption Explicit\r\n\r\nSub TextDuzenle \r\nDim I As Byte\r\nDim J As Byte\r\nDim K As Byte\r\nDim L As Long\r\nDim T As Long\r\n\r\nTxtBas(0). Height = 285\r\nTxtBas(0). Width = 345\r\n\r\nK = 0\r\nT = 30\r\nFor I = 1 To 9\r\n L = 30\r\n For J = 1 To 9\r\n K = K + 1\r\n Load TxtBas \r\n TxtBas . Visible = True\r\n \r\n TxtBas . Left = L\r\n TxtBas . Top = T\r\n \r\n If (InStr(\"123789\", CStr > 0 And InStr(\"123789\", CStr > 0) Or _\r\n (InStr(\"456\", CStr > 0 And InStr(\"456\", CStr > 0) Then\r\n TxtBas . BackColor = RGB(255, 255, 240)\r\n End If\r\n L = L + 345\r\n Next J\r\n T = T + 285\r\nNext I\r\n\r\n\r\nTxtSon(0). Height = 285\r\nTxtSon(0). Width = 345\r\n\r\nK = 0\r\nT = 30\r\nFor I = 1 To 9\r\n L = 3500\r\n For J = 1 To 9\r\n K = K + 1\r\n Load TxtSon \r\n TxtSon . Visible = True\r\n \r\n TxtSon . Left = L\r\n TxtSon . Top = T\r\n \r\n If (InStr(\"123789\", CStr > 0 And InStr(\"123789\", CStr > 0) Or _\r\n (InStr(\"456\", CStr > 0 And InStr(\"456\", CStr > 0) Then\r\n TxtSon . BackColor = RGB(255, 255, 240)\r\n End If\r\n L = L + 345\r\n Next J\r\n T = T + 285\r\nNext I\r\n\r\n\r\nEnd Sub\r\n\r\nPrivate Function YukariIndexBul As Integer\r\nDim YInd As Integer\r\nYInd = InStr(\"

End Sub Private Sub Form_Load Call TextDuzenle Call Yukle End Sub Sub BilgiYukle Dim I As Byte Dim J As Byte Dim K As Byte Dim S As Byte ReDim T(9, 9) As TypeTablo S = 0 For I = 1 To 9 For J = 1 To 9 S = S + 1 T . Icerik = Val(TxtBas . Text) If T . Icerik > 0 Then T . Sabit = True T . Kilitli = True Else T . Sabit = False T . Kilitli = False End If T . KacTane = 0 For K = 1 To 9 T . Neler = 0 Next K T . BasSat(1) = I T . BitSat(1) = I T . BasSut(1) = 1 T . BitSut(1) = 9 T . BasSat(2) = 1 T . BitSat(2) = 9 T . BasSut(2) = J T . BitSut(2) = J Select Case I Case 1 To 3 T . BasSat(3) = 1 T . BitSat(3) = 3 Case 4 To 6 T . BasSat(3) = 4 T . BitSat(3) = 6 Case 7 To 9 T . BasSat(3) = 7 T . BitSat(3) = 9 End Select Select Case J Case 1 To 3 T . BasSut(3) = 1 T . BitSut(3) = 3 Case 4 To 6 T . BasSut(3) = 4 T . BitSut(3) = 6 Case 7 To 9 T . BasSut(3) = 7 T . BitSut(3) = 9 End Select Next J Next I End Sub Sub Temizle Dim I As Byte For I = 1 To 81 TxtSon . Text = "" Next I End Sub Private Sub TxtBas_GotFocus Call SendKeys End Sub Private Sub TxtBas_KeyDown Dim YIndex As Integer If KeyCode = vbKeyUp Then YIndex = YukariIndexBul TxtBas . SetFocus End If If KeyCode = vbKeyDown Then YIndex = AsagiIndexBul TxtBas . SetFocus End If If KeyCode = vbKeyRight Then YIndex = SagaIndexBul TxtBas . SetFocus End If If KeyCode = vbKeyLeft Then YIndex = SolaIndexBul TxtBas . SetFocus End If End Sub Private Sub TxtBas_LostFocus If InStr("123456789", TxtBas . Text) = 0 Then TxtBas . Text = "" End If End Sub Form Burada Bitiyor.

abi uzun olması sorun deil ama biraz

'Formun üzerine 3 tane button eklenir. buton adlar: CmdKaydet, CmdBul, CmdCikis 'Formun üzerine 2 adet Index'i 0 olan TextBox eklenir. textbox adları: TxtBas, TxtSon 'Alingment = 2 - Center 'Appearance = 0 - Flat 'BorderStyle = 0 - None 'MaxLenght = 1 yapılırsa ekranda daha güzel görünür. formun üstüne bunlar ekle general e gel kodları yapıştır sonra modül kur modül kodlarını yapıştır.