/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Private Sub Command1_Click() Dim monos As String If monos > 135 Then If monos >= 136 And monos <= 146 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 1" End If If monos >= 147 And monos <= 157 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 2" End If If monos >= 158 And monos <= 168 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 3" End If If monos >= 169 And monos <= 179 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 4" End If If monos >= 180 And monos <= 190 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 5" End If If monos >= 191 And monos <= 201 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 6" End If If monos >= 202 And monos <= 212 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 7" End If If monos >= 213 And monos <= 223 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 8" End If If monos >= 224 And monos <= 234 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 9" End If If monos >= 235 And monos <= 245 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" MsgBox "Barril: 10" End If Else If monos > 100 Then If monos >= 101 And monos <= 107 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 1" End If If monos >= 108 And monos <= 114 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 2" End If If monos >= 115 And monos <= 121 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 3" End If If monos >= 122 And monos <= 128 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 4" End If If monos >= 129 And monos <= 135 Then MsgBox "Cocos: 100" MsgBox "Jaulas: 5" End If Else MsgBox "Cocos: " & monos End If End If End Sub