Jump to content
IT-პროგრამირების ფორუმი

viper

წევრი
  • Content count

    42
  • Joined

  • Last visited

  • Days Won

    5

viper last won the day on January 15 2015

viper had the most liked content!

Community Reputation

17 ნორმალური

About viper

  • Rank
    წევრი

Recent Profile Visitors

850 profile views
  1. სავარჯიშო

    რა ნიშნების ჩასმა შეგვიძლია? + - / * მარტო ესენი?
  2. გამარჯობა მეგობრებო სათაურიდან შეატყობდით რომ ეს თემა ეხება ვიზუალ ბეისიქს და ტექსტ ფაილს პირველ რიგში დავიწყოთ ერთ მეტად სასარგებლო კოდით რომელიც ამოწმებს არსებობს თუ არა მითითებულ ადგილას მითითებული სახელისა და ფორმატის ფაილი . უფრო ადვილად რომ მიხვდეთ თუ როგორ მუშაობს პირდაპირ if წინადადებაში ჩავსვი. If My.Computer.FileSystem.FileExists("c:test.txt") = true Then MsgBox("ფაილი არსებობს") else MsgBox("ფაილი არ არსებობს") End If ამის შემდეგ კიდევ ერთი საჭირო კოდი დაგვჭირდება , რომელიც ქმნის ფაილებს . Dim path As String = "C:test.txt" System.IO.File.Create(path).Dispose() ამ შემთხვევაში ის შექმნის ახალ და ცარიელ ტექს ფაილს C ლოკალ დისკში ახლა კი გვჭირდება კოდი რომელიც ჩაწერს ამ ტექტ ფაილში გარკვეილ ტექსტს Dim path As String = "C:test.txt" Dim file As System.IO.StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter(path, True) file.WriteLine("პირველი ხაზი") file.WriteLine("მეორე ხაზი") file.WriteLine("მესამე ხაზი") file.Close() ახლა ზუსტად აგიხსნით თუ რას აკეთებს ეს კოდი , ის ჩაწერს ჩვენს მიერ მითითებულ კოდებს ხაზებად და დაასეივებს ტექსტ ფაილს , მაგრამ რა მოხდება მაშინ თუ ამ კოდს ჩავსვამთ private ან public sub ში და ამ sub-ს ჩავწერთ ღილაკზე დაჭერის შემთხვევაში მის სამოქმედო კოდში , უფრო მარტივად რომ აგიხსნათ კოდს მოვიშველიებ Public Class Form1 Private Sub a() Dim path As String = "C:test.txt" Dim file As System.IO.StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter(path, True) file.WriteLine("პირველი ხაზი") file.WriteLine("მეორე ხაზი") file.WriteLine("მესამე ხაზი") file.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a() End Sub End Class როგორც ხედავთ ღილაკზე დაჭერის შემთხვევაში private sub a()-ში მოქცეული კოდი იწყებს მუშაობას მაგრამ თუ ღილაკს ორჯერ დავაჭერთ მაშინ ჩვენს ტექსტ ფაილში იქნება კოდი პირველი ხაზი მეორე ხაზი მესამე ხაზი პირველი ხაზი მეორე ხაზი მესამე ხაზი ეს იმას ნიშნავს რომ ზემოთ მოცემული კოდისთვის არ არქვს მნიშნველობა თუ რა წერია ტექსტ ფაილში , რამდენი ხაზიც არ უნდა იყოს ჩვენს მიერ მითითებულ ტექსტ ფაილში ის ზემოდან აწერს იმას რასაც ჩვენ ვუბრძანებთ ანუ მაგალითან რომ იყოს 121 ხაზი და ჩვენ დავავალოთ მას ერთი ხაზის დაწერა მაგალითად ტექსტით "www.scipts.ge 111222" მაშინ ჩვენი ტექსტ ფაილი იქნება 122 ხაზიანი და 122ხაზში იქნება ტექსი "www.scipts.ge 111222" .გადავიდეთ შემდეგზე , იმედია ეს გასაგებად ავხსენი ახლა დაგვჭირდება ისეთი კოდი რომელიც ამოიკითხავს ჩვენი ტექსტ ფაილიდან მითითებულ ხაზებს Dim Path as String = "C:test.txt" Dim lines As String() = IO.File.ReadAllLines(Path) Dim line1 As String = lines(0) Dim line2 as String = lines(1) აქ აუცილებლად უნდა გავითვალისწინოთ ის რომ თუ გვინდა ამოვიღოთ 122 ხაზი მაშინ ჩვენი string ად შემოტანილი ცვლადი უნდა გავუტოლოთ lines(121) რადგან მგონი ყველა პროგრამირების ენაში თვლა იწყება 0 დან და არა 1დან . აქვე უნდა გავითვალისწინოთ ერთი რამ , თუ ჩვენს მიერ მითითებული ტექსტ ფაილი არ შეიცავს მაგალითად 122 ხაზს მაგრამ ჩვენ კოდში გვიწერია რომ უნდა ამოიკითხოს 122-ე ხაზი მაშინ ჩვენი string ცვლადი მიიღებს მნიშვნელობა "" სიცარიელეს ანუ იმას რაც არის მოქცეული ბრჭყალებში. მაგრამ რა უნდა ვქნათ მაშინ როცა გვჭირდება ფაილიდან ამოვიღოთ მთელი ტექსტი ერთიანად და არა ხაზებად , ამ შემთხვევაში გამოგვადგება Imports System Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sr As New StreamReader("C:test.txt") Dim line As String line = sr.ReadToEnd() MsgBox(line) End Sub End Class იმედია გამოგადგებათ :*.
  3. მემგონი მაგაზე მეცნიერებს დიდი დრო არ უნდა დაეხარჯათ ... რაც ყველაზე მეტად არის საჭირო მაგ ვირუსსში ეს არის ისეთი პროგის ჩაშენება რომელიც გარკვეულ მგერას თუ რაც არის გარკვეულ ასოს შეუსაბამებს ან სიტყვას. ადამიანს გარკვეული სიმძლავრის ბგერითი ტალღის გაგონება შუეძლია რაზეც http://en.wikipedia.org/wiki/Hearing_range აქ წერია . შესამაბისად მხოლოდ დინამიკის კონტროლია საჭირო რომ ადამიანისთვის შეუმჩნევლად "ისაუბრონ" კომპიუტერებმა . აგრეთვე საჭირო იქნება ვირუსის დამხმარე პროგი რომელიც რასაკვირველია შემქმნელს ექნება და რომელიც გაშიფრავს მიწოდებულ ინფოს ... ამის დაწერა ძნელი არ იყო და არც გამოცნობა თუ როგორ შეიძლება ამ ვირუსმა იმუშავოს მაგრამ ვინაიდან და რადგანაც დინამიკებთან და მიკროფონებთან პროგრამირების თვალსაზრისით შეხება არ მქონია და ამავდროულად ფიზიკაშიც ბგერებთან დაკავშირებით თითქმის არაფერი მისწავლია (რასაც აუცილებლად გამოვასწორებ) დანამდვილებით ვერ ვიტყვი რამდენად მარტივია ასეთი ვირუსის შექმნა ...
  4. h4ck3r4, სამწუხაროა რომ ეგ მინუსი აქვს :S იმედი გამიცრუა რაც შეეხება ოპერატიულს ეგ იყო ჩემი აზრით სწრაფად მუშაობის ერთერთი ვარიანტი ;( და კიდევ ერთი კითხვა მაქვს როგორ შეიძლებაორი textboxით და ორი button ით გავაკეთო ადიმინის პაროლის შემცვლელი? როცა დადებული არ აქვს მაგ შემთხვევაშიც რომ მოქმედებდეს , ადმინის პაროლში აი იმას ვგულისხმობ ჩართვამდე რომ იჩითება ხოლმე ადმინ პაროლი ქვია მგონი ამავდროულად რა მინდა გთხოვოთ ხომ არ იცით როგორ ამოვაარქივო რარ ფაილი კოდით? ბევრ კოდს წავაწყდი მაგრამ ზოგიერთი ვბ6.0 ისთვის იყო ზოგიერთი არ მუშაობდა ზოგიერთი გაუგებარი იყო და იქნებ მირჩიოთ რამე გადავტყავე ყველაფერი გუუგლში და ვერაფერი ვიპოვე
  5. h4ck3r4, მადლობა გამომადგა ახალი კითხვებით დახუნძლული მოვედი ისე არ იფიქროთ რომ არ ვგუგლავ, როგორ არ ვგუგლავ მაგრამ 1 საათიანი ძიების შემდეგ რომ ვერ ვნახულობ რასაც ვეძებდი აქ მოვდივარ : ) 1)რა ხდება ახლა როგორ შეიძლება const რომ გახადო public ანუ სხვა ფორმიდან რომ გააკონტროლო მისი მნიშვნელობა? 2) და აგრეთვე ხომ არ არსებობ რაიმე გზა ან მეთოდი იმისთვის რომ პროგრამა რაც შეიძლება სწრაფად გაიხსნას და არ ჭირდებოდეს 2 წამზე მეტი ? 3)იმას თუ რამდენ მბ-ს გამოიყენებს პროგრამა ოპერატიულიდან ვინდოუსი განსაზღვრავს თუ შეიძლება რომ რაიმე კოდით ამ მბ ების ზომა გაზარდო? იგივე კითხვა მაქვს CPUზე
  6. გამარჯობა მეგობრებო აიკონს ვცვლი ჩვეულებრივად My Project -> Application - > Default icon ვირჩევ აქ და ყენდება ჩვეულებრივად , მაგრამ როცა new project.exe გადმომაქვს Debug ფოლდერიდან და ვაგდებ სხვაგან აიკონი ეკარგება და სტანდარტული ყენდება და იქნებ მირჩიოთ რამე
  7. Banana, როგორც ვიცი შეუძლებელია ვბში წერო სიპიპის კოდებით , უნდა გადაიყვანო და ისე დაწერო , რაღაც საიტი იყო რომელიც აკეთებდა მაგას , მოვძებნი და დაგიპოსტავ
  8. Banana, BERU, მადლობა მეგობრებო
  9. გამარჯობათ ხალხნო რა მინდა გკითხოთ picturebox -ის სამოძრაოდ ვიყენებ keys.left , keys.right და keys.up --ს form1-ს keydown event-ში , მარცხნივ და მარჯვნივ მოძრაობაზე არანაირი პრობლემა არ მაქვს ხოლო ახტომის დროს როცა keys.up ვაჭერ ვიყენებ ტაიმერს ჩვეულებრივად ადის და უკან ბრუნდება გარკვეული სიჩქარით , მაგრამ ვერ ვახერხებ ერთდროულად ახტომასაც და მარცხნივ ან მარჯვნივ მოძრაობას , ანუ როცა ვაჭერ keys.up და keys.left , ტაიმერი ირთვება picturebox-ი იწყებს ახტომას მაგრამ მარცხნივ მოძრაობას წყვეტს , უნდა დააჭირო თავიდან და მშვენივრად მოქმედებს, მე მინდა რომ ეს თავიდან დაჭერა არ ჭრდებოდეს და მირჩიეთ რა რამე ..... კიდევ რა მინდა გკითხოთ picturebox.image =My.Resources.Ball - ვიყენებ ჩვეულებრივ წინადადებაში , ვიყენებ for next კონსტრუქციაში მაგრამ როგორც კი if - then კონსტრუქციაში ჩავწერ , მაფრთხილებს რომ = გამოყენება არ შეიძლება ამ შემთხვევაში ანუ If picturebox1.Image = My.Resources.Ball_2 Then picutrebox1.Image = My.Resources.Ball_1 End If ასეთ შემთხვევაში გაშვების დროს ერორში მიწერსს Operator '=' is not defined for types 'System.drawing.image' and 'system.drawing.bitmap' და რა მოვუხერხო?
  10. მოგესალმებით მეგობრებო :-) ამ გაკვეთილიდან ისწავლით ფიცრების(Board1,Board2) ის კონტროლს რომ არ გაუჩინარდნენ სულ ზემოთ ასვილისას ან სულ ქვემოთ ჩამოსლისას ... დარესტარტებას, დაპაუზებას და გამორთვას კლავიატურის საშუალებით და აგრეთვე ცოტა შელამაზებას ეს ვიდეო: http://www.youtube.com/watch?v=SISgckAOE-c&list=PLHWA3tPVj0CzPJAG14BbT0TNdyr_kLzyh კოდი: Form1_Keypress If e.KeyChar = "p" Or e.KeyChar = "P" Then If Timer1.Enabled = False Then Timer1.Enabled = True ElseIf Timer1.Enabled = True Then Timer1.Enabled = False End If End If If e.KeyChar = "r" Or e.KeyChar = "R" Then Timer1.Enabled = False Dim question = MsgBox("Do you want o resart?", MsgBoxStyle.YesNo) If question = MsgBoxResult.Yes Then Restart() ElseIf question = MsgBoxResult.No Then Timer1.Enabled = True End If End If Form1_Keydown If e.KeyValue = Keys.Escape Then End End If Public Sub Restart() SScose = 0 FScore = 0 LoadSettings() Public Sub CheckBoardHitToMe() If Board1.Top < 0 Then Board1.Top = 0 End If If Board2.Top < 0 Then Board2.Top = 0 End If If Board1.Bottom > Me.ClientRectangle.Height Then Board1.Top = Me.ClientRectangle.Height - Board1.Height End If If Board2.Bottom > Me.ClientRectangle.Height Then Board2.Top = Me.ClientRectangle.Height - Board2.Height End If Timer1_Tick + CountScore() CheckBoardHitToMe() V გაკვეთილი |V გაკვეთილი ||| გაკვეთილი || გაკვეთილი | გაკვეთილი გისურვებთ წარმატებას ; )
  11. მოგესალმებით მეგობრებო :-) ამ გაკვეთილიდან ისწავლით ქულების დათვლას,თამაშის დამთავრების შემოწმების გაუმჯობესებულ ვარიანტს , სურათის რესურსებში დამატებას და რესურსების გამოყენებას ეს ვიდეო : http://www.youtube.com/watch?v=sh33o7tIoT8&index=6&list=PLHWA3tPVj0CzPJAG14BbT0TNdyr_kLzyh ეს კოდი : Private Sub CountScore() Label1.Text = (FScore & " - " & SScose) If Ball.Right >= Me.ClientRectangle.Width Then Timer1.Enabled = False FScore += 1 LoadSettings() End If If Ball.Left <= 0 Then Timer1.Enabled = False SScose += 1 LoadSettings() End If End Sub Private Sub LoadSettings() Ball.Left = Me.ClientRectangle.Width / 2 Ball.Top = Me.ClientRectangle.Height / 2 Ball.Image = My.Resources.Ball Timer1.Enabled = True End Sub Private Sub CheckGameOver() If FScore = LastScore Then Timer1.Enabled = False MsgBox("First player won!!!") ElseIf SScose = LastScore Then Timer1.Enabled = False MsgBox("Secound player won!!!") End If End Sub Public Class Form1 - ის ქვემოთ Dim FScore As Integer Dim SScose As Integer Dim LastScore As Integer = 3 ბურთის სურათი http://www.picz.ge/img/s1/1403/23/6/6cca44fc3589.png |V გაკვეთილი ||| გაკვეთილი || გაკვეთილი | გაკვეთილი გისურვებთ წარმატებას ; )
  12. მოგესალმებით მეგობრებო :-) ეს გაკვეთილი ეხება წაგების შემოწმებას და აგრეთვე Board1 და Board2 კლავიატურით მოძრაობას ვიდეო : http://www.youtube.com/watch?v=KtM_zlZPThY&list=PLHWA3tPVj0CzPJAG14BbT0TNdyr_kLzyh კოდი : CheckGameOver If Ball.Right >= Me.ClientRectangle.Width Then Timer1.Enabled = False MsgBox("Gaimarjva pirvelma") End If If Ball.Left <= 0 Then Timer1.Enabled = False MsgBox("Gaimarjva meorem") End If Form1 --- keypress If x = 2 Then If e.KeyChar = "O" Or e.KeyChar = "o" Then Board2.Top -= 6 End If If e.KeyChar = "L" Or e.KeyChar = "l" Then Board2.Top += 6 End If End If If x = 1 Then If e.KeyChar = "W" Or e.KeyChar = "w" Then Board1.Top -= 6 End If If e.KeyChar = "S" Or e.KeyChar = "s" Then Board1.Top += 6 End If End If ||| გაკვეთილი || გაკვეთილი | გაკვეთილი გისურვებთ წარმატებას ; )
  13. h4ck3r4, მადლობა , გამომადგა. ახლა კი რა მინდა გკითხოთ picturebox.image =My.Resources.Ball - ვიყენებ ჩვეულებრივ წინადადებაში , ვიყენებ for next კონსტრუქციაში მაგრამ როგორც კი if - then კონსტრუქციაში ჩავწერ , მაფრთხილებს რომ = გამოყენება არ შეიძლება ამ შემთხვევაში და რა მოვუხერხო?
  14. მოგესალმებით მეგობრებო :-) როგორც წინა გაკვეთილებში ნახეთ ჩვენ დავიწყეთ პონგის ტიპის პატარა თამაშის შექმნა, მოკლედ ბევრი რომ არ გავაგრძელო ეს არის შემდეგი გაკვეთილი სადაც თქვენ ისწავლით თუ როგორ ამოძრავოთ "board1" , "board2" და აგრეთვე რა უნდა ქნათ იმისთვის რომ ზემოთ ნახესენებთა ბურთის შეჯახების დროს როგორ უნდა შეიცვალოს ბურთმა მიმართულება , მოკლედ აი ვიდეოც https://www.youtube.com/watch?v=WpVEoDIvzQI&index=4&list=PLHWA3tPVj0CzPJAG14BbT0TNdyr_kLzyh და აი ვიდეოში დანაპირები კოდი Private Sub CheckBoardHit() Dim C As Single = Ball.Top + Ball.Height / 2 'check left side of the board If VSpeed > 0 And C > Board2.Top And C < Board2.Bottom And Ball.Right > Board2.Left And Ball.Left < Board2.Left Then VSpeed = -VSpeed x = x - 1 End If ' check right side of the board If VSpeed < 0 And C > Board1.Top And C < Board1.Bottom And Ball.Left < Board1.Right And Ball.Right > Board1.Right Then VSpeed = -VSpeed x = x + 1 End If End Sub || გაკვეთილი | გაკვეთილი გისურვებთ წარმატებას ; )
  15. V1RUS, ხო , ზუსტად ეგ მჭირდება თუ როგორ გავარეგულირო და განსვსაზღვრო მაუსის სიჩქარე
×