Los Lotek - goście też mogą odpowiedzieć. Czekam...

Tranzystor · Post autor: **Tranzystor** » 08 wrz 2005, 17:58

Mam problem z spkompilowaniem tego proramu.

[ Dodano: 08-09-2005, 19:34 ]
Wiesz jaki zrobiłeś błąd???

Ty zrobiłeś program tak:

Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim H As Byte
Dim I As Byte
Dim Los As Byte
Dim Liczba As Byte
Dim Cyfra As Byte
Dim Poczatek As Byte
Dim X As Byte
Cursor Noblink
Cursor Off
Portd = 3
Poczatek:
Poczatek = 1
Cls
Do
If Poczatek = 1 Then
Lcd "Multi Lotek"
Home Upper
End If
If Poczatek = 2 Then
Lcd "Duzy Lotek"
Home Upper
End If
If Poczatek = 3 Then
Lcd "Express Lotek"
Home Upper
End If
If Pind.0 = 0 Then
Poczatek = Poczatek + 1
Cls
Waitms 200
End If
If Poczatek = 4 Then
Poczatek = 1
End If
If Pind.1 = 0 Then
If Poczatek = 1 Then
Liczba = 80
Waitms 500
Cyfra = 1
While X = 0
If Pind.0 = 0 Then
Cyfra = Cyfra + 1
Waitms 500
End If
If Cyfra = 11 Then
Cyfra = 1
End If
Home Upper
Lcd "Ile liczb "
If Cyfra < 10 Then Lcd " "
Lcd Cyfra
If Pind.1 = 0 Then
X = 1
End If
Wend
End If
If Poczatek = 2 Then
Liczba = 49
Cyfra = 6
End If
If Poczatek = 3 Then
Liczba = 42
Cyfra = 5
End If
X = 0
Gosub Gra
End If
Loop
End
Gra:
Poczatek = 0
Jeszcze:
Cls
Lcd "Liczba"
Home Lower
Waitms 500
While X = 0
For Los = 1 To Liczba
If Pind.1 = 0 Then
Poczatek = Poczatek + 1

Select Case Poczatek
Case 1 : A = Los
Case 2 : B = Los Gosub Powrot
Case 3 : C = Los Gosub Powrot
Case 4 : D = Los Gosub Powrot
Case 5 : E = Los Gosub Powrot
Case 6 : F = Los Gosub Powrot
Case 7 : G = Los Gosub Powrot
Case 8 : H = Los Gosub Powrot
Case 9 : I = Los Gosub Powrot
Case 10 : Gosub Powrot

End Select

Ja:
If Los < 10 Then Lcd " "
Lcd Los
Home Lower
Waitms 500
End If
If Poczatek = Cyfra Then
Wait 4
Cls
Gosub Poczatek
End If
Next
Wend
Powrot:
If A = Los Then Gosub Powrut
If Poczatek => 3 Then
If B = Los Then Gosub Powrut
End If
If Poczatek => 4 Then
If C = Los Then Gosub Powrut
End If
If Poczatek => 5 Then
If D = Los Then Gosub Powrut
End If
If Poczatek => 6 Then
If E = Los Then Gosub Powrut
End If
If Poczatek => 7 Then
If F = Los Then Gosub Powrut
End If
If Poczatek => 8 Then
If G = Los Then Gosub Powrut
End If
If Poczatek => 9 Then
If H = Los Then Gosub Powrut
End If
If Poczatek = 10 Then
If I = Los Then Gosub Powrut
End If
Return
Powrut:
Cls
Lcd "Jeszcze raz"
Poczatek = Poczatek - 1
Waitms 500
Gosub Jeszcze

Jak wiesz BASCOM bardzo się czepia jak to napiszesz, czyli program powinien tak wyglądać:

Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim H As Byte
Dim I As Byte
Dim Los As Byte
Dim Liczba As Byte
Dim Cyfra As Byte
Dim Poczatek As Byte
Dim X As Byte
Cursor Noblink
Cursor Off
Portd = 3
Poczatek:
Poczatek = 1
Cls
Do
If Poczatek = 1 Then
Lcd "Multi Lotek"
Home Upper
End If
If Poczatek = 2 Then
Lcd "Duzy Lotek"
Home Upper
End If
If Poczatek = 3 Then
Lcd "Express Lotek"
Home Upper
End If
If Pind.0 = 0 Then
Poczatek = Poczatek + 1
Cls
Waitms 200
End If
If Poczatek = 4 Then
Poczatek = 1
End If
If Pind.1 = 0 Then
If Poczatek = 1 Then
Liczba = 80
Waitms 500
Cyfra = 1
While X = 0
If Pind.0 = 0 Then
Cyfra = Cyfra + 1
Waitms 500
End If
If Cyfra = 11 Then
Cyfra = 1
End If
Home Upper
Lcd "Ile liczb "
If Cyfra < 10 Then Lcd " "
Lcd Cyfra
If Pind.1 = 0 Then
X = 1
End If
Wend
End If
If Poczatek = 2 Then
Liczba = 49
Cyfra = 6
End If
If Poczatek = 3 Then
Liczba = 42
Cyfra = 5
End If
X = 0
Gosub Gra
End If
Loop
End
Gra:
Poczatek = 0
Jeszcze:
Cls
Lcd "Liczba"
Home Lower
Waitms 500
While X = 0
For Los = 1 To Liczba
If Pind.1 = 0 Then
Poczatek = Poczatek + 1

