• 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

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
vuathongtin
Điều hành viên
Điều hành viên
Bài viết: 1028
Ngày tham gia: CN 02/05/2010 10:03 pm
Đến từ: Xứ sở DG
Has thanked: 2 time
Been thanked: 105 time
Liên hệ:

Tỏ tình

Gửi bàigửi bởi vuathongtin » CN 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


Hình ảnh
Tập tin đính kèm
chon tinh yeu.zip
Mã nguồn chương trình tỏ tình
(131.68 KiB) Đã tải 1247 lần


Bùi Thành Nhân
CNTT-Sở Thông tin & Truyền thông tỉnh Phú Yên
giasulaptrinh.com
Skype:vuathongtin

Hình đại diện của người dùng
minhtuan99bk
Thành viên tích cực
Thành viên tích cực
Bài viết: 126
Ngày tham gia: T.Bảy 06/12/2008 2:22 pm
Liên hệ:

Re: Tỏ tình

Gửi bàigửi bởi minhtuan99bk » T.Bảy 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

Hình đại diện của người dùng
lungocqua
Guru
Guru
Bài viết: 1225
Ngày tham gia: T.Ba 18/08/2009 11:51 am
Đến từ: Phú Hữu - Nhơn Trạch - Đồng Nai
Been thanked: 5 time
Liên hệ:

Re: Tỏ tình

Gửi bàigửi bởi lungocqua » CN 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


Quay về “[.NET] Mã nguồn linh tinh”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách