• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tỏ tình

Các đoạn code nhỏ và những mã nguồn linh tinh

Moderators: tungcan5diop, QUANITGROBEST

User avatar
vuathongtin
Điều hành viên
Điều hành viên
Posts: 1028
Joined: Sun 02/05/2010 10:03 pm
Location: Xứ sở DG
Has thanked: 2 times
Been thanked: 105 times
Contact:

Tỏ tình

Postby vuathongtin » Sun 16/05/2010 9:17 am

Tên chương trình: Tỏ tình
Ngôn ngữ lập trình: VB.Net
Tác giả: vuathongtin
Chức năng: Chương trình tỏ tình


Mình tình cờ thấy có 1 chương trình tỏ tình ở trang http://caulacbovb.com/forum/viewtopic.php?f=42&t=8888 nên cũng viết 1 cái cho vui, mình chưa xem qua mã nguồn chương trình đó, chẳng biết có giống mình hok nữa.
Cách làm của mình là xác định tọa độ của form rùi cho control chạy ngẫu nhiên theo giới hạn tọa độ mình chọn trước.
  1. Public Class frm_totinh
  2.  
  3.     Private Sub btn_khong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_khong.Click
  4.         Dim r As New Random
  5.         Randomize()
  6.         For i As Integer = 1 To r.Next(401)
  7.             For j As Integer = 1 To r.Next(340)
  8.                 btn_khong.Location = New Point(i, j)
  9.             Next
  10.         Next
  11.     End Sub
  12.  
  13.     Private Sub btn_khong_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn_khong.MouseMove
  14.         Dim r As New Random
  15.         Dim i As Integer
  16.         Dim j As Integer
  17.  
  18.         Randomize()
  19.         For i = 1 To r.Next(311)
  20.             For j = 1 To r.Next(273)
  21.                 i = i
  22.                 j = j
  23.             Next j
  24.         Next i
  25.  
  26.         btn_khong.Location = New Point(i, j)
  27.     End Sub
  28.  
  29.     Private Sub btn_co_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_co.Click
  30.         MsgBox("> Mình biết bạn sẽ chọn như vậy mà !! He he " & vbCrLf & "> Mình cũng yêu bạn lắm đó !!!" & vbCrLf & "> Mong bạn hãy tin vào tình yêu của mình dành cho bạn " & vbCrLf & "> Mãi mãi yêu bạn, Honey à <!-- s@};- --><img src="{SMILIES_PATH}/053.gif" alt="@};-" title="rose" /><!-- s@};- --> ", MsgBoxStyle.OkOnly, "I Love You")
  31.     End Sub
  32. End Class


Image
Attachments
chon tinh yeu.zip
Mã nguồn chương trình tỏ tình
(131.68 KiB) Downloaded 1313 times


Bùi Thành Nhân
* Chuyên gia MMO
congtacvien.online

User avatar
minhtuan99bk
Thành viên tích cực
Thành viên tích cực
Posts: 126
Joined: Sat 06/12/2008 2:22 pm
Contact:

Re: Tỏ tình

Postby minhtuan99bk » Sat 03/07/2010 6:39 am

Nếu viết mấy cái tool đểu cỡ này thì nên xài VB6 cho khoẻ bạn à, gửi cho đối tượng và chạy nó dễ dàng hơn chớ viết bằng VB.Net nữa thì gửi cho đối tượng sau đó nói cài netfm nữa thì @-) .
I Love Programming
Welcome To You
http://www.dtvt.org/default.asp

User avatar
lungocqua
Guru
Guru
Posts: 1225
Joined: Tue 18/08/2009 11:51 am
Location: Phú Hữu - Nhơn Trạch - Đồng Nai
Been thanked: 5 times
Contact:

Re: Tỏ tình

Postby lungocqua » Sun 08/08/2010 7:31 pm

Cái này thích đây. Mã nguồn mở àh! :D
Viết trên nền .Net thì phát triển ứng dụng nhanh đó!.
Ta đã trở lại và quên hết tất cả! :D


Return to “[.NET] Mã nguồn linh tinh”

Who is online

Users browsing this forum: No registered users and 0 guests