Select Case Poczatek
Case 1 : A = Los
Case 2 : B = Los
Gosub Powrot
Case 3 : C = Los
Gosub Powrot
Case 4 : D = Los
Gosub Powrot
Case 5 : E = Los
Gosub Powrot
Case 6 : F = Los
Gosub Powrot
Case 7 : G = Los
Gosub Powrot
Case 8 : H = Los
Gosub Powrot
Case 9 : I = Los
Gosub Powrot
Case 10 : Gosub Powrot

End Select

Ja:
If Los < 10 Then Lcd " "
Lcd Los
Home Lower
Waitms 500
End If
If Poczatek = Cyfra Then
Wait 4
Cls
Gosub Poczatek
End If
Next
Wend
Powrot:
If A = Los Then Gosub Powrut
If Poczatek => 3 Then
If B = Los Then Gosub Powrut
End If
If Poczatek => 4 Then
If C = Los Then Gosub Powrut
End If
If Poczatek => 5 Then
If D = Los Then Gosub Powrut
End If
If Poczatek => 6 Then
If E = Los Then Gosub Powrut
End If
If Poczatek => 7 Then
If F = Los Then Gosub Powrut
End If
If Poczatek => 8 Then
If G = Los Then Gosub Powrut
End If
If Poczatek => 9 Then
If H = Los Then Gosub Powrut
End If
If Poczatek = 10 Then
If I = Los Then Gosub Powrut
End If
Return
Powrut:
Cls
Lcd "Jeszcze raz"
Poczatek = Poczatek - 1
Waitms 500
Gosub Jeszcze

Ta wersja jest poprawnie napisana!!!

Troszeczke długi ten programik!!!

[ Dodano: 08-09-2005, 19:51 ]
Jeżeli mi pozwolisz, bo bardzo chciałbym żeby mój projekt był w gazecie. Bo chodzi o to że pomogłeś mi troche. Czy mógłbym wysłać go do gazety?? Najwyżej poprosze pana Piotra Góreckiego, albo sam napisze, że program napisałem z kolegą i napisze twoje imię i nazwisko. Zgadzasz się?????

Ertew · Post autor: **Ertew** » 09 wrz 2005, 15:00

Obgadajmy to na PW

radzio · Post autor: **radzio** » 10 wrz 2005, 16:39

Tranzystor ujmuj kod w tagi code po coś one wkońcu są...

Tranzystor · Post autor: **Tranzystor** » 11 wrz 2005, 16:03

Radzio możesz jaśniej????

radzio · Post autor: **radzio** » 11 wrz 2005, 16:08

Pisząc post masz troche wyżej nad okienkiem gdzie piszesz treść kika przycisków, wśród nich m.in. z napisem "Code" jego użycie da teki efekt :

Kod: Zaznacz cały

to jest kod
poprawia to czytleność
i powinno być stosowane
zawsze do umieszczania kodu programów

Tranzystor · Post autor: **Tranzystor** » 11 wrz 2005, 16:13

Wiesz bardzo mało z tego kapuje może dlatego że niedawno zaczołem się uczyć BASICA i niedawno sie go nauczyłem, ale nie do końca.

radzio · Post autor: **radzio** » 11 wrz 2005, 16:23

No to popełniłeś największy błąd w swoim życiu, Bascom lasuje mózgi i zabija w człowieku umiejętność myślenia. Jak najszybciej zapomnij że kiedykolwiek się tym zajmowałeś. Jeszcze jest szansa że sie uratujesz. Przed chwilą na innymforum ktoś pytał jak w Bascomie napisać DOSa. Po prostu juz miałem sznurek w ręku i szukałem jakiejś wolnej gałęzi.

Ja pisałem o momencie pisania postu

O tym, że zanim wkleisz jakikolwiek kod programu, wciśnij przycisk "Code" który znajduje się nad okienkiem w którym piszesz post, rozumiesz

To nie ma nic wspólnego z Basiciem

Chodzi tylko i wyłącznie o wygląd postu

