Bascom - Random

You can use a different SEED value by dimensioning and assigning ___RSEED yourself:

Dim ___rseed as word : ___rseed = 10234

Dim I as word : I = rnd(10)

When your application uses a timer you can assign ___RSEED with the timer value. This will give a better random number.

en stop het laaste random nummer in de eeprom. en stop dit vervolgens weer in ___rseed

Ok, thnx, en is het ook mogelijk om een tekst naar de computer te zenden en die doormiddel van een zelfgemaakt programma in visual basic uit te lezen?

Chip zend "haai"

Visual Basic zet in tekstbox txt1 "haai"
Sub Form_Load()
txt1.text = OUTPUTVANCHIP
End Sub

Ik maak gebruik van een Attiny2313 via ISP.

Dit is mijn bascom topic en ik had een vraag. Met welke code kan ik hetvolgende voor mijn attiny2313 programmeren?

Ik wil dat ik in de hyperterminal (in windows) de tekst "Hallo wereld" te zien krijg.

Alvast harstikke bedankt,
Kevin

Er gebeurt niet zoveel in de hyperterminal:

Er knippert een streepje.

De instellingen in de hyperterminal heb ik zo ingesteld:

COM 3 waaraan mysmartusb zit, en daaraan de attiny zit
8 databits (denk ik)
bits per seconde: 9600 (denk ik)
pariteit: geen (denk ik)
stopbits: 1 (denk ik)
datatransportbesturing: hardware (denk ik)

De volgende code in bascom:

$regfile = "attiny2313.dat"
$crystal = 1000000
$baud = 9600

Loop:
    Print "Hallo wereld"
    Waitms 10
    Goto Loop

Wat doe ik fout?
Alvast bedankt,
Kevin

Die

Waitms 10

was meer een geintje, ik dacht dat je die wel zou snappen gezien je met bascom bezig bent.

Maak van die 10 maar iets hogers, 1000 ofzo.

Ik had al zo'n vermoeden

Nope, werkt niet. Wat kan ik nu proberen? Moet ik het niet naar een port verzenden?

config port?.? = output

port?.? = "hallo wereld"

ofzo? Ook in de terminal van bascom zie ik niks.

[Bericht gewijzigd door compuspace op zaterdag 24 februari 2007 22:50:04 ]

hardware handshake MOET AFSTAAN.

9600,n,8,1 ( als je de controller tenminste op 9600 hebt ingesteld )

in visual bais : mscomm instaniteren

ofwell ene reference toevoegen naar mscomm32

dim my_comm as mscomm32
set my_comm = new mscomm32

enzovoort.

t'schijnt dat er daar ene geweldig goed boek over is van elektuur tegenwoordig. iets over visual basic en electronics. geschreven door een of andere knettergekke belg die in silicon valley woont en nogal veel op CO post (7558 posts in amper 2 jaar )

Op 25 februari 2007 02:18:37 schreef free_electron:
t'schijnt dat er daar ene geweldig goed boek over is van elektuur tegenwoordig. iets over visual basic en electronics. geschreven door een of andere knettergekke belg die in silicon valley woont en nogal veel op CO post (7558 posts in amper 2 jaar )

Ik zag dat boek laatst, mijn leraar had het toegestuurd gekregen. Hij gaat ook als als lesboek gebruiken als de nieuwe groep wat moet leren programeren in VB.
Leuk boekje btw free.

$regfile = "attiny2313.dat"
$crystal = 20000000
$baud = 9600

Const Badreswrite = &H90
Const Badresread = &H91

Config Sda = Portb.5
Config Scl = Portb.7
Config I2cdelay = 5

Do
   I2cstart
   I2crbyte Badreswrite
   I2cstop
   Wait 1
Loop

Deze code stuurt toch om de seconde een 1 naar de PC?
Ik wil namelijk een code (maken) waarin er om de seconde een signaal naar de PC wordt gestuurd, een 1. Hoe kan dit? (De attiny2313 maakt gebruikt van 0/5V signalen.)

Heb je 'n TTL=>RS232 omvormer nodig, nl de MAX232;
aansluiten volgens schema (zoek eens op op google)
doorsturen naar pc kan simpelweg met
print "Blablabla" ; A (hier wordt de inhoud van variabele A doorgestuurd, is A = 10 dan wordt Blablabla10 doorgestuurd.

Op 24 februari 2007 22:29:03 schreef compuspace:
Er gebeurt niet zoveel in de hyperterminal:

Er knippert een streepje.

De instellingen in de hyperterminal heb ik zo ingesteld:

COM 3 waaraan mysmartusb zit, en daaraan de attiny zit
8 databits (denk ik)
bits per seconde: 9600 (denk ik)
pariteit: geen (denk ik)
stopbits: 1 (denk ik)
datatransportbesturing: hardware (denk ik)

De volgende code in bascom:

$regfile = "attiny2313.dat"
$crystal = 1000000
$baud = 9600

Loop:
    Print "Hallo wereld"
    Waitms 10
    Goto Loop

Wat doe ik fout?
Alvast bedankt,
Kevin

De ATTiny 2313 moet je niet via de MySmartUsb aan de de PC hangen. Dat is toch de programmer?
Je zult de AVR via een MAX233 (of MAX232) of via USB aan je PC moeten hangen, zodat de seriele communicatie op gang komt. Die zit op de TXD en RXD lijnen.
Voor een voorbeeld met:
MAX232: Klik hier!
USB: Klik hier!

Op 1 maart 2007 19:26:37 schreef compuspace:

$regfile = "attiny2313.dat"
$crystal = 20000000
$baud = 9600

Const Badreswrite = &H90
Const Badresread = &H91

Config Sda = Portb.5
Config Scl = Portb.7
Config I2cdelay = 5

Do
   I2cstart
   I2crbyte Badreswrite
   I2cstop
   Wait 1
Loop

Deze code stuurt toch om de seconde een 1 naar de PC?
Ik wil namelijk een code (maken) waarin er om de seconde een signaal naar de PC wordt gestuurd, een 1. Hoe kan dit? (De attiny2313 maakt gebruikt van 0/5V signalen.)

Nee, dat klopt niet. Wat jij doet, is een I2C commando zenden. Als je met de PC wilt communiceren gebruik je het commando Print.
Print "Dit is een test!"
Of omdat jij 1 wilt zenden,

Het getal 1 Als variabele

dim A as bit
A = 1
print A

De tekst 1

print "1"

[Bericht gewijzigd door Sandertje op maandag 30 juli 2007 19:03:42 (29%)]