sách gpt4 ăn đã đi

Mã triển khai trò chơi giải đố kỹ thuật số tự tạo vbs

In lại Tác giả: qq735679552 Thời gian cập nhật: 29-09-2022 22:32:09 27 4
mua khóa gpt4 giày nike

CFSDN nhấn mạnh vào giá trị tạo ra nguồn mở và chúng tôi cam kết xây dựng nền tảng chia sẻ tài nguyên để mọi nhân viên CNTT có thể tìm thấy thế giới tuyệt vời của bạn tại đây.

Bài viết trên blog CFSDN vbs mã triển khai trò chơi giải đố kỹ thuật số tự tạo này được tác giả sưu tầm và biên soạn. Nếu các bạn quan tâm đến bài viết này thì nhớ like nhé.

Khi tôi đang xem xét quá trình phát triển VB, tôi đột nhiên nghĩ đến việc sử dụng mảng hai chiều làm cấp độ trò chơi khi tôi nhìn thấy mảng hai chiều.

1. Chọn một thao tác: Khi trò chơi bắt đầu, bạn sẽ được nhắc chọn ba tùy chọn: đăng ký, đăng nhập và thoát.

2. Đăng ký: Đăng ký thành công sẽ lưu trữ tài khoản người dùng và mật khẩu trong tài liệu txt dữ liệu người dùng. Nhập giá trị null ba lần liên tiếp sẽ trực tiếp thoát khỏi trò chơi.

3. Đăng nhập: Khi đăng nhập, dữ liệu đầu vào sẽ được so sánh với nội dung của tài liệu dữ liệu người dùng. Nếu người dùng tồn tại, đăng nhập thành công. Nếu không thành công ba lần, trò chơi sẽ bị thoát.

4. Bắt đầu trò chơi: Sau khi đăng nhập thành công, bạn sẽ trực tiếp vào trò chơi. Trò chơi tạm thời được chia thành ba cấp độ, mỗi cấp độ có ba phần. Quy tắc vượt qua trò chơi là sử dụng cấp độ làm chỉ số mảng hai chiều ( chỉ số dưới) của mảng hai chiều. Phần này được sử dụng làm chỉ số dưới của mảng một bit (chỉ số dưới + 4)... Có một cách triển khai cụ thể trong tệp nên tôi sẽ không đi sâu vào chi tiết.

5. Khi người dùng đăng nhập và vượt qua từng cấp độ của trò chơi, tệp nhật ký trò chơi _log.txt sẽ được ghi để ghi lại người dùng, các thao tác, tiến độ vượt qua, thời gian vượt qua, v.v.

ps: Sau khi tải xuống tệp, nhấp đúp để chạy nó. Tài liệu người dùng game_user.txt và tài liệu nhật ký game_log.txt được tạo theo đường dẫn trên màn hình của tôi. Nếu bạn không thích, bạn có thể trực tiếp sửa đổi nó thành d. :\game\game_user.txt, v.v. Trò chơi có thú vị đến thế nào không quan trọng, tôi hy vọng nó có thể giúp ích phần nào cho những đứa trẻ muốn học VBS.

Mã hoàn chỉnh.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
Mờ nhạt trò chơi(3,2),i,j,kết quả,số 'Định nghĩa mảng hai chiều có chiều dài hai chiều là 3 và chiều dài một chiều là 2
Mờ nhạt fso ,ws,f ,logFileWrite,logFileRead, fileStr,flag,flagFailNum, flagIndex 'Xác định tệp nhật ký
   đặt ws = CreateObject( "wscript. shell" )
   Bộ fso = Tạo đối tượng( "scripting.filesystemobject" )
   Nếu như fso.fileexists( "C:\Users\18190\Desktop\vbs\test\game_log.txt" ) Sau đó
     Khác
     Bộ f = fso.createtextfile( "C:\Users\18190\Desktop\vbs\test\game_log.txt" ,ĐÚNG VẬY)
       'Nếu fso.fileexists("C:\Users\18190\Desktop\vbs\测试\game_log.txt") Thì
        ' Đặt logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\测试\game_log.txt",8,true)
        ' logFileWrite.writeLine "Nhật ký trò chơi đoán số"
      ' kết thúc nếu
   
   Kết thúc Nếu như
 
   tôi = 0 ĐẾN 2 'Phân công cấp độ
    j=4 ĐẾN 5
     trò chơi(i,j-4)= i*3+j
    Kế tiếp
  Kế tiếp
 
  'Đối với i = 0 đến 2
   ' Đối với j = 0 đến 1
   'MsgBox "game("&i&",,"&j&"): "& game(i,j)
   'Kế tiếp
  'Kế tiếp
 