PS. Uważam, że każdy nowy user na forum powinien przejść egzamin ze znajomości mechanizmów działania forum i wszelkich niezbędnych jego własciwości jak BBCode.

Tranzystor · Post autor: **Tranzystor** » 11 wrz 2005, 16:27

Już rozumiem!!!!! Wiesz jestem od paru tygodni na tym forum nie umiem wszystkim się posługiwać!!!

Dziękuję!!!!

Passage · Post autor: **Passage** » 13 wrz 2005, 9:48

radzio pisze:No to popełniłeś największy błąd w swoim życiu, Bascom lasuje mózgi i zabija w człowieku umiejętność myślenia. Jak najszybciej zapomnij że kiedykolwiek się tym zajmowałeś.

Zgadzam się z Tobą w 100% Ja popadlem w ten jezyk i teraz trudno mi sie z niego wyciagnac, poniewaz w bascomie moge pisac z zamknietymi oczami a w C czesto sie denerwuje

ale do bascoma juz nie wroce

Jednak nie zaluje ze sie tego uczylem, zeby nie swietej pamieci Zbyszek Raabe, pewnie bym dzis nie programowal mikroprockow.
zupelnie to samo tyczy sie programowania na PC. W Delphi kodze z 6 lat, ale wolalbym w VC++

ale tego juz chyba nie dam rady zmienic

Pozdrawiam

Tranzystor · Post autor: **Tranzystor** » 13 wrz 2005, 21:16

Ja na razie sądzę o Basic że jest dobry i narazie on mi wystarczy potem się będę uczyć reszty i wcale nie myślę że mi zamąci w głowie.

Jeżeli chodzi o Los Lotka to czy ktoś jeszcze powie mi czy go on zainteresuje czy nie??? Bo my tu mamy gadać o moim projekcie a gadamy o językach programowych!!

Passage · Post autor: **Passage** » 13 wrz 2005, 22:02

Sluchaj Tranzystor, napewno nie zaszkodzi gdy taki ukladzik zbudujesz, napewno sie czegos nowego nauczysz

osobiscie watpie zeby mi sie przydalo takie urzadzenie, wole napisac program na PC co daje wiecej mozliwosci, a raczej nie poszedlbym zo punktu przyjmowania zakladow z urzadzeniem w odbudowie km22. Oczywiscie znajda sie osoby ktore takie urzadzenie zafascynuje

Moze lepiej zrob jakis automat losujacy liczby, ale nie konkretnie do lotto. Bylaby przy okazji niezla kostka do gry

Bylyby np 4 przyciski:
sw1: ustawianie zakresu dziesiatek
sw2: ustawianie zakresu jednosci
sw3: wybor czy liczby maja sie powtarzac
sw4: start
no i reset procesora.
Pozdrawiam

Tranzystor · Post autor: **Tranzystor** » 14 wrz 2005, 21:24

Nie potrzeba 4 przycisków tylko 2. Dwa w zupełności wystarczą!! Na razie zostane przy Los Lotku. Nie będę na razie robić nowych gier bo czasu nie mam.

Raflles · Post autor: **Raflles** » 14 wrz 2005, 21:26

Czyli uważacie, ze nie warto się brać za BASCOMA ??

Jeżeli tak to prosiłbym o pomysł w jakim języku programowania opłaca się uczyć. Oprócz C++ bo do tego mi jeszcze daleko. Może assembler ?? I jakiś programator. Bo mam zestaw AVT 2500. Pozdrawiam !!!

Tranzystor · Post autor: **Tranzystor** » 14 wrz 2005, 21:29

Ja uważam że szybciej się nauczysz BASCOM-a. dla mnie jest on na razie bardzo dobrym językiem nie mam zamiaru narazie uczyć się innego języka.

spark · Post autor: **spark** » 15 wrz 2005, 20:27

Tranzystor pisze:Ja uważam że szybciej się nauczysz BASCOM-a.

A ja z kolei uważam, że najlepszy jest język C

.
Swoją przygodę, wogóle z programowaniem, zaczynałem od C++ i pisania w nim programów na komputer. Takie tam dosowe zabawki, bajery i różne takie co cieszy człowieka

.
Dzięki temu łatwiej mi jest zrozumieć kurs C z EdW i mogę już teraz powiedzieć (chociaż nie programuję programatorów) że to jest najlepszy język programatorski.

No, troszkę niżej może być od niego Visual Studio .Net

ale to się nie tyczy programatorów.

Serdecznie Pozdrowionka dla Wszystkich

PS. Aha i jeszcze jedno. Tranzystor ja bym raczej stawiał na jakość niż na szybkość nauczenia się i kożystania z konkretnego języka.
No i pa

;);)