'Chọn thao tác
Mờ nhạt cnum, failedNum, sucFlag, t
    số lỗi =0
    sucFlag =0
  LÀM Trong khi 1=1
 
  Nếu như sucFlag=1 Sau đó
    Ra LÀM
   Kết thúc nếu như
 
  Nếu như số lỗi =3 Sau đó
   Hộp tin nhắn "Nếu bạn mắc phải ba lỗi thao tác liên tiếp, hệ thống sẽ trực tiếp thoát ra..."
   Ra LÀM
  kết thúc nếu
  cnum = Hộp đầu vào( "Chào mừng bạn đến với trò chơi đoán số, vui lòng chọn thao tác:" &chr(10)& " 1. Đăng ký 2. Đăng nhập 3. Đăng xuất" , "Trò chơi đoán số" )
   Nếu như cnum = "" Sau đó
      cnum = "-1"
   Kết thúc nếu như
  Lựa chọn Trường hợp cây
  Trường hợp 1
'Đăng ký tài khoản
Mờ nhạt juname, upwd,regStr
   regStr = ""
  làm trong khi regStr = ""
   uname = Hộp đầu vào( "Xin vui lòng nhập tài khoản đăng ký của bạn:" , "Trò chơi đoán số - Đăng ký" )
   upwd = Hộp đầu vào( "Xin vui lòng nhập mật khẩu đăng ký:" , "Trò chơi đoán số - Đăng ký" )
   Nếu như không tên <> "" Sau đó
     Nếu như lên <> "" Sau đó
      regStr = uname& "#" &lên
     Khác
      regStr = ""
      Hộp tin nhắn "Tài khoản đăng ký và mật khẩu bạn nhập không chính xác, vui lòng nhập lại"
     Kết thúc Nếu như
   Khác
     regStr = ""
      Hộp tin nhắn "Tài khoản đăng ký và mật khẩu bạn nhập không chính xác, vui lòng nhập lại"
   Kết thúc Nếu như
 
  Nếu như chuỗi đăng ký <> "" Sau đó
   Nếu như fso.fileexists( "C:\Users\18190\Desktop\vbs\test\game_user.txt" ) Sau đó
       Bộ logFileWrite = fso.OpenTextFile( "C:\Users\18190\Desktop\vbs\test\game_user.txt" ,8,đúng)
       t= Năm(hiện tại)& "-" &tháng(bây giờ)& "-" &ngày(bây giờ)& " " & Giờ(bây giờ)& ":" &phút(bây giờ)& ":" &second(bây giờ)
       'logFileWrite.WriteBlankLines 1
       logFileWrite.writeLine regStr & " " &t
       logFileWrite. đóng
       Hộp tin nhắn "Đăng ký thành công!"
       thoát ra làm
     khác
     Bộ f = fso.createtextfile( "C:\Users\18190\Desktop\vbs\test\game_user.txt" ,ĐÚNG VẬY)
       Nếu như fso.fileexists( "C:\Users\18190\Desktop\vbs\test\game_user.txt" ) Sau đó
        Bộ logFileWrite = fso.OpenTextFile( "C:\Users\18190\Desktop\vbs\test\game_user.txt" ,8,đúng)
           logFileWrite.writeLine "Dữ liệu người dùng trò chơi đoán số"
           logFileWrite.writeLine regStr
            logFileWrite. đóng
           Hộp tin nhắn "Đăng ký thành công!"
           thoát ra làm
      kết thúc nếu
   Kết thúc Nếu như
  kết thúc nếu  
  vòng lặp
 
  'wscript.sleep 1000
 
trường hợp 2
  'Đăng nhập tài khoản
Mờ nhạt đường
   Bộ logFileRead = fso.OpenTextFile( "C:\Users\18190\Desktop\vbs\test\game_user.txt" ,1)
   fileStr = logFileRead.ĐọcTất Cả
   logFileRead. đóng
   str = Hộp đầu vào( "Xin vui lòng nhập tên tài khoản và mật khẩu, cách nhau bằng phím #: " , "Trò chơi đoán số-đăng nhập" )
   nếu str <> "" sau đó
    flagIndex = InStr(fileStr,str)
     Nếu như cờIndex>0 Sau đó
       cờ =1
     Khác
       cờ = 0
     LÀM Trong khi cờ Index = 0
      flagFailNum = flagFailNum +1
      Nếu như cờFailNum = 3 Sau đó
      Hộp tin nhắn "Xin lỗi, bạn đã thất bại ba lần liên tiếp và hệ thống đã thoát"
      wscript.sleep 5000 ' Chỉ cần thoát -- thiếu đối tượng wscript
      cờFailNum =0
     kết thúc nếu
       Hộp tin nhắn "Tài khoản và mật khẩu của bạn đã nhập không chính xác, vui lòng xác minh và thử lại..."
      str = Hộp đầu vào( "Xin vui lòng nhập tên tài khoản và mật khẩu, cách nhau bằng phím #: " , "Trò chơi đoán số-đăng nhập" )
      nếu str <> "" sau đó
      flagIndex = InStr(fileStr,str)
      kết thúc nếu
      vòng lặp
      cờ = 1
    Kết thúc Nếu như
   Khác
      cờ = 0
     LÀM Trong khi cờ Index = 0
      flagFailNum = flagFailNum +1
      Nếu như cờFailNum = 3 Sau đó
      Hộp tin nhắn "Xin lỗi, bạn đã thất bại ba lần liên tiếp và hệ thống đã thoát"
      wscript.sleep 5000 ' Chỉ cần thoát -- thiếu đối tượng wscript
      cờFailNum =0
     kết thúc nếu
       Hộp tin nhắn "Tài khoản và mật khẩu của bạn đã nhập không chính xác, vui lòng xác minh và thử lại..."
      str = Hộp đầu vào( "Xin vui lòng nhập tên tài khoản và mật khẩu, cách nhau bằng phím #: " , "Trò chơi đoán số-đăng nhập" )
      nếu str <> "" sau đó
      flagIndex = InStr(fileStr,str)
      kết thúc nếu
      vòng lặp
      cờ = 1
   kết thúc nếu
 
 
'Xác minh bằng cách đăng nhập
nếu cờ =1 thì
   Bộ logFileWrite = fso.OpenTextFile( "C:\Users\18190\Desktop\vbs\test\game_log.txt" ,8,đúng)
       t= Năm(hiện tại)& "-" &tháng(bây giờ)& "-" &ngày(bây giờ)& " " & Giờ(bây giờ)& ":" &phút(bây giờ)& ":" &second(bây giờ)
       'logFileWrite.WriteBlankLines 1
       logFileWrite.writeLine "Người dùng đăng nhập:" &str & " " &t
 
   Hộp tin nhắn "Chúc mừng bạn đã đăng nhập thành công vào trò chơi đoán số! Bây giờ chúng ta vào chủ đề chính của trò chơi: "
   số = 0
   đối với i = 0 đến 2
     j=0 ĐẾN 1
      kết quả = InputBox( "Bây giờ là giờ chơi" &(tôi+1)& "Guandi" &(j+1)& "phần" &chr(10)& " Vui lòng nhập kết quả trận đấu (i*3+j+4): " &chr(10)& "Để thoát nhấn -5" , "Trò chơi giải đố đoán số:" )
      Nếu như kết quả = "-5" Sau đó
      thoát ra cho
      kết thúc nếu
      Nếu như kết quả = "" Sau đó
      kết quả = "-1"
      kết thúc nếu
      Nếu như cint(result) = i*3+j+4 thì
       Hộp tin nhắn "Xin chúc mừng, bạn đã vượt qua kỳ thi đầu tiên thành công" &(tôi+1)& "Guandi" &(j+1)& "Tiểu Giới, tiếp tục phát huy nhé..."  
      Kết thúc nếu như
      LÀM Trong khi  cint(kết quả) <> i*3+j+4
       số = số + 1
     Nếu như số =3 Sau đó
       Hộp tin nhắn "Xin lỗi, ngươi liên tiếp thất bại ba lần, không thể vượt qua cấp độ!" &chr(10)& "Tiến trình trò chơi kết thúc ở vị trí số 1" &(tôi+1)& "Guandi" &(j+1)& "Tiểu Giới, lần sau cố gắng lên nhé..."
       ra LÀM
     Kết thúc nếu như
       Hộp tin nhắn "Xin lỗi, bạn đoán sai rồi! Vui lòng kiểm tra và thử lại..."
        kết quả = InputBox( "Bây giờ là giờ chơi" &(tôi+1)& "Guandi" &(j+1)& "Phần vui lòng nhập kết quả trận đấu (i*3+j+4): " , "Trả lời: " )
      Nếu như kết quả = "" Sau đó
      kết quả = "-1"
      kết thúc nếu
      Nếu như cint(result) = i*3+j+4 thì
       Hộp tin nhắn "Xin chúc mừng, bạn đã vượt qua kỳ thi đầu tiên thành công" &(tôi+1)& "Guandi" &(j+1)& "Tiểu Giới, tiếp tục phát huy nhé..."
       Ra LÀM
      Kết thúc nếu như
      vòng lặp
     Nếu như số =3 Sau đó
       thoát ra cho
     kết thúc nếu
     Kế tiếp
     Nếu như kết quả = "-5" Sau đó
      thoát ra cho
     kết thúc nếu
     Nếu như số =3 Sau đó
       thoát ra cho
     Kết thúc nếu như
     Nếu như tôi = 2 Sau đó
      tin nhắn = "Chiến binh thông minh, chúc mừng bạn đã hoàn thành thành công trò chơi này! Ừm..."
      MsgBox msg
      t= Năm(hiện tại)& "-" &tháng(bây giờ)& "-" &ngày(bây giờ)& " " & Giờ(bây giờ)& ":" &phút(bây giờ)& ":" &second(bây giờ)
      logFileWrite.writeLine "Người dùng:" &str& "Tiến trình trò chơi:" &tin nhắn & " " &t
      sucFlag =1
     thoát ra cho
     Kết thúc Nếu như
      tin nhắn = "Chúc mừng bạn đã vượt qua cấp 1 thành công" &(tôi+1)& "Cấp độ, sau đó vào bước tiếp theo" &(tôi+2)& "Quan...chúc may mắn!"
     MsgBox msg
      t= Năm(hiện tại)& "-" &tháng(bây giờ)& "-" &ngày(bây giờ)& " " & Giờ(bây giờ)& ":" &phút(bây giờ)& ":" &second(bây giờ)
      logFileWrite.writeLine "Người dùng:" &str& "Tiến trình trò chơi:" &tin nhắn & " " &t
 
   Kế tiếp
 
kết thúc nếu
 
Trường hợp 3
  Hộp tin nhắn "Hệ thống sắp thoát ra..."
  thoát ra làm
trường hợp Khác
   Hộp tin nhắn "Lựa chọn của bạn sai, vui lòng chọn lại..."
  số lỗi = số lỗi +1
Kết thúc lựa chọn
 
vòng lặp

Đó là bài viết này, tôi hy vọng bạn sẽ ủng hộ tôi trong tương lai.

Cuối cùng, bài viết này về mã triển khai của trò chơi giải đố kỹ thuật số tự tạo VBS kết thúc tại đây. Nếu bạn muốn biết thêm về mã triển khai của trò chơi giải đố kỹ thuật số tự tạo VBS, vui lòng tìm kiếm bài viết CFSDN hoặc tiếp tục duyệt qua các bài viết liên quan. Tôi hy vọng tất cả các bạn ủng hộ blog của tôi trong tương lai! .

27 4 0
qq735679552
Hồ sơ

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá taxi Didi miễn phí
Phiếu giảm giá taxi Didi
Chứng chỉ ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com
Xem sitemap của VNExpress